Marius Mutu
b851051c44
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01WsxyCHJYL6W9MZ6FPnH8ax
28 lines
1.1 KiB
Plaintext
28 lines
1.1 KiB
Plaintext
* mock_amessagebox_storno.prg - mock AMESSAGEBOX specific testului E2E storno
|
|
* (test_storno_e2e.prg). Raspunde diferit dupa continutul mesajului: 1 (OK) la gate-ul
|
|
* initial "genereaza XML-ul de stornare", 6 (Da) la confirmarea "Trimiteti la ANAF",
|
|
* altfel gnMockRaspuns implicit. Logheaza TOATE apelurile in PUBLIC gaAmsgCalls/gnAmsgCalls,
|
|
* utile ca sa vedem daca un guard neasteptat (CIF/luna blocata) a oprit fluxul.
|
|
FUNCTION amessagebox
|
|
LPARAMETERS tcMessage, tnDialogBoxType, tcTitle, tcFont, tnTimeOut, tnTimeoutValue
|
|
LOCAL lnRaspuns
|
|
DO CASE
|
|
CASE 'genereaza XML-ul de stornare' $ tcMessage
|
|
lnRaspuns = 1
|
|
CASE 'Trimiteti la ANAF' $ tcMessage
|
|
lnRaspuns = 6
|
|
OTHERWISE
|
|
lnRaspuns = IIF(TYPE('gnMockRaspuns') = 'N', gnMockRaspuns, 6)
|
|
ENDCASE
|
|
IF TYPE('gnAmsgCalls') = 'N'
|
|
gnAmsgCalls = gnAmsgCalls + 1
|
|
DIMENSION gaAmsgCalls[gnAmsgCalls, 2]
|
|
gaAmsgCalls[gnAmsgCalls, 1] = TRANSFORM(tcMessage)
|
|
gaAmsgCalls[gnAmsgCalls, 2] = lnRaspuns
|
|
ENDIF
|
|
IF TYPE('gcUILog') = 'C'
|
|
DO PrLogLocal WITH 'MOCK amessagebox: [' + LEFT(TRANSFORM(tcMessage), 100) + '] -> ' + TRANSFORM(lnRaspuns)
|
|
ENDIF
|
|
RETURN lnRaspuns
|
|
ENDFUNC
|