* test_id_part_rez.prg
* Proba tintita pentru reparatia sectiunii 3.3 din docs\propunere_comparatie_coloane_crsfactura.md:
* id_part_rez / id_lucrare_rez trebuie sa fie refacute la editare din rulajul original (RUL), nu sa
* ramana NULL. Sursa propusa in document (VANZARI_DETALII) NU are aceste coloane - se probeaza si
* asta, plus faptul ca VVANZARI_ARTICOLE nu le expune, deci valoarea gasita in crsfactura nu poate
* veni din alta parte. Nimic nu se scrie in Oracle: doar SELECT si incarcarea in cursoare.
*
* Caz 1 (doc 872, rezervare reala): RUL are un rand cu id_part_rez = 742 si id_lucrare_rez NULL.
* Caz 2 (doc 951, rezervare absenta scrisa ca 0): randul RUL are 0 pe ambele; 0 trebuie pastrat ca 0,
*        nu convertit in NULL si nici NULL convertit in 0.
* Caz 3 (premisele): VANZARI_DETALII fara coloane, VVANZARI_ARTICOLE fara coloane, RUL cu ambele.

SET SAFETY OFF
SET TALK OFF

PUBLIC gcErrLog, gnPass, gnFail
PUBLIC poDate

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

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

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

*!* la nume duplicat de procedura castiga PRIMUL fisier din lista SET PROCEDURE, nu ultimul
LOCAL lcProcExistent
lcProcExistent = SET("PROCEDURE")
SET PROCEDURE TO "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\mock_amessagebox.prg", &lcProcExistent

PUBLIC gnMockRaspuns, gcMockUltimMesaj, gnMockUltimTip
gnMockRaspuns = 7
gcMockUltimMesaj = ''
gnMockUltimTip = 0
gnPass = 0
gnFail = 0

DO Premise
DO CazDocument WITH 872, 742, .T.
DO CazDocument WITH 951, 0, .F.

STRTOFILE(CHR(13) + CHR(10) + 'REZULTAT: ' + TRANSFORM(gnPass) + ' PASS / ' + TRANSFORM(gnFail) + ' FAIL' + CHR(13) + CHR(10), gcErrLog, 1)
STRTOFILE('end ' + TRANSFORM(DATETIME()) + CHR(13) + CHR(10), gcErrLog, 1)
QUIT


*==============================================================================================
* Premise: nici tabela propusa in document, nici view-ul sursa nu au coloanele; RUL le are.
*==============================================================================================
PROCEDURE Premise
	LOCAL lcSql
	STRTOFILE(CHR(13) + CHR(10) + '--- PREMISE ---' + CHR(13) + CHR(10), gcErrLog, 1)

	lcSql = [select count(*) as nr from all_tab_columns where owner = 'MARIUSM_AUTO' ] + ;
		[and table_name = 'VANZARI_DETALII' and column_name in ('ID_PART_REZ','ID_LUCRARE_REZ')]
	DO AssertaSql WITH 'VANZARI_DETALII NU are coloanele (varianta (a) din propunere e imposibila)', lcSql, 0

	lcSql = [select count(*) as nr from all_tab_columns where owner = 'MARIUSM_AUTO' ] + ;
		[and table_name = 'VVANZARI_ARTICOLE' and column_name in ('ID_PART_REZ','ID_LUCRARE_REZ')]
	DO AssertaSql WITH 'VVANZARI_ARTICOLE NU expune coloanele', lcSql, 0

	lcSql = [select count(*) as nr from all_tab_columns where owner = 'MARIUSM_AUTO' ] + ;
		[and table_name = 'RUL' and column_name in ('ID_PART_REZ','ID_LUCRARE_REZ')]
	DO AssertaSql WITH 'RUL are ambele coloane (singura sursa la editare)', lcSql, 2
ENDPROC


