* mock_amessagebox.prg - inlocuieste FUNCTION amessagebox (din oproceduri_comune.prg) in teste,
* ca dialogurile modale de confirmare sa NU blocheze testul headless. Returneaza 6 (Da/OK) implicit.
* Se incarca cu SET PROCEDURE ... ADDITIVE **PRIMA**, INAINTEA fisierelor aplicatiei: la nume
* duplicat de procedura VFP foloseste fisierul cautat PRIMUL (verificat empiric - vezi
* COMUN\docs\testare-ui-vfp.md capcana g si antetul lui partener_anaf\mock_anaf_verificare.prg).
* 23.08.2026: antetul spunea pana acum "ULTIMA", ceea ce e invers si a costat o rulare blocata
* pe un dialog modal (test_e2e_anaf_firma). Logheaza apelul (dovada rezolutiei).
* LIMITA: nu acopera sigur apelurile INTRA-FISIER. `verifica_partener_show_info` si `amessagebox`
* sunt amandoua in oproceduri_comune.prg, deci dialogul acelei functii ramane modal chiar cu
* mock-ul incarcat; pentru el exista partener_anaf\mock_verifica_partener_show_info.prg.
* Configurabil per apel: daca testul declara PUBLIC gnMockRaspuns (implicit 6 daca nedeclarata),
* mock-ul returneaza acea valoare - necesar pt. meniuri cu raspunsuri diferite (6/7/2) pe acelasi
* dialog (ex. do_sterge/do_copiaza_nota, flag 3+32 Yes/No/Cancel).
* gnMockRaspunsTotal (PUBLIC, optional): cand testul declara aceasta variabila SUPLIMENTARA si
* mesajul primit contine "Actualizati totalul facturii" (runda25, Grid1.cSuma/cSumaVal.Valid),
* mock-ul raspunde cu ACEASTA valoare in loc de gnMockRaspuns - necesar cand doua dialoguri
* diferite (recalculare suma in lei / actualizare total factura) apar in ACELASI apel de metoda
* si trebuie sa primeasca raspunsuri diferite (ex. Da la primul, Nu la al doilea).
* gcMockUltimMesaj / gnMockUltimTip (PUBLIC, optional): daca testul declara gcMockUltimMesaj ca
* sir, mock-ul memoreaza in ele mesajul si tipul ultimului apel - pentru aserti pe TEXTUL dialogului.
FUNCTION amessagebox
	LPARAMETERS tcMessage, tnDialogBoxType, tcTitle, tcFont, tnTimeOut, tnTimeoutValue
	LOCAL lnRaspuns
	IF TYPE('gnMockRaspunsTotal') = 'N' AND 'Actualizati totalul facturii' $ tcMessage
		lnRaspuns = gnMockRaspunsTotal
	ELSE
		lnRaspuns = IIF(TYPE('gnMockRaspuns') = 'N', gnMockRaspuns, 6)
	ENDIF
	IF TYPE('gcMockUltimMesaj') = 'C'
		gcMockUltimMesaj = TRANSFORM(tcMessage)
		gnMockUltimTip = IIF(TYPE('tnDialogBoxType') = 'N', tnDialogBoxType, 0)
	ENDIF
	IF TYPE('gcUILog') = 'C'
		DO HarnessLog WITH 'MOCK amessagebox apelat: [' + ALLTRIM(TRANSFORM(tcMessage)) + '] -> returnez ' + TRANSFORM(lnRaspuns)
	ENDIF
	RETURN lnRaspuns
ENDFUNC