* test_import_nota_total_ui.prg
* Test UI (runda26a/26b) pentru clasa IMPORT_nota (COMUN\clase\ointroduceri.vcx): editarea manuala a
* unui rand S (subrand articol) pe un document IN VALUTA actualizeaza AUTOMAT (fara dialog de
* confirmare) totalul facturii (suma_doc/suma_doc_val) pe tot grupul doc_key, apoi recalculeaza
* randurile T nemanuale (mod_manual<>1) proportional cu bazele pe cota (recalc_tva_document),
* controlat de Thisform.lRecalcTva (checkbox chkRecalcTva, implicit .T.).
* Patch-uri testate: docs\diff_runda26a_total_automat.patch, docs\diff_runda26b_recalc_tva.patch
* (cod NEATINS de acest test).
*
* Scenariu (flux REAL, nu Append direct in cursoare):
*   1. FACTURA 15000 (partener test), 1000 EUR + TVA (cota 21%), curs 5.23, in_valuta=1 - prin
*      goObj.do_adauga_factura(toDlg), la fel ca test_scenariu_import_212/test_adauga_repere_212
*      (dialogul import_adauga_factura construit inline, toDlg construit inline in main - vezi
*      docs/testare-ui-vfp.md capcana l).
*   2. 2 articole (900 EUR cont 371, 100 EUR cont 303) prin FLUXUL REAL goObj.do_adauga_articol()
*      (mock_cauta_nom_articole.prg, gcMockArtCodmat) - documentul se sparge in 2 randuri S; cota
*      TVA unica (21%) pe rul_temp => recalc_tva_document ia ramura "o singura cota".
*   3. Editare manuala repetata a randului S(371) prin METODA REALA Grid1.cSumaVal.Text1.Valid
*      (randul e tip_rand='S' cu in_valuta=1 - cSuma e blocat pe S+valuta, vezi Grid1.cSuma.Text1.When
*      ~12425, editabila e doar cSumaVal), in 3 pasi succesivi:
*      A. 900->910 EUR, lRecalcTva implicit .T. -> NU apare dialogul "Actualizati totalul facturii?"
*         (verificat pe log-ul mock-ului), suma_doc_val grup 1000->1010, iar T (nemanual) se
*         recalculeaza automat: suma_val = ROUND(1010*21/100,gnPval), suma = ROUND(suma_val*curs,gnPc).
*      B. 910->920 EUR, Thisform.lRecalcTva = .F. -> suma_doc_val grup 1010->1020, dar T ramane pe
*         valoarea din pasul A (NU se recalculeaza).
*      C. 920->930 EUR, Thisform.lRecalcTva = .T. din nou, dar T marcat manual (mod_manual=1) inainte
*         de editare -> suma_doc_val grup 1020->1030, T ramane neatins (randurile manuale nu se ating).
* Mock amessebox (mock_amessagebox.prg) raspunde Da(6) la dialogul "Suma in lei difera..." (ramas
* neschimbat de runda26) si logheaza textul INTEGRAL al fiecarui mesaj primit - folosit aici doar ca
* sa confirm ca "Actualizati totalul facturii" NU mai e cerut vreodata.
*
* Rulare (prin harness):
*   powershell -ExecutionPolicy Bypass -File test_import_nota_total_ui.ps1

SET SAFETY OFF
SET TALK OFF
SET DELETED ON
SET EXACT ON
SET CENTURY ON
SET DATE DMY
SET DECIMALS TO 4
SET NULLDISPLAY TO ''
CLOSE DATABASES

PUBLIC gcUILog, gcSyncDir
gcUILog  = "D:\ROA\ROAGEST\COMUN\utile\Teste\achizitie_import\test_import_nota_total_ui_log.txt"
gcSyncDir = "D:\ROA\ROAGEST\COMUN\utile\Teste\achizitie_import\uisync_total\"
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13)+CHR(10), gcUILog)

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

