roafacturare/docs/prompt_integrare_13_anaf.md

Prompt de integrare pentru sesiunea planului #13 (frm_facturare_articole2)

Copiaza tot ce e sub linie in sesiunea #13.

---

Integreaza in lucrul tau modificarile facute de alta sesiune Claude (branch anaf-factura din COMUN, pe calculatorul lui Marius) pentru verificarea automata ANAF a clientului pe factura. Sunt aprobate si testate headless + UI de paritate; nu le reproiecta, doar integreaza-le peste versiunea ta.

Ce atinge COMUN\clase\ofacturare.vc2

• frm_facturare_articole2 (S2, commit 5cf1010) - 10 linii, doar apeluri catre oAntet:
  • Activate: dupa blocul aseaza_totaluri, daca This.oAntet.lVerificaLaActivare -> This.oAntet.VerificaANAFAutomat(This, .T.).
  • Init: in ramura cu poDate.id_client <> 0 (dupa ToolTipText 'Id client: ') -> .oAntet.MarcheazaVerificareLaActivare().
  • Clb_dataact.TEXT_SIMPLU1.LostFocus si Clb_dataireg.Text_simplu1.LostFocus: Thisform.oAntet.LaSchimbareData(Thisform) inainte de Return pe ramura aviz si la finalul metodei.
• frm_date_factura (dialogul vechi deschis din Comenzi; S2b, commit 79fb578): proprietate oantet, Activate nou, oAntet creat in Init, MarcheazaVerificareLaActivare, LaSchimbareData pe LostFocus date, do_cauta_client(tcCui) cu filtru + verificare/reset, do_verifica delegat la This.oAntet.do_verifica(This).

Diff-ul exact (text FoxBin2Prg) e mai jos. Daca metodele tale din frm_facturare_articole2 s-au mutat sau rescris, pastreaza intentia: aceleasi apeluri, in aceleasi momente (dupa totaluri la Activate; dupa completarea clientului in Init; dupa recalcularea datelor la LostFocus).

Curatenie la integrare (dupa 558ccda): butonul de verificare nu mai pune nicio intrebare, deci in frm_date_factura.do_cauta_client linia This.oAntet.PuneFiltruCui(m.loHash, m.tcCui) si Lparameters tcCui (adaugate de S2b, diff-ul de mai jos) sunt redundante - tcCui vine mereu gol. Scoate-le la integrare (si PuneFiltruCui din ofacturare_antet.prg, care ramane fara apelant). Diff-ul de mai jos e cel initial 6acd1ea..79fb578; restul modificarilor de dupa sunt doar in .prg si .bmp.

Dependente (fara ele apelurile dau eroare)

