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

utile/Teste/mock_ainputbox.prg

@@ -0,0 +1,33 @@
+* mock_ainputbox.prg - inlocuieste FUNCTION aInputBox (din oproceduri_comune.prg) in teste, ca
+* fereastra modala de introducere sa NU blocheze testul headless. Se incarca cu SET PROCEDURE ...
+* ADDITIVE langa mock_amessagebox.prg (aceeasi rezolutie de nume: castiga fisierul de proceduri
+* deschis cel mai recent).
+* gnMockInputBox (PUBLIC, optional): valoarea returnata la fiecare apel (implicit 1).
+* gcMockInputSecventa (PUBLIC, optional): lista de valori separate prin virgula, returnate pe rand
+* (apelul N ia valoarea N, ultimul apel se repeta) - pentru fluxuri care reiau intrebarea, ex.
+* numar de varianta invalid urmat de unul valid. Are prioritate fata de gnMockInputBox.
+* gnMockInputCount (PUBLIC, optional): contor de apeluri - pentru aserti de tipul "nu s-a cerut
+* numarul variantei cand exista o singura varianta".
+* gcMockUltimPrompt (PUBLIC, optional): textul ultimului prompt primit.
+FUNCTION aInputBox
+	LPARAMETERS tcPrompt, tcTitle, txDefaultValue, tnLeft, tnTop, tcFormat, tcInputMask, tcPasswordChar
+	LOCAL luRaspuns, lnApel, lcValoare
+	IF TYPE('gnMockInputCount') = 'N'
+		gnMockInputCount = gnMockInputCount + 1
+		lnApel = gnMockInputCount
+	ELSE
+		lnApel = 1
+	ENDIF
+	luRaspuns = IIF(TYPE('gnMockInputBox') = 'N', gnMockInputBox, 1)
+	IF TYPE('gcMockInputSecventa') = 'C' AND !EMPTY(gcMockInputSecventa)
+		lcValoare = GETWORDNUM(gcMockInputSecventa, MIN(m.lnApel, GETWORDCOUNT(gcMockInputSecventa, ',')), ',')
+		luRaspuns = VAL(m.lcValoare)
+	ENDIF
+	IF TYPE('gcMockUltimPrompt') = 'C'
+		gcMockUltimPrompt = TRANSFORM(tcPrompt)
+	ENDIF
+	IF TYPE('gcUILog') = 'C'
+		DO HarnessLog WITH 'MOCK aInputBox apelat: [' + ALLTRIM(TRANSFORM(tcPrompt)) + '] -> returnez ' + TRANSFORM(luRaspuns)
+	ENDIF
+	RETURN luRaspuns
+ENDFUNC