Verificare ANAF la alegerea partenerului

ocautare.prg - miezul functionalitatii:
- anaf_verif_cautare: verdictul ANAF pe randul curent din formularul de cautare
  (label sub grid), la data documentului; discordantele si codurile fiscale invalide
  cu rosu; F4 sau click deschide detaliile.
- ANAF_StarePartener, cu cache pe sesiune, excludere parteneri externi si persoane
  fizice; ANAF_ValidareCod pentru CIF/CNP.
- ANAF_NivelVerificare: cascada RC_ANAF_VERIF_SELECTIE (kill-switch settings.ini >
  optiuni utilizator > optiuni firma > implicit 1), cu cache invalidat la schimbarea
  firmei sau utilizatorului; ANAF_ComutaVerificare pentru punctul de meniu.
- Detalii: alegerea variantei corecte de partener din perechea RO / fara RO, cu
  discriminator "are documente in perioada"; dupa Da sau Nu se inchide cautarea si
  se revine in formular cu partenerul ales (AplicaInlocuirePartenerANAF).
- ANAF_CaData: data documentului poate veni si ca DateTime (tact.dataact).
- Banda proprie sub grid pentru label: formularul creste cu 54, gridul isi pierde
  ancorarea de jos si primeste inaltimea din AjusteazaBanda, legata de Resize si
  Activate - formularul isi reaseaza gridul dupa Show, deci Activate e momentul util.

validare.prg: ANAF_VerificaCuiSingle, wrapper single-CUI peste serviciul ANAF, cu
data verificarii si o singura eroare logata pe sesiune.

cauta_alfa.prg: hook generic - ataseaza poVerifAlegere pe formularul de cautare
inainte de Show si il detaseaza dupa.

Apelanti opt-in (lVerificaANAF): baza.vc2 (lookup-ul generic de partener din
formularele actbaza/actbaza2007 lansate din meniuri), onote_contabile.vc2 (partener
debit/credit), omodificari.vc2 (do_cauta din cele trei clase de modificare, cu data
notei), ofacturare.vc2 (client, furnizor). Casa/banca ramane in afara: acolo partenerul
se alege pentru imperecherea facturilor.

cauta_alfa_forms.vc2: F4 deschide detaliile, iar terminarea cautarii trece prin
VerificaAlegere.

Teste: suita headless pentru fluxul de verificare (utile/Teste/partener_anaf/), cu
mock pentru apelul ANAF si pentru dialoguri.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_019H3r66sVojGhgaKq5niu1u

clase/baza.vc2

@@ -10397,7 +10397,8 @@ DEFINE CLASS item AS container
 		
 		*!* 03.10.2006
 		*!* MARIUS.MUTU
-			locauta = CautPartenerContabilitate(GetHash([cTitlu=>] + T + [??lAdaugCorespondente=>1??cTipuriParteneri=>] + lcTip))
+		*!* 26.07.2026 claude - verificare ANAF la alegerea partenerului pe formularele de documente
+			locauta = CautPartenerContabilitate(GetHash([cTitlu=>] + T + [??lAdaugCorespondente=>1??cTipuriParteneri=>] + lcTip + [??lVerificaANAF=>1]))
 		*!*	modificare migrare v 1.0	>	v 2.0
 			If poAct.id_set = 229
 				poAct.vid_part_rez = locauta.id_part

clase/cauta_alfa_forms.vc2

@@ -564,6 +564,13 @@ DEFINE CLASS cauta_alfa_form AS _frmbase OF "_frm_base.vcx"
 		  
 	ENDPROC
 
+	PROCEDURE inainte_de_do_termin
+		If Type('This.oVerifAlegere') = 'O' And !Isnull(This.oVerifAlegere)
+			Return This.oVerifAlegere.VerificaAlegere(Thisform)
+		Endif
+		Return DODEFAULT()
+	ENDPROC
+
 	PROCEDURE Init
 		Lparameters tcCursor, tcNume_Proc, tcTitluColoana, tccoloana, tl_AllInList, ;
 			tcPrimaColoana, tnPornire, tcGridDynamicBackColor, tcGridToolTip, ;
@@ -705,6 +712,12 @@ DEFINE CLASS cauta_alfa_form AS _frmbase OF "_frm_base.vcx"
 				THIS.cb_tx_cautare1.SETFOCUS
 				KEYBOARD '{END}'
 		
+			CASE nKeyCode = -3 && F4
+				NODEFAULT
+				IF TYPE('THIS.oVerifAlegere') = 'O' AND !ISNULL(THIS.oVerifAlegere)
+					THIS.oVerifAlegere.Detalii()
+				ENDIF
+		
 			OTHERWISE
 				DODEFAULT(nKeyCode, nShiftAltCtrl)
 		ENDCASE

clase/ofacturare.vc2

@@ -6949,7 +6949,9 @@ DEFINE CLASS frm_date_aviz AS _frmbase OF "_frm_base.vcx"
 				Endif
 			Otherwise
 				&&	modificare v 2.0.93 : am adaugat 47
-				loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Clienti??cCont=>]+Iif(INLIST(poDate.tip,42,47),[357],Iif(Inlist(poDate.tip,28,29),[461],Alltrim(gcCont411)))+[??lAdaugCorespondente=>1]))
+				loHash = GetHash([cTitlu=>Clienti??cCont=>]+Iif(INLIST(poDate.tip,42,47),[357],Iif(Inlist(poDate.tip,28,29),[461],Alltrim(gcCont411)))+[??lAdaugCorespondente=>1??lVerificaANAF=>1])
+				loHash.SetValue('dDataDoc', Iif(Type('poDate.dataact') = 'D', poDate.dataact, {}))
+				loCauta = CautPartenerContabilitate(loHash)
 				If !Empty(Nvl(loCauta.id_part,0)) And !Empty(loCauta.denumire)
 					poDate.id_client = loCauta.id_part
 					poDate.nume_client = loCauta.denumire
