From 20323d22b35b92fcbe5fc40c0c21e4f0aa5a04e4 Mon Sep 17 00:00:00 2001 From: Marius Mutu Date: Sun, 2 Aug 2026 12:20:07 +0300 Subject: [PATCH] fix: F4 detalii ANAF pe formularul de cautare partener fara campul nume 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 Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K --- docs/todos.txt | 4 +++- programe/ocautare.prg | 8 ++++++-- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/docs/todos.txt b/docs/todos.txt index 2b7b3db..53b8f56 100644 --- a/docs/todos.txt +++ b/docs/todos.txt @@ -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 \ No newline at end of file +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" \ No newline at end of file diff --git a/programe/ocautare.prg b/programe/ocautare.prg index ff66635..55956f9 100644 --- a/programe/ocautare.prg +++ b/programe/ocautare.prg @@ -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