sync SVN r18032

programe/anaf_efactura.prg

@@ -34,6 +34,10 @@
 *!* marius.mutu
 *!* vizeFactura: potrivirea cu registrul se face dupa numarul facturii ca grup complet de cifre din xnumar_act (comparat cu nract prin apartenenta, ca sa poata folosi indexul), cu rezerva pe suma egala doar pentru facturile in RON, codul fiscal normalizat pe ambele parti; diferenta ramane goala cand factura nu e in registru sau e in valuta
 
+*!* 21.08.2026
+*!* marius.mutu
+*!* DescarcareRaspunsuri: se opreste cu mesaj daca firma nu are cod fiscal, in loc sa ceara ANAF cu cif gol si sa primeasca eroarea 400 A required query param was not provided
+
 *********************************
 * Se apeleaza din ROACONT > Borderou eFactura
 * Intoarce .T. daca descarcarea zip efactura si actualizarea efactura in baza de date s-au realizat cu succes
@@ -1273,6 +1277,14 @@ ENDTEXT
 		lcCodFiscal = This.cCodfiscal
 		lnZile = Iif(!Empty(m.tnZile), Min(m.tnZile, 60), 60)
 
+		IF EMPTY(m.lcCodFiscal)
+			lcErrorMessage = This.cUser + ' ' + 'DescarcareRaspunsuri Eroare: lipseste codul fiscal al firmei (parametrul cif). Verificati in nomenclatorul de firme: cod fiscal completat, firma nestearsa, marcata ca firma mama sau fara firma mama.'
+			This.cErrorMessage = m.lcErrorMessage
+			This.lError = .T.
+			This.Log(m.lcErrorMessage)
+			RETURN .F.
+		ENDIF
+
 		ltEndTime =  GetUtcTime(DATETIME()-60) && 60 de secunde in urma, ca sa fiu sigur? ca ceasul calculatorului nu este inainte fata de timpul serverului ANAF. Poate fi si cu mai mult de 1 minut
 		ltStartTime = ltEndTime - m.lnZile*24*60*60