* mock_caut_valuta.prg - inlocuieste caut_valuta (ocautare.prg) fara UI/Oracle.
* Incarcat cu SET PROCEDURE ADDITIVE INAINTE de "ocautare" (castiga primul incarcat, capcana g).
* Obiectul de rezultat (PUBLIC goMockValuta) e construit INLINE in programul principal
* (capcana l: CREATEOBJECT/ADDPROPERTY nu merg corect apelate dintr-o procedura in acest runtime).
FUNCTION caut_valuta
	LPARAMETERS tnPornire, tlDesktop, tlFaraMonedaNationala
	LOCAL loRezultat
	IF TYPE('goMockValutaCoada') = 'O' AND !ISNULL(goMockValutaCoada) AND goMockValutaCoada.Count > 0
		loRezultat = goMockValutaCoada.Item(1)
		goMockValutaCoada.Remove(1)
		RETURN loRezultat
	ENDIF
	RETURN goMockValuta
ENDFUNC
