49 lines
1.3 KiB
Plaintext
49 lines
1.3 KiB
Plaintext
Lparameters tcOptiune, tnZile
|
|
* tcOptiune: s (lanseaza import silentios)
|
|
* tnZile: nnn (numarul de zile pentru import)
|
|
|
|
Set Century On
|
|
Set Date Dmy
|
|
Set Exact On
|
|
Set Ansi On
|
|
Set Deleted On
|
|
Set Safety Off
|
|
Set Deleted On
|
|
Set NullDisplay To ''
|
|
|
|
PRIVATE gcMainPath, gcLogStamp
|
|
gcMainPath = UPPER(ADDBS(JUSTPATH(SYS(16,0))))
|
|
gcMainPath = STRTRAN(m.gcMainPath,'PROGRAME\', '')
|
|
gcLogStamp = SYS(2015)
|
|
lcPath = gcMainPath + 'ferestre\;'
|
|
|
|
SET DEFAULT TO (m.gcMainPath)
|
|
SET PATH TO (m.lcPath) ADDITIVE
|
|
|
|
Local lcOptiune, lnOptiune, llSilentios, lnZile
|
|
lcOptiune = Lower(Alltrim(Transform(m.tcOptiune)))
|
|
llSilentios = (m.lcOptiune = 's')
|
|
lnZile = Int(Val(Transform(m.tnZile)))
|
|
lnZile = Iif(Empty(m.lnZile), 30, m.lnZile)
|
|
|
|
|
|
WriteLog('Start import RORIS silentios: ' + TRANSFORM(m.llSilentios) + ', zile: ' + ALLTRIM(TRANSFORM(m.lnZile)))
|
|
|
|
If m.llSilentios
|
|
lnOptiune = 1
|
|
Do importroris_proceduri.prg With llSilentios, m.lnOptiune, m.lnZile
|
|
Else
|
|
Do Form importroris
|
|
ENDIF
|
|
|
|
WriteLog('End import RORIS silentios: ' + TRANSFORM(m.llSilentios) + ', zile: ' + ALLTRIM(TRANSFORM(m.lnZile)))
|
|
WriteLog('')
|
|
|
|
PROCEDURE WriteLog
|
|
LPARAMETERS tcMesaj
|
|
lcMesaj = m.gcLogStamp + ' ' + TRANSFORM(DATETIME()) + ' ' + TRANSFORM(m.tcMesaj) + CHR(13)
|
|
lcFile = m.gcMainPath + 'log.txt'
|
|
IF FILE(m.lcFile)
|
|
STRTOFILE(m.lcMesaj, m.lcFile, .T.)
|
|
ENDIF
|
|
ENDPROC |