aaa

ws_objects/Ew_buy.pbl.src/f_get_defsptprice.srf

@@ -6,8 +6,9 @@ forward prototypes
 global function integer f_get_defsptprice (long arg_sptid, long arg_mtrlid, string arg_unit, string arg_status, string arg_pcode, string arg_woodcode, ref decimal arg_def_dftsptprice)
 end prototypes
 
-global function integer f_get_defsptprice (long arg_sptid, long arg_mtrlid, string arg_unit, string arg_status, string arg_pcode, string arg_woodcode, ref decimal arg_def_dftsptprice);Long rslt = 1
+global function integer f_get_defsptprice (long arg_sptid, long arg_mtrlid, string arg_unit, string arg_status, string arg_pcode, string arg_woodcode, ref decimal arg_def_dftsptprice);Long rslt = 1,a
 Decimal rtn_price
+a = 1
 
 SELECT top 1 fprice
 	INTO :rtn_price