*==============================================================================================
* CazDocument: incarca documentul si compara crsfactura cu RUL, rand cu rand.
*   tnIdV        - id_vanzare
*   tnPartAstept - valoarea id_part_rez asteptata pe cel putin o linie
*   tlLucrNull   - .T. daca id_lucrare_rez din RUL e NULL pe acea linie
*==============================================================================================
PROCEDURE CazDocument
	LPARAMETERS tnIdV, tnPartAstept, tlLucrNull
	LOCAL lcSql, lnDiscRon, lnDiscVal, lnPotriviri, lnPart, lnLucr, lnNule, lnStrict, lcPref

	lcPref = 'D' + TRANSFORM(tnIdV) + ' '
	STRTOFILE(CHR(13) + CHR(10) + '--- CAZ document ' + TRANSFORM(tnIdV) + ' ---' + CHR(13) + CHR(10), gcErrLog, 1)

	*!* sursa independenta: randurile RUL ale documentului, exact ca in productie
	IF USED('crs_rul_astept')
		USE IN crs_rul_astept
	ENDIF
	lcSql = [select r.id_articol, r.id_gestiune, Nvl(r.cont,' ') as cont, r.pret, ] + ;
		[Nvl(r.serie,' ') as serie, r.cante as cantitate, r.pretv, r.id_tip_rulaj, ] + ;
		[r.id_part_rez, r.id_lucrare_rez ] + ;
		[from rul r, vanzari v ] + ;
		[where v.id_vanzare = ] + ALLTRIM(STR(tnIdV)) + ;
		[ and r.cod = v.cod and r.sters = 0 and r.cante <> 0 ] + ;
		[order by r.id_tip_rulaj desc, r.id_rul]
	IF !goExecutor.oExecuta(lcSql, 'crs_rul_astept')
		DO Asserta WITH lcPref + 'randurile RUL s-au citit', .F., 'oExecuta a esuat'
		RETURN
	ENDIF
	goExecutor.oReset()
	DO Asserta WITH lcPref + 'documentul are randuri RUL', RECCOUNT('crs_rul_astept') > 0, TRANSFORM(RECCOUNT('crs_rul_astept'))

	*!* incarcarea reala
	lnDiscRon = 0
	lnDiscVal = 0
	poDate = IncarcaAntetFacturaEditare(tnIdV, @lnDiscRon, @lnDiscVal)
	DO Asserta WITH lcPref + 'antetul s-a incarcat', VARTYPE(poDate) = 'O', VARTYPE(poDate)
	IF VARTYPE(poDate) <> 'O'
		RETURN
	ENDIF

	IncarcaLiniiFacturaEditare(poDate, tnIdV)
	DO Asserta WITH lcPref + 'crsfactura are linii', ;
		USED('crsfactura') AND RECCOUNT('crsfactura') > 0, TRANSFORM(IIF(USED('crsfactura'), RECCOUNT('crsfactura'), -1))
	IF !USED('crsfactura') OR RECCOUNT('crsfactura') = 0
		RETURN
	ENDIF

	*!* comparatia rand cu rand, pe aceeasi cheie ca productia
	lnPotriviri = 0
	lnPart = 0
	lnLucr = 0
	lnNule = 0
	lnStrict = 0
	SELECT crsfactura
	SCAN FOR gestionabil = 1
		SELECT crs_rul_astept
		LOCATE FOR id_articol = crsfactura.id_articol AND id_gestiune = crsfactura.id_gestiune ;
			AND ALLTRIM(cont) == ALLTRIM(crsfactura.Cont) AND pret = crsfactura.pret_achizitie ;
			AND ALLTRIM(serie) == ALLTRIM(NVL(crsfactura.serie,[])) AND cantitate = crsfactura.cantitate
		IF FOUND()
			lnPotriviri = lnPotriviri + 1
			*!* pretv_orig populat din acelasi rand = dovada ca potrivirea chiar a avut loc
			IF crsfactura.pretv_orig = NVL(crs_rul_astept.pretv, -987654)
				lnStrict = lnStrict + 1
			ENDIF
			IF ISNULL(crs_rul_astept.id_part_rez) = ISNULL(crsfactura.id_part_rez) ;
					AND NVL(crs_rul_astept.id_part_rez, -1) = NVL(crsfactura.id_part_rez, -1)
				lnPart = lnPart + 1
			ENDIF
			IF ISNULL(crs_rul_astept.id_lucrare_rez) = ISNULL(crsfactura.id_lucrare_rez) ;
					AND NVL(crs_rul_astept.id_lucrare_rez, -1) = NVL(crsfactura.id_lucrare_rez, -1)
				lnLucr = lnLucr + 1
			ENDIF
			STRTOFILE('  id_temp=' + TRANSFORM(crsfactura.id_temp) + ;
				' art=' + TRANSFORM(NVL(crsfactura.id_articol,-1)) + ;
				' cant=' + TRANSFORM(crsfactura.cantitate) + ;
				' pretv_orig=' + TRANSFORM(crsfactura.pretv_orig) + ;
				' id_part_rez=' + IIF(ISNULL(crsfactura.id_part_rez), 'NULL', TRANSFORM(crsfactura.id_part_rez)) + ;
				' id_lucrare_rez=' + IIF(ISNULL(crsfactura.id_lucrare_rez), 'NULL', TRANSFORM(crsfactura.id_lucrare_rez)) + ;
				' potrivit=da' + CHR(13) + CHR(10), gcErrLog, 1)
		ELSE
			*!* fara potrivire in RUL nu exista sursa: valoarea trebuie sa ramana NULL
			IF ISNULL(crsfactura.id_part_rez) AND ISNULL(crsfactura.id_lucrare_rez)
				lnNule = lnNule + 1
			ENDIF
			STRTOFILE('  id_temp=' + TRANSFORM(crsfactura.id_temp) + ;
				' art=' + TRANSFORM(NVL(crsfactura.id_articol,-1)) + ;
				' cant=' + TRANSFORM(crsfactura.cantitate) + ;
				' id_part_rez=' + IIF(ISNULL(crsfactura.id_part_rez), 'NULL', TRANSFORM(crsfactura.id_part_rez)) + ;
				' id_lucrare_rez=' + IIF(ISNULL(crsfactura.id_lucrare_rez), 'NULL', TRANSFORM(crsfactura.id_lucrare_rez)) + ;
				' potrivit=nu' + CHR(13) + CHR(10), gcErrLog, 1)
		ENDIF
		SELECT crsfactura
	ENDSCAN

	DO Asserta WITH lcPref + 'exista cel putin o linie potrivita in RUL (proba nu e vida)', ;
		lnPotriviri > 0, TRANSFORM(lnPotriviri)
	DO Asserta WITH lcPref + 'pretv_orig e cel din RUL pe toate liniile potrivite', ;
		lnStrict = lnPotriviri AND lnPotriviri > 0, TRANSFORM(lnStrict) + '/' + TRANSFORM(lnPotriviri)
	DO Asserta WITH lcPref + 'id_part_rez identic cu RUL pe toate liniile potrivite (NULL ramane NULL)', ;
		lnPart = lnPotriviri AND lnPotriviri > 0, TRANSFORM(lnPart) + '/' + TRANSFORM(lnPotriviri)
	DO Asserta WITH lcPref + 'id_lucrare_rez identic cu RUL pe toate liniile potrivite (NULL ramane NULL)', ;
		lnLucr = lnPotriviri AND lnPotriviri > 0, TRANSFORM(lnLucr) + '/' + TRANSFORM(lnPotriviri)

	*!* valoarea concreta asteptata pe document, ca sa nu treaca o comparatie NULL = NULL
	SELECT crsfactura
	LOCATE FOR gestionabil = 1 AND !ISNULL(id_part_rez) AND id_part_rez = tnPartAstept
	DO Asserta WITH lcPref + 'exista o linie cu id_part_rez = ' + TRANSFORM(tnPartAstept), ;
		FOUND(), IIF(FOUND(), 'gasita', 'lipseste')
	IF FOUND()
		IF tlLucrNull
			DO Asserta WITH lcPref + 'pe acea linie id_lucrare_rez a ramas NULL', ;
				ISNULL(crsfactura.id_lucrare_rez), IIF(ISNULL(crsfactura.id_lucrare_rez), 'NULL', TRANSFORM(crsfactura.id_lucrare_rez))
		ELSE
			DO Asserta WITH lcPref + 'pe acea linie id_lucrare_rez nu e NULL', ;
				!ISNULL(crsfactura.id_lucrare_rez), IIF(ISNULL(crsfactura.id_lucrare_rez), 'NULL', TRANSFORM(crsfactura.id_lucrare_rez))
		ENDIF
	ENDIF

	STRTOFILE('  (linii fara potrivire RUL, ramase NULL pe ambele: ' + TRANSFORM(lnNule) + ')' + CHR(13) + CHR(10), gcErrLog, 1)

	USE IN crs_rul_astept
	IF USED('crsfactura')
		USE IN crsfactura
	ENDIF
