SET SAFETY OFF
SET TALK OFF
LOCAL lcLog
lcLog = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\probe_stare_finala.log"
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13)+CHR(10), lcLog)
ON ERROR DO PErr WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
DO "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\test_init_env_auto_roafacturare.prg" WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
IF TYPE('gnHandle') <> 'N' OR gnHandle <= 0
	STRTOFILE("EROARE conectare" + CHR(13)+CHR(10), lcLog, 1)
	QUIT
ENDIF
gnIdUtil = 8
gnIdSucursala = 167
PRIVATE poGeneratorNumere
poGeneratorNumere = CREATEOBJECT('oGeneratorNumere')
poGeneratorNumere.ResetNumere()
LOCAL ARRAY laTip[3]
laTip[1] = 3
laTip[2] = 16
laTip[3] = 26
LOCAL i, lnRezSerii
FOR i = 1 TO 3
	lnRezSerii = poGeneratorNumere.creeaza_cursor_serii(laTip[i])
	STRTOFILE("tip=" + TRANSFORM(laTip[i]) + " rezultat_serii=" + TRANSFORM(lnRezSerii) + ;
		" paPlaje(tip,1)=" + TRANSFORM(NVL(poGeneratorNumere.paPlaje(laTip[i],1),-999)) + CHR(13)+CHR(10), lcLog, 1)
ENDFOR
STRTOFILE("END " + TTOC(DATETIME()) + CHR(13)+CHR(10), lcLog, 1)
QUIT
PROCEDURE PErr
	LPARAMETERS tnErr, tcMsg, tcProg, tnLine
	STRTOFILE("ERROR " + TRANSFORM(tnErr) + " [" + tcProg + ":" + TRANSFORM(tnLine) + "] " + tcMsg + CHR(13)+CHR(10), "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\probe_stare_finala.log", 1)
ENDPROC