Q5/ws_objects/Ew_price.pbl.src/f_getmtrlcusprice.srf

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

forward prototypes
global function integer f_getmtrlcusprice (long arg_moneyid, long arg_mtrlid, long arg_cusid, string arg_unit, string arg_woodcode, string arg_status, string arg_pcode, integer arg_flag, ref decimal arg_price, ref decimal arg_zqrate, ref decimal arg_rate, ref string arg_msg)
end prototypes

global function integer f_getmtrlcusprice (long arg_moneyid, long arg_mtrlid, long arg_cusid, string arg_unit, string arg_woodcode, string arg_status, string arg_pcode, integer arg_flag, ref decimal arg_price, ref decimal arg_zqrate, ref decimal arg_rate, ref string arg_msg);int rslt = 1
uo_cusprice uo_cus_price
uo_cus_price = create uo_cusprice

//rslt = uo_cus_price.uf_getmtrlcusprice(arg_moneyid,arg_mtrlid,arg_unit,arg_woodcode,arg_status,arg_pcode,arg_cusid,arg_flag,arg_price,arg_zqrate,arg_rate,arg_msg)
rslt = uo_cus_price.uof_get_mtrl_saleprice(arg_moneyid,arg_cusid,arg_mtrlid,arg_unit,arg_woodcode,arg_status,arg_pcode,arg_price,arg_zqrate,arg_rate,arg_msg)

destroy uo_cusprice
return rslt
end function