From 056df990e5c2f0d66b42601cff568d0e16e77d70 Mon Sep 17 00:00:00 2001 From: Marius Mutu Date: Fri, 21 Aug 2026 11:11:29 +0300 Subject: [PATCH] sync SVN r18032 --- programe/anaf_efactura.prg | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/programe/anaf_efactura.prg b/programe/anaf_efactura.prg index 65bd349..975140a 100644 --- a/programe/anaf_efactura.prg +++ b/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