ENDPROC


*==============================================================================================
PROCEDURE AssertaSql
	LPARAMETERS tcNume, tcSql, tnAsteptat
	LOCAL lnGasit
	lnGasit = -1
	IF goExecutor.oExecuta(tcSql, 'crs_assert_sql')
		lnGasit = NVL(crs_assert_sql.nr, -1)
		USE IN crs_assert_sql
	ENDIF
	goExecutor.oReset()
	DO Asserta WITH tcNume, lnGasit = tnAsteptat, TRANSFORM(lnGasit) + ' (asteptat ' + TRANSFORM(tnAsteptat) + ')'
ENDPROC


PROCEDURE Asserta
	LPARAMETERS tcNume, tlConditie, tcDetaliu
	IF tlConditie
		gnPass = gnPass + 1
		STRTOFILE('  OK   ' + tcNume + ' [' + tcDetaliu + ']' + CHR(13) + CHR(10), gcErrLog, 1)
	ELSE
		gnFail = gnFail + 1
		STRTOFILE('  FAIL ' + tcNume + ' [' + tcDetaliu + ']' + CHR(13) + CHR(10), gcErrLog, 1)
	ENDIF
ENDPROC


PROCEDURE test_error_handler
	LPARAMETERS tnErr, tcMsg, tcProg, tnLine
	STRTOFILE('EROARE #' + TRANSFORM(tnErr) + ': ' + tcMsg + ' in ' + tcProg + ' linia ' + TRANSFORM(tnLine) + CHR(13) + CHR(10), gcErrLog, 1)
ENDPROC