Q5/ws_objects/Ew_sale.pbl.src/f_get_mrate.srf

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

forward prototypes
global function decimal f_get_mrate (long arg_moneyid)
end prototypes

global function decimal f_get_mrate (long arg_moneyid);decimal rslt_rate
rslt_rate = 0
select rate 
into :rslt_rate
from cw_currency
where moneyid = :arg_moneyid;
if sqlca.sqlcode <> 0 then rslt_rate = 0

return rslt_rate
end function