romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Verificare ANAF la alegerea partenerului

Browse Source 
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
This commit is contained in:
Marius Mutu
2026-07-27 01:29:41 +03:00
parent df9698375a
commit 889840357a
20 changed files with 3083 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
clase/omodificari.vc2
View File

@@ -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