Toata logica e in COMUN\programe\ofacturare_antet.prg (clasa oAntetFacturare: VerificaANAFAutomat, LaSchimbareData, MarcheazaVerificareLaActivare, ReseteazaIndicator, AplicaRezultatButon, PuneFiltruCui, lFormVechi...) si in modificarile S0/S1a din fisierele ANAF (ANAF_StarePartener cu parametrul 8 tlIstoricIntai, ocautare.prg). Deci ai nevoie de TOT branch-ul anaf-factura (commit-uri 5e7b11d..558ccda peste ca8e7ca sync SVN r18221), nu doar de .vc2. Branch-ul NU e pushat - cere-i lui Marius sa-l publice (push pe gitea romfast/comun) sau sa decida alta cale; nu reconstrui ofacturare_antet.prg din memorie. Produsele care deschid aceste formulare trebuie sa aiba SET PROCEDURE TO ofacturare_antet.prg ADDITIVE (ROAFACTURARE si ROAACNPRO il au; daca #13 aduce formularele in alt produs, adauga-l acolo).

Procedura

1. Merge / cherry-pick anaf-factura peste branch-ul tau; conflictele in ofacturare.vc2 se rezolva manual pe text, pastrand ambele seturi.
2. Write-back o singura data, din textul unit (skill roa-vfp-text-edit, -ProjectRoot explicit), verificare prin reconversie.
3. Regresie: COMUN\utile\Teste\anaf_factura\test_s2_declansatori.prg, test_s2b_dialog_vechi.prg, test_s3_buton_manual.prg (headless), test_s4_indicator_ui.ps1 si test_s4_dialog_vechi_ui.ps1 (UI).
4. Observatie deschisa: Init face SetFocus, care declanseaza Activate inca din Init, deci primul HTTP ANAF poate rula inainte ca formularul sa fie desenat (vezi raportul S4, defect 1). Nu il repara fara decizia lui Marius.

Diff ofacturare.vc2 (6acd1ea..79fb578)

diff --git a/clase/ofacturare.vc2 b/clase/ofacturare.vc2
index 21d37aa..4540ef4 100644
--- a/clase/ofacturare.vc2
+++ b/clase/ofacturare.vc2
@@ -8689,6 +8689,7 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 		*p: nsoldlei		&& Sold lei client
 		*p: nsoldvaluta		&& sold vauta client
 		*p: ntip
+		*p: oantet		&& Verificarea ANAF si cautarile de antet (oAntetFacturare, ofacturare_antet.prg).
 	*</DefinedPropArrayMethod>
 
 	*<PropValue>
@@ -9092,6 +9093,15 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 		Width = 118
 		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
 	
+	PROCEDURE Activate
+		DoDefault()
+		If Vartype(This.oAntet) = "O"
+			If This.oAntet.lVerificaLaActivare
+				This.oAntet.VerificaANAFAutomat(This, .T.)
+			Endif
+		Endif
+	ENDPROC
+
 	PROCEDURE do_cauta_altele
 		Do Case
 			Case Thisform.nid_tip=2
@@ -9154,9 +9164,11 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 	ENDPROC
 
 	PROCEDURE do_cauta_client
+		Lparameters tcCui
 		Local loCauta
 		loHash = GetHash([cTitlu=>Clienti??cCont=>4111??lAdaugCorespondente=>1??lVerificaANAF=>1])
 		loHash.SetValue('dDataDoc', Iif(Type('poDate.dataact') = 'D', poDate.dataact, {}))
+		This.oAntet.PuneFiltruCui(m.loHash, m.tcCui)
 		loCauta = CautPartenerContabilitate(loHash)
 		If !Empty(Nvl(loCauta.id_part,0)) And !Empty(loCauta.denumire)
 			If loCauta.id_part <> poDate.id_client
@@ -9196,6 +9208,7 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 			This.ct_clb_lucrare.SetFocus()
 			
 			This.ct_clb_nume_client.clb_TX_CAUTARE.text_SIMPLU1.ToolTipText = 'Id client: ' + TRANSFORM(poDate.id_client)	
+			This.oAntet.VerificaANAFAutomat(This, .F.)
 		Else
 			poDate.listaid = []
 			poDate.descriere = []
@@ -9205,6 +9218,7 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 			
 			this.nSoldLei = 0
 			this.nSoldValuta = 0
+			This.oAntet.ReseteazaIndicator(This)
 			this.txtSoldLei.Refresh()
 		Endif
 		*!*	modificare v 2.0.70
@@ -9593,18 +9607,7 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 	ENDPROC
 
 	PROCEDURE do_verifica
-		Local loDate As "empty"
-		Local lnOptiune, lnRaspuns, loPartener
-		
-		lnOptiune = 1
-		loPartener = Null
-		loDate = Createobject("empty")
-		
-		AddProperty(loDate, "denumire", poDate.nume_client)
-		AddProperty(loDate, "cod_fiscal", poDate.cod_fiscal)
-		AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB")
-		
-		lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener) 
+		Return This.oAntet.do_verifica(This)
 	ENDPROC
 
 	PROCEDURE inainte_de_do_termin
@@ -9741,6 +9744,8 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 		
 		This.lCopiere = (TYPE('toFactura') = 'O') && copiere factura
 		llCopiere = This.lCopiere
+		This.oAntet = Createobject('oAntetFacturare')
+		This.oAntet.lFormVechi = .T.
 		
 		lnObiecte = 16	&&	ROACONTRACTE v 2.0.42 : 16
 		Dimension laPozitii(lnObiecte, 3)
