|
|
@@ -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
|
