* probe_s9_4_nota.prg - READ-ONLY: s-a creat o nota contabila NOUA la regenerarea doc 1070 -> 1137?
* ID_SET e comun pe perioada, deci identitatea notei e ID_DOC (PK-ul din DOCUMENTE).
SET SAFETY OFF
SET TALK OFF
PUBLIC gcErrLog
gcErrLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\probe_s9_4_nota_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
	QUIT
ENDIF

DO Lista WITH 'DOCUMENTE pentru SSS/594 (nota veche + nota noua)', ;
	[select id_doc, id_set, sters, nract, serie_act, dataact, dataireg from documente ] + ;
	[where nract = 594 and serie_act = 'SSS' order by id_doc]

DO Lista WITH 'cate valori distincte de ID_SET exista pe perioada activa', ;
	[select count(distinct id_set) as seturi, count(*) as randuri from ] + gcs + [.vact_tot ] + ;
	[where sters = 0 and an = 2026 and luna = 8]

DO Lista WITH 'documentul nou 1137 - id_fdoc si dataireg reale scrise', ;
	[select a.cod, a.id_fdoc, a.dataireg, v.data_act from ] + gcs + [.vact_tot a, vanzari v ] + ;
	[where v.id_vanzare = 1137 and a.cod = v.cod and a.sters = 0]

DO Lista WITH 'documentul vechi 1070 - stare finala', ;
	[select id_vanzare, cod, sters, id_fact from vanzari where id_vanzare in (1070, 1137) order by id_vanzare]

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

PROCEDURE Lista
	LPARAMETERS tcTitlu, tcSql
	LOCAL lnOk, lnI, lcL
	IF USED('v_n')
		USE IN v_n
	ENDIF
	lnOk = goExecutor.oExecuta(tcSql, 'v_n')
	IF !lnOk
		STRTOFILE('--- ' + tcTitlu + ': EROARE ' + goExecutor.cEroare + CHR(13) + CHR(10), gcErrLog, 1)
		RETURN
	ENDIF
	SELECT v_n
	STRTOFILE('--- ' + tcTitlu + ': ' + TRANSFORM(RECCOUNT('v_n')) + ' randuri' + CHR(13) + CHR(10), gcErrLog, 1)
	SCAN WHILE RECNO() <= 20
		lcL = ''
		FOR lnI = 1 TO FCOUNT('v_n')
			lcL = lcL + ALLTRIM(FIELD(lnI, 'v_n')) + '=' + ALLTRIM(TRANSFORM(EVALUATE(FIELD(lnI, 'v_n')))) + '  '
		ENDFOR
		STRTOFILE('      ' + lcL + CHR(13) + CHR(10), gcErrLog, 1)
	ENDSCAN
	USE IN v_n
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