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

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01WsxyCHJYL6W9MZ6FPnH8ax

utile/Teste/storno/mock_amessagebox_storno.prg

@@ -0,0 +1,27 @@
+* 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