TRY
	LOCAL gcAppPath, lcPath
	gcAppPath = "D:\ROA\ROAGEST\"
	SET DEFAULT TO (gcAppPath)

	lcPath = gcAppPath + 'Date;' + gcAppPath + 'Include;' + gcAppPath + 'FERESTRE;' + ;
		gcAppPath + 'GRAFICE;' + gcAppPath + 'CLASE;' + gcAppPath + 'MENIURI;' + ;
		gcAppPath + 'PROGRAME;' + gcAppPath + 'RAPOARTE;' + gcAppPath + 'COMUN;' + ;
		gcAppPath + 'COMUN\CLASE;' + gcAppPath + 'COMUN\FERESTRE;' + gcAppPath + 'COMUN\PROGRAME;' + ;
		gcAppPath + 'COMUN\GRAFICE;' + gcAppPath + 'COMUN\RAPOARTE;' + gcAppPath + 'COMUN\MENIURI;' + ;
		gcAppPath + 'COMUN\UTILE\GRIDEXTRAS;' + gcAppPath + 'COMUN\UTILE\CTL32;' + ;
		gcAppPath + 'COMUN\UTILE\HPDF;' + gcAppPath + 'COMUN\UTILE\HPDF\REPORTOUTPUT;' + ;
		gcAppPath + 'COMUN\UTILE\WEB;' + gcAppPath + 'COMUN\UTILE\EXCEL;' + ;
		ADDBS(SUBSTR(gcAppPath,1,RAT([\],gcAppPath,2)))+[COMUNROA\]
	SET PATH TO &lcPath ADDITIVE
	DO TfLog WITH 'SET PATH OK'

	*----- CLASE -----
	SET CLASSLIB TO (gcAppPath + "comun\clase\appwiz") ADDITIVE
	SET CLASSLIB TO GESTIUNI ADDITIVE
	SET CLASSLIB TO CAUT ADDITIVE
	SET CLASSLIB TO BAZA ADDITIVE
	SET CLASSLIB TO comun ADDITIVE
	SET CLASSLIB TO accessibility.vcx ADDITIVE
	SET CLASSLIB TO messagebox ADDITIVE
	SET CLASSLIB TO registry ADDITIVE
	SET CLASSLIB TO cauta_alfa_forms.vcx ADDITIVE
	SET CLASSLIB TO DECABAZA ADDITIVE
	SET CLASSLIB TO onomenclatoare ADDITIVE
	SET CLASSLIB TO stocuri.vcx ADDITIVE
	SET CLASSLIB TO rulaje.vcx ADDITIVE
	SET CLASSLIB TO ointroduceri ADDITIVE
	SET CLASSLIB TO ointroduceri_web ADDITIVE
	SET CLASSLIB TO ointroduceri_depozit ADDITIVE
	SET CLASSLIB TO overificari ADDITIVE
	SET CLASSLIB TO ferestre_oracle ADDITIVE
	SET CLASSLIB TO ferestre_cere_date.vcx ADDITIVE
	SET CLASSLIB TO configurare.vcx ADDITIVE
	SET CLASSLIB TO serii_numere.vcx ADDITIVE
	SET CLASSLIB TO omodificari.vcx ADDITIVE
	SET CLASSLIB TO ocompensari.vcx ADDITIVE
	SET CLASSLIB TO caut_ora ADDITIVE
	SET CLASSLIB TO onote_contabile ADDITIVE
	SET CLASSLIB TO otoolbar ADDITIVE
	SET CLASSLIB TO bon_fisc ADDITIVE
	SET CLASSLIB TO onom_articole ADDITIVE
	SET CLASSLIB TO onom_retete ADDITIVE
	SET CLASSLIB TO orapoarte ADDITIVE
	SET CLASSLIB TO orapoarte_gestiuni ADDITIVE
	SET CLASSLIB TO orapoarte_parametri ADDITIVE
	SET CLASSLIB TO ONOM_CURS ADDITIVE
	SET CLASSLIB TO ctl32_statusbar_fals.vcx ADDITIVE
	SET CLASSLIB TO ctl32_common.vcx ADDITIVE
	SET CLASSLIB TO ctl32_structs.vcx ADDITIVE
	SET CLASSLIB TO ctl32_progressbar.vcx ADDITIVE
	SET CLASSLIB TO ctl32_balloontip.vcx ADDITIVE
	SET CLASSLIB TO ocriterii.vcx ADDITIVE
	SET CLASSLIB TO oavize.vcx ADDITIVE
	SET CLASSLIB TO onomenclatoare2 ADDITIVE
	SET CLASSLIB TO wwdialogs.vcx ADDITIVE
	SET CLASSLIB TO oimportxml.vcx ADDITIVE
	SET CLASSLIB TO excelxml.vcx ADDITIVE
	SET CLASSLIB TO orapoarte_obinv.vcx ADDITIVE
	DO TfLog WITH 'SET CLASSLIB OK'

	*----- PROCEDURI (mock amessagebox + mock cauta_nom_articole PRIMELE, ui_harness la final) -----
	SET PROCEDURE TO PROCEDURI
	SET PROCEDURE TO "D:\ROA\ROAGEST\COMUN\utile\Teste\mock_amessagebox.prg" ADDITIVE
	SET PROCEDURE TO "D:\ROA\ROAGEST\COMUN\utile\Teste\mock_cauta_nom_articole.prg" ADDITIVE
	SET PROCEDURE TO acces_meniu ADDITIVE
	SET PROCEDURE TO cauta_alfa ADDITIVE
	SET PROCEDURE TO pmenu ADDITIVE
	SET PROCEDURE TO proceduri_comune ADDITIVE
	SET PROCEDURE TO quitapp ADDITIVE
	SET PROCEDURE TO init_program ADDITIVE
	SET PROCEDURE TO oproceduri_listari.prg ADDITIVE
	SET PROCEDURE TO oproceduri_configurare.prg ADDITIVE
	SET PROCEDURE TO oproceduri_articole.prg ADDITIVE
	SET PROCEDURE TO oproceduri_retete.prg ADDITIVE
	SET PROCEDURE TO orapoarte.prg ADDITIVE
	SET PROCEDURE TO mesaje ADDITIVE
	SET PROCEDURE TO oserii_numere.prg ADDITIVE
	SET PROCEDURE TO oexport.prg ADDITIVE
	SET PROCEDURE TO wwConfig.prg ADDITIVE
	SET PROCEDURE TO proceduri_rapoarte.prg ADDITIVE
	SET PROCEDURE TO OPROCEDURI_CURS.PRG ADDITIVE
	SET PROCEDURE TO validare.prg ADDITIVE
	SET PROCEDURE TO GENCURSOR.PRG ADDITIVE
	SET PROCEDURE TO OPROCEDURI_COMUNE.PRG ADDITIVE
	SET PROCEDURE TO OINIT_OPTIUNI.PRG ADDITIVE
	SET PROCEDURE TO updateserver.prg ADDITIVE
	SET PROCEDURE TO oinainte_de.prg ADDITIVE
	SET PROCEDURE TO ooperatii_comune.prg ADDITIVE
	SET PROCEDURE TO Ocompensari.PRG ADDITIVE
	SET PROCEDURE TO OPROCEDURI_aMS.PRG ADDITIVE
	SET PROCEDURE TO oproceduri_rulaje ADDITIVE
	SET PROCEDURE TO oproceduri_stocuri ADDITIVE
	SET PROCEDURE TO OINTRODUCERI ADDITIVE
	SET PROCEDURE TO oHeader.prg ADDITIVE
	SET PROCEDURE TO proceduri_excel.PRG ADDITIVE
	SET PROCEDURE TO onomenclatoare.PRG ADDITIVE
	SET PROCEDURE TO osecurity ADDITIVE
	SET PROCEDURE TO ocautare ADDITIVE
	SET PROCEDURE TO orefaceri ADDITIVE
	SET PROCEDURE TO ofacturare_comun.PRG ADDITIVE
	SET PROCEDURE TO ofacturare_stoc.PRG ADDITIVE
	SET PROCEDURE TO oproceduri_casademarcat ADDITIVE
	SET PROCEDURE TO oproceduri_casa_marcat_e500 ADDITIVE
	SET PROCEDURE TO oproceduri_casa_marcat_mp500 ADDITIVE
	SET PROCEDURE TO oproceduri_util.prg ADDITIVE
	SET PROCEDURE TO wwxmlhttp.prg ADDITIVE
	SET PROCEDURE TO ini.prg ADDITIVE
	SET PROCEDURE TO odocumente.prg ADDITIVE
	SET PROCEDURE TO regex.prg ADDITIVE
	SET PROCEDURE TO wwutils.prg ADDITIVE
	SET PROCEDURE TO inchidere_k ADDITIVE
	SET PROCEDURE TO iniacces.prg ADDITIVE
	SET PROCEDURE TO oupdate.prg ADDITIVE
	SET PROCEDURE TO procese.prg ADDITIVE
	SET PROCEDURE TO version.prg ADDITIVE
	SET PROCEDURE TO xmlaccess.prg ADDITIVE
	SET PROCEDURE TO xmlparser.prg ADDITIVE
	SET PROCEDURE TO filebringer.prg ADDITIVE
	SET PROCEDURE TO wwcodeupdate.prg ADDITIVE
	SET PROCEDURE TO wwhttp.prg ADDITIVE
	SET PROCEDURE TO xdate.prg ADDITIVE
	SET PROCEDURE TO ofacturare.prg ADDITIVE
	SET PROCEDURE TO oproceduri_obinv.prg ADDITIVE
	SET PROCEDURE TO oproceduri_facturare.prg ADDITIVE
	SET PROCEDURE TO email.prg ADDITIVE
	SET PROCEDURE TO "D:\ROA\ROAGEST\COMUN\utile\Teste\ui_harness.prg" ADDITIVE
	DO TfLog WITH 'SET PROCEDURE OK'

	*----- Globale -----
	PUBLIC gnPc, gnPval, gnPcant, gnPpret, gnPPretval, gnPCurs, gnPVal, gnPPretV, gnPPretVal
	STORE 2 TO gnPc, gnPval, gnPVal
	gnPcant = 3
	STORE 4 TO gnPpret, gnPPretval, gnPPretVal, gnPPretV, gnPCurs
	PUBLIC gl406, gcS, gnAn, gnLuna, gnIdFirma, gnIdSucursala, gcAcces, gcFirma
	gl406 = .T.
	gcS = 'CONTAFIN'
	gnAn = YEAR(DATE())
	gnLuna = MONTH(DATE())
	gnIdFirma = 110
	gnIdSucursala = 110
	gcAcces = "1;2;3;4;5;6;7;8;"
	gcFirma = gcS
	PUBLIC nror(65000)

	*-- gnButon: vezi docs/testare-ui-vfp.md / test_adauga_repere_212.prg (lant cauta_alfa->CAUT->do_adauga_articol).
	PUBLIC gnButon
	STORE 2 TO gnButon

	PUBLIC goExecutor, goApp
	goExecutor = CREATEOBJECT('dummyexecutor')
	goApp = CREATEOBJECT('dummyapp')

	*----- poAct: antetul notei; dialogul mosteneste din el la Init -----
	PUBLIC poAct
	poAct = CREATEOBJECT('Custom')
	poAct.AddProperty('nume_val', '')
	poAct.AddProperty('curs', 1)
	poAct.AddProperty('proc_tva', 1.21)
	poAct.AddProperty('nnir', 0)
	poAct.AddProperty('id_valuta', 0)
	poAct.AddProperty('id_fdoc', 1)
	poAct.AddProperty('fdoc', 'Factura')
	poAct.AddProperty('id_partc', 500)
	poAct.AddProperty('partc', 'FURNIZOR ANTET SRL')
	poAct.AddProperty('serie_act', '')
	poAct.AddProperty('dataact', DATE())
	poAct.AddProperty('tva_incasare', 0)
	poAct.AddProperty('id_set', 1)
	poAct.AddProperty('id_gestin', 1)

	*----- jtva_coloane2 (explicatii TVA): achizitii interne 21% - perechea folosita de sablon -----
	IF USED('jtva_coloane2')
		USE IN ('jtva_coloane2')
	ENDIF
	CREATE CURSOR jtva_coloane2 (ordine N(8), id_jtva_coloana N(14), denumire C(100), ;
		jc N(1), jv N(1), afisat N(1), coloana_jc C(20), coloana_jv C(20), cota_tva N(6,2), id_tva N(14))
	INSERT INTO jtva_coloane2 VALUES (0, 0, '', 0, 0, 1, '', '', 0, 0)
	INSERT INTO jtva_coloane2 VALUES (1, 208, 'ACH. INT. 21%', 1, 0, 1, 'RO21B', 'RO21T', 21, 209)
	INSERT INTO jtva_coloane2 VALUES (2, 209, 'TVA ACH. INT. 21%', 1, 0, 1, 'RO21T', '', 21, 0)

	*----- saft_taxtable: coduri reale (vsaft_taxtable) - achizitii interne 21% -----
	IF USED('saft_taxtable')
		USE IN ('saft_taxtable')
	ENDIF
	CREATE CURSOR saft_taxtable (taxname C(250) NULL, typename C(250) NULL, taxcode N(6) NULL, ;
		taxtype N(3) NULL, descriere C(250) NULL, tip C(100) NULL, descriere_tip C(250) NULL, ;
		procent_taxa N(7,2) NULL, procent_prorata N(7,2) NULL, inactiv N(1) NULL, tva N(1) NULL, ;
		wht N(1) NULL, tva_achizitii N(1) NULL, tva_livrari N(1) NULL)
	INDEX ON taxcode TAG taxcode
	INSERT INTO saft_taxtable (taxname, taxcode, descriere, procent_taxa, tva, wht, tva_achizitii, tva_livrari) ;
		VALUES ('', 0, '', 0, 1, 1, 1, 1)
	INSERT INTO saft_taxtable (taxname, taxcode, descriere, procent_taxa, tva, wht, tva_achizitii, tva_livrari) ;
		VALUES ('301104-Achizitii de bunuri si servicii taxabile cu cota de 21%, altele decat importurile si cele supuse masurilor de simplificare', 301104, '', 21, 1, 0, 1, 0)

	*----- introdc (RecordSource Grid1) - porneste GOL, ca in fluxul real -----
	DO CreeazaIntrodc WITH 'introdc'

	*----- introdc_sablon: perechea-sablon (B 371/401 + T 4426/401) pe care do_adauga_factura o
	*      cloneaza (21%, ACH. INT. 21%). -----
	DO CreeazaIntrodc WITH 'introdc_sablon'
	INSERT INTO introdc_sablon (scd, scc, cu_tva, ordine, id_set, participa_valuta, tip_rand, ;
			id_jtva_coloana, ptva, explicatie_tva) ;
		VALUES ('371', '401', 1, 1, 1, .T., 'B', 208, 21, 'ACH. INT. 21%')
	INSERT INTO introdc_sablon (scd, scc, cu_tva, ordine, id_set, participa_valuta, tip_rand, ;
			id_jtva_coloana, ptva, explicatie_tva) ;
		VALUES ('4426', '401', 1, 2, 1, .T., 'T', 209, 21, 'TVA ACH. INT. 21%')
	GO TOP IN introdc_sablon

	*----- rul_temp cu 1 rand INAINTE de instantiere (capcana k) - structura FIDELA VRUL. -----
	DO CreeazaRulTemp
	INSERT INTO rul_temp (denumire, codmat, cant, pret, pret_lei, cont, cota_tva) ;
		VALUES ('PLACEHOLDER', 'PH', 1, 1, 1, '371', 21)

	DO TfLog WITH 'cursoare pregatite, CREATEOBJECT(import_nota, .F.) - lIntern=.F. (import)'
	SELECT introdc
	PUBLIC goObj
	goObj = CREATEOBJECT('IMPORT_nota', .F.)
	IF VARTYPE(goObj) <> 'O'
		DO TfLog WITH 'FAIL: instantiere import_nota'
		DO HarnessDone WITH 'done-error'
		QUIT
	ENDIF
	goObj.lDialogAratat = .T.
	goObj.oact = poAct
	goObj.WindowType = 0
	goObj.Visible = .T.
	goObj.Show()
	goObj.WindowState = 2
	DOEVENTS FORCE

	*-- golesc placeholder-ul cu ZAP (nu DELETE ALL, capcana k)
	SELECT rul_temp
	ZAP
	goObj.gridart.Refresh()
	DOEVENTS FORCE

	*========================= DOC: FACTURA 15000, 1000 EUR + TVA, curs 5.23, in_valuta=1 =========================
	PUBLIC goDlg, goT
	goDlg = CREATEOBJECT('import_adauga_factura', goObj)
	goDlg.cFelDoc = 'Factura'
	goDlg.nIdFdoc = 1
	goDlg.nNract = 15000
	goDlg.dDataAct = DATE()
	goDlg.nIdPartener = 700
	goDlg.cPartener = 'PARTENER TEST SRL'
	goDlg.cExplicatia = 'Factura test runda25'
	goDlg.nSuma = 1000
	goDlg.nSumaLei = 0
	goDlg.nCurs = 5.23
	goDlg.nIdValuta = 978
	goDlg.cValuta = 'EUR'
	*-- ACH. INT. 21% (id 208) - achizitie normala, TVA la furnizor (F), fara DVI
	goDlg.nIdExplicatieTva = 208
	goDlg.cExplicatieTva = 'ACH. INT. 21%'
	goDlg.optTipTva.Value = 1 && F = furnizor
	goDlg.chkInValutaCont.Value = 1
	goDlg.chkParticipaValuta.Value = 1
	goDlg.WindowType = 0
	goDlg.Visible = .T.
	goDlg.Show()
	DOEVENTS FORCE
	DO TfLog WITH 'DOC: valideaza (pe dialog) = ' + TRANSFORM(goDlg.valideaza())
	DO ConstruiesteToDlg
	DO TfLog WITH 'DOC: do_adauga_factura = ' + TRANSFORM(goObj.do_adauga_factura(goT))
	goDlg.Hide()
	DOEVENTS FORCE

	LOCAL llB, llT, lnBSuma, lnBSumaVal, lnBCurs, lnBInValuta
	SELECT introdc
	LOCATE FOR nract = 15000 AND tip_rand == 'B'
	llB = FOUND()
	IF llB
		lnBSuma = suma
		lnBSumaVal = suma_val
		lnBCurs = curs
		lnBInValuta = in_valuta
	ENDIF
	LOCATE FOR nract = 15000 AND tip_rand == 'T'
	llT = FOUND()
	IF llB AND llT AND ABS(lnBSuma - 5230) < 0.01 AND ABS(lnBSumaVal - 1000) < 0.01 AND ABS(lnBCurs - 5.23) < 0.0001 AND lnBInValuta = 1
		DO TfLog WITH 'PASS pas0a: factura 15000 adaugata (B suma=' + TRANSFORM(lnBSuma) + ' suma_val=' + TRANSFORM(lnBSumaVal) + ' curs=' + TRANSFORM(lnBCurs) + ' in_valuta=' + TRANSFORM(lnBInValuta) + '), rand T gasit'
	ELSE
		DO TfLog WITH 'FAIL pas0a: B?=' + TRANSFORM(llB) + ' T?=' + TRANSFORM(llT) + ' suma=' + TRANSFORM(IIF(llB,lnBSuma,-1)) + ' suma_val=' + TRANSFORM(IIF(llB,lnBSumaVal,-1)) + ' curs=' + TRANSFORM(IIF(llB,lnBCurs,-1)) + ' in_valuta=' + TRANSFORM(IIF(llB,lnBInValuta,-1))
	ENDIF

	*========================= PAS 0: factura principala adaugata =========================
	DO HarnessStep WITH 0, 'factura 15000 adaugata: introdc=' + TRANSFORM(RECCOUNT_ACTIVE('introdc')) + ' randuri (astept 2, B+T)'

	*========================= ADAUGARE 2 ARTICOLE PRIN FLUXUL REAL: do_adauga_articol() =========================
	PUBLIC gcMockArtCodmat
	gcMockArtCodmat = 'ART-A8-371'
	goObj.do_adauga_articol()
	DOEVENTS FORCE
	SELECT rul_temp
	LOCATE FOR ALLTRIM(codmat) == 'ART-A8-371'
	IF FOUND()
		REPLACE cant WITH 1, pret_val WITH 900, pretd WITH 900, pret WITH ROUND(900*5.23,gnPc), pret_lei WITH pret
		DO TfLog WITH 'articol 1 (ART-A8-371, cont 371) adaugat prin do_adauga_articol() REAL, cant/pret_val completate manual (900 EUR)'
	ELSE
		DO TfLog WITH 'FAIL: ART-A8-371 nu a fost gasit in rul_temp dupa do_adauga_articol()'
	ENDIF

	gcMockArtCodmat = 'ART-GREE-303'
	goObj.do_adauga_articol()
	DOEVENTS FORCE
	SELECT rul_temp
	LOCATE FOR ALLTRIM(codmat) == 'ART-GREE-303'
	IF FOUND()
		REPLACE cant WITH 1, pret_val WITH 100, pretd WITH 100, pret WITH ROUND(100*5.23,gnPc), pret_lei WITH pret
		DO TfLog WITH 'articol 2 (ART-GREE-303, cont 303) adaugat prin do_adauga_articol() REAL, cant/pret_val completate manual (100 EUR)'
	ELSE
		DO TfLog WITH 'FAIL: ART-GREE-303 nu a fost gasit in rul_temp dupa do_adauga_articol()'
	ENDIF

	goObj.gridart.Refresh()
	DOEVENTS FORCE
	goObj.sincronizeaza()
	DOEVENTS FORCE
	goObj.grid1.Refresh()
	DOEVENTS FORCE

	DO TfLog WITH 'DIAG dump introdc dupa spargere:'
	DO DumpIntrodc

	*-- VERIFICARE spargere: 2 randuri S (900 EUR / 100 EUR), suma_doc_val ramane 1000 pe grup
	LOCAL llS1, llS2, lnS1Val, lnS2Val, lnDocValS1, lnDocValS2, lnRecS900
	SELECT introdc
	LOCATE FOR tip_rand == 'S' AND ALLTRIM(scd) == '371'
	llS1 = FOUND()
	IF llS1
		lnS1Val = suma_val
		lnDocValS1 = suma_doc_val
		lnRecS900 = RECNO()
	ENDIF
	LOCATE FOR tip_rand == 'S' AND ALLTRIM(scd) == '303'
	llS2 = FOUND()
	IF llS2
		lnS2Val = suma_val
		lnDocValS2 = suma_doc_val
	ENDIF
	IF llS1 AND llS2 AND ABS(lnS1Val - 900) < 0.01 AND ABS(lnS2Val - 100) < 0.01 AND ABS(lnDocValS1 - 1000) < 0.01 AND ABS(lnDocValS2 - 1000) < 0.01
		DO TfLog WITH 'PASS pas1 spargere: 2 randuri S (371=' + TRANSFORM(lnS1Val) + ' EUR, 303=' + TRANSFORM(lnS2Val) + ' EUR), suma_doc_val=' + TRANSFORM(lnDocValS1) + ' pe grup'
	ELSE
		DO TfLog WITH 'FAIL pas1 spargere: S1?=' + TRANSFORM(llS1) + '(val=' + TRANSFORM(IIF(llS1,lnS1Val,-1)) + ') S2?=' + TRANSFORM(llS2) + '(val=' + TRANSFORM(IIF(llS2,lnS2Val,-1)) + ') suma_doc_val_S1=' + TRANSFORM(IIF(llS1,lnDocValS1,-1)) + ' suma_doc_val_S2=' + TRANSFORM(IIF(llS2,lnDocValS2,-1))
	ENDIF

	*========================= PAS 1: dupa spargere in 2 randuri S =========================
	DO HarnessStep WITH 1, 'spargere: S(371)=' + TRANSFORM(IIF(llS1,lnS1Val,-1)) + ' EUR, S(303)=' + TRANSFORM(IIF(llS2,lnS2Val,-1)) + ' EUR, suma_doc_val=' + TRANSFORM(IIF(llS1,lnDocValS1,-1))

	*========================= PAS 2A: editare rand S 900->910, lRecalcTva implicit .T. =========================
	*-- randul S e in_valuta=1 -> Grid1.cSuma.Text1.When il blocheaza; editabil e DOAR cSumaVal (12506).
	*-- gnMockRaspuns=6 (Da la "recalcularea sumei in lei" - singurul dialog ramas in Valid; dialogul
	*-- "Actualizati totalul facturii?" a fost eliminat de runda26a, totalul se actualizeaza automat).
	PUBLIC gnMockRaspuns
	gnMockRaspuns = 6

	LOCAL lnPozitieLogInainte2a
	lnPozitieLogInainte2a = LEN(IIF(FILE(gcUILog), FILETOSTR(gcUILog), ''))

	SELECT introdc
	GO lnRecS900
	goObj.nOldVal = 900
	goObj.Grid1.cSumaVal.Text1.Value = 910
	TRY
		goObj.Grid1.cSumaVal.Text1.Valid()
		DO TfLog WITH 'PAS2A: Grid1.cSumaVal.Text1.Valid() executat fara eroare'
	CATCH TO loExc2a
		DO TfLog WITH 'PAS2A EROARE ' + TRANSFORM(loExc2a.ErrorNo) + ' [' + loExc2a.Message + '] in ' + loExc2a.Procedure + ':' + TRANSFORM(loExc2a.LineNo) + ' (' + loExc2a.LineContents + ')'
	ENDTRY
	DOEVENTS FORCE

	*-- verific in portiunea NOUA din log (de la pozitia dinainte de Valid()) ca dialogul vechi
	*-- "Actualizati totalul facturii" NU a mai fost cerut mock-ului (runda26a)
	LOCAL lcLogDupa2a
	lcLogDupa2a = SUBSTR(IIF(FILE(gcUILog), FILETOSTR(gcUILog), ''), lnPozitieLogInainte2a + 1)
	IF !('Actualizati totalul facturii' $ lcLogDupa2a)
		DO TfLog WITH 'PASS pas2a fara dialog total: "Actualizati totalul facturii" nu a mai fost cerut mock-ului (runda26a)'
	ELSE
		DO TfLog WITH 'FAIL pas2a fara dialog total: dialogul vechi "Actualizati totalul facturii" inca apare in log'
	ENDIF

	SELECT introdc
	LOCATE FOR nract = 15000 AND tip_rand == 'S' AND ALLTRIM(scd) == '371'
	IF FOUND()
		lnRecS900 = RECNO()
	ENDIF
	LOCAL lnSumaDocValDupa2a, lcDocKeyGrup
	lnSumaDocValDupa2a = suma_doc_val
	lcDocKeyGrup = doc_key
	IF ABS(lnSumaDocValDupa2a - 1010) < 0.01
		DO TfLog WITH 'PASS pas2a suma_doc_val actualizata automat: suma_doc_val=' + TRANSFORM(lnSumaDocValDupa2a) + ' (astept 1010, fara dialog)'
	ELSE
		DO TfLog WITH 'FAIL pas2a suma_doc_val: suma_doc_val=' + TRANSFORM(lnSumaDocValDupa2a) + ' (astept 1010)'
	ENDIF

	*-- rand T (nemanual) trebuie recalculat automat (runda26b, lRecalcTva implicit .T.): o singura
	*-- cota (21%) pe rul_temp => T.suma_val = ROUND(suma_doc_val*21/100,gnPval)
	LOCAL lnTSumaValAsteptatA, lnTSumaAsteptatA, lnTSumaValDupaA, lnTSumaDupaA
	lnTSumaValAsteptatA = ROUND(lnSumaDocValDupa2a * 21 / 100, gnPval)
	lnTSumaAsteptatA = ROUND(lnTSumaValAsteptatA * 5.23, gnPc)
	SELECT introdc
	LOCATE FOR doc_key == lcDocKeyGrup AND tip_rand == 'T'
	lnTSumaValDupaA = suma_val
	lnTSumaDupaA = suma
	IF ABS(lnTSumaValDupaA - lnTSumaValAsteptatA) < 0.01 AND ABS(lnTSumaDupaA - lnTSumaAsteptatA) < 0.01
		DO TfLog WITH 'PASS pas2a recalc TVA automat: T.suma_val=' + TRANSFORM(lnTSumaValDupaA) + ' T.suma=' + TRANSFORM(lnTSumaDupaA) + ' (astept ' + TRANSFORM(lnTSumaValAsteptatA) + '/' + TRANSFORM(lnTSumaAsteptatA) + ')'
	ELSE
		DO TfLog WITH 'FAIL pas2a recalc TVA automat: T.suma_val=' + TRANSFORM(lnTSumaValDupaA) + ' T.suma=' + TRANSFORM(lnTSumaDupaA) + ' (astept ' + TRANSFORM(lnTSumaValAsteptatA) + '/' + TRANSFORM(lnTSumaAsteptatA) + ')'
	ENDIF

	*========================= PAS 2: dupa editare S 900->910 (auto-total + recalc TVA) =========================
	DO HarnessStep WITH 2, 'editare S 900->910: suma_doc_val=' + TRANSFORM(lnSumaDocValDupa2a) + ' T.suma_val=' + TRANSFORM(lnTSumaValDupaA)

	*========================= PAS 3B: editare S 910->920, Thisform.lRecalcTva = .F. =========================
	goObj.lRecalcTva = .F.
	SELECT introdc
	GO lnRecS900
	goObj.nOldVal = 910
	goObj.Grid1.cSumaVal.Text1.Value = 920
	TRY
		goObj.Grid1.cSumaVal.Text1.Valid()
		DO TfLog WITH 'PAS3B: Grid1.cSumaVal.Text1.Valid() executat fara eroare'
	CATCH TO loExc3b
		DO TfLog WITH 'PAS3B EROARE ' + TRANSFORM(loExc3b.ErrorNo) + ' [' + loExc3b.Message + '] in ' + loExc3b.Procedure + ':' + TRANSFORM(loExc3b.LineNo) + ' (' + loExc3b.LineContents + ')'
	ENDTRY
	DOEVENTS FORCE

	SELECT introdc
	LOCATE FOR nract = 15000 AND tip_rand == 'S' AND ALLTRIM(scd) == '371'
	IF FOUND()
		lnRecS900 = RECNO()
	ENDIF
	LOCAL lnSumaDocValDupa3b
	lnSumaDocValDupa3b = suma_doc_val
	IF ABS(lnSumaDocValDupa3b - 1020) < 0.01
		DO TfLog WITH 'PASS pas3b total tot actualizat: suma_doc_val=' + TRANSFORM(lnSumaDocValDupa3b) + ' (astept 1020, chiar cu lRecalcTva=.F.)'
	ELSE
		DO TfLog WITH 'FAIL pas3b total: suma_doc_val=' + TRANSFORM(lnSumaDocValDupa3b) + ' (astept 1020)'
	ENDIF

	LOCAL lnTSumaValDupaB
	SELECT introdc
	LOCATE FOR doc_key == lcDocKeyGrup AND tip_rand == 'T'
	lnTSumaValDupaB = suma_val
	IF ABS(lnTSumaValDupaB - lnTSumaValAsteptatA) < 0.01
		DO TfLog WITH 'PASS pas3b T neschimbat (lRecalcTva=.F.): T.suma_val=' + TRANSFORM(lnTSumaValDupaB) + ' (neschimbat fata de pasul A, ' + TRANSFORM(lnTSumaValAsteptatA) + ')'
	ELSE
		DO TfLog WITH 'FAIL pas3b T ar fi trebuit sa ramana neschimbat: T.suma_val=' + TRANSFORM(lnTSumaValDupaB) + ' (astept neschimbat, ' + TRANSFORM(lnTSumaValAsteptatA) + ')'
	ENDIF

	*========================= PAS 3: dupa editare S 910->920, lRecalcTva=.F. (T neatins) =========================
	DO HarnessStep WITH 3, 'editare S 910->920, lRecalcTva=.F.: suma_doc_val=' + TRANSFORM(lnSumaDocValDupa3b) + ' T.suma_val=' + TRANSFORM(lnTSumaValDupaB) + ' (neschimbat)'

	*========================= PAS 4: editare S 920->930, lRecalcTva=.T. dar T mod_manual=1 =========================
	goObj.lRecalcTva = .T.
	SELECT introdc
	LOCATE FOR doc_key == lcDocKeyGrup AND tip_rand == 'T'
	REPLACE mod_manual WITH 1

	SELECT introdc
	GO lnRecS900
	goObj.nOldVal = 920
	goObj.Grid1.cSumaVal.Text1.Value = 930
	TRY
		goObj.Grid1.cSumaVal.Text1.Valid()
		DO TfLog WITH 'PAS4: Grid1.cSumaVal.Text1.Valid() executat fara eroare'
	CATCH TO loExc4
		DO TfLog WITH 'PAS4 EROARE ' + TRANSFORM(loExc4.ErrorNo) + ' [' + loExc4.Message + '] in ' + loExc4.Procedure + ':' + TRANSFORM(loExc4.LineNo) + ' (' + loExc4.LineContents + ')'
	ENDTRY
	DOEVENTS FORCE

	DO TfLog WITH 'DIAG dump introdc dupa pas4:'
	DO DumpIntrodc

	SELECT introdc
	LOCATE FOR nract = 15000 AND tip_rand == 'S' AND ALLTRIM(scd) == '371'
	LOCAL lnSumaDocValDupa4
	lnSumaDocValDupa4 = suma_doc_val
	IF ABS(lnSumaDocValDupa4 - 1030) < 0.01
		DO TfLog WITH 'PASS pas4 total tot actualizat: suma_doc_val=' + TRANSFORM(lnSumaDocValDupa4) + ' (astept 1030, chiar cu T mod_manual=1)'
	ELSE
		DO TfLog WITH 'FAIL pas4 total: suma_doc_val=' + TRANSFORM(lnSumaDocValDupa4) + ' (astept 1030)'
	ENDIF

	LOCAL lnTSumaValDupa4
	SELECT introdc
	LOCATE FOR doc_key == lcDocKeyGrup AND tip_rand == 'T'
	lnTSumaValDupa4 = suma_val
	IF ABS(lnTSumaValDupa4 - lnTSumaValAsteptatA) < 0.01
		DO TfLog WITH 'PASS pas4 T manual neatins: T.suma_val=' + TRANSFORM(lnTSumaValDupa4) + ' (neschimbat, mod_manual=1 exclus din recalc_tva_document)'
	ELSE
		DO TfLog WITH 'FAIL pas4 T manual ar fi trebuit sa ramana neatins: T.suma_val=' + TRANSFORM(lnTSumaValDupa4) + ' (astept neschimbat, ' + TRANSFORM(lnTSumaValAsteptatA) + ')'
	ENDIF

	*========================= PAS 4: dupa editare S 920->930, T mod_manual=1 (neatins) =========================
	DO HarnessStep WITH 4, 'editare S 920->930, T mod_manual=1: suma_doc_val=' + TRANSFORM(lnSumaDocValDupa4) + ' T.suma_val=' + TRANSFORM(lnTSumaValDupa4) + ' (neatins)'

	goObj.sincronizeaza()
	DOEVENTS FORCE
	LOCAL lcMesajSyncFinal
	lcMesajSyncFinal = goObj.cmesajsync
	DO TfLog WITH 'cmesajsync final (' + TRANSFORM(LEN(lcMesajSyncFinal)) + ' caractere) = [' + lcMesajSyncFinal + ']'
	IF !('suma subrandurilor' $ lcMesajSyncFinal)
		DO TfLog WITH 'PASS mesaj E2 absent: totalul e mentinut sincron automat la fiecare editare (runda26a), fara mesajul "suma subrandurilor"'
	ELSE
		DO TfLog WITH 'FAIL mesaj E2 prezent: cmesajsync contine "suma subrandurilor" desi totalul ar trebui sincronizat automat - [' + lcMesajSyncFinal + ']'
	ENDIF

	goObj.recalculeaza()
	goObj.actualizeaza_banda()
	goObj.grid1.Refresh()
	DOEVENTS FORCE

	*========================= PAS 5: stare finala =========================
	DO HarnessStep WITH 5, 'final: introdc=' + TRANSFORM(RECCOUNT_ACTIVE('introdc')) + ' randuri, nbaza_val=' + TRANSFORM(goObj.nbaza_val) + ' ntva_val=' + TRANSFORM(goObj.ntva_val)

	DO TfLog WITH 'GATA - scenariu runda26a/26b executat integral'
	DO HarnessDone WITH 'done'