@@ -7906,7 +7908,9 @@ DEFINE CLASS frm_date_aviz_lucrare AS _frmbase OF "_frm_base.vcx"
 	PROCEDURE do_cauta_furnizor
 		Local loCauta
 		*!*	loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti furnizorul??cCont=>401??lAdaugCorespondente=>1]))
-		loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti furnizorul??cCont=>401]))
+		loHash = GetHash([cTitlu=>Alegeti furnizorul??cCont=>401??lVerificaANAF=>1])
+		loHash.SetValue('dDataDoc', Iif(Type('poDate.dataact') = 'D', poDate.dataact, {}))
+		loCauta = CautPartenerContabilitate(loHash)
 		If !Empty(loCauta.id_part) And !Empty(loCauta.denumire) AND !ISNULL(loCauta.id_part)
 			poDate.id_furnizor = loCauta.id_part
 			poDate.furnizor = Alltrim(loCauta.denumire)
@@ -8970,7 +8974,9 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 
 	PROCEDURE do_cauta_client
 		Local loCauta
-		loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Clienti??cCont=>4111??lAdaugCorespondente=>1]))
+		loHash = GetHash([cTitlu=>Clienti??cCont=>4111??lAdaugCorespondente=>1??lVerificaANAF=>1])
+		loHash.SetValue('dDataDoc', Iif(Type('poDate.dataact') = 'D', poDate.dataact, {}))
+		loCauta = CautPartenerContabilitate(loHash)
 		If !Empty(Nvl(loCauta.id_part,0)) And !Empty(loCauta.denumire)
 			If loCauta.id_part <> poDate.id_client
 				poDate.listaid = []

clase/omodificari.vc2

@@ -1607,12 +1607,17 @@ DEFINE CLASS frm_modific AS _frmbase OF "_frm_base.vcx"
 
 	PROCEDURE do_cauta
 		PARAMETERS tcCont
-		LOCAL loCauta
+		LOCAL loCauta, loHash
 		
 		IF EMPTY(tcCont)
 			RETURN
 		ENDIF 
-		loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul??lAdaugCorespondente=>1??cCont=>] + ALLTRIM(tcCont)))
+		*!* 27.07.2026 claude - verificarea ANAF la data documentului din nota, nu la data curenta
+		loHash = GetHash([cTitlu=>Alegeti partenerul??lAdaugCorespondente=>1??cCont=>] + ALLTRIM(tcCont) + [??lVerificaANAF=>1])
+		IF USED('tact') AND INLIST(TYPE('tact.dataact'), 'D', 'T')
+			loHash.SetValue('dDataDoc', tact.dataact)
+		ENDIF 
+		loCauta = CautPartenerContabilitate(loHash)
 		
 		RETURN loCauta
 		
@@ -4601,12 +4606,17 @@ DEFINE CLASS frm_modific2007 AS _frmbase OF "_frm_base.vcx"
 
 	PROCEDURE do_cauta
 		PARAMETERS tcCont
-		LOCAL loCauta
+		LOCAL loCauta, loHash
 		
 		IF EMPTY(NVL(tcCont,''))
 			RETURN
 		ENDIF 
-		loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul??lAdaugCorespondente=>1??cCont=>] + ALLTRIM(tcCont)))
+		*!* 27.07.2026 claude - verificarea ANAF la data documentului din nota, nu la data curenta
+		loHash = GetHash([cTitlu=>Alegeti partenerul??lAdaugCorespondente=>1??cCont=>] + ALLTRIM(tcCont) + [??lVerificaANAF=>1])
+		IF USED('tact') AND INLIST(TYPE('tact.dataact'), 'D', 'T')
+			loHash.SetValue('dDataDoc', tact.dataact)
+		ENDIF 
+		loCauta = CautPartenerContabilitate(loHash)
 		
 		RETURN loCauta
 		
@@ -12613,12 +12623,17 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
 
 	PROCEDURE do_cauta
 		PARAMETERS tcCont
-		LOCAL loCauta
+		LOCAL loCauta, loHash
 		
 		IF EMPTY(NVL(tcCont,''))
 			RETURN
 		ENDIF 
-		loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul??lAdaugCorespondente=>1??cCont=>] + ALLTRIM(tcCont)))
+		*!* 27.07.2026 claude - verificarea ANAF la data documentului din nota, nu la data curenta
+		loHash = GetHash([cTitlu=>Alegeti partenerul??lAdaugCorespondente=>1??cCont=>] + ALLTRIM(tcCont) + [??lVerificaANAF=>1])
+		IF USED('tact') AND INLIST(TYPE('tact.dataact'), 'D', 'T')
+			loHash.SetValue('dDataDoc', tact.dataact)
+		ENDIF 
+		loCauta = CautPartenerContabilitate(loHash)
 		
 		RETURN loCauta
 		

clase/onote_contabile.vc2

@@ -6965,6 +6965,7 @@ DEFINE CLASS frm_note_contabile2007_nou AS _frmbase OF "_frm_base.vcx"
 		WITH loHash
 			.SetValue("cTitlu", "Alege<67>i partenerul")
 			.SetValue("cCont", lcCont)	
+			.SetValue("lVerificaANAF", .T.)	&& 26.07.2026 claude - verificare ANAF la alegerea partenerului
 		ENDWITH
 		loPartener = CautPartenerContabilitate(loHash)