* 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 ULTIMA cu SET PROCEDURE ... ADDITIVE - in VFP, la nume duplicat de procedura,
* castiga fisierul de proceduri deschis cel mai recent. Logheaza apelul (dovada rezolutiei).
* 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