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

fix: F4 detalii ANAF pe formularul de cautare partener fara campul nume

Browse Source 
Nvl() evalueaza ambele argumente, deci .nume era citit chiar cand cursorul avea
doar denumire - eroare "Variable 'NUME' is not found". Inlocuit cu Iif() pe
Type() in Detalii si VerificaAlegere.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
This commit is contained in:
Marius Mutu
2026-08-02 12:20:07 +03:00
parent 974716fd85
commit 20323d22b3
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
docs/todos.txt
View File

@@ -9,4 +9,6 @@ Vreau ca verificarile de coduri fiscale din D406, D394, Registrele de TVA sa fol
3. ROACONT - modificare nota, explicatia tva sa filtreze dupa procent tva din tabel, ca sa arate o selectie mai mica de explicatii tva. vezi cum ai facut la explicatia tva din ointroduceri.vcx > import_nota.
4. ROACONT - overificari.vcx > formularul istoric coduri fiscale are coloane care nu mai au relavanta sau nu mai sunt completate din tabel. verificarea
4. ROACONT - overificari.vcx > formularul istoric coduri fiscale are coloane care nu mai au relavanta sau nu mai sunt completate din tabel. in tabelul contafin_oracle.istoric_coduri_fiscale, campul regcom are spatii si nu se afiseaza in formularul istoric. verifica
5. ROACONT - VERIFICARE cod fiscal, label-ul de sub grid-ul cu rezultate si detalii F4 sa contina si status "TVA Incasare"

8
programe/ocautare.prg
View File

@@ -1018,7 +1018,9 @@ DEFINE CLASS anaf_verif_cautare AS Custom
poANAFInlocuire = .Null.
lcCursor = This.oForm.crs_cursor
lcDenAles = Alltrim(Nvl(Evaluate(m.lcCursor + '.denumire'), Nvl(Evaluate(m.lcCursor + '.nume'), '')))
*** cursorul de cautare are, dupa formular, fie denumire, fie nume
lcDenAles = Iif(Type(m.lcCursor + '.denumire') = 'C', Alltrim(Nvl(Evaluate(m.lcCursor + '.denumire'), '')), ;
Iif(Type(m.lcCursor + '.nume') = 'C', Alltrim(Nvl(Evaluate(m.lcCursor + '.nume'), '')), ''))
lcCodAles = Alltrim(Nvl(Evaluate(m.lcCursor + '.cod_fiscal'), ''))
If Isnull(This.oStare)
@@ -1138,7 +1140,9 @@ DEFINE CLASS anaf_verif_cautare AS Custom
Endif
lcCursor = This.oForm.crs_cursor
lcDenAles = Alltrim(Nvl(Evaluate(m.lcCursor + '.denumire'), Nvl(Evaluate(m.lcCursor + '.nume'), '')))
*** cursorul de cautare are, dupa formular, fie denumire, fie nume
lcDenAles = Iif(Type(m.lcCursor + '.denumire') = 'C', Alltrim(Nvl(Evaluate(m.lcCursor + '.denumire'), '')), ;
Iif(Type(m.lcCursor + '.nume') = 'C', Alltrim(Nvl(Evaluate(m.lcCursor + '.nume'), '')), ''))
lcCodAles = Alltrim(Nvl(Evaluate(m.lcCursor + '.cod_fiscal'), ''))
lcCodOk = Iif(This.oStare.lPlatitorANAF, 'RO', '') + This.cCui