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

sync SVN r18186

Browse Source
This commit is contained in:
Marius Mutu
2026-09-19 22:11:33 +03:00
parent 4040cff4f1
commit d0c1174829
2 changed files with 59 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
programe/anaf_efactura.prg
View File

@@ -872,7 +872,7 @@ select a.*, cast(NULL as varchar2(1000)) as factura_detalii, 0 as modificat
Case !Empty(m.lcErrorMessage)
pcIdIncarcare = ''
pnTrimis = 1
pcMesajTrimis = m.pcMesajTrimis + Iif(This.lTest, 'TEST ', '') + 'Eroare. ' + m.lcErrorMessage
pcMesajTrimis = m.pcMesajTrimis + 'ANAF a respins incarcarea: ' + m.lcErrorMessage
Case [VALID] $ Upper(loReturn.cResponse)
pcIdIncarcare = ''
@@ -880,14 +880,14 @@ select a.*, cast(NULL as varchar2(1000)) as factura_detalii, 0 as modificat
pcMesajTrimis = m.pcMesajTrimis + loReturn.cResponse
Otherwise
pcMesajTrimis = m.pcMesajTrimis + Iif(This.lTest, 'TEST ', '') + 'Eroare. ' + m.lcErrorMessage
pcMesajTrimis = m.pcMesajTrimis + 'Raspuns ANAF neasteptat (fara status): ' + Alltrim(Transform(loReturn.cResponse))
pcIdIncarcare = ''
pnTrimis = 1
Endcase
loReturn.cMesaj = m.pcMesajTrimis + ' ' + m.lcMesajValidare
Else
pcMesajTrimis = ' Eroare transmitere - Http Status: ' + Transform(loReturn.nStatus) + ' Http Response: ' + Alltrim(Transform(loReturn.cResponse)) + ' ' + loReturn.cResponse
pcMesajTrimis = 'Eroare de comunicare cu ANAF - Http Status: ' + Transform(loReturn.nStatus) + IIF(loReturn.nStatus = 403, ' (token expirat - regenerati token-ul)', '') + '. Raspuns: ' + Alltrim(Transform(loReturn.cResponse))
loReturn.cResponse = pcMesajTrimis
loReturn.cMesaj = m.pcMesajTrimis + ' ' + m.lcMesajValidare
This.Log(loReturn.cResponse)
@@ -1322,7 +1322,8 @@ https://api.anaf.ro/<<Iif(m.llTest, [test], [prod])>>/FCTEL/rest/listaMesajePagi
EXIT
ENDIF
llSucces = This.SaveFile(loHttp.ResponseText, .T.,This.cSaveLogsPath,'response_json_' + TTOC(Datetime(),1) + '.txt')
*!* logul json e optional: esecul lui nu e esecul descarcarii (altfel mesaj gol "(nimic)")
This.SaveFile(loHttp.ResponseText, .T.,This.cSaveLogsPath,'response_json_' + TTOC(Datetime(),1) + '.txt')
TRY
loJson = nfjsonread(loHTTP.ResponseText)
@@ -3182,14 +3183,14 @@ select id, id_efactura, nr, articol, descriere, detalii, cantitate, um, pret, pr
Case !EMPTY(m.lcErrorMessage)
pcIdIncarcare = ''
pnTrimis = 1
pcMesajTrimis = m.pcMesajTrimis + Iif(This.lTest, 'TEST ', '') + 'Eroare. ' + m.lcErrorMessage
pcMesajTrimis = m.pcMesajTrimis + 'ANAF a respins incarcarea: ' + m.lcErrorMessage
Case [VALID] $ Upper(loReturn.cResponse)
pcIdIncarcare = ''
pnTrimis = 0
pcMesajTrimis = m.pcMesajTrimis + loReturn.cResponse
Otherwise
pcMesajTrimis = m.pcMesajTrimis + Iif(This.lTest, 'TEST ', '') + 'Eroare. ' + m.lcErrorMessage
pcMesajTrimis = m.pcMesajTrimis + 'Raspuns ANAF neasteptat (fara status): ' + Alltrim(Transform(loReturn.cResponse))
pcIdIncarcare = ''
pnTrimis = 1
Endcase