Cache ANAF pe ISTORIC_CODURI_FISCALE: verificare din memorie, plasa la tacere ANAF

Verificarile de partener nu mai depind exclusiv de raspunsul ANAF: se citeste
intai cache-ul din ISTORIC_CODURI_FISCALE (mutat in CONTAFIN_ORACLE), cu
provenienta afisata pe ecrane (sursa / data_sursa) si cu plasa de siguranta
cand ANAF tace. Ordinea cache/ANAF e configurabila; cache-ul expira.

- programe/validare.prg: verificare single si pe loturi peste cache, contract
  404 separat de caderea de serviciu, expirarea cache-ului, corectii la
  verdictul pe firma si la etichetarea CACHE_INDISP.
- programe/ocautare.prg: plasa de siguranta si banda de provenienta la cautarea
  de partener.
- programe/oproceduri_comune.prg: VERIFICA_RTVAI_DATA citeste si cache-ul.
- clase/overificari.vc2: propagarea provenientei in interfata.
- utile/Teste/: harness-uri de testare headless - echivalenta cache/ANAF pe 200
  de coduri reale, marginile pe inactiv si TVA la incasare, mock batch ANAF,
  baseline D394 si sondele de diagnostic ANAF.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01JCzVWfqscv1xyo5uvJiWiW

programe/oproceduri_comune.prg

@@ -64,6 +64,10 @@
 *!*	22.07.2025
 *!*	GetNamePermutations - limitare la 4 cuvinte si maxim 10 permutari
 
+*!*	31.07.2026
+*!*	marius.mutu
+*!*	verifica_partener_show_info: marcaj de provenienta (cache ANAF) langa denumirea firmei, cand disponibil
+
 #Include COMUN\ROA.H
  
 Define Class oexecutor As Custom
@@ -4597,6 +4601,7 @@ Procedure verificare_parteneri
 
 Endproc && verificare_parteneri
 
+*!* 01.08.2026 marius.mutu istoricul e comun tuturor firmelor, nu se mai filtreaza pe schema_sursa
 Procedure verificare_parteneri_istoric
 	Lparameters tcCodFiscal, tcNume
 
@@ -4613,7 +4618,7 @@ Procedure verificare_parteneri_istoric
 	Endif
 
 	Text To lcSql Noshow
-	select id, dataora, id_util, dataorav, id_utilv, cod_fiscal, firma, adresa, judet, regcom, codpostal, telefon, fax, datatvamfin, platitortvamfin, stare, platitortvavies, util, utilv 
+	select id, dataora, id_util, dataorav, id_utilv, cod_fiscal, firma, adresa, judet, regcom, codpostal, telefon, fax, datatvamfin, platitortvamfin, stare, platitortvavies, util, utilv
 		from vistoric_coduri_fiscale
 		where cod_fiscal = ?pcCodFiscal
 	Endtext
@@ -4764,7 +4769,7 @@ Function verifica_partener_show_info
 	*** tcMesajIntrebare: IN, optional, daca se intreaba ceva la sfarsitul formularului (ex: Se completeaza datele in formularul partener nou?)
 
 	Local lcCodFiscal, lcDenumire, lcText, llCodRO, llPlatitorTVAMfin, llPlatitorTVAVIES, lnDialogType
-	Local lnRaspuns, loPartener
+	Local lnRaspuns, loPartener, lcProvenienta
 
 	lcCodFiscal = Transform(m.tcCodFiscal)
 	lcDenumire = Transform(m.tcDenumire)
@@ -4776,9 +4781,16 @@ Function verifica_partener_show_info
 	llTvaIncasare = loPartener.tvaincasare
 	llSplitTVA = loPartener.splittva
 	llInactiv = loPartener.inactiv
+	*!* 01.08.2026 marius.mutu: marcaj explicit al sursei (ANAF live / cache), nu doar pe randurile din cache
+	lcProvenienta = ''
+	If Pemstatus(m.loPartener, 'sursa', 5) And !Empty(Alltrim(Nvl(loPartener.sursa, '')))
+		lcProvenienta = Iif(Alltrim(Nvl(loPartener.sursa, '')) == 'ANAF', '(sursa: ANAF)', ;
+			'(sursa: CACHE ' + Dtoc(Nvl(loPartener.data_sursa, Date())) + Iif(Alltrim(Nvl(loPartener.sursa, '')) == 'CACHE_INDISP', ', ANAF indisponibil', '') + ')')
+	Endif
 
 	lcText = 'VERIFICARE CIF: ' + m.lcCodFiscal + ' ' + m.lcDenumire + crlf + crlf + ;
 		Alltrim(loPartener.firma) + crlf + ;
+		Iif(!Empty(m.lcProvenienta), m.lcProvenienta + crlf, '') + ;
 		Iif((m.llPlatitorTVAMfin And !m.llCodRO) Or (!m.llPlatitorTVAMfin And m.llCodRO), ' *** ATENTIE *** ', '') + ;
 		Iif(m.llPlatitorTVAMfin, "PLATITOR TVA (" + Alltrim(loPartener.datatvamfin) + ")", "NEPLATITOR TVA") +  crlf + ;
 		'Stare: ' + Alltrim(loPartener.stare) + crlf + ;