* mock_validare_antet.prg - pentru test_s3_validare_antet.prg: inlocuieste amessagebox si facturi_duplicate
* (ambele din oproceduri_comune.prg) cu functii care inregistreaza apelul (text + tip + titlu, respectiv
* cont + serie + numar) in gcMockApeluri (PUBLIC, declarat de test) si intorc valori programate:
*   amessagebox       -> gnMockRaspuns (PUBLIC; implicit 6)
*   facturi_duplicate -> gcMockDuplicat (PUBLIC; implicit "" = fara dubluri; netrivial = simuleaza dubluri)
* Se pune PRIMUL in SET PROCEDURE (la nume duplicat castiga primul fisier din lista).

PROCEDURE MockJurnal
	LPARAMETERS tcLinie
	IF TYPE('gcMockApeluri') = 'C'
		gcMockApeluri = gcMockApeluri + tcLinie + CHR(13) + CHR(10)
	ENDIF
ENDPROC

FUNCTION amessagebox
	LPARAMETERS tcMessage, tnDialogBoxType, tcTitle, tcFont, tnTimeOut, tnTimeoutValue
	LOCAL lnRaspuns
	lnRaspuns = IIF(TYPE('gnMockRaspuns') = 'N', gnMockRaspuns, 6)
	DO MockJurnal WITH "amessagebox([" + STRTRAN(TRANSFORM(tcMessage), CHR(13), "|") + "]," + TRANSFORM(tnDialogBoxType) + ",[" + TRANSFORM(tcTitle) + "]) -> " + TRANSFORM(lnRaspuns)
	RETURN lnRaspuns
ENDFUNC

FUNCTION facturi_duplicate
	LPARAMETERS tcCont, tnIdFact, tcSerie, tnNumar, tcAltele
	LOCAL lcR
	lcR = IIF(TYPE('gcMockDuplicat') = 'C', gcMockDuplicat, "")
	DO MockJurnal WITH "facturi_duplicate(" + TRANSFORM(tcCont) + "," + TRANSFORM(tnIdFact) + ",[" + TRANSFORM(tcSerie) + "]," + TRANSFORM(tnNumar) + ") -> [" + lcR + "]"
	RETURN lcR
ENDFUNC