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