Marius Mutu
4040cff4f1
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01WsxyCHJYL6W9MZ6FPnH8ax
64 lines
2.8 KiB
Plaintext
64 lines
2.8 KiB
Plaintext
* test7_raspunsuri_dupa_upload.prg - ANAF TEST (acord Marius 19.09): upload storno SSS 1156-S4, apoi imediat
|
|
* Raspunsuri "Ultima zi" (efactura_client -> Run(1, .F.)), ca sa prindem mesajul "(nimic)".
|
|
* AMESSAGEBOX mock: textul exact ajunge in log. goLog redirectat in test7_..._golog.txt.
|
|
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 + "test7_raspunsuri_dupa_upload_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 + "test7_raspunsuri_dupa_upload_golog.txt"
|
|
STRTOFILE('', goLog.cLogFile)
|
|
|
|
LOCAL lcFile, loAnaf, loRet, loAnaf2, llSucces
|
|
lcFile = gcDir + "out\storno_SSS 1156-S4_1879855.xml"
|
|
loAnaf = CREATEOBJECT('AnafeFacturaServer', .F., '', gcS, '')
|
|
loAnaf.lTest = .T.
|
|
loAnaf.RefreshTokenAuto()
|
|
IF !loAnaf.lTest OR EMPTY(loAnaf.cToken) OR !(ALLTRIM(loAnaf.cCodFiscal) == '1879855') OR !FILE(lcFile)
|
|
DO PrLogLocal WITH 'BLOCAT: garzi (lTest/token/CIF/fisier)'
|
|
QUIT
|
|
ENDIF
|
|
DO PrLogLocal WITH '=== UPLOAD 1/1 pe TEST: SSS 1156-S4 ==='
|
|
loRet = loAnaf.TrimiteFacturaXML(lcFile, .F., .F., .F., .F., .F.)
|
|
DO PrLogLocal WITH 'upload: status=' + TRANSFORM(loRet.nStatus) + ' idIncarcare=' + ALLTRIM(NVL(loRet.cIdIncarcare,'')) + ' mesaj=[' + ALLTRIM(NVL(loRet.cMesaj,'')) + ']'
|
|
|
|
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
|