CATCH TO loExc
	DO TfLog WITH 'CATCH ErrorNo=' + TRANSFORM(loExc.ErrorNo) + ' Message=' + loExc.Message + ' Proc=' + loExc.Procedure + ' Line=' + TRANSFORM(loExc.LineNo) + ' [' + loExc.LineContents + ']'
	DO HarnessDone WITH 'done-error'
ENDTRY

QUIT

*==================================================================================
PROCEDURE ConstruiesteToDlg
	*-- toDlg construit INLINE in programul PRINCIPAL (ADDPROPERTY da eroare 11 din proceduri in
	*-- acest runtime headless - vezi docs/testare-ui-vfp.md capcana l).
	goT = CREATEOBJECT('Empty')
	=ADDPROPERTY(goT,'serie_act',ALLTRIM(NVL(goDlg.cSerieAct,'')))
	=ADDPROPERTY(goT,'nract',goDlg.nNract)
	=ADDPROPERTY(goT,'dataact',goDlg.dDataAct)
	=ADDPROPERTY(goT,'fdoc',goDlg.cFelDoc)
	=ADDPROPERTY(goT,'id_fdoc',goDlg.nIdFdoc)
	=ADDPROPERTY(goT,'id_partc',goDlg.nIdPartener)
	=ADDPROPERTY(goT,'partc',goDlg.cPartener)
	=ADDPROPERTY(goT,'explicatia',ALLTRIM(NVL(goDlg.cExplicatia,'')))
	=ADDPROPERTY(goT,'suma',IIF(goDlg.chkInValutaCont.Value=1 AND goDlg.nCurs<>0,IIF(goDlg.nSumaLei<>0,goDlg.nSumaLei,ROUND(goDlg.nSuma*goDlg.nCurs,gnPC)),goDlg.nSuma))
	=ADDPROPERTY(goT,'suma_val',IIF(goDlg.chkInValutaCont.Value=1 AND goDlg.nCurs<>0,goDlg.nSuma,0))
	=ADDPROPERTY(goT,'in_valuta',goDlg.chkInValutaCont.Value)
	=ADDPROPERTY(goT,'participa_valuta',(goDlg.chkParticipaValuta.Value=1))
	=ADDPROPERTY(goT,'id_valuta',IIF(goDlg.chkInValutaCont.Value=1,goDlg.nIdValuta,0))
	=ADDPROPERTY(goT,'curs',IIF(goDlg.chkInValutaCont.Value=1,goDlg.nCurs,0))
	=ADDPROPERTY(goT,'nume_val',IIF(goDlg.chkInValutaCont.Value=1,ALLTRIM(NVL(goDlg.cValuta,'')),''))
	=ADDPROPERTY(goT,'cTipTva',IIF(goDlg.optTipTva.Value=1,'F',IIF(goDlg.optTipTva.Value=2,'D','N')))
	=ADDPROPERTY(goT,'id_jtva_coloana',goDlg.nIdExplicatieTva)
	=ADDPROPERTY(goT,'dvi_serie',CHRTRAN(ALLTRIM(NVL(goDlg.cSerieDvi,'')),CHR(34),''))
	=ADDPROPERTY(goT,'dvi_nract',goDlg.nNractDvi)
	=ADDPROPERTY(goT,'dvi_dataact',goDlg.dDviData)
	=ADDPROPERTY(goT,'dvi_id_fdoc',goDlg.nIdFdocDVI)
	=ADDPROPERTY(goT,'dvi_fdoc',goDlg.cFelDocDvi)
	=ADDPROPERTY(goT,'dvi_id_partc',goDlg.nDviIdPartener)
	=ADDPROPERTY(goT,'dvi_partc',goDlg.cDviPartener)
	=ADDPROPERTY(goT,'dvi_scc','401')
	=ADDPROPERTY(goT,'dvi_tva_lei',goDlg.nDviTvaLei)
	=ADDPROPERTY(goT,'dvi_tva_val',goDlg.nDviTvaVal)
