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

teste storno eFactura: e2e runda 2-5, diagnostic ANAF 1814 (E1-E4: validare /prod/ inainte de upload /test/), Raspunsuri (nimic) (test6-8)

Browse Source 
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01WsxyCHJYL6W9MZ6FPnH8ax
This commit is contained in:
Marius Mutu
2026-09-19 22:11:14 +03:00
parent a682e7985b
commit 4040cff4f1
9 changed files with 692 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
utile/Teste/storno/mock_anaf_server_storno.prg
View File

@@ -32,12 +32,28 @@ DEFINE CLASS MockAnafServerStorno AS Custom
LOCAL loReturn
This.RegMock('TrimiteFacturaXML', tcFile, TRANSFORM(tlB2C))
loReturn = CREATEOBJECT('Empty')
ADDPROPERTY(loReturn, 'lSucces', .T.)
ADDPROPERTY(loReturn, 'cIdIncarcare', 'MOCK-ID-STORNO-12345')
ADDPROPERTY(loReturn, 'cMesaj', '')
ADDPROPERTY(loReturn, 'cResponse', '<mock ok/>')
ADDPROPERTY(loReturn, 'nStatus', 200)
ADDPROPERTY(loReturn, 'cFile', TRANSFORM(tcFile))
* gnMockTrimiteMod (test_storno_e2e.prg): 0=succes, 1=ANAF a raspuns clar cu eroare (HTTP 200), 2=eroare de retea (HTTP 0)
DO CASE
CASE TYPE('gnMockTrimiteMod') = 'N' AND gnMockTrimiteMod = 1
ADDPROPERTY(loReturn, 'lSucces', .T.)
ADDPROPERTY(loReturn, 'cIdIncarcare', '')
ADDPROPERTY(loReturn, 'cMesaj', 'TEST ANAF a respins incarcarea: A aparut o eroare tehnica. Cod: 1814')
ADDPROPERTY(loReturn, 'cResponse', '<mock err1814/>')
ADDPROPERTY(loReturn, 'nStatus', 200)
CASE TYPE('gnMockTrimiteMod') = 'N' AND gnMockTrimiteMod = 2
ADDPROPERTY(loReturn, 'lSucces', .F.)
ADDPROPERTY(loReturn, 'cIdIncarcare', '')
ADDPROPERTY(loReturn, 'cMesaj', 'Eroare de comunicare cu ANAF - Http Status: 0. Raspuns: ')
ADDPROPERTY(loReturn, 'cResponse', '')
ADDPROPERTY(loReturn, 'nStatus', 0)
OTHERWISE
ADDPROPERTY(loReturn, 'lSucces', .T.)
ADDPROPERTY(loReturn, 'cIdIncarcare', 'MOCK-ID-STORNO-12345')
ADDPROPERTY(loReturn, 'cMesaj', '')
ADDPROPERTY(loReturn, 'cResponse', '<mock ok/>')
ADDPROPERTY(loReturn, 'nStatus', 200)
ENDCASE
RETURN loReturn
ENDPROC