Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/complus/crm/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/complus/crm/crmfiles.sct
%-VERSION =   3.00
crmfiles.hdataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
11formformfrmCRMFiles�Top = 7
Left = 14
Height = 206
Width = 338
DoCreate = .T.
BorderStyle = 2
Caption = "Compensating Resource Manager - Files Sample"
MaxButton = .F.
MinButton = .F.
oapp = 
cfilename = 
Name = "frmCRMFiles"
�PROCEDURE Init
THIS.txtFile.Value = DEFAULT_TXTFILE
IF FILE(DEFAULT_TXTFILE)
	THISFORM.opgFileAction.Value = 2
ENDIF

ENDPROC
PROCEDURE Destroy
IF VARTYPE(THISFORM.oApp) = "O"
	THISFORM.oApp.AbortFile()
ENDIF
ENDPROC
PROCEDURE Refresh
LOCAL lObjExists
THIS.lblResults.Caption=""
lObjExists = (VARTYPE(THIS.oapp) = "O")

THISFORM.opgFileAction.Option1.Enabled = !lObjExists
THISFORM.opgFileAction.Option2.Enabled = !lObjExists
THISFORM.cmdDoIt.Enabled = !lObjExists
THISFORM.cmdAbort.Enabled = lObjExists
THISFORM.cmdCommit.Enabled = lObjExists
THISFORM.cmdLog.Enabled = FILE(LOGFILE)
THISFORM.cmdErrors.Enabled = FILE(ERRLOG)

ENDPROC
c�� JJ{�%����UX!T�����c:\crmTest.txt��%�C�c:\crmTest.txt0��Q�T��������UTHISTXTFILEVALUETHISFORM
OPGFILEACTION/%�C�����O��(���C������UTHISFORMOAPP	ABORTFILE����T�������T��C�����O��T������
��T���	���
��T��
���
��T�������T�������'T��
��C�C:\crmfilesvfp.log0��'T����C�C:\crmfilesvfp.err0��U
LOBJEXISTSTHIS
LBLRESULTSCAPTIONOAPPTHISFORM
OPGFILEACTIONOPTION1ENABLEDOPTION2CMDDOITCMDABORT	CMDCOMMITCMDLOG	CMDERRORSInit,��Destroy���Refresh��1�1A3�A2q1�rqA11qq2z��
��
)Joapp
cfilename
optiongroupoptiongroup
opgFileActionfrmCRMFiles�ButtonCount = 2
Value = 1
Height = 52
Left = 12
Top = 84
Width = 96
TabIndex = 5
Name = "opgFileAction"
Option1.Caption = "Create File"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 9
Option1.Width = 78
Option1.Name = "Option1"
Option2.Caption = "Delete File"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 28
Option2.Width = 77
Option2.Name = "Option2"

commandbutton
commandbuttoncmdDoItfrmCRMFilesdTop = 84
Left = 120
Height = 24
Width = 60
Caption = "\<Do It"
TabIndex = 6
Name = "cmdDoIt"
\PROCEDURE Click
LOCAL lretval,lcFileName

* Get file name and check if empty
lcFileName = ALLTRIM(THISFORM.txtFile.Value)
IF EMPTY(lcFileName)
	THISFORM.lblResults.Caption = FILEMSG3_LOC
	THISFORM.txtFile.Value = DEFAULT_TXTFILE	&&default file name to create
	RETURN
ENDIF

* Make sure we created CRM Files client application
THISFORM.oApp = CREATEOBJECT("crmfilesclient.crmfilesvfp")
IF VARTYPE(THISFORM.oapp)#"O"
	THISFORM.lblResults.Caption = FILEMSG4_LOC
	RETURN
ENDIF

* Perform main action (create or delete file)
IF THISFORM.opgFileAction.Value=1
	* Create file
	lretval = THISFORM.oApp.CreateFile(lcFileName)
ELSE
	* Delete file
	lretval = THISFORM.oApp.DeleteFile(lcFileName)
ENDIF

* Check for error
IF !lretval
	THISFORM.oApp=""
ENDIF

THISFORM.Refresh()
THISFORM.lblResults.Caption = TRANSFORM(lretval)

ENDPROC
�� ��y�%S�b�U�����T��C������%�C����~�*T�����No file name specified.��!T�����c:\crmTest.txt��B��-T���C�crmfilesclient.crmfilesvfp�N��%�C�����O���@T�����-Could not create instance of COM application.��B��%�������>�T��C����	���^�T��C����
���%��
����T�������
��C����T����C�_��ULRETVAL
LCFILENAMETHISFORMTXTFILEVALUE
LBLRESULTSCAPTIONOAPP
OPGFILEACTION
CREATEFILE
DELETEFILEREFRESHClick,��1�S��AA��AAs���A�A�Q2Q)�textboxtextboxtxtFilefrmCRMFilesOHeight = 23
Left = 12
TabIndex = 2
Top = 36
Width = 280
Name = "txtFile"