ENDPROC

PROCEDURE CreeazaRulTemp
	*-- structura reala a rul_temp (vezi ointroduceri.vc2:11030 si test_adauga_repere_212.prg).
	IF USED('rul_temp')
		USE IN ('rul_temp')
	ENDIF
	CREATE CURSOR rul_temp ( ;
		id_rul N(20,0), an N(4,0), luna N(2,0), cod N(20,0);
		, serie C(100), nnir N(20,0), id_articol N(10,0), denumire C(100);
		, codmat C(50), codmatf C(50), codbare C(50), um C(20);
		, id_gestiune N(5,0), nume_gestiune C(50), cgest C(20), nr_pag N(2,0);
		, gestionar C(50), comisie_receptie1 C(50), comisie_receptie2 C(50), comisie_receptie3 C(50);
		, cant N(14,3), cante N(14,3), cont C(10), acont C(20);
		, pret N(18,4), tva N(18,4), valoare N(18,4), valtva N(18,4);
		, proc_tva N(5,2), pretv N(18,4), pretvtva N(18,4), tvav N(18,4);
		, valoarev N(18,4), valtvav N(18,4), proc_tvav N(5,2), adaos N(18,4);
		, adaos_tva N(18,4), valoare_adaos N(18,4), valtva_adaos N(18,4), procent N(10,3);
		, discunitar N(18,4), discount_tva N(18,4), valoare_discount N(18,4), valtva_discount N(18,4);
		, proc_disc N(7,3), pretd N(14,4), curs N(18,4), id_valuta N(10,0);
		, nume_val C(20), id_lucrare N(20,0), nrord C(100), id_responsabil N(10,0);
		, nresp C(100), resp_marca N(18,4), dataact T, id_util N(5,0);
		, util C(30), dataora T, id_sectie N(5,0), sectie C(50);
		, csectie C(10), alcooltutun N(1,0), datain T, dataout T;
		, id_fact N(20,0), id_gestiunec N(10,0), nume_gestiunec C(50), cgestc C(20);
		, id_responsabilc N(5,0), id_reteta N(10,0), reteta C(50), nrespc C(100);
		, respc_marca N(18,4), id_set N(20,0), id_tip_rulaj N(10,0), tip_rulaj C(50);
		, id_obiect_depozit N(10,0), id_rul_aux N(10,0), nract N(20,0), serie_act C(10);
		, dataoras T, id_utils N(10,0), lot C(30), adata_expirare T;
		, id_sucursala N(5,0), sucursala C(250), id_part_rez N(10,0), part_rez C(100);
		, id_lucrare_rez N(10,0), nrord_rez C(100), subgrupa C(100), grupa C(100);
		, id_subgrupa N(5,0), id_grupa N(5,0), in_stoc N(1,0), in_crm N(1,0);
		, id_furnizor N(10,0), furnizor C(100), id_jtva_coloana N(4,0), explicatie_tva C(100);
		, taxcode N(6,0), taxname C(254), saft_procent N(18,4), codnc8 C(20);
		, id_tara_origine N(4,0), cod_tara_origine C(5), tara_origine C(50), greutate N(12,4);
		, fdoc C(30), id_fdoc N(18,4);
		, pret_lei N(18,4), pret_val N(14,4), cota_tva N(6,2))
