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

teste storno eFactura: unitare (StornoEFacturaXML), e2e headless borderou->forma storno->trimitere pe mock, test4 ANAF TEST, fixturi anonimizate

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-18 19:48:32 +03:00
parent 45aad0f07c
commit b851051c44
16 changed files with 1478 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
utile/Teste/storno/extract_fixture_3795.prg Normal file
View File

@@ -0,0 +1,49 @@
* extract_fixture_3795.prg
* Extrage xml-ul original al randului ANAF_EFACTURA.ID = 3795 (MARIUSM_AUTO) prin
* GetXmlOriginalEFactura, pentru anonimizare si salvare ca fixtura de test (storno diacritice reale).
* Rulare: vfp9.exe -A -T "D:\ROA\ROACONT\COMUN\utile\Teste\storno\extract_fixture_3795.prg"
* Iesire: D:\ROA\ROACONT\COMUN\utile\Teste\storno\_raw_3795.xml + _raw_3795_log.txt
SET SAFETY OFF
SET TALK OFF
CLOSE DATABASES
PUBLIC gcUILog
gcUILog = "D:\ROA\ROACONT\COMUN\utile\Teste\storno\_raw_3795_log.txt"
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13) + CHR(10), gcUILog)
ON ERROR DO PrErrLocal WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
ON SHUTDOWN QUIT
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 esuata'
QUIT
ENDIF
LOCAL lcXml, lcMesaj, llSucces
llSucces = GetXmlOriginalEFactura(3795, @lcXml, @lcMesaj)
DO PrLogLocal WITH 'GetXmlOriginalEFactura(3795) = ' + TRANSFORM(llSucces) + ' mesaj=[' + m.lcMesaj + '] len=' + TRANSFORM(LEN(m.lcXml))
IF m.llSucces
STRTOFILE(m.lcXml, "D:\ROA\ROACONT\COMUN\utile\Teste\storno\_raw_3795.xml")
DO PrLogLocal WITH 'salvat _raw_3795.xml'
ENDIF
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 + 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