* probe_s9_4_hang.prg - READ-ONLY: reproduce secventa INAINTE din Rularea2 pe documentul 1056.
SET SAFETY OFF
SET TALK OFF
PUBLIC gcErrLog, gnMockRaspuns, gcMockUltimMesaj, gnMockUltimTip
gcErrLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\probe_s9_4_hang_log.txt'
STRTOFILE('start ' + TRANSFORM(DATETIME()) + 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' + CHR(13) + CHR(10), gcErrLog, 1)
	QUIT
ENDIF
gnIdUtil = 8

LOCAL lcProcExistent
lcProcExistent = SET("PROCEDURE")
SET PROCEDURE TO "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\mock_amessagebox.prg", &lcProcExistent
gnMockRaspuns = 7
gcMockUltimMesaj = ''
gnMockUltimTip = 0

LOCAL lnIdV, lnIdFact, lcSerie, lnNumar, lnDoc, lnOk
lnIdV = 1056

DO U WITH 'antet prin oExecuta'
IF goExecutor.oExecuta([select id_fact, serie_act, numar_act from vanzari where id_vanzare = ] + TRANSFORM(lnIdV), 'v_a')
	SELECT v_a
	GO TOP
	lnIdFact = NVL(id_fact, 0)
	lcSerie = ALLTRIM(NVL(serie_act, ''))
	lnNumar = NVL(numar_act, 0)
	USE IN v_a
ENDIF
DO U WITH 'id_fact=[' + TRANSFORM(lnIdFact) + '] tip=' + VARTYPE(lnIdFact) + ;
	' serie=[' + TRANSFORM(lcSerie) + '] numar=' + TRANSFORM(lnNumar)

DO U WITH 'SQL construit: ' + [select count(*) as nr from documente where id_fact = ] + TRANSFORM(lnIdFact)

DO U WITH 'varianta A: oExecuta pe documente'
lnOk = goExecutor.oExecuta([select count(*) as nr from documente where id_fact = ] + TRANSFORM(lnIdFact), 'v_d')
DO U WITH '   oExecuta a intors ' + TRANSFORM(lnOk) + ' eroare=[' + TRANSFORM(goExecutor.cEroare) + ']'
IF USED('v_d')
	SELECT v_d
	GO TOP
	DO U WITH '   nr = ' + TRANSFORM(nr)
	USE IN v_d
ENDIF

DO U WITH 'varianta B: oSelecteaza2Value pe documente (suspectul)'
lnDoc = -1
goExecutor.oSelecteaza2Value([select count(*) as nr from documente where id_fact = ] + TRANSFORM(lnIdFact), @lnDoc)
DO U WITH '   lnDoc = ' + TRANSFORM(lnDoc)

DO U WITH 'ultimul mesaj prin mock: [' + gcMockUltimMesaj + ']'
STRTOFILE('end ' + TRANSFORM(DATETIME()) + CHR(13) + CHR(10), gcErrLog, 1)
QUIT

PROCEDURE U
	LPARAMETERS tcT
	STRTOFILE(TTOC(DATETIME()) + '  ' + m.tcT + CHR(13) + CHR(10), gcErrLog, 1)
ENDPROC

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