* test_s8_pas1_versiune.prg
* S8 pas 1 - test izolat, doar marcajul de versiune (pack_migrare.UpdateVersiune), ca sa nu
* mai blocheze scriptul principal daca sintaxa "exec" nu e valida prin goExecutor (nu e SQL*Plus).
* Incearca bloc PL/SQL anonim. QUIT la final indiferent de rezultat.

SET SAFETY OFF
SET TALK OFF

PUBLIC gcErrLog
gcErrLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\test_s8_pas1_versiune_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.prg') WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT', 2026, 8
IF gnHandle <= 0
	STRTOFILE('EROARE: conectare esuata' + CHR(13) + CHR(10), gcErrLog, 1)
	QUIT
ENDIF

LOCAL llOk
STRTOFILE('incepe UpdateVersiune' + CHR(13) + CHR(10), gcErrLog, 1)
llOk = goExecutor.oExecuta([begin pack_migrare.UpdateVersiune('wip13_2026_09_02_01_COMUN_VVANZARI_ARTICOLE_EXT'); end;])
STRTOFILE('rezultat: ' + TRANSFORM(m.llOk) + CHR(13) + CHR(10), gcErrLog, 1)
IF !m.llOk
	STRTOFILE('EROARE: ' + goExecutor.cEroare + CHR(13) + CHR(10), gcErrLog, 1)
ENDIF
goExecutor.oReset()

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


PROCEDURE test_error_handler
	LPARAMETERS tnError, tcMessage, tcProgram, tnLineNo

	STRTOFILE('EROARE ' + TRANSFORM(tnError) + ' [' + tcProgram + ':' + TRANSFORM(tnLineNo) + '] ' + tcMessage + CHR(13) + CHR(10), gcErrLog, 1)
ENDPROC