@@ -9938,6 +9943,8 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 			this.nSoldValuta = loSoldClient.sold_valuta
 			this.txtSoldLei.Refresh()
 			This.ct_clb_nume_client.clb_TX_CAUTARE.text_SIMPLU1.ToolTipText = 'Id client: ' + TRANSFORM(poDate.id_client)
+			This.oAntet.MarcheazaVerificareLaActivare()
+			This.txtCodFiscal.Refresh()
 		ENDIF 
 		
 		DO CASE 
@@ -9965,6 +9972,7 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 		Endif
 		*!*	modificare	v 2.0.56	^
 		
+		Thisform.oAntet.LaSchimbareData(Thisform)
 	ENDPROC
 
 	PROCEDURE Clb_dataireg.Text_simplu1.LostFocus
@@ -9983,6 +9991,7 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 		*!*	modificare	v 2.0.56
 		Endif
 		*!*	modificare	v 2.0.56	^
+		Thisform.oAntet.LaSchimbareData(Thisform)
 	ENDPROC
 
 	PROCEDURE Clb_nract.Text_simplu1.LostFocus
@@ -18238,6 +18247,11 @@ DEFINE CLASS frm_facturare_articole2 AS _frmbase OF "_frm_base.vcx"
 			This.ltotaluri_asezate = .T.
 			This.aseaza_totaluri()
 		Endif
+		If Vartype(This.oAntet) = "O"
+			If This.oAntet.lVerificaLaActivare
+				This.oAntet.VerificaANAFAutomat(This, .T.)
+			Endif
+		Endif
 	ENDPROC
 
 	PROCEDURE actualizeaza_tipincasare
@@ -21579,6 +21593,7 @@ DEFINE CLASS frm_facturare_articole2 AS _frmbase OF "_frm_base.vcx"
 					.nSoldValuta = loSoldClient.sold_valuta
 					.txtSoldLei.Refresh()
 					.ct_clb_nume_client.clb_tx_cautare.text_simplu1.ToolTipText = 'Id client: ' + Transform(poDate.id_client)
+					.oAntet.MarcheazaVerificareLaActivare()
 				Endif
 				Do Case
 					Case poDate.in_valuta = 1 And .ct_clb_valuta.Top < .clb_fdoc.Top And Empty(Nvl(poDate.nume_valuta, ''))
@@ -21941,6 +21956,7 @@ DEFINE CLASS frm_facturare_articole2 AS _frmbase OF "_frm_base.vcx"
 		If Thisform.oAntet.EsteAviz()
 			poDate.zi_curs = poDate.dataact
 			Thisform.clb_zi_curs.Refresh()
+			Thisform.oAntet.LaSchimbareData(Thisform)
 			Return
 		Endif
 		*!*	modificare	v 2.2.4	:	daca scadenta nu e automata, atunci poate modifica data scadenta propusa
@@ -21957,6 +21973,7 @@ DEFINE CLASS frm_facturare_articole2 AS _frmbase OF "_frm_base.vcx"
 		Endif
 		*!*	modificare	v 2.0.56	^
 		
+		Thisform.oAntet.LaSchimbareData(Thisform)
 	ENDPROC
 
 	PROCEDURE Clb_dataireg.Text_simplu1.LostFocus
@@ -21965,6 +21982,7 @@ DEFINE CLASS frm_facturare_articole2 AS _frmbase OF "_frm_base.vcx"
 			Thisform.clb_dataact.Refresh()
 			poDate.zi_curs = poDate.dataact
 			Thisform.clb_zi_curs.Refresh()
+			Thisform.oAntet.LaSchimbareData(Thisform)
 			Return
 		Endif
 		poDate.dataact = poDate.dataireg
@@ -21982,6 +22000,7 @@ DEFINE CLASS frm_facturare_articole2 AS _frmbase OF "_frm_base.vcx"
 		*!*	modificare	v 2.0.56
 		Endif
 		*!*	modificare	v 2.0.56	^
+		Thisform.oAntet.LaSchimbareData(Thisform)
 	ENDPROC
 
 	PROCEDURE clb_fdoc.cboFdoc.Init