* probe_s9_5_atasamente.prg - READ-ONLY: structura ATASAMENTE_VANZARI, sursa view-ului
* VATASAMENTE_VANZARI, orice referinta din PL/SQL, si populatia din perioada activa.
SET SAFETY OFF
SET TALK OFF
PUBLIC gcErrLog
gcErrLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\probe_s9_5_atasamente_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 esuata' + CHR(13) + CHR(10), gcErrLog, 1)
	QUIT
ENDIF
gnIdUtil = 8

*!* la nume duplicat de procedura castiga PRIMUL fisier din lista SET PROCEDURE, nu ultimul
PUBLIC gnMockRaspuns, gcMockUltimMesaj, gnMockUltimTip
gnMockRaspuns = 7
gcMockUltimMesaj = ''
gnMockUltimTip = 0
LOCAL lcProcExistent
lcProcExistent = SET("PROCEDURE")
IF EMPTY(lcProcExistent)
	SET PROCEDURE TO "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\mock_amessagebox.prg"
ELSE
	SET PROCEDURE TO "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\mock_amessagebox.prg", &lcProcExistent
ENDIF

DO Sectiune WITH 'F. constrangeri pe ATASAMENTE_VANZARI', ;
	[select c.constraint_name || ' ' || c.constraint_type as l ] + ;
	[from all_constraints c where c.owner = 'MARIUSM_AUTO' and c.table_name = 'ATASAMENTE_VANZARI']

DO Sectiune WITH 'G. populatia: total randuri / distincte id_vanzare', ;
	[select 'total=' || count(*) || ' documente=' || count(distinct id_vanzare) as l from MARIUSM_AUTO.atasamente_vanzari]

DO Sectiune WITH 'H. atasamente pe documentele perioadei active (top 20)', ;
	[select 'id_vanzare=' || a.id_vanzare || ' nr=' || count(*) as l ] + ;
	[from MARIUSM_AUTO.atasamente_vanzari a join MARIUSM_AUTO.vanzari v on v.id_vanzare = a.id_vanzare ] + ;
	[where extract(year from v.data_act) = 2026 and extract(month from v.data_act) = 8 ] + ;
	[group by a.id_vanzare order by a.id_vanzare]

DO Sectiune WITH 'I. atasamente pe documentele produse de S9-4 (1137,1138,1139) si sursele lor', ;
	[select 'id_vanzare=' || id_vanzare || ' nr=' || count(*) as l from MARIUSM_AUTO.atasamente_vanzari ] + ;
	[where id_vanzare in (1070,1071,1072,1137,1138,1139,1051) group by id_vanzare order by id_vanzare]

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

PROCEDURE Sectiune
	LPARAMETERS tcTitlu, tcSql
	LOCAL lcOut, lnN
	STRTOFILE(CHR(13) + CHR(10) + '=== ' + tcTitlu + CHR(13) + CHR(10), gcErrLog, 1)
	IF USED('v_s')
		USE IN v_s
	ENDIF
	IF goExecutor.oExecuta(tcSql, 'v_s')
		SELECT v_s
		lnN = RECCOUNT('v_s')
		IF lnN = 0
			STRTOFILE('  (zero randuri)' + CHR(13) + CHR(10), gcErrLog, 1)
		ELSE
			lcOut = ''
			SCAN
				lcOut = lcOut + '  ' + ALLTRIM(NVL(v_s.l, '<null>')) + CHR(13) + CHR(10)
			ENDSCAN
			STRTOFILE(lcOut, gcErrLog, 1)
		ENDIF
		USE IN v_s
	ELSE
		STRTOFILE('  ESEC interogare: ' + goExecutor.cEroare + CHR(13) + CHR(10), gcErrLog, 1)
	ENDIF
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