* probe_incarca_antet.prg - apeleaza direct IncarcaAntetFacturaEditare (fara do_editare_unificata,
* fara Createobject pe forma) pe cele 4 documente vechi, sa vada daca poDate se construieste OK.
* Read-only. Diagnostic pentru docs\triaj_s8_regresie_28fail.md.

SET SAFETY OFF
SET TALK OFF

PUBLIC gcErrLog
gcErrLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\probe_incarca_antet_log.txt'
STRTOFILE('start' + CHR(13) + CHR(10), gcErrLog)

ON ERROR DO test_error_handler WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()

DO ('D:\ROA\ROAFACTURARE\COMUN\utile\Teste\test_init_env_auto_roafacturare.prg') WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
IF gnHandle <= 0
	STRTOFILE('EROARE: conectare esuata' + CHR(13) + CHR(10), gcErrLog, 1)
	QUIT
ENDIF
gnIdUtil = 8

SET PROCEDURE TO D:\ROA\ROAFACTURARE\COMUN\programe\ofacturare_editare.prg ADDITIVE

PROCEDURE Proba
	LPARAMETERS tnId
	LOCAL loDate, pnA, pnB
	loDate = IncarcaAntetFacturaEditare(tnId, @pnA, @pnB)
	STRTOFILE(Transform(tnId) + ': Vartype=' + Vartype(loDate) + ' oExecutor.cEroare=[' + Nvl(goExecutor.cEroare,'') + ']' + CHR(13) + CHR(10), gcErrLog, 1)
	IF Vartype(loDate) == 'O'
		STRTOFILE(Transform(tnId) + ':   tip=' + Transform(loDate.tip) + ' incasat=' + Transform(loDate.incasat) + ' lEditare=' + Transform(loDate.lEditare) + CHR(13) + CHR(10), gcErrLog, 1)
	ENDIF
ENDPROC

DO Proba WITH 1113
DO Proba WITH 1055
DO Proba WITH 1048
DO Proba WITH 1130

STRTOFILE('done' + CHR(13) + CHR(10), gcErrLog, 1)
QUIT