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

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

forward prototypes
global function integer f_getmtrlsptprice (long arg_sptid, long arg_mtrlid, ref string arg_unit, string arg_status, string arg_woodcode, 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_getmtrlsptprice (long arg_sptid, long arg_mtrlid, ref string arg_unit, string arg_status, string arg_woodcode, 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_spt_price uo_sptprice
uo_sptprice = create uo_spt_price

//rslt = uo_sptprice.uf_getmtrlsptprice(arg_sptid,arg_mtrlid,arg_unit,arg_status,arg_woodcode,arg_pcode,arg_flag,arg_price,arg_zqrate,arg_rate,arg_msg)
rslt = uo_sptprice.uof_get_mtrl_buyprice(arg_sptid,arg_mtrlid,arg_unit,arg_status,arg_woodcode,arg_pcode,arg_flag,arg_price,arg_zqrate,arg_rate,arg_msg)

destroy uo_spt_price
return rslt
end function