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

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