commandbutton
commandbutton	cmdCommitfrmCRMFilesvTop = 84
Left = 264
Height = 24
Width = 60
Caption = "\<Commit"
Enabled = .F.
TabIndex = 8
Name = "cmdCommit"
�PROCEDURE Click
IF VARTYPE(THISFORM.oApp) = "O"
	THISFORM.oApp.CommitFile()
	THISFORM.oApp= ""
ENDIF
THISFORM.Refresh()
ENDPROC
 �� �4%����UL%�C�����O��8���C�����T�������
��C����UTHISFORMOAPP
COMMITFILEREFRESHClick,��1�A�1|)
commandbutton
commandbuttoncmdAbortfrmCRMFilestTop = 84
Left = 200
Height = 24
Width = 60
Caption = "\<Abort"
Enabled = .F.
TabIndex = 7
Name = "cmdAbort"
�PROCEDURE Click
IF VARTYPE(THISFORM.oApp) = "O"
	THISFORM.oApp.AbortFile()
	THISFORM.oApp= ""
ENDIF
THISFORM.Refresh()
ENDPROC
�� '%����UL%�C�����O��8���C�����T�������
��C����UTHISFORMOAPP	ABORTFILEREFRESHClick,��1�A�1{)labellabelLabel1frmCRMFilesgCaption = "\<File name:"
Height = 17
Left = 12
Top = 12
Width = 60
TabIndex = 1
Name = "Label1"

commandbutton
commandbutton
cmdGetFilefrmCRMFilescTop = 36
Left = 300
Height = 24
Width = 28
Caption = "..."
TabIndex = 3
Name = "cmdGetFile"
~PROCEDURE Click
lcFile = GETFILE()
IF !EMPTY(lcFile)
	THISFORM.txtFile.Value = lcFile
ENDIF
THISFORM.Refresh()
ENDPROC
�� /%����UCT��C���%�C��
��/�T��������
��C����ULCFILETHISFORMTXTFILEVALUEREFRESHClick,��1�1A�1s)labellabelLabel2frmCRMFilesiCaption = "File exists:"
Height = 17
Left = 12
Top = 156
Width = 60
TabIndex = 11
Name = "Label2"
labellabelLabel3frmCRMFilescCaption = "Ac\<tion"
Height = 17
Left = 23
Top = 76
Width = 35
TabIndex = 4
Name = "Label3"
labellabel
lblFileExistsfrmCRMFiles�FontBold = .T.
Caption = "Yes"
Height = 17
Left = 73
Top = 156
Width = 251
TabIndex = 12
ForeColor = 0,0,255
Name = "lblFileExists"
labellabelLabel4frmCRMFileseCaption = "Results:"
Height = 17
Left = 11
Top = 180
Width = 60
TabIndex = 13
Name = "Label4"
labellabel
lblResultsfrmCRMFiles�FontBold = .T.
Caption = "Yes"
Height = 17
Left = 72
Top = 180
Width = 251
TabIndex = 14
ForeColor = 255,0,0
Name = "lblResults"

commandbutton
commandbuttoncmdLogfrmCRMFilesqTop = 111
Left = 200
Height = 24
Width = 60
Caption = "\<Log"
Enabled = .F.
TabIndex = 9
Name = "cmdLog"
6PROCEDURE Click
MODIFY FILE LOGFILE NOWAIT
ENDPROC
�� ����%Pe_�U /��C:\crmfilesvfp.log�:�UClick,��1�1+)�
commandbutton
commandbutton	cmdErrorsfrmCRMFilesxTop = 111
Left = 264
Height = 24
Width = 60
Caption = "\<Errors"
Enabled = .F.
TabIndex = 10
Name = "cmdErrors"
5PROCEDURE Click
MODIFY FILE ERRLOG NOWAIT
ENDPROC
�� ����%Pe_�U /��C:\crmfilesvfp.err�:�UClick,��1�1*)�timertimerTimer1frmCRMFilesOTop = 0
Left = 300
Height = 23
Width = 23
Interval = 500
Name = "Timer1"
vPROCEDURE Timer
THISFORM.lblFileExists.Caption=IIF(FILE(ALLTRIM(THISFORM.txtFile.Value)),YES_LOC,NO_LOC)

ENDPROC
�� ����%����U30T����CCC����0�	�Yes��No6��UTHISFORM
LBLFILEEXISTSCAPTIONTXTFILEVALUETimer,��12k)�!Arial, 0, 9, 5, 15, 12, 32, 3, 0

crmfiles.hn�N�(