* test_incarca_vanzare_din_nota.prg
* Smoke test izolat pentru IncarcaVanzareDinNota (ofacturare_editare.prg), inainte de a atinge
* omodificari.vc2 runda 2. Verifica pe cazurile de regresie ale bugului "Go Top orb pe tact":
*   o nota al carei prim rand nu duce la vanzare (cu Go Top orb da 0 randuri)
*   aceeasi situatie pe un cod cu coliziune in VANZARI
* plus regresie pe o factura normala si pe o nota fara rand in VANZARI
* plus cazul EOF: tact pozitionat deliberat la EOF (ca dupa CalculeazaTotal() din Show()) inainte de
* apel - dovedeste ca "cod" se ia din cursorul de triplete (SELECT DISTINCT), nu de pe randul curent
* Documentele nu sunt ancorate pe cod: VANZARI.COD se realoca la fiecare salvare a notei, deci se
* descopera la rulare dupa proprietatea ceruta de asertie (descopera_caz_test.prg).
* Nu atinge Oracle in scriere - doar SELECT-uri prin goExecutor. QUIT la final.

SET SAFETY OFF
SET TALK OFF

LOCAL lcLog
lcLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\test_incarca_vanzare_din_nota_log.txt'
STRTOFILE('start' + CHR(13) + CHR(10), lcLog)

PUBLIC gcErrLog
gcErrLog = lcLog
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'
IF gnHandle <= 0
	STRTOFILE('EROARE: conectare esuata' + CHR(13) + CHR(10), lcLog, 1)
	QUIT
ENDIF

SET PROCEDURE TO D:\ROA\ROAFACTURARE\COMUN\programe\ofacturare_editare.prg ADDITIVE
SET PROCEDURE TO D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\descopera_caz_test.prg ADDITIVE

*!* cazurile de test, descoperite pe proprietate (nu ancorate pe cod - codul se realoca la salvare)
LOCAL llCazA, llCazC, llCazD, llCazE
llCazA = DescoperaCazTest('FACTURA_ARTICOLE', 'crscaz_a')
llCazC = DescoperaCazTest('NOTA_FARA_VANZARI', 'crscaz_c')
llCazD = DescoperaCazTest('PRIM_RAND_ORB', 'crscaz_d')
llCazE = DescoperaCazTest('COLIZIUNE_COD', 'crscaz_e')

STRTOFILE('--- cazuri de test descoperite ---' + CHR(13) + CHR(10) + ;
	DescrieCazTest('FACTURA_ARTICOLE', 'crscaz_a', llCazA) + CHR(13) + CHR(10) + ;
	DescrieCazTest('NOTA_FARA_VANZARI', 'crscaz_c', llCazC) + CHR(13) + CHR(10) + ;
	DescrieCazTest('PRIM_RAND_ORB', 'crscaz_d', llCazD) + CHR(13) + CHR(10) + ;
	DescrieCazTest('COLIZIUNE_COD', 'crscaz_e', llCazE) + CHR(13) + CHR(10), lcLog, 1)

IF llCazD
	DO verifica WITH (crscaz_d.cod), (crscaz_d.an), (crscaz_d.luna), 'blocant Go Top - prim rand fara vanzare', lcLog, .T., (crscaz_d.id_vanzare)
ELSE
	DO caz_negasit WITH 'blocant Go Top - prim rand fara vanzare', lcLog
ENDIF
IF llCazE
	DO verifica WITH (crscaz_e.cod), (crscaz_e.an), (crscaz_e.luna), 'coliziune VANZARI.COD', lcLog, .T., (crscaz_e.id_vanzare)
ELSE
	DO caz_negasit WITH 'coliziune VANZARI.COD', lcLog
ENDIF
IF llCazA
	DO verifica WITH (crscaz_a.cod), (crscaz_a.an), (crscaz_a.luna), 'regresie runda 1 - factura normala', lcLog, .T., (crscaz_a.id_vanzare)
ELSE
	DO caz_negasit WITH 'regresie runda 1 - factura normala', lcLog
ENDIF
IF llCazC
	DO verifica WITH (crscaz_c.cod), (crscaz_c.an), (crscaz_c.luna), 'regresie runda 1 - fara VANZARI', lcLog, .F., 0
ELSE
	DO caz_negasit WITH 'regresie runda 1 - fara VANZARI', lcLog
ENDIF
IF llCazD
	DO verifica_eof WITH (crscaz_d.cod), (crscaz_d.an), (crscaz_d.luna), lcLog, (crscaz_d.id_vanzare)
ELSE
	DO caz_negasit WITH 'EOF pe tact', lcLog
ENDIF

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


*!* cazul cerut de asertie nu exista in datele schemei - se raporteaza FAIL, nu se sare peste
PROCEDURE caz_negasit
	LPARAMETERS tcEticheta, tcLog

	STRTOFILE('--- ' + tcEticheta + ' ---' + CHR(13) + CHR(10) + ;
		'  niciun document din schema nu satisface conditia cazului' + CHR(13) + CHR(10) + ;
		'  FAIL' + CHR(13) + CHR(10), tcLog, 1)
ENDPROC