ENDPROC

PROCEDURE CreeazaIntrodc
	LPARAMETERS tcAlias
	IF USED(tcAlias)
		USE IN (tcAlias)
	ENDIF
	CREATE CURSOR (tcAlias) ( ;
		id_note N(14), explicatia C(100), scd C(10), ascd C(20), scc C(10), ascc C(20), ;
		cu_tva N(1), id_set N(14), ordine N(8), in_valuta N(1), id_jtva_coloana N(14) NULL, ;
		ptva N(6,2), explicatie_tva C(50), tipjurnal C(2), taxcode N(6), paymentcode C(9), ;
		suma N(18,4), suma_val N(18,4), id_partd N(14), id_partc N(14), partd C(100), partc C(100), ;
		id_fact N(14), id_factd N(14), id_factc N(14), pereched N(14), perechec N(14), ;
		nract N(14), serie_act C(10), explicatia4 C(50), explicatia5 C(50), participa_valuta L, ;
		id_valuta N(14), curs N(14,4), nume_val C(10), dataact D, fdoc C(50), id_fdoc N(14), ;
		se_scrie N(1), tva_incasare N(1), doc_color N(10), doc_label C(10), tip_rand C(1), ;
		doc_key C(80), nr_doc N(8), suma_doc N(18,4), suma_doc_val N(18,4), mod_manual N(1), expl_manual N(1), ;
		scd_orig C(20), ascd_orig C(20), rand_dvi N(1), valuta_proprie N(1))
