sync SVN r18066

clase/ointroduceri.vc2

@@ -6321,8 +6321,8 @@ DEFINE CLASS import_adauga_factura AS _frmbase OF "_frm_base.vcx"
 			Amessagebox('Completati data documentului.', 0 + 48, 'Adauga factura')
 			Return .F.
 		Endif
-		If Year(This.dDataAct) <> m.gnAn Or Month(This.dDataAct) <> m.gnLuna
+		If This.dDataAct > Gomonth(Date(m.gnAn, m.gnLuna, 1), 1) - 1
-			Amessagebox('Data documentului nu este in perioada de lucru (' + Alltrim(Str(m.gnLuna)) + '/' + Alltrim(Str(m.gnAn)) + ').', 0 + 48, 'Adauga factura')
+			Amessagebox('Data documentului nu poate fi ulterioara perioadei de lucru (' + Alltrim(Str(m.gnLuna)) + '/' + Alltrim(Str(m.gnAn)) + ').', 0 + 48, 'Adauga factura')
 			Return .F.
 		Endif
 		If Empty(Nvl(This.nIdPartener, 0))

utile/Teste/achizitie_import/test_repro_data_doc_intarziata.prg

@@ -0,0 +1,460 @@
+* test_repro_data_doc_intarziata.prg
+* Repro: import_adauga_factura.valideaza() respinge o data de document DIN TRECUT chiar daca
+* data inregistrarii ramane in perioada de lucru. Perioada de lucru fixata pe luna curenta a
+* aplicatiei (gnAn/gnLuna=08/2026), factura are dataact=10.07.2026 (luna anterioara).
+* Asteptat DUPA fix: valideaza()=.T.; o data ULTERIOARA lunii de lucru (05.09.2026) tot respinsa.
+*
+* Rulare:
+*   powershell -ExecutionPolicy Bypass -File test_repro_data_doc_intarziata.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_repro_data_doc_intarziata_log.txt"
+gcSyncDir = "D:\ROA\ROAGEST\COMUN\utile\Teste\achizitie_import\uisync_repro_data_doc\"
+STRTOFILE("START " + TTOC(DATETIME()) + CHR(13)+CHR(10), gcUILog)
+
+ON ERROR DO DdErr 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 DdLog 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 DdLog WITH 'SET CLASSLIB OK'
+
+	*----- PROCEDURI (mock amessagebox PRIMUL, ui_harness la final) -----
+	SET PROCEDURE TO PROCEDURI
+	SET PROCEDURE TO "D:\ROA\ROAGEST\COMUN\utile\Teste\mock_amessagebox.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 DdLog WITH 'SET PROCEDURE OK'
+
+	*----- Globale: perioada de lucru 08/2026 -----
+	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 = 2026
+	gnLuna = 8
+	gnIdFirma = 110
+	gnIdSucursala = 110
+	gcAcces = "1;2;3;4;5;6;7;8;"
+	gcFirma = gcS
+	PUBLIC nror(65000)
+
+	PUBLIC goExecutor, goApp
+	goExecutor = CREATEOBJECT('dummyexecutor')
+	goApp = CREATEOBJECT('dummyapp')
+
+	PUBLIC gcMockUltimMesaj, gnMockUltimTip
+	gcMockUltimMesaj = ''
+	gnMockUltimTip = 0
+
+	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', {^2026-08-01})
+	poAct.AddProperty('tva_incasare', 0)
+	poAct.AddProperty('id_set', 1)
+	poAct.AddProperty('id_gestin', 1)
+
+	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)
+
+	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 interne cota 21%', 301104, '', 21, 1, 0, 1, 0)
+
+	DO CreeazaIntrodc WITH 'introdc'
+	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
+
+	IF USED('rul_temp')
+		USE IN ('rul_temp')
+	ENDIF
+	CREATE CURSOR rul_temp (denumire C(100), codmat C(30), cant N(14,3), pret_val N(18,4), ;
+		pretd N(18,4), pret N(18,4), pret_lei N(18,4), cont C(10), acont C(20), serie C(30), ;
+		lot C(30), adata_expirare C(10), proc_disc N(6,2), cota_tva N(6,2))
+	INSERT INTO rul_temp (denumire, codmat, cant, pret, pret_lei, cont, cota_tva) ;
+		VALUES ('PLACEHOLDER', 'PH', 1, 1, 1, '371', 21)
+
+	DO DdLog WITH 'cursoare pregatite, CREATEOBJECT(import_nota)'
+	SELECT introdc
+	PUBLIC goObj
+	goObj = CREATEOBJECT('IMPORT_nota', .T.)
+	IF VARTYPE(goObj) <> 'O'
+		DO DdLog WITH 'FAIL: instantiere import_nota'
+		DO HarnessDone WITH 'done-error'
+		QUIT
+	ENDIF
+	goObj.oact = poAct
+	goObj.WindowType = 0
+	goObj.Visible = .T.
+	goObj.Show()
+	goObj.WindowState = 2
+	DOEVENTS FORCE
+
+	SELECT rul_temp
+	ZAP
+	goObj.gridart.Refresh()
+	DOEVENTS FORCE
+
+	PRIVATE pnAsserts, pnPass
+	STORE 0 TO pnAsserts, pnPass
+
+	DO HarnessStep WITH 0, 'import_nota afisat, perioada de lucru 08/2026'
+
+	*========================= SCENARIU 1: factura din TRECUT (10.07.2026), luna de lucru 08/2026 =========================
+	PUBLIC goDlg
+	goDlg = CREATEOBJECT('import_adauga_factura', goObj)
+	goDlg.cFelDoc = 'Factura'
+	goDlg.nIdFdoc = 1
+	goDlg.nNract = 9001
+	goDlg.dDataAct = {^2026-07-10}
+	goDlg.nIdPartener = 501
+	goDlg.cPartener = 'FURNIZOR INTARZIAT SRL'
+	goDlg.cExplicatia = 'Factura intarziata'
+	goDlg.nSuma = 1000
+	goDlg.nSumaLei = 0
+	goDlg.nIdExplicatieTva = 208
+	goDlg.cExplicatieTva = 'ACH. INT. 21%'
+	goDlg.optTipTva.Value = 1
+	goDlg.chkInValutaCont.Value = 0
+	goDlg.chkParticipaValuta.Value = 1
+	goDlg.WindowType = 0
+	goDlg.Visible = .T.
+	goDlg.Show()
+	DOEVENTS FORCE
+	DO HarnessStep WITH 1, 'dialog completat cu data documentului 10.07.2026 (luna de lucru 08/2026)'
+
+	gcMockUltimMesaj = ''
+	LOCAL llOkTrecut
+	llOkTrecut = goDlg.valideaza()
+	DO DdLog WITH 'SCENARIU 1 (data trecut): valideaza()=' + TRANSFORM(llOkTrecut) + ' mesaj=[' + gcMockUltimMesaj + ']'
+	=Assert3('1-data document din TRECUT (10.07.2026) trece valideaza()', IIF(llOkTrecut,1,0), 1)
+	goDlg.Hide()
+	DOEVENTS FORCE
+
+	*========================= SCENARIU 2: factura din VIITOR (05.09.2026), luna de lucru 08/2026 =========================
+	PUBLIC goDlg2
+	goDlg2 = CREATEOBJECT('import_adauga_factura', goObj)
+	goDlg2.cFelDoc = 'Factura'
+	goDlg2.nIdFdoc = 1
+	goDlg2.nNract = 9002
+	goDlg2.dDataAct = {^2026-09-05}
+	goDlg2.nIdPartener = 501
+	goDlg2.cPartener = 'FURNIZOR INTARZIAT SRL'
+	goDlg2.cExplicatia = 'Factura din viitor'
+	goDlg2.nSuma = 1000
+	goDlg2.nSumaLei = 0
+	goDlg2.nIdExplicatieTva = 208
+	goDlg2.cExplicatieTva = 'ACH. INT. 21%'
+	goDlg2.optTipTva.Value = 1
+	goDlg2.chkInValutaCont.Value = 0
+	goDlg2.chkParticipaValuta.Value = 1
+	goDlg2.WindowType = 0
+	goDlg2.Visible = .T.
+	goDlg2.Show()
+	DOEVENTS FORCE
+	DO HarnessStep WITH 2, 'dialog completat cu data documentului 05.09.2026 (luna de lucru 08/2026)'
+
+	gcMockUltimMesaj = ''
+	LOCAL llOkViitor
+	llOkViitor = goDlg2.valideaza()
+	DO DdLog WITH 'SCENARIU 2 (data viitor): valideaza()=' + TRANSFORM(llOkViitor) + ' mesaj=[' + gcMockUltimMesaj + ']'
+	=Assert3('2-data document din VIITOR (05.09.2026) e respinsa de valideaza()', IIF(llOkViitor,1,0), 0)
+	goDlg2.Hide()
+	DOEVENTS FORCE
+
+	DO HarnessStep WITH 3, 'final: ' + TRANSFORM(pnPass) + '/' + TRANSFORM(pnAsserts) + ' PASS'
+
+	DO DdLog WITH 'REZULTAT: ' + TRANSFORM(pnPass) + '/' + TRANSFORM(pnAsserts) + ' assert-uri PASS'
+	IF pnPass = pnAsserts
+		DO DdLog WITH 'REZULTAT: PASS (' + TRANSFORM(pnPass) + '/' + TRANSFORM(pnAsserts) + ')'
+	ELSE
+		DO DdLog WITH 'REZULTAT: FAIL (' + TRANSFORM(pnPass) + '/' + TRANSFORM(pnAsserts) + ' assert-uri PASS)'
+	ENDIF
+
+	DO HarnessDone WITH 'done'
+
+CATCH TO loExc
+	DO DdLog 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 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
+
+FUNCTION Assert3
+	LPARAMETERS tcNume, tuVal, tuAsteptat
+	pnAsserts = pnAsserts + 1
+	IF tuVal == tuAsteptat
+		pnPass = pnPass + 1
+		DO DdLog WITH '  PASS ' + tcNume
+	ELSE
+		DO DdLog WITH '  FAIL ' + tcNume + ': obtinut=[' + TRANSFORM(tuVal) + '] asteptat=[' + TRANSFORM(tuAsteptat) + ']'
+	ENDIF
+ENDFUNC
+
+PROCEDURE DdErr
+	LPARAMETERS tnErr, tcMsg, tcProg, tnLine
+	DO DdLog WITH 'ON ERROR ' + TRANSFORM(tnErr) + ' [' + tcProg + ':' + TRANSFORM(tnLine) + '] ' + tcMsg
+ENDPROC
+
+PROCEDURE DdLog
+	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'
+			CREATE CURSOR (m.tcCursor) (denumire C(100), codmat C(30), cant N(14,3), ;
+				pret_val N(18,4), pretd N(18,4), pret N(18,4), pret_lei N(18,4), cont C(10), ;
+				acont C(20), serie C(30), lot C(30), adata_expirare C(10), proc_disc N(6,2), cota_tva N(6,2))
+		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

utile/Teste/achizitie_import/test_repro_data_doc_intarziata.ps1

@@ -0,0 +1,12 @@
+# test_repro_data_doc_intarziata.ps1 - wrapper peste harness-ul generic pentru repro-ul
+# validarii datei documentului fata de perioada de lucru (factura intarziata).
+# Rulare:  powershell -ExecutionPolicy Bypass -File test_repro_data_doc_intarziata.ps1
+$ErrorActionPreference = 'Stop'
+$Teste = $PSScriptRoot
+& (Join-Path (Split-Path $Teste -Parent) 'vfp_ui_harness.ps1') `
+    -TestPrg (Join-Path $Teste 'test_repro_data_doc_intarziata.prg') `
+    -Steps @('nota_goala','trecut_completat','viitor_completat','final') `
+    -ShotsDir (Join-Path $Teste 'screenshots_repro_data_doc') `
+    -SyncDir (Join-Path $Teste 'uisync_repro_data_doc') `
+    -StepTimeoutSec 220 `
+    -ReadyTimeoutSec 220