* pozitioneaza tact deliberat la EOF (Go Bottom + Skip) inainte de IncarcaVanzareDinNota - dovedeste
* ca "cod" nu se mai citeste de pe randul curent al aliasului (corectia care a inlocuit Evaluate(alias.cod))
PROCEDURE verifica_eof
	LPARAMETERS tnCod, tnAn, tnLuna, tcLog, tnIdVanzareAsteptat

	LOCAL llOk, llGasit, lnIdVanzare, llEofInainte, llEofDupa

	llOk = IncarcaCursoareModificareNota(tnCod, tnAn, tnLuna, .F.)
	llGasit = .F.
	lnIdVanzare = 0
	llEofInainte = .F.
	llEofDupa = .F.

	IF llOk AND Used('tact')
		SELECT tact
		Go Bottom In tact
		Skip In tact
		llEofInainte = Eof('tact')
		llGasit = IncarcaVanzareDinNota('tact')
		llEofDupa = Eof('tact')
		IF llGasit
			lnIdVanzare = tvanz.id_vanzare
		ENDIF
	ENDIF

	STRTOFILE('--- EOF pe tact, cod=' + TRANSFORM(tnCod) + ' [pozitionare la EOF inainte de apel] ---' + CHR(13) + CHR(10) + ;
		'  Eof(tact) inainte de apel = ' + TRANSFORM(llEofInainte) + ' (asteptat .T.)' + CHR(13) + CHR(10) + ;
		'  gasit = ' + TRANSFORM(llGasit) + ' (asteptat .T.)' + CHR(13) + CHR(10) + ;
		'  id_vanzare = ' + TRANSFORM(lnIdVanzare) + ' (asteptat ' + TRANSFORM(tnIdVanzareAsteptat) + ')' + CHR(13) + CHR(10) + ;
		'  Eof(tact) dupa apel (pozitia restaurata) = ' + TRANSFORM(llEofDupa) + ' (asteptat .T.)' + CHR(13) + CHR(10) + ;
		'  ' + IIF(llEofInainte AND llGasit AND lnIdVanzare == tnIdVanzareAsteptat AND llEofDupa, 'PASS', 'FAIL') + CHR(13) + CHR(10), tcLog, 1)

	IF Used('actactan')
		Use In actactan
	ENDIF
	IF Used('tact')
		Use In tact
	ENDIF
	IF Used('rul_temp')
		Use In rul_temp
	ENDIF
	IF Used('trul')
		Use In trul
	ENDIF
	IF Used('rul_temp_obinv')
		Use In rul_temp_obinv
	ENDIF
	IF Used('trul_obinv')
		Use In trul_obinv
	ENDIF
	IF Used('tvanz')
		Use In tvanz
	ENDIF
ENDPROC


PROCEDURE verifica
	LPARAMETERS tnCod, tnAn, tnLuna, tcEticheta, tcLog, tlAsteptatGasit, tnIdVanzareAsteptat

	LOCAL llOk, llGasit, lnIdVanzare, lcMsg, lnAreaOrigineTest, lcAliasOrigineTest

	llOk = IncarcaCursoareModificareNota(tnCod, tnAn, tnLuna, .F.)
	llGasit = .F.
	lnIdVanzare = 0
	lnAreaOrigineTest = 0
	lcAliasOrigineTest = ''

	IF llOk AND Used('tact')
		SELECT tact
		lnAreaOrigineTest = Select()
		lcAliasOrigineTest = Alias()
		llGasit = IncarcaVanzareDinNota('tact')
		IF llGasit
			lnIdVanzare = tvanz.id_vanzare
		ENDIF
	ENDIF

	lcMsg = '--- cod=' + TRANSFORM(tnCod) + ' [' + tcEticheta + '] ---' + CHR(13) + CHR(10) + ;
		'  IncarcaCursoareModificareNota => ' + TRANSFORM(llOk) + CHR(13) + CHR(10) + ;
		'  gasit = ' + TRANSFORM(llGasit) + ' (asteptat ' + TRANSFORM(tlAsteptatGasit) + ')' + CHR(13) + CHR(10) + ;
		'  id_vanzare = ' + TRANSFORM(lnIdVanzare) + ' (asteptat ' + TRANSFORM(tnIdVanzareAsteptat) + ')' + CHR(13) + CHR(10) + ;
		'  workarea restaurata la ' + TRANSFORM(lnAreaOrigineTest) + ': ' + TRANSFORM(Select() == lnAreaOrigineTest) + CHR(13) + CHR(10) + ;
		'  ' + IIF(llGasit == tlAsteptatGasit AND lnIdVanzare == tnIdVanzareAsteptat AND Select() == lnAreaOrigineTest, 'PASS', 'FAIL') + CHR(13) + CHR(10)

	STRTOFILE(lcMsg, tcLog, 1)

	IF Used('actactan')
		Use In actactan
	ENDIF
	IF Used('tact')
		Use In tact
	ENDIF
	IF Used('rul_temp')
		Use In rul_temp
	ENDIF
	IF Used('trul')
		Use In trul
	ENDIF
	IF Used('rul_temp_obinv')
		Use In rul_temp_obinv
	ENDIF
	IF Used('trul_obinv')
		Use In trul_obinv
	ENDIF
	IF Used('tvanz')
		Use In tvanz
	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