ENDPROC

PROCEDURE DumpIntrodc
	LOCAL lnSel
	lnSel = SELECT()
	SELECT introdc
	SCAN
		DO TfLog WITH '  recno=' + TRANSFORM(RECNO()) + ' nract=' + TRANSFORM(nract) + ' tip_rand=' + tip_rand + ;
			' scd=' + ALLTRIM(scd) + ' suma=' + TRANSFORM(suma) + ' suma_val=' + TRANSFORM(suma_val) + ;
			' suma_doc=' + TRANSFORM(suma_doc) + ' suma_doc_val=' + TRANSFORM(suma_doc_val) + ;
			' mod_manual=' + TRANSFORM(NVL(mod_manual,0)) + ' doc_key=[' + ALLTRIM(doc_key) + ']'
	ENDSCAN
	SELECT (lnSel)
ENDPROC

FUNCTION RECCOUNT_ACTIVE
	LPARAMETERS tcAlias
	LOCAL lnSel, lnCnt
	lnSel = SELECT()
	SELECT (tcAlias)
	COUNT TO lnCnt FOR !DELETED()
	SELECT (lnSel)
	RETURN lnCnt
ENDFUNC

PROCEDURE TfErr
	LPARAMETERS tnErr, tcMsg, tcProg, tnLine
	DO TfLog WITH 'ON ERROR ' + TRANSFORM(tnErr) + ' [' + tcProg + ':' + TRANSFORM(tnLine) + '] ' + tcMsg
