* 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