* 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 **PRIMA** in lista SET PROCEDURE, INAINTEA fisierelor aplicatiei: la nume duplicat
* de procedura, VFP foloseste fisierul cautat PRIMUL, nu cel deschis cel mai recent (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).
* Deci nu e de ajuns un SET PROCEDURE ... ADDITIVE la final; lista se reconstruieste cu mock-ul
* in fata:
*   lcProcExistent = SET("PROCEDURE")
*   SET PROCEDURE TO "<cale>\mock_amessagebox.prg", &lcProcExistent
* Logheaza apelul (dovada rezolutiei).
* LIMITA 1: 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.
* LIMITA 2: nu acopera dialogurile de eroare ale lui goExecutor: o interogare gresita tot agata
* rularea headless, fara nicio linie in log.
* 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