ENDPROC

PROCEDURE TfLog
	LPARAMETERS tcMsg
	SET SAFETY OFF
	LOCAL lcL
	lcL = IIF(FILE(gcUILog), FILETOSTR(gcUILog), '')
	STRTOFILE(lcL + tcMsg + CHR(13)+CHR(10), gcUILog)
ENDPROC

DEFINE CLASS dummyapp AS Custom
	PROCEDURE ReadIni
		LPARAMETERS tcSection, tcKey
		RETURN ''
	ENDPROC
	PROCEDURE WriteIni
		LPARAMETERS tcSection, tcKey, tcValue
		RETURN .T.
	ENDPROC
ENDDEFINE

DEFINE CLASS dummyexecutor AS Custom
	cEroare = ''
	PROCEDURE oExecute
		LPARAMETERS tcSql, tcCursor
		IF USED(m.tcCursor)
			USE IN (m.tcCursor)
		ENDIF
		IF 'VJTVA_COLOANE' $ UPPER(m.tcSql)
			DO CreeazaJtvaColoaneView WITH m.tcCursor
			RETURN 1
		ENDIF
		IF UPPER(ALLTRIM(m.tcCursor)) == 'RUL_TEMP'
			DO CreeazaRulTemp
		ELSE
			CREATE CURSOR (m.tcCursor) (id_temp N(1))
		ENDIF
		RETURN 1
	ENDPROC
	PROCEDURE oExecuta
		LPARAMETERS tcSql, tcCursor
		IF !EMPTY(m.tcCursor)
			IF USED(m.tcCursor)
				USE IN (m.tcCursor)
			ENDIF
			IF UPPER(m.tcCursor) == 'CJTVACOL4427'
				CREATE CURSOR (m.tcCursor) (id_jtva_coloana N(14))
			ELSE
				CREATE CURSOR (m.tcCursor) (id_temp N(1))
			ENDIF
		ENDIF
		RETURN .T.
	ENDPROC
	PROCEDURE oSelect2Value
		LPARAMETERS tcSql, toValue
		toValue = ''
		RETURN 1
	ENDPROC
	PROCEDURE oReset
	ENDPROC
