Marius Mutu
889840357a
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
34 lines
1.7 KiB
Plaintext
34 lines
1.7 KiB
Plaintext
* 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
|