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

50
utile/Teste/storno/test8_raspunsuri_fara_nimic.prg Normal file
View File

@@ -0,0 +1,50 @@
* test8_raspunsuri_fara_nimic.prg - verificare fix SaveFile log json: doar Raspunsuri "Ultima zi" pe TEST (fara upload).
* Asteptat: niciun AMESSAGEBOX, Run llSucces=.T.
SET SAFETY OFF
SET TALK OFF
SET DELETED ON
SET CENTURY ON
SET DATE DMY
CLOSE DATABASES
PUBLIC gcUILog, gcDir, gnAmsgCalls, gaAmsgCalls[1,2]
gnAmsgCalls = 0
gcDir = "D:\ROA\ROACONT\COMUN\utile\Teste\storno\"
gcUILog = gcDir + "test8_raspunsuri_fara_nimic_log.txt"
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13) + CHR(10), gcUILog)
ON ERROR DO PrErrLocal WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
ON SHUTDOWN QUIT
SET PROCEDURE TO (gcDir + 'mock_amessagebox_storno.prg') ADDITIVE
TRY
DO "D:\ROA\ROACONT\COMUN\utile\Teste\test_init_env_auto.prg" WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
IF gnHandle <= 0
DO PrLogLocal WITH 'FAIL: conectare Oracle'
QUIT
ENDIF
goLog.cLogFile = gcDir + "test8_raspunsuri_fara_nimic_golog.txt"
STRTOFILE('', goLog.cLogFile)
LOCAL loAnaf2, llSucces
DO PrLogLocal WITH '=== RASPUNSURI ultima zi (efactura_client 1, .F., .T.) ==='
loAnaf2 = CREATEOBJECT('AnafeFacturaServer', .F., '', gcS, '')
loAnaf2.lTest = .T.
llSucces = loAnaf2.Run(1, .F.)
DO PrLogLocal WITH 'Run: llSucces=' + TRANSFORM(llSucces) + ' lError=' + TRANSFORM(loAnaf2.lError) + ' cErrorMessage=[' + TRANSFORM(loAnaf2.cErrorMessage) + '] cSaveLogsPath=[' + TRANSFORM(loAnaf2.cSaveLogsPath) + '] dirExista=' + TRANSFORM(DIRECTORY(loAnaf2.cSaveLogsPath))
DO PrLogLocal WITH 'AMESSAGEBOX apeluri: ' + TRANSFORM(gnAmsgCalls)
DO PrLogLocal WITH 'TOTAL: terminat'
CATCH TO loEx
DO PrLogLocal WITH 'EXCEPTIE: ' + loEx.Message + ' (' + TRANSFORM(loEx.LineNo) + ') ' + loEx.Procedure
ENDTRY
QUIT
PROCEDURE PrLogLocal
LPARAMETERS tcMsg
LOCAL lcL
SET SAFETY OFF
lcL = IIF(FILE(gcUILog), FILETOSTR(gcUILog), '')
STRTOFILE(lcL + TTOC(DATETIME()) + ' ' + TRANSFORM(tcMsg) + CHR(13) + CHR(10), gcUILog)
ENDPROC
PROCEDURE PrErrLocal
LPARAMETERS tnError, tcMessage, tcProgram, tnLineNo
DO PrLogLocal WITH 'EROARE ' + TRANSFORM(tnError) + ' ' + TRANSFORM(tcMessage) + ' in ' + TRANSFORM(tcProgram) + ' linia ' + TRANSFORM(tnLineNo)
ENDPROC