ENDDEFINE

PROCEDURE CreeazaJtvaColoaneView
	LPARAMETERS tcCursor
	IF USED(m.tcCursor)
		USE IN (m.tcCursor)
	ENDIF
	CREATE CURSOR (m.tcCursor) (id_jtva_coloana N(14), denumire C(100), jc N(1), jv N(1), ;
		coloana_jc C(20), coloana_jv C(20), cota_tva N(6,2), id_tva N(14) NULL, afisat N(1), ;
		id_jtva_ex N(14) NULL, id_jtva_neex N(14) NULL, ordine N(8), ;
		taxcode N(6) NULL, taxcode_neexigibil N(6) NULL, taxcode_n50 N(6) NULL, ;
		taxcode_n50_tvai N(6) NULL, taxcode_n100 N(6) NULL, taxcode_regularizare N(6) NULL, taxcode_tvai N(6) NULL)
	INSERT INTO (m.tcCursor) (id_jtva_coloana, denumire, jc, jv, afisat, ordine, cota_tva) VALUES (0, '', 0, 0, 1, 0, 0)
	INSERT INTO (m.tcCursor) (id_jtva_coloana, denumire, jc, jv, coloana_jc, cota_tva, id_tva, afisat, ordine, taxcode) ;
		VALUES (208, 'ACH. INT. 21%', 1, 0, 'RO21B', 21, 209, 1, 1, 301104)
	INSERT INTO (m.tcCursor) (id_jtva_coloana, denumire, jc, jv, coloana_jc, cota_tva, afisat, ordine, taxcode) ;
		VALUES (209, 'TVA ACH. INT. 21%', 1, 0, 'RO21T', 21, 1, 2, 301104)
ENDPROC
