* 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
	RETURN goMockValuta
ENDFUNC