romfast/comun
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync SVN r18032

Browse Source
This commit is contained in:
Marius Mutu
2026-08-21 11:11:29 +03:00
parent 03d23222ec
commit 056df990e5
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
programe/anaf_efactura.prg
View File

@@ -34,6 +34,10 @@
*!* marius.mutu *!* 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 *!* 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 * Se apeleaza din ROACONT > Borderou eFactura
* Intoarce .T. daca descarcarea zip efactura si actualizarea efactura in baza de date s-au realizat cu succes * 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 lcCodFiscal = This.cCodfiscal
lnZile = Iif(!Empty(m.tnZile), Min(m.tnZile, 60), 60) 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 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 ltStartTime = ltEndTime - m.lnZile*24*60*60