Q5/ws_objects/Ew_bsnobj.pbl.src/f_moneyid_native.srf

$PBExportHeader$f_moneyid_native.srf
global type f_moneyid_native from function_object
end type

forward prototypes
global function long f_moneyid_native ()
end prototypes

global function long f_moneyid_native ();Long ll_moneyid

SELECT moneyid INTO :ll_moneyid
	FROM cw_currency
	Where native = 1;
IF sqlca.SQLCode <> 0 THEN ll_moneyid = -1

RETURN ll_moneyid
end function