FXApp/ws_objects/l1_uo.pbl.src/uo_inware.sru

$PBExportHeader$uo_inware.sru
forward
global type uo_inware from nonvisualobject
end type
end forward

global type uo_inware from nonvisualobject
end type
global uo_inware uo_inware

type variables
Public ProtectedWrite Long scid = 0 //分部id
Public ProtectedWrite Long inwareid //进仓单表自动增量id
Public ProtectedWrite String inwarecode //单据的唯一编号
Public ProtectedWrite Int billtype = 0 //业务类型
//业务类型
//1-采购进仓[记帐模式]
//2-采购进仓[不记帐模式]
//3-成品进仓
//8-其他进仓
//9-盘盈进仓
//12-调拨入仓

Public ProtectedWrite DateTime opdate //建立时间,自动
Public ProtectedWrite String opemp //建立操作员
Public ProtectedWrite DateTime moddate //修改时间,自动
Public ProtectedWrite String modemp //修改操作员
Public ProtectedWrite Int flag = 0 //仓库审核标志
Public ProtectedWrite Int balcflag = 0 //仓库结存标志
Public ProtectedWrite long balcdateint = 0
Public ProtectedWrite DateTime auditingdate //审核时间
Public ProtectedWrite String auditingrep //审核操作员
Public ProtectedWrite Decimal sum_amt = 0 //单据总金额
Public ProtectedWrite Decimal sum_amt_en = 0 //单据总金额

Public ProtectedWrite Decimal sum_taxamt = 0 //单据税额
Public ProtectedWrite Decimal sum_taxamt_en = 0 //单据税额(其它单价)


Public ProtectedWrite Decimal jgsum_amt = 0 //单据加工总金额

Public ProtectedWrite Int secflag = 0 //财务审核标志
Public ProtectedWrite DateTime secauditingdate //二审核时间
Public ProtectedWrite String secauditingrep //二审核操作员
Public ProtectedWrite Long ctmint
Public ProtectedWrite Int priceflag = 0
Public ProtectedWrite String pricerep = ''
Public ProtectedWrite DateTime pricedate

Public ProtectedWrite Int fkflag = 0
Public ProtectedWrite String fkemp = ''
Public ProtectedWrite DateTime fkdate

Long relid = 0 //关联id
Long storageid = 0 //进仓仓库
DateTime indate //进仓发生时间
DateTime plandate //预计付款时间
String inrep = '' //经手人
String part = '' //相关号码
String dscrp = '' //备注
Long sptid = 0 //供应商id
String sptname = '' //供应商名称(不记帐模式使用)
Int dxflag = 0 //代销标记
Int thflag = 0 //退货标记
Decimal otheramt = 0 //单据费用
Long relint_1 = 0
Long relint_2 = 0
Long relint_3 = 0
String relstr_1 = ''
String relstr_2 = ''
String relstr_3 = ''
Long moneyid = 0
Decimal mrate = 1
Long deptid = 0

Boolean lb_ifdelauto = False


Boolean if_getid_ture = True
Transaction  commit_transaction //数据commit事务


s_inwaremx inwaremx[] //明细结构数组
s_inwaremx_mx inwaremx_mx[] //明细结构数组
s_inwaremx_barcode s_mx_barcode[] //明码明细结构数组
s_inware_itemmx inware_itemmx[]
Long it_mxbt = 0 //明细结构数组末指针
Long it_mxbt_mx = 0
Long it_mxbt_barcode = 0 //条码明细结构数组末指针
long it_mxbt_item = 0 
Boolean it_newbegin = False //新建标志
Boolean it_updatebegin = False //修改标志

Boolean if_py_check_barcode = False //仓库不使用条码盘点时,审核单据是否检查明细数量与条码数量
Boolean if_py_update_barcode = False //仓库不使用条码盘点时,审核单据更新条码状态

Int uo_option_inout_type
Int uo_option_barcode_inwareother_paudit,uo_option_barcode_inwarebuy_paudit,uo_option_barcode_inwarecp_paudit
Int uo_option_mtrlware_dscrp
Int uo_option_unit_dec
Int uo_option_buy_zero,uo_option_wfjg_zero
String uo_option_change_status,uo_option_change_woodcode,uo_option_change_pcode
Int uo_option_ifovertask,uo_option_ifovertask_cp
Int uo_option_cost_dec,uo_option_mtrlware_autocmp
Int uo_option_use_clfp
dec uo_option_cp_inware_scll_rate
Int uo_option_barcodelocation_use_inwaremx_location
int uo_option_cost_notax
int uo_option_djqty_check
int uo_option_canpack_ifzanyong
end variables

forward prototypes
public function integer newbegin (long arg_scid, integer arg_billtype, ref string arg_msg)
public function integer save (boolean arg_ifcommit, ref string arg_msg)
public function integer getinfo (long arg_scid, long arg_inwareid, ref string arg_msg)
public function integer updatebegin (long arg_scid, long arg_inwareid, integer arg_billtype, ref string arg_msg)
public function integer auditing (boolean arg_ifcommit, ref string arg_msg)
public function integer del (long arg_scid, long arg_inwareid, ref string arg_msg, boolean arg_ifcommit)
public function integer add_dscrp (long arg_scid, long arg_inwareid, string arg_newdescppart, ref string arg_msg)
public function integer c_auditing (boolean arg_ifcommit, ref string arg_msg)
public function integer p_clearmx ()
public function integer p_getinfo (long arg_scid, long arg_inwareid, ref string arg_msg)
public function integer p_reset ()
public function integer p_rst_mtrlwaredscrp (long arg_scid, long arg_relid, string arg_mxdscrp, ref string arg_msg, ref string arg_ref_dscrp)
public function integer p_update_mtrlware_ws (long arg_mtrlid, string arg_mtrlcode, long arg_storageid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_uqty, decimal arg_price, decimal arg_planprice, long arg_sptid, long arg_dxflag, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, string arg_location, string arg_dscrp, ref string arg_msg)
public function integer uof_ref_assign_plan (long arg_scid, long arg_mtrlwareid, decimal arg_qty, ref s_inwaremx_assign_plan arg_s_ap, ref string arg_msg)
public function integer uof_ref_assign_plan_cancel (string arg_inwarecode, long arg_inprintid, ref s_inwaremx_assign_plan arg_s_ap, ref string arg_msg)
public function integer uof_ref_assign_cancel (string arg_inwarecode, long arg_inprintid, ref s_inwaremx_assign arg_s_a, ref string arg_msg)
public function integer uof_ref_mtrlwareid (long arg_scid, long arg_storageid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, string arg_location, long arg_sptid, string arg_mtrlcuscode, ref long arg_mtrlwareid, ref string arg_msg)
public function integer uof_check_barcodeqty (ref string arg_msg)
public function integer uof_inbarcode_add (integer arg_billtype, long arg_scid, long arg_inwareid, long arg_printid, string arg_barcode, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit)
public function integer c_priceaudit (long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit)
public function integer priceaudit (long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_check_qty_to_bqty (ref string arg_msg)
public function integer uof_set_qty_equal_bqty (long arg_scid, long arg_inwareid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_secaudit (long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_c_secaudit (long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit)
public function integer acceptmx (long arg_printid, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, decimal arg_uqty, decimal arg_enprice, decimal arg_rebate, string arg_mxdscrp, ref string arg_msg, decimal arg_jgprice, long arg_relid, integer arg_ifrel, string arg_woodcode, string arg_pcode, long arg_cusid_sptid, string arg_unit, decimal arg_rate, decimal arg_qty, long arg_relprintid, decimal arg_checkqty, string arg_result, string arg_waredscrp, long arg_relbillid, long arg_relbillprintid, string arg_mtrlcuscode, string arg_location, decimal arg_deliqty, decimal arg_tax)
public function integer uof_update_planprice (long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_fprice, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_ref_assign_plan_plankind (long arg_scid, long arg_mtrlwareid, long arg_plankind, long arg_plankind_relbillid, long arg_plankind_reprintlid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, ref s_inwaremx_assign_plan arg_s_ap, ref string arg_msg)
public function integer uof_del_barcode (long arg_scid, long arg_inwareid, string arg_barcode, ref string arg_msg, boolean arg_ifcommit)
public function integer acceptmx_item (long arg_printid, long arg_itemid, decimal arg_amt, string arg_mxdscrp, ref string arg_msg)
public function integer uof_check_warepdb_audit (long arg_storageid, ref string arg_msg)
public function integer p_update_mtrlwareid_inwaremx (long arg_mtrlwareid, long arg_inwareid, long arg_printid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_disuse (long arg_scid, long arg_inwareid, integer arg_disusetype, ref string arg_msg, boolean arg_ifcommit)
public function integer acceptmx (s_inwaremx s_mx, ref string arg_msg)
public function integer uof_check_scll_rate (long arg_scid, long arg_inwareid, long arg_printid, long arg_relid, long arg_mtrlid, decimal arg_qty, integer arg_ck_if_save_audit, ref string arg_msg)
public function integer uof_p_barcode (integer arg_audittype, ref string arg_msg, s_inwaremx_barcode_fp arg_mxbarcode_fp)
public function integer p_update_mtrlware (long arg_mtrlid, string arg_mtrlcode, long arg_storageid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_uqty, decimal arg_price, decimal arg_planprice, long arg_sptid, integer arg_dxflag, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, string arg_location, string arg_dscrp, integer arg_ifvqty, ref string arg_msg)
public function integer mod_price (long arg_scid, long arg_inwareid, long arg_printid, decimal arg_enprice, decimal arg_jgprice, decimal arg_tax, decimal arg_rebate, ref string arg_msg, boolean arg_ifcommit)
public function integer acceptmx_mx (long arg_printid, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_fprice, decimal arg_rebate, string arg_mxdscrp, ref string arg_msg, string arg_woodcode, string arg_pcode, long arg_cusid_sptid, long arg_mxprintid, string arg_waredscrp, string arg_mtrlcuscode, string arg_location, long arg_ptinwareid, long arg_ptprintid, integer arg_ifnotinout)
end prototypes

public function integer newbegin (long arg_scid, integer arg_billtype, ref string arg_msg);Int rslt = 1

IF arg_scid < 0 THEN
	arg_msg = '请选择分部'
	rslt = 0
	GOTO ext
END IF

IF Not (arg_billtype = 1 OR &
	arg_billtype = 2 OR &
	arg_billtype = 3 OR &
	arg_billtype = 4 OR &
	arg_billtype = 5 OR &
	arg_billtype = 6 OR &
	arg_billtype = 8 OR &
	arg_billtype = 9 OR &
	arg_billtype = 12 OR &
	arg_billtype = 15 OR &
	arg_billtype = 16 OR &
	arg_billtype = 17 or &
	arg_billtype = 18 or &
	arg_billtype = 19 or &
	arg_billtype = 20 or &
	arg_billtype = 21 or &
	arg_billtype = 22 or &
	arg_billtype = 23 or &
	arg_billtype = 24 or &
	arg_billtype = 25 or &
	arg_billtype = 26 or &
	arg_billtype = 27 or &
	arg_billtype = 28) THEN
	rslt = 0
	arg_msg = '此单据类型必须为:'
	arg_msg = arg_msg+'1-采购收货进仓单[记帐模式],'
	arg_msg = arg_msg+'2-采购收货进仓单[不记帐模式],'
	arg_msg = arg_msg+'3-生产进仓单,'
	arg_msg = arg_msg+'4-外协收货进仓单,'
	arg_msg = arg_msg+'5-来料加工收料进仓单,'
	arg_msg = arg_msg+'6-车间生产进仓单,'
	arg_msg = arg_msg+'8-其它进仓单,'
	arg_msg = arg_msg+'9-盘盈进仓单,'
	arg_msg = arg_msg+'12-调拨进仓单,'
	arg_msg = arg_msg+'15-拆装进仓单,'
	arg_msg = arg_msg+'16-生产领料车间自动进仓(不按计划),'
	arg_msg = arg_msg+'17-客户调货进仓单'
	arg_msg = arg_msg+'18-欠货进仓单'
	arg_msg = arg_msg+'19-自动组装进仓单'
	arg_msg = arg_msg+'20-生产领料车间自动进仓单(按计划)'
	arg_msg = arg_msg+'21-车间库存转换自动进仓单'
	arg_msg = arg_msg+'22-库存配置调整单自动进仓单'
	arg_msg = arg_msg+'23-销售发货单发货明细自动进仓单'
	arg_msg = arg_msg+'24-水口料进仓单'
	arg_msg = arg_msg+'25-采购收货单包件明细自动进仓单'
	arg_msg = arg_msg+'26-采购收货包件进仓单'
	arg_msg = arg_msg+'27-采购收货包件结算单'
	arg_msg = arg_msg+'28-员工物品归还单'
	GOTO ext
END IF

p_reset()
billtype = arg_billtype
scid = arg_scid


it_newbegin = TRUE
it_updatebegin = FALSE

ext:
IF rslt = 0 THEN p_reset()
RETURN rslt

end function

public function integer save (boolean arg_ifcommit, ref string arg_msg);Integer rslt = 1
Long cnt = 0,i,cnt_ck,j
String ls_msg
DateTime server_dt
Long ls_newid
String ls_sccode
Int li_ifmrp
Long ll_mtrlid_arr[]
Decimal ld_qty_arr[]
String ls_mtrlcode_arr[]
Long ll_mxcnt = 0
Decimal ld_djqty,ld_noallocqty

IF uo_option_djqty_check = -1000 THEN
	rslt = 0
	arg_msg = '选项:[378]进出仓检查冻结数不能大于库存数,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


IF IsNull(relid) THEN relid = 0
IF IsNull(storageid) THEN storageid = 0
IF IsNull(inrep) THEN inrep = ''
IF IsNull(dscrp) THEN dscrp = ''
IF IsNull(part) THEN part = ''
IF IsNull(sptid) THEN sptid = 0
IF IsNull(sptname) THEN sptname = ''
IF IsNull(dxflag) THEN dxflag = 0
IF IsNull(thflag) THEN thflag = 0

IF IsNull(relint_1) THEN relint_1 = 0
IF IsNull(relint_2) THEN relint_2 = 0
IF IsNull(relint_3) THEN relint_3 = 0

IF IsNull(relstr_1) THEN relstr_1 = ''
IF IsNull(relstr_2) THEN relstr_2 = ''
IF IsNull(relstr_3) THEN relstr_3 = ''

IF IsNull(moneyid) THEN moneyid = 0
IF IsNull(mrate) THEN mrate = 0
IF IsNull(deptid) THEN deptid = 0


IF it_newbegin = False And it_updatebegin = False THEN
	rslt = 0
	arg_msg = "非编辑状态不可以提交"
	GOTO ext
END IF

SELECT Top 1 getdate() Into :server_dt From u_user Using commit_transaction ;
//取得系统时间,借用操作员表
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	GOTO ext
END IF

IF it_mxbt = 0 THEN //如果输入物料资料错则已经清空
	rslt = 0
	arg_msg = "没有正确进仓内容"
	GOTO ext
END IF

cnt = 0
//检查仓库
SELECT count(*)
	INTO :cnt
	FROM u_storage
	Where u_storage.storageid = :storageid Using commit_transaction  ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,仓库"
	GOTO ext
END IF
IF cnt = 0 THEN
	rslt = 0
	arg_msg = "错误的仓库编号: "+String(storageid)
	GOTO ext
END IF

String ls_storagename
Int li_mustloca
SELECT storagename,mustloca,ifmrp
	INTO :ls_storagename,:li_mustloca,:li_ifmrp
	FROM u_storage
	Where storageid = :storageid Using commit_transaction  ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,仓库"
	GOTO ext
END IF

//检查是否有该仓库的建立权限
IF Not (billtype = 16 Or billtype = 20) THEN
	IF sys_user_storagestr_new <> '0' THEN
		IF Pos(sys_user_storagestr_new,','+String(storageid)+',') <= 0 THEN
			rslt = 0
			arg_msg = '没有仓库: '+ls_storagename+' 的建立权限,不允许建立该仓库的单据'
			GOTO ext
		END IF
	END IF
END IF

//
String ls_msg_loca
Long ll_cnt_loca
ll_cnt_loca = 0
IF li_mustloca = 1 And thflag = 0 And billtype <> 23 THEN
	FOR i = 1 To it_mxbt
		IF Trim(inwaremx[i].Location) = '' THEN
			ll_cnt_loca++
			IF ll_cnt_loca <= 10 THEN
				IF Trim(ls_msg_loca) = '' THEN
					ls_msg_loca = ls_msg_loca + String(i)
				ELSE
					ls_msg_loca = ls_msg_loca + ','+String(i)
				END IF
			END IF
		END IF
	NEXT
	
	IF ll_cnt_loca > 0 THEN
		rslt = 0
		IF ll_cnt_loca <= 10 THEN
			arg_msg = '仓库属性已设为仓位必填'+'~r~n'+'明细中第'+ls_msg_loca+'行没有填仓位,请检查'
		ELSE
			arg_msg = '仓库属性已设为仓位必填'+'~r~n'+'其中第'+ls_msg_loca+'等'+String(ll_cnt_loca)+'行明细没有填仓位,请详细检查'
		END IF
		
		GOTO ext
	END IF
END IF


IF Year(Date(indate)) < 2000 Or IsNull(indate) THEN
	rslt = 0
	arg_msg = "缺少进仓发生时间或不合理"
	GOTO ext
END IF

Boolean lb_chk_balc = True
IF sys_option_warebalc_checksale = 0 And  billtype = 23  THEN //临时的,详见系统选项152
	lb_chk_balc = False
END IF
IF f_check_inoutdate(storageid,indate,lb_chk_balc,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF


IF billtype = 1 Or billtype = 4 Or billtype = 26 Or billtype = 27 THEN
	SELECT name INTO :sptname
		FROM u_spt
		Where sptid = :sptid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,供应商资料"
		GOTO ext
	END IF
	
	IF billtype = 1 THEN
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM cw_currency
			Where moneyid = :moneyid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '查询币种失败'
			rslt = 0
			GOTO ext
		END IF
		
		IF cnt = 0 THEN
			arg_msg = '币种资料不存在'
			rslt = 0
			GOTO ext
		END IF
		
		IF mrate = 0 THEN
			arg_msg = '币种汇率错误'
			rslt = 0
			GOTO ext
		END IF
		
	END IF
	
	IF billtype = 1 Or billtype = 27 THEN
		//		IF relint_1 = 0 THEN
		//			arg_msg = '请选择结算方式'
		//			rslt = 0
		//			GOTO ext
		//		END IF
		
		plandate = f_findspt_paydate(sptid,indate)
	END IF
ELSEIF billtype = 5 THEN //来料加工收料单
	SELECT name INTO :sptname
		FROM u_cust
		Where cusid = :sptid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,客户资料"
		GOTO ext
	END IF
ELSEIF billtype = 6 THEN //车间生产进仓单
	IF relid = 0 THEN
		arg_msg = '请选择车间'
		rslt = 0
		GOTO ext
	END IF
	
	Long ll_storageid_ws
	
	SELECT storageid INTO :ll_storageid_ws
		FROM u_sc_wkp
		Where wrkGrpid = :relid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作车间对应仓库资料失败,"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	IF ll_storageid_ws <> storageid THEN
		rslt = 0
		arg_msg = "车间对应仓库资料与单据仓库资料不相符,请检查"
		GOTO ext
	END IF
ELSEIF billtype = 8 THEN
	IF Trim(sptname) = '' Or IsNull(sptname) THEN
		rslt = 0
		arg_msg = "请输入进仓原因!"
		GOTO ext
	END IF
END IF

IF billtype = 3 THEN
	IF uo_option_cp_inware_scll_rate = 2 THEN
		FOR i = 1 To it_mxbt
			IF inwaremx[i].relid > 0 THEN
				IF uof_check_scll_rate(scid,inwareid,inwaremx[i].printid,inwaremx[i].relid,inwaremx[i].mtrlid,inwaremx[i].qty,0,arg_msg) = 0 THEN
					cnt_ck++
					ls_msg += '行:'+String(i)+',指令单号:'+inwaremx[i].relcode + ','+arg_msg+'~r~n'
				END IF
			END IF
		NEXT
		
		IF cnt_ck > 0 THEN
			arg_msg = ls_msg
			rslt = 0
			GOTO ext
		END IF
	END IF
END IF


//如果是修改,则增加到废弃单
IF billtype = 1 And inwareid > 0 And sys_option_disuse_inware_buy = 1  THEN
	IF uof_disuse(scid,inwareid,0,arg_msg,False) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF

//检查冻结数
IF uo_option_djqty_check = 1 And li_ifmrp = 1 THEN
	FOR i = 1 To it_mxbt
		FOR j = 1 To ll_mxcnt
			IF inwaremx[i].mtrlid = ll_mtrlid_arr[j] THEN
				ld_qty_arr[j] = ld_qty_arr[j] + inwaremx[i].qty
				GOTO _next_mx
			END IF
		NEXT
		
		ll_mxcnt++
		ll_mtrlid_arr[ll_mxcnt] = inwaremx[i].mtrlid
		ld_qty_arr[ll_mxcnt] = inwaremx[i].qty
		ls_mtrlcode_arr[ll_mxcnt] = inwaremx[i].mtrlcode
		_next_mx:
	NEXT
	
	FOR i = 1 To ll_mxcnt
		SELECT SUM(u_OrderRqMtrl_scll.wareqty - u_OrderRqMtrl_scll.DstrQty  + isnull(uv_outware_scll_back.qty,0) )
			INTO :ld_djqty
			FROM u_OrderRqMtrl_scll INNER JOIN
			u_Order_ml ON u_OrderRqMtrl_scll.OrderID = u_Order_ml.OrderID LEFT OUTER JOIN
			uv_outware_scll_back ON u_OrderRqMtrl_scll.scid = uv_outware_scll_back.scid AND
			u_OrderRqMtrl_scll.OrderID = uv_outware_scll_back.relid AND
			u_OrderRqMtrl_scll.MtrlID = uv_outware_scll_back.mtrlid AND
			u_OrderRqMtrl_scll.status = uv_outware_scll_back.status AND
			u_OrderRqMtrl_scll.woodcode = uv_outware_scll_back.woodcode AND
			u_OrderRqMtrl_scll.pcode = uv_outware_scll_back.pcode
			WHERE (u_OrderRqMtrl_scll.wareqty <> 0) AND (u_Order_ml.Status NOT IN (3,5,6))
			AND u_OrderRqMtrl_scll.wareqty - u_OrderRqMtrl_scll.DstrQty   + isnull(uv_outware_scll_back.qty,0) > 0
			AND u_OrderRqMtrl_scll.MtrlID = :ll_mtrlid_arr[i]
			And u_OrderRqMtrl_scll.scid = :scid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			ld_djqty = 0
		END IF
		
		IF IsNull(ld_djqty) THEN ld_djqty = 0
		
		SELECT SUM(u_mtrlware.noallocqty)
			INTO :ld_noallocqty
			FROM u_mtrlware INNER JOIN
			u_storage ON u_mtrlware.storageid = u_storage.storageid
			WHERE (u_storage.inuse = 1)
			AND u_storage.ifmrp = 1
			AND u_mtrlware.mtrlid = :ll_mtrlid_arr[i]
			And u_mtrlware.scid = :scid  Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			ld_noallocqty = 0
		END IF
		
		IF IsNull(ld_noallocqty) THEN ld_noallocqty = 0
		
		IF ld_djqty > ld_noallocqty + ld_qty_arr[i] THEN
			rslt = 0
			arg_msg = '物料['+ls_mtrlcode_arr[i]+']冻结数不能大于库存数,冻结数:'+String(ld_djqty,'#,##0.##########')+',库存数:'+String(ld_noallocqty,'#,##0.##########')+',本次进仓数:'+String(ld_qty_arr[i],'#,##0.##########')
			GOTO ext
		END IF
	NEXT
END IF

////////////////////////////////////////////// //开始区分:新建/更新 处理
IF inwareid = 0 THEN //新建
	ls_newid = f_sys_scidentity(scid,"u_inware","inwareid",arg_msg,True,id_sqlca)
	IF ls_newid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	//取分部代号
	IF f_get_sccode(scid,commit_transaction,ls_sccode,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	//取得新单据编号	
	CHOOSE CASE billtype
		CASE 1,2
			IF thflag = 0 THEN
				inwarecode = getid(scid,ls_sccode + 'CG',Date(server_dt),if_getid_ture,commit_transaction)
			ELSE
				inwarecode = getid(scid,ls_sccode + 'CT',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
		CASE 3
			IF relint_2 = 0 THEN
				inwarecode = getid(scid,ls_sccode + 'CP',Date(server_dt),if_getid_ture,commit_transaction)
			ELSEIF relint_2 = 1 THEN
				inwarecode = getid(scid,ls_sccode + 'CF',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
		CASE 4
			IF thflag = 0 THEN
				inwarecode = getid(scid,ls_sccode + 'WN',Date(server_dt),if_getid_ture,commit_transaction)
			ELSE
				inwarecode = getid(scid,ls_sccode + 'WH',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
		CASE 5
			IF thflag = 0 THEN
				inwarecode = getid(scid,ls_sccode + 'JI',Date(server_dt),if_getid_ture,commit_transaction)
			ELSE
				inwarecode = getid(scid,ls_sccode + 'JT',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
		CASE 6
			inwarecode = getid(scid,ls_sccode + 'WP',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 8
			inwarecode = getid(scid,ls_sccode + 'JC',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 9
			inwarecode = getid(scid,ls_sccode + 'PY',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 12
			inwarecode = getid(scid,ls_sccode + 'IC',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 15
			inwarecode = getid(scid,ls_sccode + 'DC',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 16
			inwarecode = getid(scid,ls_sccode + 'LI',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 17
			inwarecode = getid(scid,ls_sccode + 'MI',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 18
			inwarecode = getid(scid,ls_sccode + 'OI',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 19
			inwarecode = getid(scid,ls_sccode + 'IA',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 20
			inwarecode = getid(scid,ls_sccode + 'CI',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 21
			inwarecode = getid(scid,ls_sccode + 'IW',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 22
			inwarecode = getid(scid,ls_sccode + 'TI',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 23
			inwarecode = getid(scid,ls_sccode + 'BI',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 24
			inwarecode = getid(scid,ls_sccode + 'KJ',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 25
			inwarecode = getid(scid,ls_sccode + 'HI',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 26
			inwarecode = getid(scid,ls_sccode + 'BP',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 27
			inwarecode = getid(scid,ls_sccode + 'CJ',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 28
			inwarecode = getid(scid,ls_sccode + 'GH',Date(server_dt),if_getid_ture,commit_transaction)
	END CHOOSE
	
	IF inwarecode = "err" Or inwarecode = '' THEN
		inwarecode = ''
		rslt = 0
		arg_msg = "无法获取进仓单编号"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	INSERT INTO u_inware (
		scid,
		inwareid,
		inwarecode,
		billtype,
		relid,
		storageid,
		indate,
		plandate,
		inrep,
		part,
		dscrp,
		sptid,
		sptname,
		thflag,
		dxflag,
		otheramt,
		opdate,
		opemp,
		relint_1,
		relint_2,
		relint_3,
		relstr_1,
		relstr_2,
		relstr_3,
		moneyid,
		mrate,
		deptid)
		VALUES (
		:scid,
		:ls_newid,
		:inwarecode,
		:billtype,
		:relid,
		:storageid,
		:indate,
		:plandate,
		:inrep,
		:part,
		:dscrp,
		:sptid,
		:sptname,
		:thflag,
		:dxflag,
		:otheramt,
		:server_dt,
		:publ_operator,
		:relint_1,
		:relint_2,
		:relint_3,
		:relstr_1,
		:relstr_2,
		:relstr_3,
		:moneyid,
		:mrate,
		:deptid) Using commit_transaction ;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "因网络或其它原因导致插入操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	//读取新inwareid
	inwareid = ls_newid
	
	FOR i = 1 To it_mxbt
		INSERT INTO u_inwaremx
			(scid,
			inwareid,
			printid,
			mtrlid,
			plancode,
			status,
			qty,
			fprice,
			rebate,
			price,
			planprice,
			mxdscrp,
			jgprice,
			relid,
			ifrel,
			woodcode,
			relcode,
			pcode,
			sptid_cusid,
			cost,
			sptmtrlname,
			unit,
			rate,
			uprice,
			uqty,
			bootqty,
			noauditqty,
			relprintid,
			checkqty,
			result,
			waredscrp,
			relbillid,
			relbillprintid,
			relbillcode,
			mtrlcuscode,
			location,
			enprice,
			capacity,
			enprice_tax,
			enprice_notax,
			deliqty,
			tax,
			deliprice_notax,
			newprice,
			Thptype,
			jgdscrp,
			ifvqty,
			ifnotinout)
			VALUES (
			:scid,
			:ls_newid,
			:inwaremx[i].printid,
			:inwaremx[i].mtrlid,
			:inwaremx[i].plancode,
			:inwaremx[i].status,
			:inwaremx[i].qty,
			:inwaremx[i].fprice,
			:inwaremx[i].rebate,
			:inwaremx[i].price,
			:inwaremx[i].planprice,
			:inwaremx[i].mxdscrp,
			:inwaremx[i].jgprice,
			:inwaremx[i].relid,
			:inwaremx[i].ifrel,
			:inwaremx[i].woodcode,
			:inwaremx[i].relcode,
			:inwaremx[i].pcode,
			:inwaremx[i].sptid,
			:inwaremx[i].cost,
			:inwaremx[i].sptmtrlname,
			:inwaremx[i].unit,
			:inwaremx[i].rate,
			:inwaremx[i].uprice,
			:inwaremx[i].uqty,
			:inwaremx[i].bootqty,
			:inwaremx[i].noauditqty,
			:inwaremx[i].relprintid,
			:inwaremx[i].checkqty,
			:inwaremx[i].result,
			:inwaremx[i].waredscrp,
			:inwaremx[i].relbillid,
			:inwaremx[i].relbillprintid,
			:inwaremx[i].relbillcode,
			:inwaremx[i].mtrlcuscode,
			:inwaremx[i].Location,
			:inwaremx[i].enprice,
			:inwaremx[i].capacity,
			:inwaremx[i].enprice_tax,
			:inwaremx[i].enprice_notax,
			:inwaremx[i].deliqty,
			:inwaremx[i].tax,
			:inwaremx[i].deliprice_notax,
			:inwaremx[i].newprice,
			:inwaremx[i].Thptype,
			:inwaremx[i].jgdscrp,
			:inwaremx[i].ifvqty,
			:inwaremx[i].ifnotinout) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			inwareid = 0 //还原inwareid
			rslt = 0
			arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
	NEXT
	
	FOR i = 1 To it_mxbt_mx
		INSERT INTO u_inwaremx_mx
			(scid,
			inwareid,
			printid,
			mtrlid,
			plancode,
			status,
			qty,
			fprice,
			rebate,
			price,
			mxdscrp,
			woodcode,
			pcode,
			sptid_cusid,
			mxprintid,
			waredscrp,
			mtrlcuscode,
			location,
			ptinwareid,
			ptprintid,
			ptinwarecode,
			ifnotinout)
			VALUES (
			:scid,
			:ls_newid,
			:inwaremx_mx[i].printid,
			:inwaremx_mx[i].mtrlid,
			:inwaremx_mx[i].plancode,
			:inwaremx_mx[i].status,
			:inwaremx_mx[i].qty,
			:inwaremx_mx[i].fprice,
			:inwaremx_mx[i].rebate,
			:inwaremx_mx[i].price,
			:inwaremx_mx[i].mxdscrp,
			:inwaremx_mx[i].woodcode,
			:inwaremx_mx[i].pcode,
			:inwaremx_mx[i].sptid,
			:inwaremx_mx[i].mxprintid,
			:inwaremx_mx[i].waredscrp,
			:inwaremx_mx[i].mtrlcuscode,
			:inwaremx_mx[i].Location,
			:inwaremx_mx[i].ptinwareid,
			:inwaremx_mx[i].ptprintid,
			:inwaremx_mx[i].ptinwarecode,
			:inwaremx_mx[i].ifnotinout) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			inwareid = 0 //还原inwareid
			rslt = 0
			arg_msg = "因网络或其它原因导致插入包件明细操作失败"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
	NEXT
	
	FOR i = 1 To it_mxbt_item
		INSERT INTO u_inware_itemmx
			(scid,
			inwareid,
			printid,
			itemid,
			amt,
			mxdscrp)
			VALUES (:scid,
			:ls_newid,
			:inware_itemmx[i].printid,
			:inware_itemmx[i].itemid,
			:inware_itemmx[i].amt,
			:inware_itemmx[i].mxdscrp) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			inwareid = 0 //还原taskid
			rslt = 0
			arg_msg = "因网络或其它原因导致插入费用明细操作失败"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
	NEXT
	
ELSE //////////////////////////////////////////////// //更新
	UPDATE u_inware
		SET billtype = :billtype,
		relid = :relid,
		storageid = :storageid,
		indate = :indate,
		plandate = :plandate,
		inrep = :inrep,
		part = :part,
		dscrp = :dscrp,
		sptid = :sptid,
		sptname = :sptname,
		thflag = :thflag,
		dxflag = :dxflag,
		otheramt = :otheramt,
		moddate = :server_dt,
		modemp = :publ_operator,
		relint_1 = :relint_1,
		relint_2 = :relint_2,
		relint_3 = :relint_3,
		relstr_1 = :relstr_1,
		relstr_2 = :relstr_2,
		relstr_3 = :relstr_3,
		moneyid = :moneyid,
		mrate = :mrate,
		deptid = :deptid
		WHERE u_inware.inwareid = :inwareid
		AND u_inware.scid = :scid
		And flag = 0 Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 Or commit_transaction.SQLNRows <= 0  THEN
		rslt = 0
		arg_msg = "因网络或其它原因导致更新单据操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	//删除原有明细
	DELETE FROM u_inwaremx
		WHERE u_inwaremx.inwareid = :inwareid
		And u_inwaremx.scid = :scid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "删除旧有明细操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	FOR i = 1 To it_mxbt
		INSERT INTO u_inwaremx
			(scid,
			inwareid,
			printid,
			mtrlid,
			plancode,
			status,
			qty,
			fprice,
			rebate,
			price,
			planprice,
			mxdscrp,
			jgprice,
			relid,
			ifrel,
			woodcode,
			relcode,
			pcode,
			sptid_cusid,
			cost,
			sptmtrlname,
			unit,
			rate,
			uprice,
			uqty,
			bootqty,
			noauditqty,
			relprintid,
			checkqty,
			result,
			waredscrp,
			relbillid,
			relbillprintid,
			relbillcode,
			mtrlcuscode,
			location,
			enprice,
			capacity,
			enprice_tax,
			enprice_notax,
			deliqty,
			tax,
			deliprice_notax,
			newprice,
			Thptype,
			jgdscrp,
			ifvqty,
			ifnotinout)
			VALUES (
			:scid,
			:inwareid,
			:inwaremx[i].printid,
			:inwaremx[i].mtrlid,
			:inwaremx[i].plancode,
			:inwaremx[i].status,
			:inwaremx[i].qty,
			:inwaremx[i].fprice,
			:inwaremx[i].rebate,
			:inwaremx[i].price,
			:inwaremx[i].planprice,
			:inwaremx[i].mxdscrp,
			:inwaremx[i].jgprice,
			:inwaremx[i].relid,
			:inwaremx[i].ifrel,
			:inwaremx[i].woodcode,
			:inwaremx[i].relcode,
			:inwaremx[i].pcode,
			:inwaremx[i].sptid,
			:inwaremx[i].cost,
			:inwaremx[i].sptmtrlname,
			:inwaremx[i].unit,
			:inwaremx[i].rate,
			:inwaremx[i].uprice,
			:inwaremx[i].uqty,
			:inwaremx[i].bootqty,
			:inwaremx[i].noauditqty,
			:inwaremx[i].relprintid,
			:inwaremx[i].checkqty,
			:inwaremx[i].result,
			:inwaremx[i].waredscrp,
			:inwaremx[i].relbillid,
			:inwaremx[i].relbillprintid,
			:inwaremx[i].relbillcode,
			:inwaremx[i].mtrlcuscode,
			:inwaremx[i].Location,
			:inwaremx[i].enprice,
			:inwaremx[i].capacity,
			:inwaremx[i].enprice_tax,
			:inwaremx[i].enprice_notax,
			:inwaremx[i].deliqty,
			:inwaremx[i].tax,
			:inwaremx[i].deliprice_notax,
			:inwaremx[i].newprice,
			:inwaremx[i].Thptype,
			:inwaremx[i].jgdscrp,
			:inwaremx[i].ifvqty,
			:inwaremx[i].ifnotinout) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
	NEXT
	
	//删除原有明细
	DELETE FROM u_inwaremx_mx
		WHERE u_inwaremx_mx.inwareid = :inwareid
		And u_inwaremx_mx.scid = :scid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "删除旧有包件明细操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	
	FOR i = 1 To it_mxbt_mx
		INSERT INTO u_inwaremx_mx
			(scid,
			inwareid,
			printid,
			mtrlid,
			plancode,
			status,
			qty,
			fprice,
			rebate,
			price,
			mxdscrp,
			woodcode,
			pcode,
			sptid_cusid,
			mxprintid,
			waredscrp,
			mtrlcuscode,
			location,
			ptinwareid,
			ptprintid,
			ptinwarecode,
			ifnotinout)
			VALUES (
			:scid,
			:inwareid,
			:inwaremx_mx[i].printid,
			:inwaremx_mx[i].mtrlid,
			:inwaremx_mx[i].plancode,
			:inwaremx_mx[i].status,
			:inwaremx_mx[i].qty,
			:inwaremx_mx[i].fprice,
			:inwaremx_mx[i].rebate,
			:inwaremx_mx[i].price,
			:inwaremx_mx[i].mxdscrp,
			:inwaremx_mx[i].woodcode,
			:inwaremx_mx[i].pcode,
			:inwaremx_mx[i].sptid,
			:inwaremx_mx[i].mxprintid,
			:inwaremx_mx[i].waredscrp,
			:inwaremx_mx[i].mtrlcuscode,
			:inwaremx_mx[i].Location,
			:inwaremx_mx[i].ptinwareid,
			:inwaremx_mx[i].ptprintid,
			:inwaremx_mx[i].ptinwarecode,
			:inwaremx_mx[i].ifnotinout) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "因网络或其它原因导致插入包件明细操作失败"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
	NEXT
	
	DELETE FROM u_inware_itemmx
		WHERE u_inware_itemmx.inwareid = :inwareid
		And u_inware_itemmx.scid = :scid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "删除原有费用明细操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	FOR i = 1 To it_mxbt_item
		INSERT INTO u_inware_itemmx
			(scid,
			inwareid,
			printid,
			itemid,
			amt,
			mxdscrp)
			VALUES (:scid,
			:inwareid,
			:inware_itemmx[i].printid,
			:inware_itemmx[i].itemid,
			:inware_itemmx[i].amt,
			:inware_itemmx[i].mxdscrp) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "因网络或其它原因导致插入费用明细操作失败"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
	NEXT
END IF

it_newbegin = False
it_updatebegin = False

ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
	p_clearmx()
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF
RETURN rslt












end function

public function integer getinfo (long arg_scid, long arg_inwareid, ref string arg_msg);//getinfo(arg_scid,arg_inwareid,arg_msg)
//0 失败  1成功
Int rslt = 1
Int li_outtype
Long i = 1,j = 1,k = 1,l = 1
Long no_mxcheck,no_mxcheck_barcode

jgsum_amt = 0
sum_amt = 0
sum_amt_en = 0
sum_taxamt = 0
sum_taxamt_en = 0

IF arg_inwareid <= 0 THEN
	rslt = 0
	arg_msg = "非法进仓单唯一码"
	GOTO ext
END IF

rslt = p_getinfo(arg_scid,arg_inwareid,arg_msg)
IF rslt = 0 THEN GOTO ext

SELECT outtype
	INTO :li_outtype
	FROM u_storage
	Where storageid = :storageid Using commit_transaction  ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,仓库出仓类型,"+commit_transaction.SQLErrText
	GOTO ext
END IF

//用游标读取明细
DECLARE cur_inwaermx CURSOR FOR
	SELECT u_inwaremx.printid,
	u_inwaremx.mtrlid,
	u_inwaremx.plancode,
	u_inwaremx.status,
	u_inwaremx.qty,
	u_inwaremx.fprice,
	u_inwaremx.rebate,
	u_inwaremx.price,
	u_inwaremx.planprice,
	u_inwaremx.mxdscrp,
	u_mtrldef.mtrlcode,
	u_inwaremx.jgprice,
	u_inwaremx.relid,
	u_inwaremx.ifrel,
	u_inwaremx.woodcode,
	u_inwaremx.pcode,
	u_inwaremx.plancode,
	case when :dxflag = 1 then sptid else u_inwaremx.sptid_cusid END,
	u_inwaremx.cost,
	u_inwaremx.sptmtrlname,
	u_inwaremx.unit,
	u_inwaremx.uqty,
	u_inwaremx.uprice,
	u_inwaremx.rate,
	u_inwaremx.bootqty,
	u_inwaremx.noauditqty,
	u_inwaremx.relprintid,
	u_inwaremx.checkqty,
	u_inwaremx.result,
	u_inwaremx.waredscrp,
	u_inwaremx.relbillid,
	u_inwaremx.relbillprintid,
	u_inwaremx.relbillcode,
	u_inwaremx.mtrlcuscode,
	u_inwaremx.location,
	u_mtrldef.ifpackpro,
	u_mtrldef.ifpack,
	u_mtrldef.outtype,
	u_inwaremx.enprice,
	u_inwaremx.capacity,
	u_mtrldef.ordertype,
	u_inwaremx.enprice_tax,
	u_inwaremx.enprice_notax,
	u_inwaremx.deliqty,
	u_inwaremx.tax,
	u_inwaremx.deliprice_notax,
	u_mtrldef.iffp,
	:dxflag,
	u_inwaremx.Thptype,
	u_inwaremx.jgdscrp,
	u_inwaremx.relcode,
	u_inwaremx.ifvqty,
	u_inwaremx.ifnotinout,
	u_inwaremx.mtrlwareid
	FROM u_inwaremx,u_mtrldef,u_inware
	WHERE u_inware.inwareid = :arg_inwareid  AND
	u_inwaremx.mtrlid = u_mtrldef.mtrlid AND
	u_inware.scid = :arg_scid AND
	u_inware.inwareid = u_inwaremx.inwareid AND
	u_inware.scid = u_inwaremx.scid
	Order By u_inwaremx.printid Using commit_transaction;
	
OPEN cur_inwaermx;
FETCH cur_inwaermx INTO :inwaremx[i].printid,:inwaremx[i].mtrlid,:inwaremx[i].plancode,
	:inwaremx[i].status,:inwaremx[i].qty,:inwaremx[i].fprice,
	:inwaremx[i].rebate,:inwaremx[i].price,:inwaremx[i].planprice,
	:inwaremx[i].mxdscrp,:inwaremx[i].mtrlcode,:inwaremx[i].jgprice,
	:inwaremx[i].relid,:inwaremx[i].ifrel,:inwaremx[i].woodcode,
	:inwaremx[i].pcode,:inwaremx[i].plancode,:inwaremx[i].sptid,
	:inwaremx[i].cost,:inwaremx[i].sptmtrlname,:inwaremx[i].unit,
	:inwaremx[i].uqty,:inwaremx[i].uprice,:inwaremx[i].rate,
	:inwaremx[i].bootqty,:inwaremx[i].noauditqty,:inwaremx[i].relprintid,
	:inwaremx[i].checkqty,:inwaremx[i].result,:inwaremx[i].mtrlwaredscrp,
	:inwaremx[i].relbillid,:inwaremx[i].relbillprintid,:inwaremx[i].relbillcode,
	:inwaremx[i].mtrlcuscode,:inwaremx[i].Location,:inwaremx[i].ifpackpro,:inwaremx[i].ifpack,
	:inwaremx[i].outtype,:inwaremx[i].enprice,:inwaremx[i].capacity,:inwaremx[i].u_mtrldef_ordertype,
	:inwaremx[i].enprice_tax,:inwaremx[i].enprice_notax,:inwaremx[i].deliqty,:inwaremx[i].tax,
	:inwaremx[i].deliprice_notax,:inwaremx[i].iffp,:inwaremx[i].dxflag,:inwaremx[i].Thptype,
	:inwaremx[i].jgdscrp,:inwaremx[i].relcode,:inwaremx[i].ifvqty,:inwaremx[i].ifnotinout,:inwaremx[i].mtrlwareid;
	
DO WHILE commit_transaction.SQLCode = 0
	
	jgsum_amt = jgsum_amt + Round(inwaremx[i].qty * inwaremx[i].jgprice,2) //计算单据总金额
	sum_amt = sum_amt + Round((inwaremx[i].deliqty * inwaremx[i].uprice * inwaremx[i].rebate) / (1 + inwaremx[i].tax),2) //计算单据总金额
	sum_amt_en = sum_amt_en + Round((inwaremx[i].deliqty * inwaremx[i].enprice * inwaremx[i].rebate) / (1 + inwaremx[i].tax),2) //计算单据总金额
	
	sum_taxamt = sum_taxamt + Round((inwaremx[i].deliqty * inwaremx[i].uprice * inwaremx[i].rebate) / (1 + inwaremx[i].tax) * inwaremx[i].tax,2)
	sum_taxamt_en = sum_taxamt_en + Round((inwaremx[i].deliqty * inwaremx[i].enprice * inwaremx[i].rebate) / (1 + inwaremx[i].tax) * inwaremx[i].tax,2)
	
	i++
	FETCH cur_inwaermx INTO :inwaremx[i].printid,:inwaremx[i].mtrlid,:inwaremx[i].plancode,
		:inwaremx[i].status,:inwaremx[i].qty,:inwaremx[i].fprice,
		:inwaremx[i].rebate,:inwaremx[i].price,:inwaremx[i].planprice,
		:inwaremx[i].mxdscrp,:inwaremx[i].mtrlcode,:inwaremx[i].jgprice,
		:inwaremx[i].relid,:inwaremx[i].ifrel,:inwaremx[i].woodcode,
		:inwaremx[i].pcode,:inwaremx[i].plancode,:inwaremx[i].sptid,
		:inwaremx[i].cost,:inwaremx[i].sptmtrlname,:inwaremx[i].unit,
		:inwaremx[i].uqty,:inwaremx[i].uprice,:inwaremx[i].rate,
		:inwaremx[i].bootqty,:inwaremx[i].noauditqty,:inwaremx[i].relprintid,
		:inwaremx[i].checkqty,:inwaremx[i].result,:inwaremx[i].mtrlwaredscrp,
		:inwaremx[i].relbillid,:inwaremx[i].relbillprintid,:inwaremx[i].relbillcode,
		:inwaremx[i].mtrlcuscode,:inwaremx[i].Location,:inwaremx[i].ifpackpro,:inwaremx[i].ifpack,
		:inwaremx[i].outtype,:inwaremx[i].enprice,:inwaremx[i].capacity,:inwaremx[i].u_mtrldef_ordertype,
		:inwaremx[i].enprice_tax,:inwaremx[i].enprice_notax,:inwaremx[i].deliqty,:inwaremx[i].tax,
		:inwaremx[i].deliprice_notax,:inwaremx[i].iffp,:inwaremx[i].dxflag,:inwaremx[i].Thptype,
		:inwaremx[i].jgdscrp,:inwaremx[i].relcode,:inwaremx[i].ifvqty,:inwaremx[i].ifnotinout,:inwaremx[i].mtrlwareid;
LOOP
CLOSE cur_inwaermx;

//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck
	FROM u_inwaremx
	WHERE u_inwaremx.inwareid = :arg_inwareid
	And scid = :arg_scid  Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,进仓单明细数量"
	GOTO ext
END IF

IF i <> (no_mxcheck+1) THEN
	rslt = 0
	arg_msg = "查询操作失败,进仓单明细"
	GOTO ext
END IF

//包件
//用游标读取明细
IF li_outtype > 0 Or billtype = 27 THEN
	DECLARE cur_inwaermx_mx CURSOR FOR
		SELECT u_inwaremx_mx.printid,
		u_inwaremx_mx.mtrlid,
		u_inwaremx_mx.plancode,
		u_inwaremx_mx.status,
		u_inwaremx_mx.qty,
		u_inwaremx_mx.fprice,
		u_inwaremx_mx.rebate,
		u_inwaremx_mx.price,
		u_inwaremx_mx.mxdscrp,
		u_inwaremx_mx.woodcode,
		u_inwaremx_mx.pcode,
		u_inwaremx_mx.plancode,
		u_inwaremx_mx.sptid_cusid,
		u_inwaremx_mx.waredscrp,
		u_inwaremx_mx.mxprintid,
		u_inwaremx_mx.mtrlcuscode,
		u_inwaremx_mx.location,
		u_mtrldef.ifpackpro,
		u_mtrldef.ifpack,
		u_mtrldef.outtype,
		u_mtrldef.unit,
		u_mtrldef.mtrlcode,
		u_inwaremx_mx.ptinwareid,
		u_inwaremx_mx.ptinwarecode,
		u_inwaremx_mx.ptprintid,
		u_mtrldef.iffp,
		u_inwaremx_mx.ifnotinout
		FROM u_inwaremx_mx,u_mtrldef,u_inware
		WHERE u_inware.inwareid = :arg_inwareid  AND
		u_inwaremx_mx.mtrlid = u_mtrldef.mtrlid AND
		u_inware.scid = :arg_scid AND
		u_inware.inwareid = u_inwaremx_mx.inwareid AND
		u_inware.scid = u_inwaremx_mx.scid
		Order By u_inwaremx_mx.mxprintid Using commit_transaction;
		
	OPEN cur_inwaermx_mx;
	FETCH cur_inwaermx_mx INTO :inwaremx_mx[k].printid,:inwaremx_mx[k].mtrlid,:inwaremx_mx[k].plancode,
		:inwaremx_mx[k].status,:inwaremx_mx[k].qty,:inwaremx_mx[k].fprice,
		:inwaremx_mx[k].rebate,:inwaremx_mx[k].price,
		:inwaremx_mx[k].mxdscrp,:inwaremx_mx[k].woodcode,
		:inwaremx_mx[k].pcode,:inwaremx_mx[k].plancode,:inwaremx_mx[k].sptid,
		:inwaremx_mx[k].waredscrp,:inwaremx_mx[k].mxprintid,
		:inwaremx_mx[k].mtrlcuscode,:inwaremx_mx[k].Location,:inwaremx_mx[k].ifpackpro,:inwaremx_mx[k].ifpack,
		:inwaremx_mx[k].outtype,:inwaremx_mx[k].unit,:inwaremx_mx[k].mtrlcode,
		:inwaremx_mx[k].ptinwareid,:inwaremx_mx[k].ptinwarecode,:inwaremx_mx[k].ptprintid,:inwaremx_mx[k].iffp,
		:inwaremx_mx[k].ifnotinout;
		
	DO WHILE commit_transaction.SQLCode = 0
		k++
		FETCH cur_inwaermx_mx INTO :inwaremx_mx[k].printid,:inwaremx_mx[k].mtrlid,:inwaremx_mx[k].plancode,
			:inwaremx_mx[k].status,:inwaremx_mx[k].qty,:inwaremx_mx[k].fprice,
			:inwaremx_mx[k].rebate,:inwaremx_mx[k].price,
			:inwaremx_mx[k].mxdscrp,:inwaremx_mx[k].woodcode,
			:inwaremx_mx[k].pcode,:inwaremx_mx[k].plancode,:inwaremx_mx[k].sptid,
			:inwaremx_mx[k].waredscrp,:inwaremx_mx[k].mxprintid,
			:inwaremx_mx[k].mtrlcuscode,:inwaremx_mx[k].Location,:inwaremx_mx[k].ifpackpro,:inwaremx_mx[k].ifpack,
			:inwaremx_mx[k].outtype,:inwaremx_mx[k].unit,:inwaremx_mx[k].mtrlcode,
			:inwaremx_mx[k].ptinwareid,:inwaremx_mx[k].ptinwarecode,:inwaremx_mx[k].ptprintid,:inwaremx_mx[k].iffp,
			:inwaremx_mx[k].ifnotinout;
	LOOP
	CLOSE cur_inwaermx_mx;
	
	//检验明细是否读入完整
	SELECT count(*) INTO :no_mxcheck
		FROM u_inwaremx_mx
		WHERE u_inwaremx_mx.inwareid = :arg_inwareid
		And u_inwaremx_mx.scid = :arg_scid  Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,进仓单包件明细数量"
		GOTO ext
	END IF
	
	IF k <> (no_mxcheck+1) THEN
		rslt = 0
		arg_msg = "查询操作失败,进仓单包件明细"
		GOTO ext
	END IF
	it_mxbt_mx = k - 1
END IF
//


//用游标读取条码明细
IF li_outtype = 2 Or li_outtype = 3 THEN
	DECLARE cur_inwaremx_barcode CURSOR FOR
		SELECT u_inwaremx_mx_barcode.barcode,
		u_inwaremx_mx_barcode.qty,
		u_mtrlware_mx.packqty,
		u_inwaremx_mx_barcode.qty * u_mtrlware_mx.packqty,
		u_mtrldef.ifbarcodefp,
		u_mtrlware_mx.ifrel,
		u_mtrlware_mx.scid,
		u_mtrlware_mx.orderid
		FROM u_inwaremx_mx_barcode,u_mtrlware_mx,u_mtrldef
		WHERE u_inwaremx_mx_barcode.inwareid = :arg_inwareid  AND
		u_inwaremx_mx_barcode.scid = :arg_scid AND
		u_inwaremx_mx_barcode.barcode = u_mtrlware_mx.barcode AND
		u_mtrldef.mtrlid = u_mtrlware_mx.mtrlid
		Order By u_inwaremx_mx_barcode.printid,u_inwaremx_mx_barcode.barcode Using commit_transaction;
		
	OPEN cur_inwaremx_barcode;
	FETCH cur_inwaremx_barcode INTO :s_mx_barcode[j].barcode,
		:s_mx_barcode[j].qty,:s_mx_barcode[j].packqty,:s_mx_barcode[j].inqty,
		:s_mx_barcode[j].u_mtrldef_ifbarcodefp,:s_mx_barcode[j].ifrel,
		:s_mx_barcode[j].scid,:s_mx_barcode[j].orderid;
		
	DO WHILE commit_transaction.SQLCode = 0
		j++
		FETCH cur_inwaremx_barcode INTO :s_mx_barcode[j].barcode,
			:s_mx_barcode[j].qty,:s_mx_barcode[j].packqty,:s_mx_barcode[j].inqty,
			:s_mx_barcode[j].u_mtrldef_ifbarcodefp,:s_mx_barcode[j].ifrel,
			:s_mx_barcode[j].scid,:s_mx_barcode[j].orderid;
	LOOP
	CLOSE cur_inwaremx_barcode;
	
	//检验明细是否读入完整
	SELECT count(*) INTO :no_mxcheck_barcode
		FROM u_inwaremx_mx_barcode
		WHERE u_inwaremx_mx_barcode.inwareid = :arg_inwareid
		And u_inwaremx_mx_barcode.scid = :arg_scid  Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,进仓单明细数量,"+commit_transaction.SQLErrText
		GOTO ext
	END IF

	IF j <> (no_mxcheck_barcode+1) THEN
		rslt = 0
		arg_msg = "查询操作失败,进仓单条码明细数量不相符"
		GOTO ext
	END IF
	
	it_mxbt_barcode = j - 1
END IF

inwareid = arg_inwareid
scid = arg_scid

it_mxbt = i - 1

FOR i = 1 To it_mxbt
	String ls_mtrlware_dscrp
	
	IF billtype = 3 THEN
		IF p_rst_mtrlwaredscrp(arg_scid,inwaremx[i].relid,inwaremx[i].waredscrp,arg_msg,ls_mtrlware_dscrp) = 0 THEN
			rslt = 0
			GOTO ext
		ELSE
			inwaremx[i].mtrlwaredscrp = ls_mtrlware_dscrp
		END IF
	END IF
NEXT


//读取来料加工订单费用明细
DECLARE cur_inware_itemmx CURSOR FOR
	SELECT scid, inwareid, printid, itemid, amt, mxdscrp
	FROM u_inware_itemmx
	WHERE inwareid = :arg_inwareid
	AND scid = :arg_scid
	Using commit_transaction;
	
OPEN cur_inware_itemmx;
FETCH cur_inware_itemmx INTO :inware_itemmx[l].scid,:inware_itemmx[l].inwareid,
	:inware_itemmx[l].printid,:inware_itemmx[l].itemid,
	:inware_itemmx[l].amt,:inware_itemmx[l].mxdscrp;
DO WHILE commit_transaction.SQLCode = 0
	l++
	FETCH cur_inware_itemmx INTO :inware_itemmx[l].scid,:inware_itemmx[l].inwareid,
		:inware_itemmx[l].printid,:inware_itemmx[l].itemid,
		:inware_itemmx[l].amt,:inware_itemmx[l].mxdscrp;
LOOP
CLOSE cur_inware_itemmx;

//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck
	FROM u_inware_itemmx
	Where inwareid = :arg_inwareid And scid = :arg_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,费用明细数量"
	GOTO ext
END IF

IF l <> (no_mxcheck+1) THEN
	rslt = 0
	arg_msg = "查询操作失败,费用明细"
	GOTO ext
END IF

it_mxbt_item = l - 1


it_newbegin = False
it_updatebegin = False
ext:
IF rslt = 0 THEN p_reset()
RETURN rslt





end function

public function integer updatebegin (long arg_scid, long arg_inwareid, integer arg_billtype, ref string arg_msg);Long rslt = 1

IF uo_option_inout_type = -1000 THEN
	rslt = 0
	arg_msg = '选项:[142]进出仓高级选项,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_barcode_inwareother_paudit = -1000 THEN
	rslt = 0
	arg_msg = '选项:[206]仓库使用条码流程,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


IF uo_option_barcode_inwarebuy_paudit = -1000 THEN
	rslt = 0
	arg_msg = '选项:[208]仓库使用条码流程,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


IF uo_option_barcode_inwarecp_paudit = -1000 THEN
	rslt = 0
	arg_msg = '选项:[207]仓库使用条码流程,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF arg_scid < 0 THEN
	arg_msg = '请选择分部'
	rslt = 0
	GOTO ext
END IF

IF arg_inwareid <= 0 THEN
	rslt = 0
	GOTO ext
END IF

IF Not (arg_billtype = 1 OR &
	arg_billtype = 2 OR &
	arg_billtype = 3 OR &
	arg_billtype = 4 OR &
	arg_billtype = 5 OR &
	arg_billtype = 6 OR &
	arg_billtype = 8 OR &
	arg_billtype = 9 OR &
	arg_billtype = 12 OR &
	arg_billtype = 15 OR &
	arg_billtype = 16 OR &
	arg_billtype = 17 OR &
	arg_billtype = 18 OR &
	arg_billtype = 19 or &
	arg_billtype = 20 or &
	arg_billtype = 21 or &
	arg_billtype = 22 or &
	arg_billtype = 23 or &
	arg_billtype = 24 or &
	arg_billtype = 25 or &
	arg_billtype = 26 or &
	arg_billtype = 27 or &
	arg_billtype = 28) THEN
	rslt = 0
	arg_msg = '此单据类型必须为:'
	arg_msg = arg_msg+'1-采购收货进仓单[记帐模式],'
	arg_msg = arg_msg+'2-采购收货进仓单[不记帐模式],'
	arg_msg = arg_msg+'3-生产进仓单,'
	arg_msg = arg_msg+'4-外协收货进仓单,'
	arg_msg = arg_msg+'5-来料加工收料进仓单,'
	arg_msg = arg_msg+'6-车间生产进仓单,'
	arg_msg = arg_msg+'8-其它进仓单,'
	arg_msg = arg_msg+'9-盘盈进仓单,'
	arg_msg = arg_msg+'12-调拨进仓单'
	arg_msg = arg_msg+'15-拆装进仓单'
	arg_msg = arg_msg+'16-生产领料车间自动进仓单(不按计划),'
	arg_msg = arg_msg+'17-客户调货进仓单'
	arg_msg = arg_msg+'18-欠货进仓单'
	arg_msg = arg_msg+'19-自动组装进仓单' 
	arg_msg = arg_msg+'20-生产领料车间自动进仓单(按计划)'
	arg_msg = arg_msg+'21-车间库存转换自动进仓单'
	arg_msg = arg_msg+'22-库存配置调整单自动进仓单'
	arg_msg = arg_msg+'23-销售发货单包件产品自动进仓单'
	arg_msg = arg_msg+'24-水口料进仓单'
	arg_msg = arg_msg+'25-采购收货单包件明细自动进仓单'
	arg_msg = arg_msg+'26-采购收货包件进仓单'
	arg_msg = arg_msg+'27-采购收货包件结算单'
	arg_msg = arg_msg+'28-员工物品归还单'
	GOTO ext
END IF

IF arg_billtype = 12 THEN
	rslt = 0
	arg_msg = '单据类型:12-调拨进仓>>不能修改'
	GOTO ext
END IF

IF arg_billtype = 17 THEN
	rslt = 0
	arg_msg = '单据类型:17-客户调货进仓>>不能修改'
	GOTO ext
END IF

IF arg_billtype = 18 THEN
	rslt = 0
	arg_msg = '单据类型:18-欠货进仓单>>不能修改'
	GOTO ext
END IF

IF arg_billtype = 19 THEN
	rslt = 0
	arg_msg = '单据类型:19-自动组装进仓单>>不能修改'
	GOTO ext
END IF

IF arg_billtype = 22 THEN
	rslt = 0
	arg_msg = '单据类型:22-库存配置调整单自动进仓>>不能修改'
	GOTO ext
END IF

rslt = p_getinfo(arg_scid,arg_inwareid,arg_msg)
IF rslt = 0 THEN GOTO ext

IF uo_option_inout_type = 2 AND &
	( uo_option_barcode_inwareother_paudit = 1 AND billtype = 1 OR &
	uo_option_barcode_inwarebuy_paudit = 1 AND billtype = 3 OR &
	uo_option_barcode_inwarecp_paudit = 1 AND billtype = 8 ) THEN
	IF priceflag = 1 THEN
		arg_msg = '单据已确认,不能修改'
		rslt = 0
		GOTO ext
	END IF
END IF


String ls_storagename
SELECT storagename
	INTO :ls_storagename
	FROM u_storage
	Where storageid = :storageid USING commit_transaction  ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,仓库"
	GOTO ext
END IF

//检查是否有该仓库的建立权限
IF sys_user_storagestr_new <> '0' THEN
	IF Pos(sys_user_storagestr_new,','+String(storageid)+',') <= 0 THEN
		rslt = 0
		arg_msg = '没有仓库: '+ls_storagename+' 的建立权限,不允许修改该仓库的单据'
		GOTO ext
	END IF
END IF

//
IF priceflag = 1 THEN
	rslt = 0
	arg_msg = '单据已经审核,不可以修改'
	GOTO ext
END IF

IF flag = 1 THEN
	rslt = 0
	arg_msg = '单据已经审核,不可以修改'
	GOTO ext
END IF

inwareid = arg_inwareid
billtype = arg_billtype
scid = arg_scid

it_newbegin = FALSE
it_updatebegin = TRUE
p_clearmx() //清除明细

ext:
IF rslt = 0 THEN p_reset()
RETURN rslt



end function

public function integer auditing (boolean arg_ifcommit, ref string arg_msg);Int rslt = 1
Long cnt = 0,i,j,mx_barcode_cnt
Long ll_sptid,ll_mtrlwareid_ref
String ls_mtrlcuscode
String ls_storagename
Int li_outtype,li_storagetype,li_if_pd_usebarcode
s_cmplpackpro_ref_mtrlwareid_array s_mtrlwareid_array_rst
s_inwaremx_barcode_fp arg_s_mxbarcode_fp

uo_sqlpro uo_pro
uo_pro = Create uo_sqlpro
uo_pro.commit_transaction = commit_transaction

uo_cmpl_packpro uo_cmpl_p
uo_cmpl_p = Create uo_cmpl_packpro
uo_cmpl_p.commit_transaction = commit_transaction

IF f_aps_mrp_cklock(scid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF uo_option_inout_type = -1000 THEN
	rslt = 0
	arg_msg = '选项:[142]进出仓高级选项,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_barcode_inwareother_paudit = -1000 THEN
	rslt = 0
	arg_msg = '选项:[206]仓库使用条码流程,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


IF uo_option_barcode_inwarebuy_paudit = -1000 THEN
	rslt = 0
	arg_msg = '选项:[208]仓库使用条码流程,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


IF uo_option_barcode_inwarecp_paudit = -1000 THEN
	rslt = 0
	arg_msg = '选项:[207]仓库使用条码流程,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

s_inwaremx_assign_plan arg_s_ap,arg_s_ap_null

uo_mtrlware_assign uo_ma
uo_ma = Create uo_mtrlware_assign
uo_ma.commit_transaction = commit_transaction
uo_ma.ib_ifinware_audit_do = True

IF inwareid = 0 THEN
	rslt = 0
	arg_msg = "没有进仓审核对象"
	GOTO ext
END IF

IF storageid = 0 THEN
	rslt = 0
	arg_msg = '没有正确的仓库'
	GOTO ext
END IF

IF billtype <> 9 THEN
	IF uof_check_warepdb_audit(storageid,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF


SELECT storagename,outtype,storagetype,if_pd_usebarcode
	INTO :ls_storagename,:li_outtype,:li_storagetype,:li_if_pd_usebarcode
	FROM u_storage
	Where storageid = :storageid Using commit_transaction  ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,仓库"
	GOTO ext
END IF

//检查是否有该仓库的建立权限
IF Not (billtype = 16 Or billtype = 20) THEN
	IF sys_user_storagestr_audit <> '0' THEN
		IF Pos(sys_user_storagestr_audit,','+String(storageid)+',') <= 0 THEN
			rslt = 0
			arg_msg = '没有仓库: '+ls_storagename+' 的审核权限,不允许审核该仓库的单据'
			GOTO ext
		END IF
	END IF
end if
//

IF uo_option_inout_type = 2 And (li_outtype = 2 Or li_outtype = 3) And &
	( uo_option_barcode_inwareother_paudit = 1 And billtype = 8 and (sptname <> '更新成本价(正单)' and sptname <> '调整成本价(负单)') Or &
	uo_option_barcode_inwarebuy_paudit = 1 And billtype = 1 Or &
	uo_option_barcode_inwarecp_paudit = 1 And billtype = 3 ) And thflag = 0 THEN
	IF priceflag = 0 THEN
		arg_msg = '单据未确认,不能审核'
		rslt = 0
		GOTO ext
	END IF
END IF

IF flag = 1 THEN
	rslt = 0
	arg_msg = "单据已经审核"
	GOTO ext
END IF

//检查条码数量是否匹配
If ( li_outtype = 2 Or li_outtype = 3 ) And &
	( billtype <> 9 Or billtype = 9 And &
	( li_if_pd_usebarcode = 1 Or li_if_pd_usebarcode = 0 And if_py_check_barcode )) THEN
	IF uof_check_barcodeqty(arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF

UPDATE u_inware
	SET auditingrep = :publ_operator,
	auditingdate = getdate(),
	flag = 1
	WHERE u_inware.inwareid = :inwareid
	AND flag = 0
	And scid = :scid Using commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致审核单据操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

FOR i = 1 To it_mxbt
	IF f_power_ind(2203,sys_msg_pow) And Not sys_power_issuper THEN
		IF inwaremx[i].uprice = 0 THEN
			rslt = 0
			arg_msg = '行:'+String(i)+',物料编码:'+inwaremx[i].mtrlcode+',没有单价,请检查'
			GOTO ext
		END IF
	END IF
	
	//yyx20120206
	IF li_storagetype = 1 And inwaremx[i].ifpack <> 2 And inwaremx[i].ifpackpro <> 2 And inwaremx[i].ifpackpro <> 4 THEN
		IF billtype = 17 Or billtype = 23 THEN //客户调货条码转换单
			ll_sptid = inwaremx[i].sptid
			ls_mtrlcuscode = inwaremx[i].mtrlcuscode
		ELSE
			ll_sptid = 0
			ls_mtrlcuscode = ''
		END IF
	ELSE
		IF billtype = 4 THEN
			ll_sptid = 0
		ELSE
			ll_sptid = inwaremx[i].sptid
		END IF
		ls_mtrlcuscode = inwaremx[i].mtrlcuscode
	END IF
	//yyx20120206_end
	
	IF sys_option_inout_procedure = 0 THEN
		IF billtype <> 20 And billtype <> 21 THEN
			IF p_update_mtrlware(inwaremx[i].mtrlid,inwaremx[i].mtrlcode,&
				storageid,inwaremx[i].plancode,inwaremx[i].status,&
				inwaremx[i].qty,inwaremx[i].uqty,inwaremx[i].cost,inwaremx[i].planprice,&
				ll_sptid,inwaremx[i].dxflag,inwaremx[i].woodcode,&
				inwaremx[i].pcode,ls_mtrlcuscode,inwaremx[i].Location,inwaremx[i].mtrlwaredscrp,inwaremx[i].ifvqty,arg_msg) = 0 THEN
				arg_msg = '更新行:'+String(i)+','+arg_msg
				rslt = 0
				GOTO ext
			END IF
		ELSE
			IF p_update_mtrlware_ws(inwaremx[i].mtrlid,inwaremx[i].mtrlcode,&
				storageid,inwaremx[i].plancode,inwaremx[i].status,&
				inwaremx[i].qty,inwaremx[i].uqty,inwaremx[i].cost,inwaremx[i].planprice,&
				ll_sptid,inwaremx[i].dxflag,inwaremx[i].woodcode,&
				inwaremx[i].pcode,ls_mtrlcuscode,inwaremx[i].Location,inwaremx[i].mtrlwaredscrp,arg_msg) = 0 THEN
				arg_msg = '更新行:'+String(i)+','+arg_msg
				rslt = 0
				GOTO ext
			END IF
		END IF
	ELSE
		IF uo_pro.p_inware_update_mtrlware(scid,inwareid,inwaremx[i].printid,inwaremx[i].mtrlid,&
			inwaremx[i].mtrlcode,storageid,inwaremx[i].plancode,inwaremx[i].status,inwaremx[i].qty,&
			inwaremx[i].uqty,inwaremx[i].cost,inwaremx[i].planprice,ll_sptid,inwaremx[i].dxflag,&
			inwaremx[i].woodcode,inwaremx[i].pcode,ls_mtrlcuscode,inwaremx[i].Location,inwaremx[i].mtrlwaredscrp,arg_msg) = 0 THEN
			arg_msg = '更新行:'+String(i)+','+arg_msg
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	//取库存信息yyx2012-09-25
	ll_mtrlwareid_ref = 0
	IF uof_ref_mtrlwareid(scid,storageid,inwaremx[i].mtrlid,&
		inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode,inwaremx[i].plancode,&
		inwaremx[i].Location,ll_sptid,ls_mtrlcuscode,ll_mtrlwareid_ref,arg_msg) = 0 THEN
		arg_msg = '行:'+String(i)+','+arg_msg
		rslt = 0
		GOTO ext
	END IF
	
	IF p_update_mtrlwareid_inwaremx(ll_mtrlwareid_ref,inwareid,inwaremx[i].printid,arg_msg,False) = 0 THEN
		arg_msg = '行:'+String(i)+','+arg_msg
		rslt = 0
		GOTO ext
	END IF
	
	//yyx20100814
	//库存分配
	IF li_storagetype = 1 And billtype <> 23 THEN
		IF inwaremx[i].iffp = 1 THEN
			//取分配计划
			arg_s_ap = arg_s_ap_null
			IF billtype = 4 THEN //外协收货
				IF inwaremx[i].relid > 0 And inwaremx[i].relprintid > 0 THEN
					IF uof_ref_assign_plan_plankind(scid,ll_mtrlwareid_ref,3,inwaremx[i].relid,inwaremx[i].relprintid,&
						inwaremx[i].mtrlid,inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode,inwaremx[i].qty,arg_s_ap,arg_msg) = 0 THEN
						arg_msg = '外协收货明细行:'+String(inwaremx[i].printid)+',取分配计划失败'+arg_msg
						rslt = 0
						GOTO ext
					END IF
				END IF
			ELSE
				IF uof_ref_assign_plan(scid,ll_mtrlwareid_ref,inwaremx[i].qty,arg_s_ap,arg_msg) = 0 THEN
					arg_msg = '行:'+String(i)+','+arg_msg
					rslt = 0
					GOTO ext
				END IF
			END IF
			
			FOR j = 1 To UpperBound(arg_s_ap.planid)
				IF uo_ma.uof_assign_add(arg_s_ap.scid[j],arg_s_ap.mtrlwareid[j],&
					arg_s_ap.assigntype[j],arg_s_ap.relbillid[j],arg_s_ap.relprintid[j],&
					arg_s_ap.notassignqty[j],inwaremx[i].cost,ls_mtrlcuscode,inwaremx[i].mtrlwaredscrp,&
					inwarecode,inwaremx[i].printid,arg_s_ap.fpgrade[i],publ_operator,arg_msg,False) = 0 THEN
					arg_msg = '行:'+String(i)+','+arg_msg
					rslt = 0
					GOTO ext
				END IF
				
				IF arg_s_ap.planid[j] > 0 THEN
					IF uo_ma.uof_plan_addassignqty(arg_s_ap.planid[j],arg_s_ap.notassignqty[j],&
						inwarecode,inwaremx[i].printid,arg_msg,False) = 0 THEN
						arg_msg = '行:'+String(i)+','+arg_msg
						rslt = 0
						GOTO ext
					END IF
				END IF
			NEXT
		END IF
	END IF
	//yyx20100814_end
	
	If ( li_outtype = 2 Or li_outtype = 3 ) And inwaremx[i].outtype = 2 THEN mx_barcode_cnt++
	
	//yyx2012-9-29返回计算可装数库存id数组
	IF billtype <> 23 &
		And Not (billtype = 25 And Pos(part,'CT') > 0) &
		And Not (billtype = 8 And Pos(sptname,'调整成本价') > 0 ) &
		And ( inwaremx[i].ifpack = 1 Or inwaremx[i].ifpack = 2 Or inwaremx[i].ifpackpro = 3 Or inwaremx[i].ifpackpro = 4 ) And uo_option_mtrlware_autocmp = 1 THEN
		IF uo_cmpl_p.uof_ref_mtrlwarid_array(inwaremx[i].mtrlid,inwaremx[i].plancode,ls_mtrlcuscode,storageid,s_mtrlwareid_array_rst,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
	//
NEXT

//更新条码
If ( li_outtype = 2 Or li_outtype = 3 ) And &
	mx_barcode_cnt > 0 And &
	( billtype <> 9 Or billtype = 9 And &
	( li_if_pd_usebarcode = 1 Or li_if_pd_usebarcode = 0 And if_py_update_barcode )) THEN
	IF uof_p_barcode(1,arg_msg,arg_s_mxbarcode_fp) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF

//yyx2012-9-29返回计算可装数库存id数组计算可装数
IF billtype <> 23 &
	And Not (billtype = 25 And Pos(part,'CT') > 0) &
	And Not (billtype = 8 And Pos(sptname,'调整成本价') > 0 ) &
	And UpperBound(s_mtrlwareid_array_rst.mtrlwareid) > 0  And uo_option_mtrlware_autocmp = 1 THEN
	IF uo_cmpl_p.uof_cmpl_diqty(s_mtrlwareid_array_rst,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF
//

flag = 1
ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF

Destroy uo_ma
Destroy uo_pro
Destroy uo_cmpl_p

RETURN rslt














end function

public function integer del (long arg_scid, long arg_inwareid, ref string arg_msg, boolean arg_ifcommit);//del(arg_scid,arg_inwareid,arg_msg)
//如果单据还没有审核删除单据极其明细
//0 fail, 1 success

Int rslt = 1
If arg_inwareid = 0 Then
	rslt = 0
	arg_msg = "没有删除对象,操作取消"
	Goto ext
End If

rslt = p_getinfo(arg_scid,arg_inwareid,arg_msg)
If rslt = 0 Then Goto ext

If flag = 1 Then
	rslt = 0
	arg_msg = "单据已经审核,不可以删除"
	Goto ext
End If

If Not lb_ifdelauto And billtype = 3 And relint_1 = 1 Then
	rslt = 0
	arg_msg = "自动建立的生产进仓单,不可以删除"
	Goto ext
End If

If billtype = 1 and sys_option_disuse_inware_buy = 1 Then
	If uof_disuse(arg_scid,arg_inwareid,1,arg_msg,False) = 0 Then
		rslt = 0
		Goto ext
	End If
End If

Delete From u_inwaremx
	Where u_inwaremx.inwareid = :arg_inwareid
	And scid = :arg_scid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = "删除进仓单明细操作失败"+"~n"+commit_transaction.SQLErrText
	Goto ext
End If

Delete From u_inware
	Where u_inware.inwareid = :arg_inwareid
	And scid = :arg_scid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = "删除进仓单操作失败"+"~n"+commit_transaction.SQLErrText
	Goto ext
End If


Delete From u_inwaremx_mx_barcode
	Where u_inwaremx_mx_barcode.inwareid = :arg_inwareid
	And u_inwaremx_mx_barcode.scid = :arg_scid
	And u_inwaremx_mx_barcode.billtype = :billtype Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = "删除进仓单条码明细操作失败"+"~n"+commit_transaction.SQLErrText
	Goto ext
End If

Delete From u_inware_itemmx
	Where u_inware_itemmx.inwareid = :arg_inwareid
	And u_inware_itemmx.scid = :arg_scid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = "删除进仓单费用明细操作失败"+"~n"+commit_transaction.SQLErrText
	Goto ext
End If

If billtype = 1 Then
	Update u_inware_barcode_tmp
		Set u_inware_barcode_tmp.inwareid = 0
		Where u_inware_barcode_tmp.scid = :arg_scid
		And u_inware_barcode_tmp.inwareid = :arg_inwareid Using commit_transaction;
	If commit_transaction.SQLCode <> 0 Then
		rslt = 0
		arg_msg = "清除进仓单已匹配条码操作失败"+"~n"+commit_transaction.SQLErrText
		Goto ext
	End If
End If

it_newbegin = False
it_updatebegin = False

ext:
If rslt = 0 Then
	Rollback Using commit_transaction;
ElseIf rslt = 1 And arg_ifcommit Then
	Commit Using commit_transaction;
End If

p_reset()
Return rslt







end function

public function integer add_dscrp (long arg_scid, long arg_inwareid, string arg_newdescppart, ref string arg_msg);//add_dscrp(string arg_newdescppart)
//0 fail 1 success
Int rslt = 1
arg_newdescppart = Trim(arg_newdescppart)
IF it_updatebegin OR it_newbegin THEN
	rslt = 0
	arg_msg = "编辑状态下不可用"
	GOTO ext
END IF

IF arg_newdescppart = '' THEN
	rslt = 0
	arg_msg = "要添加内容为空,操作取消"
	GOTO ext
END IF

rslt = p_getinfo(arg_scid,arg_inwareid,arg_msg)
IF rslt = 0 THEN GOTO ext

IF flag = 0 THEN
	rslt = 0
	arg_msg = "非审核状态下不可用"
	GOTO ext
END IF

UPDATE u_inware
	SET dscrp = dscrp+' '+:arg_newdescppart
	WHERE u_inware.inwareid = :inwareid
	AND scid = :scid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	ROLLBACK  USING commit_transaction;
	rslt = 0
	arg_msg = "因网络或其它原因导致添加单据备注操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

COMMIT USING commit_transaction;
dscrp = dscrp+' '+arg_newdescppart
ext: Return (rslt)

end function

public function integer c_auditing (boolean arg_ifcommit, ref string arg_msg);Int rslt = 1
Long cnt = 0,i,j,mx_barcode_cnt
Long ll_sptid
String ls_mtrlcuscode
String ls_storagename
Int li_outtype,li_storagetype,li_if_pd_usebarcode
s_cmplpackpro_ref_mtrlwareid_array s_mtrlwareid_array_rst
s_inwaremx_barcode_fp arg_s_mxbarcode_fp

IF uo_option_canpack_ifzanyong = -1000 THEN
	rslt = 0
	arg_msg = '选项:[417]通用包件产品可装数选项,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


uo_sqlpro uo_pro
uo_pro = Create uo_sqlpro
uo_pro.commit_transaction = commit_transaction

uo_cmpl_packpro uo_cmpl_p
uo_cmpl_p = Create uo_cmpl_packpro
uo_cmpl_p.commit_transaction = commit_transaction


IF f_aps_mrp_cklock(scid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

s_inwaremx_assign_plan arg_s_ap,arg_s_ap_null
s_inwaremx_assign arg_s_a,arg_s_a_null

uo_mtrlware_assign uo_ma
uo_ma = Create uo_mtrlware_assign
uo_ma.commit_transaction = commit_transaction
uo_ma.ib_ifinware_audit_do = True

DateTime null_dt
SetNull(null_dt)

IF storageid = 0 THEN
	rslt = 0
	arg_msg = '没有正确的仓库'
	GOTO ext
END IF

IF billtype <> 9 THEN
	IF uof_check_warepdb_audit(storageid,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF


SELECT storagename,outtype,storagetype,if_pd_usebarcode
	INTO :ls_storagename,:li_outtype,:li_storagetype,:li_if_pd_usebarcode
	FROM u_storage
	Where storageid = :storageid Using commit_transaction  ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,仓库"
	GOTO ext
END IF


//检查是否有该仓库的建立权限
IF Not (billtype = 16 Or billtype = 20) THEN
	IF sys_user_storagestr_audit <> '0' THEN
		IF Pos(sys_user_storagestr_audit,','+String(storageid)+',') <= 0 THEN
			rslt = 0
			arg_msg = '没有仓库: '+ls_storagename+' 的审核权限,不允许撤审该仓库的单据'
			GOTO ext
		END IF
	END IF
end if
//

IF inwareid = 0 THEN
	rslt = 0
	arg_msg = "没有出仓撤审对象"
	GOTO ext
END IF

IF ctmint > 0 THEN
	arg_msg = '单据已截数,不能操作'
	rslt = 0
	GOTO ext
END IF

IF flag = 0 THEN
	rslt = 0
	arg_msg = "单据还未审核"
	GOTO ext
END IF

IF balcflag = 1 THEN
	rslt = 0
	arg_msg = "单据已经结存,不能撤审"
	GOTO ext
END IF

IF billtype = 26 THEN
	cnt = 0
	SELECT count(*) INTO :cnt
		FROM u_inwaremx_mx,u_inware
		WHERE u_inware.scid = u_inwaremx_mx.scid
		AND u_inware.inwareid = u_inwaremx_mx.inwareid
		AND u_inware.billtype = 27
		And u_inwaremx_mx.ptinwareid = :inwareid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '查询单据是否已开配套结算单失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF cnt > 0 THEN
		arg_msg = '单据已开配套结算单,不能撤审'
		rslt = 0
		GOTO ext
	END IF
END IF

UPDATE u_inware
	SET auditingrep = '',
	auditingdate = :null_dt,
	flag = 0
	WHERE u_inware.inwareid = :inwareid
	And flag = 1 And scid = :scid Using commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致审核单据操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在撤审,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

FOR i = 1 To it_mxbt
	//yyx20100814
	IF li_storagetype = 1 And inwaremx[i].ifpack <> 2 And inwaremx[i].ifpackpro <> 2 And inwaremx[i].ifpackpro <> 4 THEN
		ll_sptid = 0
		ls_mtrlcuscode = ''
	ELSE
		IF billtype = 4 THEN
			ll_sptid = 0
		ELSE
			ll_sptid = inwaremx[i].sptid
		END IF
		ls_mtrlcuscode = inwaremx[i].mtrlcuscode
	END IF
	//yyx20100814_end	
	
	//yyx20100814
	//库存分配
	IF li_storagetype = 1 And billtype <> 23 THEN
		IF inwaremx[i].iffp = 1 THEN
			//取消分配
			arg_s_a = arg_s_a_null
			IF uof_ref_assign_cancel(inwarecode,inwaremx[i].printid,arg_s_a,arg_msg) = 0 THEN
				arg_msg = '行:'+String(i)+','+arg_msg
				rslt = 0
				GOTO ext
			END IF
			
			FOR j = 1 To UpperBound(arg_s_a.assignid)
				IF uo_ma.uof_assign_del(arg_s_a.assignid[j],arg_s_a.assignqty[j],&
					arg_msg,False) = 0 THEN
					arg_msg = '行:'+String(i)+','+arg_msg
					rslt = 0
					GOTO ext
				END IF
			NEXT
			
			//取消分配计划
			arg_s_ap = arg_s_ap_null
			IF uof_ref_assign_plan_cancel(inwarecode,inwaremx[i].printid,arg_s_ap,arg_msg) = 0 THEN
				arg_msg = '行:'+String(i)+','+arg_msg
				rslt = 0
				GOTO ext
			END IF
			
			FOR j = 1 To UpperBound(arg_s_ap.planid)
				IF uo_ma.uof_plan_addassignqty(arg_s_ap.planid[j],0 - arg_s_ap.notassignqty[j],&
					inwarecode,inwaremx[i].printid,arg_msg,False) = 0 THEN
					arg_msg = '行:'+String(i)+','+arg_msg
					rslt = 0
					GOTO ext
				END IF
			NEXT
		END IF
	END IF
	//yyx20100814_end	
	
	//进仓单撤审,如果使用通用包件占用模式,并且单据明细是包件,要扣减相关占用数
	if uo_option_canpack_ifzanyong = 1 and inwaremx[i].ifpack = 1 then 
		if uo_cmpl_p.uof_add_fpqty(scid,inwaremx[i].mtrlwareid,inwaremx[i].mtrlid,0,0,0 - inwaremx[i].qty,arg_msg,false) = 0 then 
			rslt = 0 
			arg_msg = '行:'+string(i)+','+arg_msg
			goto ext
		end if
	end if
	
	
	IF sys_option_inout_procedure = 0  THEN
		IF billtype <> 20 And billtype <> 21 THEN
			IF p_update_mtrlware(inwaremx[i].mtrlid,inwaremx[i].mtrlcode,&
				storageid,inwaremx[i].plancode,inwaremx[i].status,&
				0 - inwaremx[i].qty,0 - inwaremx[i].uqty,inwaremx[i].cost,inwaremx[i].planprice,&
				ll_sptid,inwaremx[i].dxflag,inwaremx[i].woodcode,&
				inwaremx[i].pcode,ls_mtrlcuscode,inwaremx[i].Location,inwaremx[i].mtrlwaredscrp,inwaremx[i].ifvqty,arg_msg) = 0 THEN
				arg_msg = '更新行:'+String(i)+','+arg_msg
				rslt = 0
				GOTO ext
			END IF
		ELSE
			IF p_update_mtrlware_ws(inwaremx[i].mtrlid,inwaremx[i].mtrlcode,&
				storageid,inwaremx[i].plancode,inwaremx[i].status,&
				0 - inwaremx[i].qty,0 - inwaremx[i].uqty,inwaremx[i].cost,inwaremx[i].planprice,&
				ll_sptid,inwaremx[i].dxflag,inwaremx[i].woodcode,&
				inwaremx[i].pcode,ls_mtrlcuscode,inwaremx[i].Location,inwaremx[i].mtrlwaredscrp,arg_msg) = 0 THEN
				arg_msg = '更新行:'+String(i)+','+arg_msg
				rslt = 0
				GOTO ext
			END IF
		END IF
	ELSE
		IF uo_pro.p_inware_update_mtrlware(scid,inwareid,inwaremx[i].printid,inwaremx[i].mtrlid,&
			inwaremx[i].mtrlcode,storageid,inwaremx[i].plancode,inwaremx[i].status,0 - inwaremx[i].qty,&
			0 - inwaremx[i].uqty,inwaremx[i].cost,inwaremx[i].planprice,ll_sptid,inwaremx[i].dxflag,&
			inwaremx[i].woodcode,inwaremx[i].pcode,ls_mtrlcuscode,inwaremx[i].Location,inwaremx[i].mtrlwaredscrp,arg_msg) = 0 THEN
			arg_msg = '更新行:'+String(i)+','+arg_msg
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	
	If ( li_outtype = 2 Or li_outtype = 3 ) And inwaremx[i].outtype = 2 THEN mx_barcode_cnt++
	
	//yyx2012-9-29返回计算可装数库存id数组
	IF billtype <> 23 &
		And Not (billtype = 25 And Pos(part,'CT') > 0) &
		And Not (billtype = 8 And Pos(sptname,'调整成本价') > 0 ) &
		And ( inwaremx[i].ifpack = 1 Or inwaremx[i].ifpack = 2 Or inwaremx[i].ifpackpro = 3 Or inwaremx[i].ifpackpro = 4 ) And uo_option_mtrlware_autocmp = 1 THEN
		IF uo_cmpl_p.uof_ref_mtrlwarid_array(inwaremx[i].mtrlid,inwaremx[i].plancode,ls_mtrlcuscode,storageid,s_mtrlwareid_array_rst,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
	//
NEXT

//更新条码
If ( li_outtype = 2 Or li_outtype = 3 ) And &
	mx_barcode_cnt > 0 And &
	( billtype <> 9 Or billtype = 9 And &
	( li_if_pd_usebarcode = 1 Or li_if_pd_usebarcode = 0 And if_py_update_barcode )) THEN
	IF uof_p_barcode(0,arg_msg,arg_s_mxbarcode_fp) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF

//yyx2012-9-29返回计算可装数库存id数组计算可装数
IF billtype <> 23 &
	And Not (billtype = 25 And Pos(part,'CT') > 0) &
	And Not (billtype = 8 And Pos(sptname,'调整成本价') > 0 ) &
	And UpperBound(s_mtrlwareid_array_rst.mtrlwareid) > 0  And uo_option_mtrlware_autocmp = 1 THEN
	IF uo_cmpl_p.uof_cmpl_diqty(s_mtrlwareid_array_rst,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF
//


flag = 0
ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF

Destroy uo_ma
Destroy uo_pro
Destroy uo_cmpl_p

RETURN rslt












end function

public function integer p_clearmx ();//int p_clearmx()
//清除明细
it_mxbt = 0
it_mxbt_mx = 0
it_mxbt_barcode = 0
it_mxbt_item = 0
RETURN 1

end function

public function integer p_getinfo (long arg_scid, long arg_inwareid, ref string arg_msg);//p_getinfo(arg_scid,arg_inwareid,arg_msg)
//0 失败  1成功
Int rslt = 1

IF arg_inwareid <= 0 THEN
	rslt = 0
	arG_MSG = "非法进仓单唯一码"
	GOTO ext
END IF

SELECT  u_inware.inwarecode,
	u_inware.billtype,
	u_inware.relid,
	u_inware.storageid,
	u_inware.indate,
	u_inware.plandate,
	u_inware.inrep,
	u_inware.part,
	u_inware.sptid,
	u_inware.sptname,
	u_inware.dscrp,
	u_inware.thflag,
	u_inware.secflag,
	u_inware.dxflag,
	u_inware.flag,
	u_inware.balcflag,
	u_inware.balcdateint,
	u_inware.otheramt,
	u_inware.relint_1,
	u_inware.relint_2,
	u_inware.relint_3,
	u_inware.relstr_1,
	u_inware.relstr_2,
	u_inware.relstr_3,
	u_inware.ctmint,
	u_inware.priceflag,
	u_inware.pricerep,
	u_inware.pricedate,
	u_inware.moneyid,
	u_inware.mrate,
	u_inware.deptid,
	u_inware.fkflag,
	u_inware.fkemp,
	u_inware.fkdate
	INTO :inwarecode,
	:billtype,
	:relid,
	:storageid,
	:indate,
	:plandate,
	:inrep,
	:part,
	:sptid,
	:sptname,
	:dscrp,
	:thflag,
	:secflag,
	:dxflag,
	:flag,
	:balcflag,
	:balcdateint,
	:otheramt,
	:relint_1,
	:relint_2,
	:relint_3,
	:relstr_1,
	:relstr_2,
	:relstr_3,
	:ctmint,
	:priceflag,
	:pricerep,
	:pricedate,
	:moneyid,
	:mrate,
	:deptid,
	:fkflag,
	:fkemp,
	:fkdate
	FROM u_inware
	WHERE u_inware.inwareid = :arg_inwareid
	AND scid = :arg_scid
	Using commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arG_MSG = "查询操作失败(错误进仓单唯一码),进仓单,"+String(commit_transaction.SQLCode)+'~n'+commit_transaction.SQLErrText
	GOTO ext
END IF
inwareid = arg_inwareid
scid = arg_scid

ext:
IF rslt = 0 THEN p_reset()
RETURN rslt

end function

public function integer p_reset ();//int p_reset()
//清除对象及其明细
scid = 0
inwareid = 0
inwarecode = ''
billtype = 0
opemp = ''
modemp = ''
auditingrep = ''
secauditingrep = ''
secflag = 0
flag = 0
relid = 0
storageid = 0
inrep = ''
part = ''
dscrp = ''
sptid = 0
sptname = ''
Dxflag = 0
thflag = 0
otheramt = 0
relint_1 = 0
relint_2 = 0
relint_3 = 0
relstr_1 = ''
relstr_2 = ''
relstr_3 = ''
moneyid = 0 
mrate = 1 
deptid = 0 
balcflag = 0
balcdateint = 0

sum_amt = 0
sum_amt_en = 0
jgsum_amt = 0

sum_taxamt = 0
sum_taxamt_en = 0

it_newbegin = FALSE
it_updatebegin = FALSE

//清除明细
p_clearmx()
RETURN 1



end function

public function integer p_rst_mtrlwaredscrp (long arg_scid, long arg_relid, string arg_mxdscrp, ref string arg_msg, ref string arg_ref_dscrp);Int rslt = 1
String ls_ordercode,ls_billcode,ls_relcode

IF uo_option_mtrlware_dscrp = -1000 THEN
	rslt = 0
	arg_msg = '选项:[063]库存表摘要1,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

CHOOSE CASE uo_option_mtrlware_dscrp
	CASE 1
		arg_ref_dscrp = ''
	CASE 2,3,4
		IF arg_relid > 0 THEN
			SELECT ordercode,billcode,relcode
				INTO :ls_ordercode,:ls_billcode,:ls_relcode
				FROM u_order_ml
				WHERE scid = :arg_scid
				AND orderid = :arg_relid
				Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询生产计划相关号码等失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF uo_option_mtrlware_dscrp = 2 THEN
				arg_ref_dscrp = ls_ordercode
			ELSEIF uo_option_mtrlware_dscrp = 3 THEN
				arg_ref_dscrp = ls_billcode
			ELSEIF uo_option_mtrlware_dscrp = 4 THEN
				arg_ref_dscrp = ls_relcode
			END IF
		ELSE
			arg_ref_dscrp = ''
		END IF
	CASE 5
		arg_ref_dscrp = arg_mxdscrp
END CHOOSE

ext:
RETURN rslt





end function

public function integer p_update_mtrlware_ws (long arg_mtrlid, string arg_mtrlcode, long arg_storageid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_uqty, decimal arg_price, decimal arg_planprice, long arg_sptid, long arg_dxflag, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, string arg_location, string arg_dscrp, ref string arg_msg);Int rslt = 1
Long ls_newid
String or_err_part
Decimal ld_cost
Int li_storMtrlprp,li_ifcost

Decimal ld_pypkqty
Decimal ld_buyinqty,ld_buyinamt
Decimal ld_cpinqty,ld_cpinamt
Decimal ld_jginqty,ld_jginamt
Decimal ld_diinqty,ld_diinamt
Decimal ld_mvinqty,ld_mvinamt
Decimal ld_otinqty,ld_otinamt
Decimal ld_pyinqty,ld_pyinamt
Int li_ifunit
String ls_str

Int li_statusflag
Decimal ld_capacity,ld_capacity_zj
s_mtrlcfg_expr s_pz[]
String ls_status_zj
Long ll_i
Int li_ifpack
Int if_recmp_balc

If sys_if_recmp_balc < 0 Then
	Select if_recmp_balc
		Into :if_recmp_balc
		From sys_msg Using commit_transaction  ;
	If commit_transaction.SQLCode <> 0 Then
		arg_msg = '查询是否执行结存表重算失败,'+commit_transaction.SQLErrText
		rslt = 0
		Goto ext
	End If
	
	If if_recmp_balc = 0 Then
		rslt = 0
		arg_msg = '由于系统升级,结存表结构与原来不同,请先通知管理员执行危险功能中的[按新结构重算现结存表]功能,才能审核和撤审进出仓单据'
		Goto ext
	End If
Else
	If sys_if_recmp_balc = 0 Then
		rslt = 0
		arg_msg = '由于系统升级,结存表结构与原来不同,请先通知管理员执行危险功能中的[按新结构重算现结存表]功能,才能审核和撤审进出仓单据'
		Goto ext
	End If
End If


If uo_option_change_status = '-1000' Then
	rslt = 0
	arg_msg = '选项:[029]配置标题文本,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_change_woodcode = '-1000' Then
	rslt = 0
	arg_msg = '选项:[027]配置1标题文本,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_change_pcode = '-1000' Then
	rslt = 0
	arg_msg = '选项:[028]配置2标题文本,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_cost_dec = -1000 Then
	rslt = 0
	arg_msg = '选项:[022]库存成本价转换小数点,读取初始默认值失败,操作取消!'
	Goto ext
End If


Select Mtrlprp,ifcost Into :li_storMtrlprp,:li_ifcost
	From u_storage
	Where storageid = :arg_storageid Using commit_transaction  ;
If commit_transaction.SQLCode <> 0 Then
	arg_msg = '查询仓库类型失败'
	rslt = 0
	Goto ext
End If

Select ifunit,ifpack,capacity,statusflag
	Into :li_ifunit,:li_ifpack,:ld_capacity,:li_statusflag
	From u_mtrldef
	Where mtrlid = :arg_mtrlid Using commit_transaction  ;
If commit_transaction.SQLCode <> 0 Then
	arg_msg = '查询物料信息失败'
	rslt = 0
	Goto ext
End If

If li_statusflag = 2 Then
	ld_capacity = 0
	f_checkpz(arg_status,s_pz[])
	For ll_i = 1 To  UpperBound(s_pz)
		ls_status_zj = s_pz[ll_i].cfgname
		
		Select capacity
			Into :ld_capacity_zj
			From u_mtrl_configure
			Where mtrlid = :arg_mtrlid
			And Name = :ls_status_zj;
		If commit_transaction.SQLCode <> 0 Then
			ld_capacity_zj = 0
		End If
		
		ld_capacity = ld_capacity + ld_capacity_zj * Dec(s_pz[ll_i].qty)
		
	Next
End If

If li_ifunit = 0 Then arg_uqty = 0

Int li_ifupdate_date
If billtype = 1 Or &
	billtype = 2  Or &
	billtype = 3  Or &
	billtype = 4  Or &
	billtype = 5  Or &
	billtype = 6  Or &
	billtype = 8  Then
	li_ifupdate_date = 1
Else
	li_ifupdate_date = 0
End If


//-------------------------------------------更新库存
If li_ifcost = 1 Then //核算金额
	Update u_mtrlware
		Set noallocqty = noallocqty + :arg_qty ,
		wsallocqty = wsallocqty + :arg_qty,
		unoallocqty = unoallocqty + :arg_uqty,
		wareamt = case noallocqty + :arg_qty when 0 then 0 else wareamt + round(:arg_qty * :arg_price,2) End,
		waredate = case :li_ifupdate_date when 1 then getdate() else waredate End,
		newprice = :arg_price,
		dscrp = :arg_dscrp,
		capacity = capacity + :ld_capacity * :arg_qty,
		cost = case noallocqty  + :arg_qty when 0 then cost else round((wareamt + :arg_qty * :arg_price) / ( noallocqty  + :arg_qty ),:uo_option_cost_dec) End
		Where ( mtrlid = :arg_mtrlid ) And
		( plancode = :arg_plancode ) And
		( storageid = :arg_storageid ) And
		( scid = :scid ) And
		( status = :arg_status ) And
		( sptid = :arg_sptid) And
		( dxflag = :arg_dxflag) And
		( woodcode = :arg_woodcode) And
		( pcode = :arg_pcode) And
		( mtrlcuscode = :arg_mtrlcuscode) And
		( Location = :arg_location) Using commit_transaction  ;
	If commit_transaction.SQLCode = 0 Then
		If commit_transaction.SQLNRows = 0 Then
			///////////////////////// //
			ls_newid = f_sys_scidentity(scid,"u_mtrlware","mtrlwareid",arg_msg,True,id_sqlca)
			If ls_newid <= 0 Then
				rslt = 0
				Goto ext
			End If
			///////////////////////// //
			ld_cost = Round(arg_price,uo_option_cost_dec)
			Insert Into u_mtrlware
				( scid,
				mtrlwareid,
				mtrlid,
				storageid,
				plancode,
				status,
				noallocqty,
				unoallocqty,
				wareamt,
				planprice,
				sptid,
				dxflag,
				woodcode,
				pcode,
				cost,
				storMtrlprp,
				dscrp,
				mtrlcuscode,
				location,
				capacity,
				wsallocqty)
				Values (
				:scid,
				:ls_newid,
				:arg_mtrlid,
				:arg_storageid,
				:arg_plancode,
				:arg_status,
				:arg_qty,
				:arg_uqty,
				round(:arg_price * :arg_qty,2),
				:arg_planprice,
				:arg_sptid,
				:arg_dxflag,
				:arg_woodcode,
				:arg_pcode,
				:ld_cost,
				:li_storMtrlprp,
				:arg_dscrp,
				:arg_mtrlcuscode,
				:arg_location,
				:ld_capacity * :arg_qty,
				:arg_qty) Using commit_transaction ;
			If commit_transaction.SQLCode <> 0 Then
				rslt = 0
				arg_msg = "因网络或其它原因导致物料["+arg_mtrlcode+"]库存建立操作失败"+"~n"+commit_transaction.SQLErrText
				Goto ext
			End If
			
		End If
	Else
		rslt = 0
		If arg_status <> '' Then
			ls_str = ' '+uo_option_change_status+':'+arg_status
		End If
		If arg_pcode <> '' Then
			ls_str = ls_str + ' '+uo_option_change_pcode+':'+arg_pcode
		End If
		If arg_woodcode <> '' Then
			ls_str = ls_str + ' '+uo_option_change_woodcode+':'+arg_woodcode
		End If
		or_err_part = 'column insert or update conflicts with a rule imposed by a previous create rule statement'
		If commit_transaction.SQLCode = 513 Or Pos(Lower(commit_transaction.SQLErrText),or_err_part) > 0 Then
			arg_msg = "物料["+arg_mtrlcode+"]同仓库内同批号没有足够的库存支持冲减"
		ElseIf Pos(commit_transaction.SQLErrText,'CK_u_mtrlware') > 0 Then
			arg_msg = "物料:"+arg_mtrlcode+ls_str+" 同仓库内同批号没有足够的库存支持冲减"
		ElseIf Pos(commit_transaction.SQLErrText,'CREATE RULE') > 0 And Pos(commit_transaction.SQLErrText,'cost') > 0 Then
			arg_msg = "物料:"+arg_mtrlcode+ls_str+" 同仓库内同批号的库存金额不够冲减"
		Else
			arg_msg = "因网络或其它原因导致物料["+arg_mtrlcode+"]库存更新操作失败"+"~n"+commit_transaction.SQLErrText
		End If
		Goto ext
	End If
	
Else // 不核算金额
	Update u_mtrlware
		Set wsallocqty = wsallocqty + :arg_qty ,
		noallocqty = noallocqty + :arg_qty ,
		unoallocqty = unoallocqty + :arg_uqty,
		wareamt = 0,
		waredate = case :li_ifupdate_date when 1 then getdate() else waredate End,
		newprice = 0,
		dscrp = :arg_dscrp,
		cost = 0,
		capacity = capacity + :ld_capacity * :arg_qty
		Where ( mtrlid = :arg_mtrlid ) And
		( plancode = :arg_plancode ) And
		( storageid = :arg_storageid ) And
		( scid = :scid ) And
		( status = :arg_status ) And
		( sptid = :arg_sptid) And
		( dxflag = :arg_dxflag) And
		( woodcode = :arg_woodcode) And
		( pcode = :arg_pcode) And
		( mtrlcuscode = :arg_mtrlcuscode) And
		( Location = :arg_location) Using commit_transaction  ;
	If commit_transaction.SQLCode = 0 Then
		If commit_transaction.SQLNRows = 0 Then
			///////////////////////// //
			ls_newid = f_sys_scidentity(scid,"u_mtrlware","mtrlwareid",arg_msg,True,id_sqlca)
			If ls_newid <= 0 Then
				rslt = 0
				Goto ext
			End If
			///////////////////////// //
			Insert Into u_mtrlware
				( scid,
				mtrlwareid,
				mtrlid,
				storageid,
				plancode,
				status,
				noallocqty,
				unoallocqty,
				wareamt,
				planprice,
				sptid,
				dxflag,
				woodcode,
				pcode,
				cost,
				storMtrlprp,
				dscrp,
				mtrlcuscode,
				location,
				capacity,
				wsallocqty)
				Values (
				:scid,
				:ls_newid,
				:arg_mtrlid,
				:arg_storageid,
				:arg_plancode,
				:arg_status,
				:arg_qty,
				:arg_uqty,
				0,
				0,
				:arg_sptid,
				:arg_dxflag,
				:arg_woodcode,
				:arg_pcode,
				0,
				:li_storMtrlprp,
				:arg_dscrp,
				:arg_mtrlcuscode,
				:arg_location,
				:ld_capacity * :arg_qty,
				:arg_qty) Using commit_transaction ;
			If commit_transaction.SQLCode <> 0 Then
				rslt = 0
				If Pos(commit_transaction.SQLErrText,'CK_u_mtrlware') > 0 Then
					If arg_status <> '' Then
						ls_str = ' '+uo_option_change_status+':'+arg_status
					End If
					If arg_pcode <> '' Then
						ls_str = ls_str + ' '+uo_option_change_pcode+':'+arg_pcode
					End If
					If arg_woodcode <> '' Then
						ls_str = ls_str + ' '+uo_option_change_woodcode+':'+arg_woodcode
					End If
					arg_msg = "物料:"+arg_mtrlcode+ls_str+" 同仓库内同批号没有足够的库存支持冲减"
				Else
					arg_msg = "因网络或其它原因导致物料["+arg_mtrlcode+"]库存建立操作失败"+"~n"+commit_transaction.SQLErrText
				End If
				Goto ext
			End If
			
		End If
	Else
		rslt = 0
		or_err_part = 'column insert or update conflicts with a rule imposed by a previous create rule statement'
		If commit_transaction.SQLCode = 513 Or Pos(Lower(commit_transaction.SQLErrText),or_err_part) > 0 Then
			arg_msg = "物料["+arg_mtrlcode+"]同仓库内同批号没有足够的库存支持冲减"
		ElseIf Pos(commit_transaction.SQLErrText,'CK_u_mtrlware') > 0 Then
			If arg_status <> '' Then
				ls_str = ' '+uo_option_change_status+':'+arg_status
			End If
			If arg_pcode <> '' Then
				ls_str = ls_str + ' '+uo_option_change_pcode+':'+arg_pcode
			End If
			If arg_woodcode <> '' Then
				ls_str = ls_str + ' '+uo_option_change_woodcode+':'+arg_woodcode
			End If
			arg_msg = "物料:"+arg_mtrlcode+ls_str+" 同仓库内同批号没有足够的库存支持冲减"
		Else
			arg_msg = "因网络或其它原因导致物料["+arg_mtrlcode+"]库存更新操作失败"+"~n"+commit_transaction.SQLErrText
		End If
		Goto ext
	End If
	
	
End If


ext:
If rslt = 0 Then
	Rollback;
End If
Return rslt







end function

public function integer uof_ref_assign_plan (long arg_scid, long arg_mtrlwareid, decimal arg_qty, ref s_inwaremx_assign_plan arg_s_ap, ref string arg_msg);Int rslt = 1
Long i,j
datastore ds_ap
ds_ap = CREATE datastore
ds_ap.DataObject = 'ds_inwaremx_assign_plan'
ds_ap.SetTransObject(commit_transaction)
ds_ap.Retrieve(arg_scid,arg_mtrlwareid)

FOR i = 1 TO ds_ap.RowCount()
	j++
	arg_s_ap.planid[j] = ds_ap.Object.planid[i]
	arg_s_ap.assigntype[j] = ds_ap.Object.assigntype[i]
	arg_s_ap.scid[j] = ds_ap.Object.scid[i]
	arg_s_ap.mtrlwareid[j] = ds_ap.Object.mtrlwareid[i]
	arg_s_ap.relbillid[j] = ds_ap.Object.relbillid[i]
	arg_s_ap.relprintid[j] = ds_ap.Object.relprintid[i]
	arg_s_ap.fpgrade[j] = ds_ap.Object.fpgrade[i]
	
	IF ds_ap.Object.planassignqty[i] - ds_ap.Object.assignqty[i] >= arg_qty THEN
		arg_s_ap.notassignqty[j] = arg_qty
		GOTO ext
	ELSE
		arg_s_ap.notassignqty[j] = ds_ap.Object.planassignqty[i] - ds_ap.Object.assignqty[i]
		arg_qty = arg_qty - (ds_ap.Object.planassignqty[i] - ds_ap.Object.assignqty[i])
	END IF
NEXT

ext:
RETURN rslt







end function

public function integer uof_ref_assign_plan_cancel (string arg_inwarecode, long arg_inprintid, ref s_inwaremx_assign_plan arg_s_ap, ref string arg_msg);Int rslt = 1
Long i,j
datastore ds_ap
ds_ap = CREATE datastore
ds_ap.DataObject = 'ds_inwaremx_assign_plan_cancel'
ds_ap.SetTransObject(commit_transaction)
ds_ap.Retrieve(arg_inwarecode,arg_inprintid)

FOR i = 1 TO ds_ap.RowCount()
	j++
	arg_s_ap.planid[j] = ds_ap.Object.planid[i]
	arg_s_ap.notassignqty[j] = ds_ap.Object.qty[i]
NEXT
DESTROY ds_ap
RETURN rslt







end function

public function integer uof_ref_assign_cancel (string arg_inwarecode, long arg_inprintid, ref s_inwaremx_assign arg_s_a, ref string arg_msg);Int rslt = 1
Long i,j
datastore ds_a
ds_a = CREATE datastore
ds_a.DataObject = 'ds_inwaremx_assign_cancel'
ds_a.SetTransObject(commit_transaction)
ds_a.Retrieve(arg_inwarecode,arg_inprintid)

FOR i = 1 TO ds_a.RowCount()
	j++
	arg_s_a.assignid[j] = ds_a.Object.assignid[i]
	arg_s_a.assignqty[j] = ds_a.Object.assignqty[i]
NEXT
destroy ds_a
RETURN rslt





end function

public function integer uof_ref_mtrlwareid (long arg_scid, long arg_storageid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, string arg_location, long arg_sptid, string arg_mtrlcuscode, ref long arg_mtrlwareid, ref string arg_msg);Int rslt = 1
Long ll_mtrlwareid_rst

SELECT u_mtrlware.mtrlwareid
	INTO :ll_mtrlwareid_rst
	FROM u_mtrlware
	WHERE u_mtrlware.scid = :arg_scid
	AND u_mtrlware.storageid = :arg_storageid
	AND u_mtrlware.mtrlid = :arg_mtrlid
	AND u_mtrlware.status = :arg_status
	AND u_mtrlware.woodcode = :arg_woodcode
	AND u_mtrlware.pcode = :arg_pcode
	AND u_mtrlware.plancode = :arg_plancode
	AND u_mtrlware.location = :arg_location
	AND u_mtrlware.sptid = :arg_sptid
	AND u_mtrlware.mtrlcuscode = :arg_mtrlcuscode
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询库存id失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF IsNull(ll_mtrlwareid_rst) THEN ll_mtrlwareid_rst = 0
IF ll_mtrlwareid_rst = 0 THEN
	arg_msg = '进仓明细库存id为0'
	rslt = 0
	GOTO ext
END IF

arg_mtrlwareid = ll_mtrlwareid_rst



ext:
RETURN rslt






end function

public function integer uof_check_barcodeqty (ref string arg_msg);Long i
Int rslt = 1
Decimal ld_inqty_outtype_2,ld_inqty_barcode

IF billtype <> 1 And billtype <> 3 And billtype <> 8 And billtype <> 9 THEN
	rslt = 1
	GOTO ext
END IF

IF billtype = 8 And (sptname = '更新成本价(正单)' Or sptname = '调整成本价(负单)') THEN
	rslt = 1
	GOTO ext
END IF

IF billtype = 1 THEN
	FOR i = 1 To it_mxbt_mx
		IF thflag = 0 THEN
			IF inwaremx_mx[i].outtype = 2 THEN ld_inqty_outtype_2 += inwaremx_mx[i].qty
		ELSE
			IF inwaremx_mx[i].outtype = 2 THEN ld_inqty_outtype_2 += Abs(inwaremx_mx[i].qty)
		END IF
	NEXT
ELSE
	FOR i = 1 To it_mxbt
		IF inwaremx[i].outtype = 2 THEN ld_inqty_outtype_2 += inwaremx[i].qty
	NEXT
END IF

FOR i = 1 To it_mxbt_barcode
	ld_inqty_barcode += s_mx_barcode[i].qty * s_mx_barcode[i].packqty
NEXT

IF ld_inqty_outtype_2 <> ld_inqty_barcode THEN
	rslt = 0
	IF billtype = 1 THEN
		arg_msg = '收货单包件明细按条码进仓数量与条码明细数量不相符,请检查包件明细的物料资料是否设置了使用条码进出仓'
	ELSE
		arg_msg = '进仓单明细按条码进仓数量与条码明细数量不相符,,请检查进仓明细的物料资料是否设置了使用条码进出仓'
	END IF
	GOTO ext
END IF

ext:
RETURN rslt





end function

public function integer uof_inbarcode_add (integer arg_billtype, long arg_scid, long arg_inwareid, long arg_printid, string arg_barcode, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1

INSERT INTO U_inwaremx_mx_barcode
	(billtype,scid,inwareid,printid,barcode,qty)
	VALUES
	(:arg_billtype,
	:arg_scid,:arg_inwareid,:arg_printid,:arg_barcode,:arg_qty);
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '进仓明细保存条码失败,行:'+String(arg_printid)+',条码:'+arg_barcode+','+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt




end function

public function integer c_priceaudit (long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1,i
DateTime null_dt

SetNull(null_dt)

IF uo_option_inout_type = -1000 THEN
	rslt = 0
	arg_msg = '选项:[142]进出仓高级选项,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_barcode_inwareother_paudit = -1000 THEN
	rslt = 0
	arg_msg = '选项:[206]仓库使用条码流程,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


IF uo_option_barcode_inwarebuy_paudit = -1000 THEN
	rslt = 0
	arg_msg = '选项:[208]仓库使用条码流程,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


IF uo_option_barcode_inwarecp_paudit = -1000 THEN
	rslt = 0
	arg_msg = '选项:[207]仓库使用条码流程,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF p_getinfo(arg_scid,arg_billid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF


IF priceflag = 0 THEN
	rslt = 0
	arg_msg = "单据还未确认,不能反确认"
	GOTO ext
END IF

IF uo_option_inout_type = 2 And &
	( billtype = 1 And uo_option_barcode_inwarebuy_paudit  = 1 Or &
	billtype = 3 And uo_option_barcode_inwarecp_paudit  = 1 Or &
	billtype = 8 And uo_option_barcode_inwareother_paudit  = 1 ) THEN
	IF flag = 1 THEN
		rslt = 0
		arg_msg = "单据已仓库审核"
		GOTO ext
	END IF
END IF

IF uo_option_barcode_inwarecp_paudit = 2 THEN
	IF flag = 1 THEN
		rslt = 0
		arg_msg = "单据已仓库审核"
		GOTO ext
	END IF
END IF



UPDATE u_inware
	SET priceflag = 0,
	pricedate = :null_dt,
	pricerep = ''
	WHERE inwareid = :arg_billid
	AND scid = :arg_scid
	And priceflag = 1;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致反确认单据操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在反确认,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

priceflag = 0
ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF

RETURN rslt






end function

public function integer priceaudit (long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1,i

IF p_getinfo(arg_scid,arg_billid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF priceflag = 1 THEN
	rslt = 0
	arg_msg = "单据已经确认,不能再确认"
	GOTO ext
END IF

UPDATE u_inware
	SET priceflag = 1,
	pricedate = getdate(),
	pricerep = :publ_operator
	WHERE inwareid = :arg_billid
	AND scid = :arg_scid
	AND priceflag = 0 ;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致确认单据操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在确认,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

priceflag = 1
ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF

RETURN rslt



end function

public function integer uof_check_qty_to_bqty (ref string arg_msg);Int rslt = 1
//Long ll_j,ll_k
//Long ll_f,ll_arr
//Long ll_mtrlware_arr[]
//Decimal ld_outqty_arr[]
//Long ll_mtrlware_arr_bill[]
//Decimal ld_outqty_arr_bill[]
//Boolean lb_equal = FALSE
//
////计算条码出仓数
//FOR ll_j = 1 TO it_mxbt_barcode
//	ll_f = 0
//	ll_arr = UpperBound(ll_mtrlware_arr)
//	FOR ll_k = 1 TO ll_arr
//		IF ll_mtrlware_arr[ll_k] = s_mx_barcode[ll_j].mtrlwareid THEN
//			ll_f = ll_k
//			EXIT
//		END IF
//	NEXT
//	
//	IF ll_f > 0 THEN
//		ld_outqty_arr[ll_f] += s_mx_barcode[ll_j].outqty
//	ELSE
//		ll_arr++
//		ll_mtrlware_arr[ll_arr] = s_mx_barcode[ll_j].mtrlwareid
//		ld_outqty_arr[ll_arr] = s_mx_barcode[ll_j].outqty
//	END IF
//NEXT
//
////计算出仓明细出仓数
//IF billtype = 1 THEN
//	FOR ll_j = 1 TO it_mxbt_mx
//		ll_f = 0
//		ll_arr = UpperBound(ll_mtrlware_arr_bill)
//		FOR ll_k = 1 TO ll_arr
//			IF ll_mtrlware_arr_bill[ll_k] = outwaremx_mx[ll_j].mtrlwareid THEN
//				ll_f = ll_k
//				EXIT
//			END IF
//		NEXT
//		
//		IF ll_f > 0 THEN
//			ld_outqty_arr_bill[ll_f] += outwaremx_mx[ll_j].qty
//		ELSE
//			ll_arr++
//			ll_mtrlware_arr_bill[ll_arr] = outwaremx_mx[ll_j].mtrlwareid
//			ld_outqty_arr_bill[ll_arr] = outwaremx_mx[ll_j].qty
//		END IF
//	NEXT
//ELSE
//	FOR ll_j = 1 TO it_mxbt
//		ll_f = 0
//		ll_arr = UpperBound(ll_mtrlware_arr_bill)
//		FOR ll_k = 1 TO ll_arr
//			IF ll_mtrlware_arr_bill[ll_k] = outwaremx[ll_j].mtrlwareid THEN
//				ll_f = ll_k
//				EXIT
//			END IF
//		NEXT
//		
//		IF ll_f > 0 THEN
//			ld_outqty_arr_bill[ll_f] += outwaremx[ll_j].qty
//		ELSE
//			ll_arr++
//			ll_mtrlware_arr_bill[ll_arr] = outwaremx[ll_j].mtrlwareid
//			ld_outqty_arr_bill[ll_arr] = outwaremx[ll_j].qty
//		END IF
//	NEXT
//END IF
//
////检查1
//FOR ll_j = 1 TO UpperBound(ll_mtrlware_arr_bill)
//	lb_equal = FALSE
//	IF ld_outqty_arr_bill[ll_j] = 0 THEN CONTINUE
//	
//	FOR ll_k = 1 TO UpperBound(ll_mtrlware_arr)
//		IF ll_mtrlware_arr_bill[ll_j] = ll_mtrlware_arr[ll_k] THEN
//			IF ld_outqty_arr_bill[ll_j] = ld_outqty_arr[ll_k] THEN
//				lb_equal = TRUE
//			END IF
//		END IF
//	NEXT
//	
//	IF NOT lb_equal THEN
//		arg_msg = '出仓明细按条码出仓物料的出仓数与条码扫描明细不相等,请检查'
//		rslt = 0
//		GOTO ext
//	END IF
//NEXT
//
////检查2
//FOR ll_j = 1 TO UpperBound(ll_mtrlware_arr)
//	lb_equal = FALSE
//	IF ld_outqty_arr[ll_j] = 0 THEN CONTINUE
//	
//	FOR ll_k = 1 TO UpperBound(ll_mtrlware_arr_bill)
//		IF ll_mtrlware_arr[ll_j] = ll_mtrlware_arr_bill[ll_k] THEN
//			IF ld_outqty_arr[ll_j] = ld_outqty_arr_bill[ll_k] THEN
//				lb_equal = TRUE
//			END IF
//		END IF
//	NEXT
//	
//	IF NOT lb_equal THEN
//		arg_msg = '条码扫描明细与出仓明细按条码出仓物料的出仓数不相等,请检查'
//		rslt = 0
//		GOTO ext
//	END IF
//NEXT
//
//
//ext:
RETURN rslt













end function

public function integer uof_set_qty_equal_bqty (long arg_scid, long arg_inwareid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Int li_ref_outtype
Long ll_i,ll_j,ll_k
Long ll_f,ll_arr
Decimal ld_updateqty
Long ll_mtrlid,ll_cusid,ll_orderid
String ls_status,ls_woodcode,ls_pcode,ls_plancode,ls_mtrlcuscode,ls_location
s_mtrlware_noalloc_array arg_s_inmx,arg_s_inmx_barcode

IF arg_inwareid <= 0 THEN
	arg_msg = '错误的单据id'
	rslt = 0
	GOTO ext
END IF

IF getinfo(arg_scid,arg_inwareid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF f_rst_storage_outtype(storageid,li_ref_outtype) = 0 THEN
	arg_msg = '查询仓库出仓策略失败,请检查仓库资料'
	rslt = 0
	GOTO ext
END IF

IF li_ref_outtype <> 2 and li_ref_outtype <> 3 THEN
	arg_msg = '仓库出仓策略不是使用条码出仓,操作取消,请检查仓库资料'
	rslt = 0
	GOTO ext
END IF

IF priceflag = 0 THEN
	arg_msg = '单据未确认,操作取消'
	rslt = 0
	GOTO ext
END IF

IF flag = 1 THEN
	arg_msg = '单据已仓审,操作取消'
	rslt = 0
	GOTO ext
END IF

//计算条码出仓数
FOR ll_j = 1 TO it_mxbt_barcode
	ll_f = 0
	
	SELECT u_getbar.mtrlid,
		u_getbar.cusid,
		u_getbar.status,
		u_getbar.woodcode,
		u_getbar.pcode,
		u_getbar.plancode,
		u_getbar.mtrlcuscode,
		u_getbar.location,
		u_getbar.orderid
		INTO :ll_mtrlid,
		:ll_cusid,
		:ls_status,
		:ls_woodcode,
		:ls_pcode,
		:ls_plancode,
		:ls_mtrlcuscode,
		:ls_location,
		:ll_orderid
		FROM u_getbar,u_mtrlware_mx
		WHERE u_getbar.getbarid = u_mtrlware_mx.getbarid
		AND u_mtrlware_mx.barcode = :s_mx_barcode[ll_j].barcode
		USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '条码:'+s_mx_barcode[ll_j].barcode+',查询条码信息失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	ll_arr = UpperBound(arg_s_inmx_barcode.mtrlid)
	
	FOR ll_k = 1 TO ll_arr
		IF arg_s_inmx_barcode.mtrlid[ll_k] = ll_mtrlid AND &
			arg_s_inmx_barcode.sptid[ll_k] = ll_cusid AND &
			arg_s_inmx_barcode.status[ll_k] = ls_status AND &
			arg_s_inmx_barcode.woodcode[ll_k] = ls_woodcode AND &
			arg_s_inmx_barcode.pcode[ll_k] = ls_pcode AND &
			arg_s_inmx_barcode.plancode[ll_k] = ls_plancode AND &
			arg_s_inmx_barcode.mtrlcuscode[ll_k] = ls_mtrlcuscode AND &
			arg_s_inmx_barcode.Location[ll_k] = ls_location AND &
			arg_s_inmx_barcode.orderid[ll_k] = ll_orderid THEN
			ll_f = ll_k
			EXIT
		END IF
	NEXT
	
	IF ll_f > 0 THEN
		arg_s_inmx_barcode.noallocqty[ll_f] += s_mx_barcode[ll_j].inqty
	ELSE
		ll_arr++
		arg_s_inmx_barcode.mtrlid[ll_arr] = ll_mtrlid
		arg_s_inmx_barcode.sptid[ll_arr] = ll_cusid
		arg_s_inmx_barcode.status[ll_arr] = ls_status
		arg_s_inmx_barcode.woodcode[ll_arr] = ls_woodcode
		arg_s_inmx_barcode.pcode[ll_arr] = ls_pcode
		arg_s_inmx_barcode.plancode[ll_arr] = ls_plancode
		arg_s_inmx_barcode.mtrlcuscode[ll_arr] = ls_mtrlcuscode
		arg_s_inmx_barcode.Location[ll_arr] = ls_location
		arg_s_inmx_barcode.orderid[ll_arr] = ll_orderid
		arg_s_inmx_barcode.noallocqty[ll_arr] = s_mx_barcode[ll_j].inqty
	END IF
NEXT

UPDATE u_inwaremx
	SET u_inwaremx.uqty = 0,
	u_inwaremx.qty = 0
	FROM u_inwaremx,u_mtrldef
	WHERE u_inwaremx.scid = :arg_scid
	AND u_inwaremx.inwareid = :arg_inwareid
	AND u_inwaremx.mtrlid = u_mtrldef.mtrlid
	AND u_mtrldef.outtype = 2 USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '清除进仓明细进仓数失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

FOR ll_i = 1 TO it_mxbt
	ld_updateqty = 0
	IF inwaremx[ll_i].outtype <> 2 THEN CONTINUE
	
	FOR ll_k = 1 TO UpperBound(arg_s_inmx_barcode.mtrlid)
		IF arg_s_inmx_barcode.noallocqty[ll_k] = 0 THEN CONTINUE
		
		IF inwaremx[ll_i].mtrlid = arg_s_inmx_barcode.mtrlid[ll_k] AND &
			inwaremx[ll_i].sptid = arg_s_inmx_barcode.sptid[ll_k] AND &
			inwaremx[ll_i].status = arg_s_inmx_barcode.status[ll_k] AND &
			inwaremx[ll_i].woodcode = arg_s_inmx_barcode.woodcode[ll_k] AND &
			inwaremx[ll_i].pcode = arg_s_inmx_barcode.pcode[ll_k] AND &
			inwaremx[ll_i].plancode = arg_s_inmx_barcode.plancode[ll_k] AND &
			inwaremx[ll_i].mtrlcuscode = arg_s_inmx_barcode.mtrlcuscode[ll_k] AND &
			inwaremx[ll_i].Location = arg_s_inmx_barcode.Location[ll_k] AND &
			inwaremx[ll_i].relid = arg_s_inmx_barcode.orderid[ll_k] THEN
			
			IF inwaremx[ll_i].qty >= arg_s_inmx_barcode.noallocqty[ll_k] THEN
				ld_updateqty = arg_s_inmx_barcode.noallocqty[ll_k]
				arg_s_inmx_barcode.noallocqty[ll_k] = 0
			ELSE
				ld_updateqty = inwaremx[ll_i].qty
				arg_s_inmx_barcode.noallocqty[ll_k] = arg_s_inmx_barcode.noallocqty[ll_k] - inwaremx[ll_i].qty
			END IF
			EXIT
		END IF
	NEXT
	
	IF ld_updateqty > 0 THEN
		UPDATE u_inwaremx
			SET u_inwaremx.uqty = :ld_updateqty,
			u_inwaremx.qty = :ld_updateqty
			WHERE u_inwaremx.scid = :arg_scid
			AND u_inwaremx.inwareid = :arg_inwareid
			AND u_inwaremx.printid = :inwaremx[ll_i].printid USING commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '行:'+String(ll_i)+',更新明细条码进仓数到明细进仓数失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	END IF
NEXT


ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF

RETURN rslt





end function

public function integer uof_secaudit (long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1,i

IF p_getinfo(arg_scid,arg_billid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF secflag = 1 THEN
	rslt = 0
	arg_msg = "单据已经财审,不能再财审"
	GOTO ext
END IF

UPDATE u_inware
	SET secflag = 1,
	secauditingdate = getdate(),
	secauditingrep = :publ_operator
	WHERE inwareid = :arg_billid
	AND scid = :arg_scid
	And secflag = 0 ;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致确认单据操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在财审,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

secflag = 1
ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF

RETURN rslt





end function

public function integer uof_c_secaudit (long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1,i
DateTime null_dt
SetNull(null_dt)

Int li_StoreBalcType,li_AmtAuditFlag

IF p_getinfo(arg_scid,arg_billid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF secflag = 0 THEN
	rslt = 0
	arg_msg = "单据不在财审状态,不能执行财撤"
	GOTO ext
END IF

//检查仓库是否分开结存

IF balcdateint <> 0 THEN
	SELECT StoreBalcType
		INTO :li_StoreBalcType
		FROM u_storage
		Where storageid = :storageid;
	IF sqlca.SQLCode <> 0 THEN
		li_StoreBalcType = 0
	END IF
	
	//如果分开结存,检查结存表是否已金额结存
	IF li_StoreBalcType = 1 THEN
		SELECT top 1 AmtAuditFlag
			INTO :li_AmtAuditFlag
			FROM u_warebalc
			WHERE storageid = :storageid
			And balcdateint = :balcdateint;
		IF sqlca.SQLCode <> 0 THEN
			li_AmtAuditFlag = 0
		END IF
		
		IF li_AmtAuditFlag = 1 THEN
			rslt = 0
			arg_msg = '仓库结存日期段已执行过金额结存,不能财撤单据'
			GOTO ext
		END IF
	END IF
END IF

UPDATE u_inware
	SET secflag = 0,
	secauditingdate = :null_dt,
	secauditingrep = ''
	WHERE inwareid = :arg_billid
	AND scid = :arg_scid
	And secflag = 1 ;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致确认单据操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在财审,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

secflag = 0
ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF

RETURN rslt









end function

public function integer acceptmx (long arg_printid, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, decimal arg_uqty, decimal arg_enprice, decimal arg_rebate, string arg_mxdscrp, ref string arg_msg, decimal arg_jgprice, long arg_relid, integer arg_ifrel, string arg_woodcode, string arg_pcode, long arg_cusid_sptid, string arg_unit, decimal arg_rate, decimal arg_qty, long arg_relprintid, decimal arg_checkqty, string arg_result, string arg_waredscrp, long arg_relbillid, long arg_relbillprintid, string arg_mtrlcuscode, string arg_location, decimal arg_deliqty, decimal arg_tax);
//long arg_printid, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, 
//decimal arg_uqty, decimal arg_enprice, decimal arg_rebate, string arg_mxdscrp,  
//decimal arg_jgprice, long arg_relid, integer arg_ifrel, string arg_woodcode, string arg_pcode, 
//long arg_cusid_sptid, string arg_unit, decimal arg_rate, decimal arg_qty, long arg_relprintid, 
//decimal arg_checkqty, string arg_result, string arg_waredscrp, long arg_relbillid, long arg_relbillprintid, 
//string arg_mtrlcuscode, string arg_location, decimal arg_deliqty, decimal arg_tax)

s_inwaremx s_mx

s_mx.printid = arg_printid
s_mx.mtrlid = arg_mtrlid
s_mx.mtrlcode = arg_mtrlcode
s_mx.plancode = arg_plancode
s_mx.status = arg_status
s_mx.uqty = arg_uqty
s_mx.enprice = arg_enprice
s_mx.rebate = arg_rebate
s_mx.mxdscrp = arg_mxdscrp
s_mx.jgprice = arg_jgprice
s_mx.relid = arg_relid
s_mx.ifrel = arg_ifrel
s_mx.woodcode = arg_woodcode
s_mx.pcode = arg_pcode
s_mx.sptid = arg_cusid_sptid
s_mx.unit = arg_unit
s_mx.rate = arg_rate
s_mx.qty = arg_qty
s_mx.relprintid = arg_relprintid
s_mx.checkqty = arg_checkqty
s_mx.result = arg_result
s_mx.waredscrp = arg_waredscrp
s_mx.relbillid = arg_relbillid
s_mx.relbillprintid = arg_relbillprintid
s_mx.mtrlcuscode = arg_mtrlcuscode
s_mx.location = arg_location
s_mx.deliqty = arg_deliqty
s_mx.tax = arg_tax

return acceptmx(s_mx, arg_msg)

/*
Long rslt = 1,cnt = 0,ls_i
Decimal ld_planprice,ld_cost
Decimal ld_noauditqty,ld_bootqty
Decimal ld_consignedqty,ld_uqty
String ls_relcode,ls_unit
Decimal lde_mx_qty
Decimal ld_uprate,ld_upqty
Int li_ifpack,li_ifpackpro

Decimal ld_capacity,ld_capacity_zj
s_mtrlcfg_expr s_pz[]
String ls_status_zj
Long ll_i
Decimal lde_newprice

IF uo_option_buy_zero = -1000 THEN
	rslt = 0
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_wfjg_zero = -1000 THEN
	rslt = 0
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_change_status = '-1000' THEN
	rslt = 0
	arg_msg = '选项:[029]配置标题文本,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_change_woodcode = '-1000' THEN
	rslt = 0
	arg_msg = '选项:[027]配置1标题文本,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_change_pcode = '-1000' THEN
	rslt = 0
	arg_msg = '选项:[028]配置2标题文本,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_unit_dec = -1000 THEN
	rslt = 0
	arg_msg = '选项:[023]辅助单位转换库存单位小数位,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_ifovertask = -1000 THEN
	rslt = 0
	arg_msg = '选项:[010]超采购,外协订单收货,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_ifovertask_cp = -1000 THEN
	rslt = 0
	arg_msg = '选项:[112]超生产指令单数量进仓,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

uo_spt_price uo_sptprice
uo_sptprice = Create uo_spt_price

IF it_newbegin = False And it_updatebegin = False THEN
	rslt = 0
	arg_msg = "非编辑状态不可以使用,操作取消"
	GOTO ext
END IF

//清除空值
IF IsNull(arg_printid) THEN arg_printid = 0
IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0
IF IsNull(arg_mtrlcode) THEN arg_mtrlcode = ''
IF IsNull(arg_plancode) THEN arg_plancode = ''
IF IsNull(arg_status) THEN arg_status = ''
IF IsNull(arg_woodcode) THEN arg_woodcode = ''
IF IsNull(arg_pcode) THEN arg_pcode = ''
IF IsNull(arg_uqty) THEN arg_uqty = 0
IF IsNull(arg_enprice) THEN arg_enprice = 0
IF IsNull(arg_rebate) THEN arg_rebate = 1
IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = ''
IF IsNull(arg_jgprice) THEN arg_jgprice = 0
IF IsNull(arg_relid) THEN arg_relid = 0
IF IsNull(arg_ifrel) THEN arg_ifrel = 0
IF IsNull(arg_mxdscrp) THEN arg_woodcode = ''
IF IsNull(arg_pcode) THEN arg_pcode = ''
IF IsNull(arg_cusid_sptid) THEN arg_cusid_sptid = 0
IF IsNull(arg_relprintid) THEN arg_relprintid = 0
IF IsNull(arg_checkqty) THEN arg_checkqty = 0
IF IsNull(arg_result) THEN arg_result = ''
IF IsNull(arg_waredscrp) THEN arg_waredscrp = ''
IF IsNull(arg_relbillid) THEN arg_relbillid = 0
IF IsNull(arg_relbillprintid) THEN arg_relbillprintid = 0

IF IsNull(arg_mtrlcuscode) THEN arg_mtrlcuscode = ''
IF IsNull(arg_location) THEN arg_location = ''

IF IsNull(arg_deliqty) THEN arg_deliqty = 0
IF IsNull(arg_tax) THEN arg_tax = 0


//IF arg_rebate = 0 THEN arg_rebate = 1

IF IsNull(arg_unit) THEN arg_unit = ''
IF IsNull(arg_rate) THEN arg_rate = 1
IF arg_rate = 0  THEN arg_rate = 1

IF arg_mtrlid = 0 THEN //OR arg_uqty = 0 OR arg_qty = 0  THEN
	rslt = 1
	GOTO ext
END IF

arg_status = Trim(arg_status)
arg_woodcode = Trim(arg_woodcode)
arg_pcode = Trim(arg_pcode)
arg_plancode = Trim(arg_plancode)
arg_mtrlcuscode = Trim(arg_mtrlcuscode)
arg_location = Trim(arg_location)

IF billtype <> 1 THEN
	mrate = 1
END IF

//检查物料id
Int li_statusflag,li_woodcodeflag,li_pcodeflag
Int li_status_check,li_woodcode_check,li_pcode_check
Int li_outtype_mtrl,li_ifunit

SELECT unit,
	statusflag,
	woodcodeflag,
	pcodeflag,
	status_check,
	woodcode_check,
	pcode_check,
	capacity * capaparm,
	outtype,
	ifpack,
	ifpackpro,
	ifunit
	INTO :ls_unit,
	:li_statusflag,
	:li_woodcodeflag,
	:li_pcodeflag,
	:li_status_check,
	:li_woodcode_check,
	:li_pcode_check,
	:ld_capacity,
	:li_outtype_mtrl,
	:li_ifpack,
	:li_ifpackpro,
	:li_ifunit
	FROM u_mtrldef
	Where u_mtrldef.mtrlid = :arg_mtrlid Using commit_transaction ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '行:'+String(arg_printid)+",查询操作失败,物料或产品编号:"+arg_mtrlcode
	GOTO ext
END IF

IF billtype <> 23 and billtype <> 25 And billtype <> 1 And ( li_ifpackpro = 1 Or li_ifpackpro = 2 ) THEN
	arg_msg = "第"+String(arg_printid)+"行,个性包件产品或通用包件产品不能直接开进仓单,操作取消"
	rslt = 0
	GOTO ext
END IF

IF billtype <> 9 THEN
	IF li_ifunit = 1 THEN
		IF arg_uqty = arg_qty And arg_unit <> ls_unit THEN
			rslt = 0
			arg_msg = "第"+String(arg_printid)+"行,物料使用库存双数量核算,但录入的计量单位数量与库存单位数量相同,操作取消"
			GOTO ext
		END IF
	END IF
END IF

IF li_ifpack = 2 And arg_mtrlcuscode = '' THEN
	arg_msg = '行:'+String(arg_printid)+",物料:"+arg_mtrlcode+",为个性包件,但没有产品批号,请检查"
	rslt = 0
	GOTO ext
END IF

IF li_ifpackpro = 2 And arg_mtrlcuscode = '' THEN
	arg_msg = '行:'+String(arg_printid)+",物料:"+arg_mtrlcode+",为个性包件产品,但没有产品批号,请检查"
	rslt = 0
	GOTO ext
END IF

IF li_ifpackpro = 4 And arg_mtrlcuscode = '' THEN
	arg_msg = '行:'+String(arg_printid)+",物料:"+arg_mtrlcode+",为组合配置整排散进包件产品,但没有产品批号,请检查"
	rslt = 0
	GOTO ext
END IF

f_get_planprice_mtrl(arg_mtrlid,arg_status,arg_woodcode,arg_pcode,ld_planprice)

IF Not ((uo_option_buy_zero = 1 And billtype = 1) Or &
	(uo_option_wfjg_zero = 1 And billtype = 4 ) Or &
	(billtype = 9 And relid > 0 And li_outtype_mtrl = 2)) THEN
	
	IF billtype = 9 THEN
		IF arg_uqty = 0 And arg_qty = 0 THEN
			rslt = 1
			GOTO ext
		END IF
	ELSE
		IF arg_uqty = 0 Or arg_qty = 0 Or arg_deliqty = 0  THEN
			rslt = 1
			GOTO ext
		END IF
	END IF
	
	IF arg_uqty = 0 THEN
		arg_rate = 0
	ELSE
		arg_rate = arg_qty / arg_uqty
	END IF
	
	IF billtype <> 9 THEN
		IF arg_checkqty = 0 THEN arg_checkqty = arg_uqty
	END IF
END IF

IF arg_rebate < 0 THEN
	arg_msg = '行:'+String(arg_printid)+',折扣错误,请检查'
	rslt = 0
	GOTO ext
END IF

//IF arg_checkqty < arg_uqty THEN
//	arg_msg = '第'+String(arg_printid)+'行,送货数不能少于实进仓数'
//	rslt = 0
//	GOTO ext
//END IF

IF li_statusflag = 2 THEN
	IF arg_status = '' THEN
		arg_msg = '行:'+String(arg_printid)+',物料'+uo_option_change_status + '字段使用组合配置,请输入'
		rslt = 0
		GOTO ext
	END IF
ELSEIF li_statusflag = 4 And li_status_check = 1  THEN
	IF arg_status = '' THEN
		arg_msg = '行:'+String(arg_printid)+',物料'+uo_option_change_woodcode + '字段使用部件选配,请输入'
		rslt = 0
		GOTO ext
	END IF
ELSEIF li_statusflag = 1 Or li_statusflag = 0 THEN
	IF f_check_status(1,arg_status) = 0 THEN
		rslt = 0
		arg_msg = '行:'+String(arg_printid)+",查询操作失败,可能"+uo_option_change_status+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_status
		GOTO ext
	END IF
END IF

IF li_woodcodeflag = 4  And li_woodcode_check = 1 THEN
	IF arg_woodcode = '' THEN
		arg_msg = '行:'+String(arg_printid)+',物料'+uo_option_change_woodcode + '字段使用部件选配,请输入'
		rslt = 0
		GOTO ext
	END IF
ELSEIF li_woodcodeflag = 1 Or li_woodcodeflag = 0 THEN
	IF f_check_status(2,arg_woodcode) = 0 THEN
		rslt = 0
		arg_msg = '行:'+String(arg_printid)+",查询操作失败,可能"+uo_option_change_woodcode+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_woodcode
		GOTO ext
	END IF
END IF

IF li_pcodeflag = 4  And li_pcode_check = 1 THEN
	IF arg_pcode = '' THEN
		arg_msg = '行:'+String(arg_printid)+',物料'+uo_option_change_pcode + '字段使用部件选配,请输入'
		rslt = 0
		GOTO ext
	END IF
ELSEIF li_pcodeflag = 1 Or li_pcodeflag = 0 THEN
	IF f_check_status(3,arg_pcode) = 0 THEN
		rslt = 0
		arg_msg = '行:'+String(arg_printid)+",查询操作失败,可能"+uo_option_change_pcode+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_pcode
		GOTO ext
	END IF
END IF

IF li_statusflag = 2 THEN
	ld_capacity = 0
	f_checkpz(arg_status,s_pz[])
	FOR ll_i = 1 To  UpperBound(s_pz)
		ls_status_zj = s_pz[ll_i].cfgname
		
		SELECT capacity * capaparm
			INTO :ld_capacity_zj
			FROM u_mtrl_configure
			WHERE mtrlid = :arg_mtrlid
			And Name = :ls_status_zj Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "第"+String(arg_printid)+"行,查询子件 "+ls_status_zj+" 折算套数参数操作失败"
			GOTO ext
		END IF
		
		ld_capacity = ld_capacity + ld_capacity_zj * Dec(s_pz[ll_i].qty)
		
	NEXT
END IF

Int li_iflimitprice
SELECT iflimitprice
	INTO :li_iflimitprice
	FROM u_mtrldef
	Where mtrlid = :arg_mtrlid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '行:'+String(arg_printid)+',查询物料:'+arg_mtrlcode+'限价属性失败 '+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF billtype <> 9 THEN
	IF Trim(ls_unit) <> Trim(arg_unit) And arg_rate = 1 THEN
		arg_msg = '进仓单,行:'+String(arg_printid)+',物料库存单位:'+Trim(ls_unit)+'与采购单位:'+Trim(arg_unit)+'不同,但转换率为1,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF Trim(ls_unit) = Trim(arg_unit) And arg_rate <> 1 THEN
		arg_msg = '进仓单,行:'+String(arg_printid)+',物料库存单位:'+Trim(ls_unit)+'与采购单位:'+Trim(arg_unit)+'相同,但转换率不为1,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF



//查询采购限价并检查进仓价
IF billtype = 1 THEN
	IF uo_sptprice.uof_check_limitprice(thflag,arg_mtrlid,arg_status,arg_woodcode,arg_pcode,arg_unit,arg_enprice * arg_rebate,arg_msg) = 0 THEN
		arg_msg = '行:'+String(arg_printid)+","+arg_msg
		rslt = 0
		GOTO ext
	END IF
	
	IF li_iflimitprice = 1 THEN
		IF uo_sptprice.uof_check_price(thflag,sptid,arg_mtrlid,arg_mtrlcode,arg_unit,arg_status,arg_woodcode,arg_pcode,'',moneyid,arg_enprice * arg_rebate,indate,arg_msg) = 0 THEN
			arg_msg = '行:'+String(arg_printid)+","+arg_msg
			rslt = 0
			GOTO ext
		END IF
	END IF
END IF

//增加新字段 newprice  最新报价

IF billtype  = 1 THEN
	DateTime ldt_effdate
	Decimal ls_1stnewcost,ls_1stzqrate,ls_1strate
	String ls_msg
	String ls_1stunit
	ls_1stunit = arg_unit
	ldt_effdate = DateTime(Today(),Time(0))
	
	IF uo_sptprice.uof_getmtrlsptprice(moneyid,sptid,arg_mtrlid,ls_1stunit,arg_status,arg_woodcode,arg_pcode,'',ls_1stnewcost,ls_1stzqrate,ls_1strate,ldt_effdate,ls_msg) <> 1 THEN
		lde_newprice   = 0
	ELSE
		lde_newprice  = ls_1stnewcost
	END IF
ELSE
	lde_newprice = 0
END IF



CHOOSE CASE billtype
	CASE 1,26
		IF arg_ifrel > 0 THEN
			IF arg_relid = 0 THEN
				arg_msg = '行:'+String(arg_printid)+',请先择相应的订单'
				rslt = 0
				GOTO ext
			END IF
			
			SELECT taskcode,sum(uqty - consignedqty - stopqty),sum(uqty),sum(consignedqty)
				INTO :ls_relcode,:ld_bootqty,:ld_uqty,:ld_consignedqty
				FROM u_buytaskmx,u_buytask
				WHERE u_buytaskmx.taskid = :arg_relid
				AND u_buytaskmx.scid = :scid
				AND u_buytaskmx.printid = :arg_relprintid
				AND u_buytaskmx.taskid =  u_buytask.taskid
				AND u_buytaskmx.scid =  u_buytask.scid
				GROUP BY taskcode
				Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(arg_printid)+',查询采购订单是否有订购物料:'+arg_mtrlcode+'失败'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			IF billtype = 1 THEN
				lde_mx_qty = 0
				FOR ls_i = 1 To it_mxbt
					IF arg_mtrlid = inwaremx[ls_i].mtrlid And &
						arg_relid = inwaremx[ls_i].relid And &
						arg_relprintid = inwaremx[ls_i].relprintid THEN
						lde_mx_qty = lde_mx_qty + inwaremx[ls_i].uqty
					END IF
				NEXT
				lde_mx_qty = lde_mx_qty + arg_uqty
				
				//查已开单数
				ld_noauditqty = 0
				SELECT sum(uqty) INTO :ld_noauditqty
					FROM u_inwaremx,u_inware
					WHERE u_inwaremx.relid = :arg_relid
					AND u_inwaremx.sptid_cusid = :arg_cusid_sptid
					AND u_inwaremx.mtrlid = :arg_mtrlid
					AND u_inwaremx.status = :arg_status
					AND u_inwaremx.woodcode = :arg_woodcode
					AND u_inwaremx.pcode = :arg_pcode
					AND u_inwaremx.unit = :arg_unit
					AND u_inwaremx.relprintid = :arg_relprintid
					AND u_inware.inwareid <> :inwareid
					AND u_inware.flag = 0
					AND u_inware.inwareid = u_inwaremx.inwareid
					AND u_inware.scid = u_inwaremx.scid
					AND u_inwaremx.scid = :scid
					And u_inware.billtype = 1 Using commit_transaction;
				IF commit_transaction.SQLCode <> 0 THEN
					arg_msg = '行:'+String(arg_printid)+',查询物料:'+arg_mtrlcode+'相关订单单据已开单数失败'+commit_transaction.SQLErrText
					rslt = 0
					GOTO ext
				END IF
				IF IsNull(ld_noauditqty) THEN ld_noauditqty = 0
				
				IF uo_option_ifovertask = 1 THEN
					IF lde_mx_qty + ld_noauditqty > ld_bootqty THEN
						arg_msg = '行:'+String(arg_printid)+',物料:'+arg_mtrlcode+'未完成数:'+String(ld_bootqty,'#,##0.0###')+'已开单未审核数:'+String(ld_noauditqty,'#,##0.0###')+',不能收货:'+String(lde_mx_qty,'#,##0.0###')
						rslt = 0
						GOTO ext
					END IF
				ELSEIF uo_option_ifovertask = 3 THEN
					SELECT uprate , upqty
						INTO :ld_uprate,:ld_upqty
						FROM u_mtrldef
						Where mtrlid = :arg_mtrlid Using commit_transaction;
					IF commit_transaction.SQLCode <> 0 THEN
						arg_msg = '行:'+String(arg_printid)+',查询物料:'+Trim(arg_mtrlcode)+'超收货比例失败,'+commit_transaction.SQLErrText
						rslt = 0
						GOTO ext
					END IF
					
					IF ld_uqty * (1 + ld_uprate) + ld_upqty < ld_consignedqty + lde_mx_qty + ld_noauditqty THEN
						rslt = 0
						arg_msg = '行:'+String(arg_printid)+",物料:"+arg_mtrlcode+"未完成数量只有"+String(ld_uqty - ld_consignedqty,'#,##0.0###')+"已开单未审核数:"+String(ld_noauditqty,'#,##0.0###')+",允许超收上限:"+String(ld_uqty * (1 + ld_uprate) + ld_upqty - ld_consignedqty - ld_noauditqty,'#,##0.00##')+",不能入库"+String(lde_mx_qty,'#,##0.0#')
						GOTO ext
					END IF
				END IF
			END IF
		END IF
	CASE 3
		IF arg_ifrel > 0 THEN
			IF arg_relid = 0 THEN
				arg_msg = '行:'+String(arg_printid)+',请先择相应的计划'
				rslt = 0
				GOTO ext
			END IF
			
			SELECT ordercode INTO :ls_relcode
				FROM u_order_ml
				WHERE u_order_ml.orderid = :arg_relid
				AND u_order_ml.mtrlid = :arg_mtrlid
				AND u_order_ml.scid = :scid
				Using commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(arg_printid)+',查询生产计划是否有生产产品:'+arg_mtrlcode+'失败'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			//查已开单数
			ld_noauditqty = 0
			SELECT sum(qty) INTO :ld_noauditqty
				FROM u_inwaremx,u_inware
				WHERE u_inwaremx.relid = :arg_relid
				AND u_inware.inwareid <> :inwareid
				AND u_inware.flag = 0
				AND u_inware.inwareid = u_inwaremx.inwareid
				AND u_inware.scid = u_inwaremx.scid
				AND u_inwaremx.scid = :scid
				And u_inware.billtype = 3 Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(arg_printid)+',查询物料:'+arg_mtrlcode+'相关订单单据已开单数失败'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			IF IsNull(ld_noauditqty) THEN ld_noauditqty = 0
			
			lde_mx_qty = 0
			FOR ls_i = 1 To it_mxbt
				IF arg_mtrlid = inwaremx[ls_i].mtrlid And &
					arg_relid = inwaremx[ls_i].relid And &
					arg_relprintid = inwaremx[ls_i].relprintid THEN
					lde_mx_qty = lde_mx_qty + inwaremx[ls_i].qty
				END IF
			NEXT
			lde_mx_qty = lde_mx_qty + arg_uqty
			
			SELECT orderqty,acmpqty
				INTO :ld_uqty,:ld_consignedqty
				FROM u_order_ml
				WHERE u_order_ml.orderid = :arg_relid
				AND u_order_ml.scid = :scid
				Using commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(arg_printid)+',查询生产计划是否有物料:'+arg_mtrlcode+'失败'
				rslt = 0
				GOTO ext
			END IF
			
			IF uo_option_ifovertask_cp = 1 THEN //不允许超收
				IF ld_uqty < lde_mx_qty + ld_consignedqty + ld_noauditqty THEN
					rslt = 0
					arg_msg = '行:'+String(arg_printid)+',该计划明细产品['+arg_mtrlcode+']未完成数量'+String(ld_uqty - ld_consignedqty,'#,##0.00##' )+',已开单未审核数:'+String(ld_noauditqty,'#,##0.0###')+'小于本次完成数量'
					GOTO ext
				END IF
			ELSEIF uo_option_ifovertask_cp = 3 THEN //允许超收但按比例限制
				SELECT uprate , upqty
					INTO :ld_uprate,:ld_upqty
					FROM u_mtrldef
					Where mtrlid = :arg_mtrlid Using commit_transaction;
				IF commit_transaction.SQLCode <> 0 THEN
					arg_msg = '行:'+String(arg_printid)+',查询物料:'+Trim(arg_mtrlcode)+'超收货比例失败,'+commit_transaction.SQLErrText
					rslt = 0
					GOTO ext
				END IF
				
				IF ld_uqty * (1 + ld_uprate) + ld_upqty < ld_consignedqty + lde_mx_qty + ld_noauditqty THEN
					rslt = 0
					arg_msg = '行:'+String(arg_printid)+",物料:"+arg_mtrlcode+"未完成数量只有"+String(ld_uqty - ld_consignedqty,'#,##0.0###')+'已开单未审核数:'+String(ld_noauditqty,'#,##0.0###')+",允许超收上限:"+String(ld_uqty * (1 + ld_uprate) + ld_upqty - ld_consignedqty - ld_noauditqty,'#,##0.00##')+",不能入库"+String(lde_mx_qty,'#,##0.0#')
					GOTO ext
				END IF
			END IF
		END IF
		
		Int li_if_cus_mtrlware
		SELECT  balctype INTO :li_if_cus_mtrlware
			FROM u_storage
			Where storageid = :storageid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '行:'+String(arg_printid)+',查询仓库是否使用客户库存失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF billtype = 3 And li_if_cus_mtrlware = 1 THEN
			cnt = 0
			SELECT count(*) INTO :cnt
				FROM u_cust
				Where cusid = :arg_cusid_sptid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(arg_printid)+',查询客户资料失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		END IF
		
		
	CASE 4
		IF arg_ifrel > 0 THEN
			IF arg_relid = 0 THEN
				arg_msg = '行:'+String(arg_printid)+',请先择相应的加工计划'
				rslt = 0
				GOTO ext
			END IF
			
			SELECT u_order_wfjg.taskcode ,sum(u_order_wfjgmx.qty - u_order_wfjgmx.consignedqty)INTO :ls_relcode,:ld_bootqty
				FROM u_order_wfjgmx,u_order_wfjg
				WHERE u_order_wfjgmx.wfjgid = :arg_relid
				AND u_order_wfjgmx.scid = :scid
				AND u_order_wfjgmx.printid = :arg_relprintid
				AND u_order_wfjgmx.wfjgid =  u_order_wfjg.wfjgid
				AND u_order_wfjgmx.scid =  u_order_wfjg.scid
				GROUP BY u_order_wfjg.taskcode
				Using commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(arg_printid)+',查询外协计划是否有加工产品:'+arg_mtrlcode+'失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		END IF
	CASE 5
		IF arg_ifrel > 0 THEN
			IF arg_relid = 0 THEN
				arg_msg = '行:'+String(arg_printid)+',请先择相应的来料加工订单'
				rslt = 0
				GOTO ext
			END IF
			
			SELECT u_saletask_ll.taskcode ,sum(qty - consignedqty),sum(qty),sum(consignedqty)
				INTO :ls_relcode,:ld_bootqty,:ld_uqty,:ld_consignedqty
				FROM u_saletaskmx_in,u_saletask_ll
				WHERE u_saletaskmx_in.taskid = :arg_relid
				AND u_saletask_ll.scid = :scid
				AND u_saletaskmx_in.printid = :arg_relprintid
				AND u_saletaskmx_in.taskid =  u_saletask_ll.taskid
				GROUP BY u_saletask_ll.taskcode
				Using commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(arg_printid)+',查询来料订单是否有收料物料:'+arg_mtrlcode+'失败'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			lde_mx_qty = 0
			FOR ls_i = 1 To it_mxbt
				IF arg_mtrlid = inwaremx[ls_i].mtrlid And &
					arg_relid = inwaremx[ls_i].relid And &
					arg_relprintid = inwaremx[ls_i].relprintid THEN
					lde_mx_qty = lde_mx_qty + inwaremx[ls_i].qty
				END IF
			NEXT
			lde_mx_qty = lde_mx_qty + arg_uqty
			
			//查已开单数
			ld_noauditqty = 0
			SELECT sum(qty) INTO :ld_noauditqty
				FROM u_inwaremx,u_inware
				WHERE u_inwaremx.relid = :arg_relid
				AND u_inwaremx.sptid_cusid = :arg_cusid_sptid
				AND u_inwaremx.mtrlid = :arg_mtrlid
				AND u_inwaremx.status = :arg_status
				AND u_inwaremx.woodcode = :arg_woodcode
				AND u_inwaremx.pcode = :arg_pcode
				AND u_inwaremx.unit = :arg_unit
				AND u_inwaremx.relprintid = :arg_relprintid
				AND u_inware.inwareid <> :inwareid
				AND u_inware.flag = 0
				AND u_inware.inwareid = u_inwaremx.inwareid
				AND u_inware.scid = u_inwaremx.scid
				AND u_inwaremx.scid = :scid
				And u_inware.billtype = 5 Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询物料:'+arg_mtrlcode+'相关订单单据已开单数失败'
				rslt = 0
				GOTO ext
			END IF
			IF IsNull(ld_noauditqty) THEN ld_noauditqty = 0
			
			IF ld_uqty < lde_mx_qty + ld_consignedqty + ld_noauditqty THEN
				rslt = 0
				arg_msg = '行:'+String(arg_printid)+',该计划明细产品['+arg_mtrlcode+']未完成数量'+String(ld_uqty - ld_consignedqty,'#,##0.00##' )+',已开单未审核数:'+String(ld_noauditqty,'#,##0.0###')+'小于本次完成数量'
				GOTO ext
			END IF
			
		END IF
		
END CHOOSE

IF arg_enprice * arg_rebate < 0 THEN //检查进仓价
	rslt = 0
	arg_msg = '行:'+String(arg_printid)+",物料或产品：" + String(arg_mtrlcode)+" 单价错误"
	GOTO ext
END IF


//查询质检单号
String ls_relbillcode
ls_relbillcode = ''
IF arg_relbillid > 0 THEN
	SELECT billcode
		INTO :ls_relbillcode
		FROM u_sptcheck
		Where billid = :arg_relbillid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '行:'+String(arg_printid)+',查询质检单号失败,'+commit_transaction.SQLErrText
		GOTO ext
	END IF
END IF

//写入内容

it_mxbt++
inwaremx[it_mxbt].noauditqty = ld_noauditqty
inwaremx[it_mxbt].printid = arg_printid
inwaremx[it_mxbt].mtrlid = arg_mtrlid
inwaremx[it_mxbt].mtrlcode = arg_mtrlcode
inwaremx[it_mxbt].unit = arg_unit
inwaremx[it_mxbt].rate = arg_rate
inwaremx[it_mxbt].plancode = arg_plancode
inwaremx[it_mxbt].bootqty = ld_bootqty
inwaremx[it_mxbt].status = arg_status


inwaremx[it_mxbt].enprice = arg_enprice
inwaremx[it_mxbt].uprice = arg_enprice * mrate
inwaremx[it_mxbt].rebate = arg_rebate
inwaremx[it_mxbt].uqty = arg_uqty
inwaremx[it_mxbt].qty = arg_qty //Round(arg_uqty * arg_rate,uo_option_unit_dec)

inwaremx[it_mxbt].deliqty = arg_deliqty
inwaremx[it_mxbt].tax = arg_tax

inwaremx[it_mxbt].deliprice_notax = arg_enprice / (1 + arg_tax)

IF arg_uqty <> 0 THEN
	inwaremx[it_mxbt].enprice_tax = arg_deliqty * arg_enprice / arg_uqty
	inwaremx[it_mxbt].enprice_notax = (arg_deliqty * arg_enprice / arg_uqty) / (1 + arg_tax)
ELSE
	inwaremx[it_mxbt].enprice_tax = arg_enprice
	inwaremx[it_mxbt].enprice_notax = arg_enprice / (1 + arg_tax)
END IF

inwaremx[it_mxbt].enprice_tax = Abs(inwaremx[it_mxbt].enprice_tax)
inwaremx[it_mxbt].enprice_notax = Abs(inwaremx[it_mxbt].enprice_notax)

IF Round(arg_uqty * arg_rate,uo_option_unit_dec) <> 0 THEN
	inwaremx[it_mxbt].fprice = Round((inwaremx[it_mxbt].enprice_tax * mrate * arg_uqty)/(Round(arg_uqty * arg_rate,uo_option_unit_dec)),10)
ELSE
	inwaremx[it_mxbt].fprice = 0
END IF
inwaremx[it_mxbt].fprice = Abs(inwaremx[it_mxbt].fprice)

inwaremx[it_mxbt].price = inwaremx[it_mxbt].fprice * arg_rebate
inwaremx[it_mxbt].planprice = ld_planprice
inwaremx[it_mxbt].mxdscrp = arg_mxdscrp
inwaremx[it_mxbt].dxflag = dxflag
inwaremx[it_mxbt].jgprice = arg_jgprice
inwaremx[it_mxbt].relid = arg_relid
inwaremx[it_mxbt].ifrel = arg_ifrel
inwaremx[it_mxbt].woodcode = arg_woodcode
inwaremx[it_mxbt].pcode = arg_pcode
inwaremx[it_mxbt].relcode = ls_relcode
inwaremx[it_mxbt].relprintid = arg_relprintid

inwaremx[it_mxbt].checkqty = arg_checkqty
inwaremx[it_mxbt].result = arg_result
inwaremx[it_mxbt].waredscrp = arg_waredscrp

inwaremx[it_mxbt].relbillid = arg_relbillid
inwaremx[it_mxbt].relbillprintid = arg_relbillprintid
inwaremx[it_mxbt].relbillcode = ls_relbillcode

inwaremx[it_mxbt].mtrlcuscode = arg_mtrlcuscode
inwaremx[it_mxbt].Location = arg_location

inwaremx[it_mxbt].capacity = ld_capacity * arg_qty


IF dxflag = 0 THEN
	inwaremx[it_mxbt].sptid = arg_cusid_sptid
ELSE
	inwaremx[it_mxbt].sptid = sptid
END IF

IF billtype = 1 THEN
	String ls_sptmtrlname
	uo_spt_price uo_price
	uo_price = Create uo_spt_price
	IF uo_price.uof_getmtrlname(sptid,arg_mtrlid,ls_sptmtrlname,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	Destroy uo_price
	inwaremx[it_mxbt].sptmtrlname = ls_sptmtrlname
END IF


IF thflag = 1 THEN
	Long ll_sptid,ll_billtype,ll_balctype
	Int li_thtype
	//查询相关订单属于材料订单还是成品订单
	//	IF billtype = 1 AND  arg_relid > 0 THEN
	//		SELECT billtype INTO :ll_billtype
	//			FROM u_buytask
	//			WHERE taskid = :arg_relid
	//			AND scid = :scid;
	//		IF commit_transaction.SQLCode <> 0 THEN
	//			rslt = 0
	//			arg_msg = '查询订单类型失败'+'~n'+commit_transaction.SQLErrText
	//			GOTO ext
	//		END IF
	//	ELSE
	//		ll_billtype = 0
	//	END IF
	//	
	//	IF billtype = 5 THEN
	//		ll_sptid = arg_cusid_sptid
	//	ELSEIF billtype = 1 AND ll_billtype = 1 THEN
	//		SELECT balctype INTO :ll_balctype
	//			FROM u_storage
	//			Where storageid = :storageid;
	//		IF commit_transaction.SQLCode <> 0 THEN
	//			rslt = 0
	//			arg_msg = '查询仓库是否使用客户库存失败'+'~n'+commit_transaction.SQLErrText
	//			GOTO ext
	//		END IF
	//		
	//		IF ll_balctype = 1 THEN
	ll_sptid = arg_cusid_sptid
	//		ELSE
	//			ll_sptid = 0
	//		END IF
	//	ELSE
	//		ll_sptid = 0
	//	END IF
	
	SELECT  thtype INTO :li_thtype
		FROM u_storage
		Where storageid = :storageid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '行:'+String(arg_printid)+',查询仓库退货取价模式失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF li_thtype = 0 THEN
		SELECT cost
			INTO :ld_cost
			FROM u_mtrlware
			WHERE scid = :scid
			AND mtrlid = :arg_mtrlid
			AND storageid = :storageid
			AND status = :arg_status
			AND plancode = :arg_plancode
			AND woodcode = :arg_woodcode
			AND pcode = :arg_pcode
			AND dxflag = :dxflag
			AND sptid = :ll_sptid
			AND mtrlcuscode = :arg_mtrlcuscode
			And Location = :arg_location Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 Or IsNull(ld_cost) THEN ld_cost = 0
		
		inwaremx[it_mxbt].cost = ld_cost
	ELSE
		inwaremx[it_mxbt].cost = inwaremx[it_mxbt].fprice * arg_rebate
	END IF
ELSE
	inwaremx[it_mxbt].cost = inwaremx[it_mxbt].fprice * arg_rebate
END IF
inwaremx[it_mxbt].newprice = lde_newprice

ext:
Destroy uo_sptprice
IF rslt = 0 THEN p_clearmx()
Return(rslt)
*/

end function

public function integer uof_update_planprice (long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_fprice, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1

String ls_status,ls_woodcode,ls_pcode
Int li_pricepztype
String ls_mtrlcode

IF arg_fprice <= 0 THEN
	rslt = 1
	GOTO ext
END IF

SELECT pricepztype,mtrlcode
	INTO :li_pricepztype,:ls_mtrlcode
	FROM u_mtrldef
	Where mtrlid = :arg_mtrlid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询物料计划成本价配置模式失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF


CHOOSE CASE li_pricepztype
	CASE 0
		ls_status = ''
		ls_woodcode = ''
		ls_pcode = ''
	CASE 1
		ls_status = arg_status
		ls_woodcode = ''
		ls_pcode = ''
	CASE 2
		ls_status = ''
		ls_woodcode = arg_woodcode
		ls_pcode = ''
	CASE 3
		ls_status = ''
		ls_woodcode = ''
		ls_pcode = arg_pcode
	CASE 4
		ls_status = arg_status
		ls_woodcode = arg_woodcode
		ls_pcode = ''
	CASE 5
		ls_status = ''
		ls_woodcode = arg_woodcode
		ls_pcode = arg_pcode
	CASE 6
		ls_status = arg_status
		ls_woodcode = ''
		ls_pcode = arg_pcode
	CASE 7
		ls_status = arg_status
		ls_woodcode = arg_woodcode
		ls_pcode = arg_pcode
END CHOOSE

UPDATE u_mtrldef_planprice
	SET planprice = :arg_fprice
	WHERE mtrlid = :arg_mtrlid
	AND status = :arg_status
	AND woodcode =  :arg_woodcode
	And pcode =  :arg_pcode Using commit_transaction;
IF commit_transaction.SQLCode = 0 THEN
	IF commit_transaction.SQLNRows = 0 THEN
		INSERT INTO u_mtrldef_planprice
			(mtrlid,
			status,
			woodcode,
			pcode,
			planprice)
			VALUES
			(:arg_mtrlid,
			:arg_status,
			:arg_woodcode,
			:arg_pcode,
			:arg_fprice) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '插入物料'+ls_mtrlcode+'计划成本价资料失败,'+commit_transaction.SQLErrText
			GOTO ext
		END IF
	END IF
	
	INSERT INTO u_mtrl_planprice_his
		(mtrlid,
		cmpldate,
		planprice,
		buildtype,
		status,
		woodcode,
		pcode)
		VALUES
		(:arg_mtrlid,
		getdate(),
		:arg_fprice,
		2,
		:arg_status,
		:arg_woodcode,
		:arg_pcode) Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '建立'+ls_mtrlcode+'产品计划成本价历史记录失败 '+commit_transaction.SQLErrText
		GOTO ext
	END IF
ELSE
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '更新物料'+ls_mtrlcode+'计划成本价资料失败,'+commit_transaction.SQLErrText
		GOTO ext
	END IF
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF

RETURN rslt


end function

public function integer uof_ref_assign_plan_plankind (long arg_scid, long arg_mtrlwareid, long arg_plankind, long arg_plankind_relbillid, long arg_plankind_reprintlid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, ref s_inwaremx_assign_plan arg_s_ap, ref string arg_msg);Int rslt = 1
Long i,j
datastore ds_ap
ds_ap = CREATE datastore

ds_ap.DataObject = 'ds_inwaremx_assign_plan_plankind'
ds_ap.SetTransObject(commit_transaction)
ds_ap.Retrieve(arg_scid,arg_plankind,arg_plankind_relbillid,arg_plankind_reprintlid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode)

FOR i = 1 TO ds_ap.RowCount()
	j++
	arg_s_ap.planid[j] = ds_ap.Object.planid[i]
	arg_s_ap.assigntype[j] = ds_ap.Object.assigntype[i]
	arg_s_ap.scid[j] = ds_ap.Object.scid[i]
	arg_s_ap.mtrlwareid[j] = arg_mtrlwareid
	arg_s_ap.relbillid[j] = ds_ap.Object.relbillid[i]
	arg_s_ap.relprintid[j] = ds_ap.Object.relprintid[i]
	arg_s_ap.fpgrade[j] = ds_ap.Object.fpgrade[i]
	
	IF ds_ap.Object.planassignqty[i] - ds_ap.Object.assignqty[i] >= arg_qty THEN
		arg_s_ap.notassignqty[j] = arg_qty
		GOTO ext
	ELSE
		arg_s_ap.notassignqty[j] = ds_ap.Object.planassignqty[i] - ds_ap.Object.assignqty[i]
		arg_qty = arg_qty - (ds_ap.Object.planassignqty[i] - ds_ap.Object.assignqty[i])
	END IF
NEXT

ext:
RETURN rslt







end function

public function integer uof_del_barcode (long arg_scid, long arg_inwareid, string arg_barcode, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Decimal ld_packqty_barcode,ld_qty_barcode,ld_qty,ld_inwaremxqty
Long ll_cusid,ll_mtrlid,i,ll_printid,ll_orderid
String ls_status,ls_woodcode,ls_pcode
String ls_plancode,ls_mtrlcuscode,ls_location

IF getinfo(arg_scid,arg_inwareid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF flag = 1 THEN
	rslt = 0
	arg_msg = "单据已经仓审,不能操作"
	GOTO ext
END IF

IF billtype = 3 And uo_option_barcode_inwarecp_paudit = 1 THEN
	arg_msg = '系统选项设置了生产进仓单使用先确认后审核条码流程,操作取消,如需操作请用pda调取相关单据把条码删除'
	rslt = 0
	GOTO ext
END IF

IF billtype = 8 And uo_option_barcode_inwareother_paudit = 1 THEN
	arg_msg = '系统选项设置了其它进仓单使用先确认后审核条码流程,操作取消,如需操作请用pda调取相关单据把条码删除'
	rslt = 0
	GOTO ext
END IF

SELECT U_inwaremx_mx_barcode.qty,
	u_mtrlware_mx.packqty,
	u_mtrlware_mx.mtrlid,
	u_mtrlware_mx.status,
	u_mtrlware_mx.woodcode,
	u_mtrlware_mx.pcode,
	u_mtrlware_mx.plancode,
	u_mtrlware_mx.mtrlcuscode,
	u_mtrlware_mx.location,
	u_mtrlware_mx.sptid,
	u_mtrlware_mx.orderid
	INTO :ld_qty_barcode,
	:ld_packqty_barcode,
	:ll_mtrlid,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:ls_plancode,
	:ls_mtrlcuscode,
	:ls_location,
	:ll_cusid,
	:ll_orderid
	FROM U_inwaremx_mx_barcode,u_mtrlware_mx
	WHERE U_inwaremx_mx_barcode.barcode = u_mtrlware_mx.barcode
	AND  U_inwaremx_mx_barcode.scid = :arg_scid
	AND U_inwaremx_mx_barcode.inwareid = :arg_inwareid
	AND U_inwaremx_mx_barcode.barcode = :arg_barcode
	AND U_inwaremx_mx_barcode.billtype = :billtype
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询条码信息失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

ld_qty = ld_qty_barcode * ld_packqty_barcode

FOR i = 1 To it_mxbt
	IF inwaremx[i].mtrlid = ll_mtrlid And &
		inwaremx[i].status = ls_status And &
		inwaremx[i].woodcode = ls_woodcode And &
		inwaremx[i].pcode = ls_pcode And &
		inwaremx[i].plancode = ls_plancode And &
		inwaremx[i].mtrlcuscode = ls_mtrlcuscode And &
		( inwaremx[i].Location = ls_location and uo_option_barcodelocation_use_inwaremx_location = 0 or &
		  uo_option_barcodelocation_use_inwaremx_location = 1 ) And &
		inwaremx[i].sptid = ll_cusid And &
		inwaremx[i].relid = ll_orderid THEN
		ll_printid = inwaremx[i].printid
		ld_inwaremxqty = inwaremx[i].qty
	END IF
NEXT

IF ll_printid = 0 THEN
	arg_msg = '条码找不到对应进仓明细行,请检查条码资料'
	rslt = 0
	GOTO ext
END IF

IF ld_qty > ld_inwaremxqty THEN
	arg_msg = '删除条码要扣减数量大于对应进仓明细数量,请检查'
	rslt = 0
	GOTO ext
ELSEIF ld_qty = ld_inwaremxqty THEN
	DELETE FROM u_inwaremx
		Where scid = :arg_scid And inwareid = :arg_inwareid And printid = :ll_printid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '删除进仓明细失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
ELSEIF ld_qty < ld_inwaremxqty THEN
	UPDATE u_inwaremx SET uqty = uqty - :ld_qty,qty = qty - :ld_qty
		Where scid = :arg_scid And inwareid = :arg_inwareid And printid = :ll_printid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '更新进仓明细数量失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF



DELETE FROM U_inwaremx_mx_barcode
	WHERE U_inwaremx_mx_barcode.scid = :arg_scid
	AND U_inwaremx_mx_barcode.inwareid = :arg_inwareid
	AND U_inwaremx_mx_barcode.barcode = :arg_barcode
	AND U_inwaremx_mx_barcode.billtype = :billtype
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '删除条码失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF

RETURN rslt


















end function

public function integer acceptmx_item (long arg_printid, long arg_itemid, decimal arg_amt, string arg_mxdscrp, ref string arg_msg);Int rslt = 1
Long cnt
cnt = 0

IF it_newbegin = False And it_updatebegin = False THEN
	rslt = 0
	arg_msg = "非编辑状态不可以使用,操作取消"
	GOTO ext
END IF

IF IsNull(arg_printid) THEN arg_printid = 0
IF IsNull(arg_itemid) THEN arg_itemid = 0
IF IsNull(arg_amt) THEN arg_amt = 0
IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = ''

IF arg_itemid = 0 Or arg_amt = 0 THEN
	rslt = 1
	GOTO ext
END IF

SELECT count(*)
	INTO :cnt
	FROM u_itemdef
	Where itemid = :arg_itemid;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询收支项目是否存在失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF

IF cnt = 0 THEN
	rslt = 0
	arg_msg = '第'+String(arg_printid)+'行,收支项目不存在,请检查'
	GOTO ext
END IF

it_mxbt_item++

inware_itemmx[it_mxbt_item].printid = arg_printid
inware_itemmx[it_mxbt_item].itemid = arg_itemid
inware_itemmx[it_mxbt_item].amt = arg_amt
inware_itemmx[it_mxbt_item].mxdscrp = arg_mxdscrp


ext:
IF rslt = 0 THEN p_clearmx()
RETURN rslt



end function

public function integer uof_check_warepdb_audit (long arg_storageid, ref string arg_msg);Int rslt = 1
Long cnt

SELECT count(*)
	INTO :cnt
	FROM u_warepdb
	WHERE storageid = :arg_storageid
	And flag = 0 Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询仓库是否有盘点表未审核失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '仓库有盘点表未审核,不能仓审或仓撤单据,请检查'
	GOTO ext
END IF

ext:
RETURN rslt





end function

public function integer p_update_mtrlwareid_inwaremx (long arg_mtrlwareid, long arg_inwareid, long arg_printid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1

UPDATE u_inwaremx
	SET u_inwaremx.mtrlwareid = :arg_mtrlwareid
	WHERE u_inwaremx.scid = :scid
	AND u_inwaremx.inwareid = :arg_inwareid
	AND u_inwaremx.printid = :arg_printid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '更新进仓明细库存id失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF
RETURN rslt


end function

public function integer uof_disuse (long arg_scid, long arg_inwareid, integer arg_disusetype, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_disuseid

//arg_disusetype 0 - 修改, 1-删除

Select max(disuseid) Into :ll_disuseid
	From u_inware_disuse
	Where scid = :arg_scid
	And inwareid = :arg_inwareid Using commit_transaction;
If commit_transaction.SQLCode = -1 Then
	rslt = 0
	arg_msg = '获取采购收货单废弃单序号失败,'+ commit_transaction.SQLErrText
	Goto ext
ElseIf commit_transaction.SQLCode = 100 Then
	ll_disuseid = 0
End If

if isnull(ll_disuseid) then ll_disuseid = 0 

ll_disuseid++

Insert Into u_inware_disuse
	(scid, inwareid, inwarecode, billtype, relid, storageid, opdate, opemp, Modemp,
	moddate, flag, auditingdate, auditingrep, indate, inrep, part, dscrp, sptid, sptname,
	balcflag, balcdate, balcdateint, Dxflag, thflag, printnum, ctmint, otheramt, relint_1,
	relint_2, relint_3, relstr_1, relstr_2, relstr_3, secflag, secauditingdate, secauditingrep,
	plandate, priceflag, pricedate, pricerep, checkdate, moneyid, mrate, deptid,
	moneyname, banktypename, storagename, disuseemp, disusedate, disusetype,
	disuseid)
	Select u_inware.scid, u_inware.inwareid, u_inware.inwarecode, u_inware.billtype,
	u_inware.relid, u_inware.storageid, u_inware.opdate, u_inware.opemp,
	u_inware.Modemp, u_inware.moddate, u_inware.flag, u_inware.auditingdate,
	u_inware.auditingrep, u_inware.indate, u_inware.inrep, u_inware.part, u_inware.dscrp,
	u_inware.sptid, u_inware.sptname, u_inware.balcflag, u_inware.balcdate,
	u_inware.balcdateint, u_inware.Dxflag, u_inware.thflag, u_inware.printnum,
	u_inware.ctmint, u_inware.otheramt, u_inware.relint_1, u_inware.relint_2,
	u_inware.relint_3, u_inware.relstr_1, u_inware.relstr_2, u_inware.relstr_3,
	u_inware.secflag, u_inware.secauditingdate, u_inware.secauditingrep,
	u_inware.plandate, u_inware.priceflag, u_inware.pricedate, u_inware.pricerep,
	u_inware.checkdate, u_inware.moneyid, u_inware.mrate, u_inware.deptid,
	cw_currency.name, cw_banktype.banktypename, u_storage.storagename,
	:publ_operator,getdate(),:arg_disusetype,:ll_disuseid
	From u_inware LEFT Outer JOIN
	u_storage ON u_inware.storageid = u_storage.storageid LEFT Outer JOIN
	cw_banktype ON u_inware.relint_1 = cw_banktype.banktypeid LEFT Outer JOIN
	cw_currency ON u_inware.moneyid = cw_currency.moneyid
	Where u_inware.scid = :arg_scid
	And u_inware.inwareid = :arg_inwareid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '插入采购收货单废弃单失败,'+commit_transaction.SQLErrText
	Goto ext
End If

Insert Into u_inwaremx_disuse
	(scid, inwareid, printid, ifrel, relid, mtrlid, plancode, status, qty, fprice, rebate, price,
	planprice, jgprice, mxdscrp, woodcode, relcode, pcode, sptid_cusid, ctmint, cost,
	sptmtrlname, uqty, uprice, unit, rate, bootqty, noauditqty, relprintid, checkqty, result,
	waredscrp, relbillid, relbillprintid, relbillcode, mtrlcuscode, location, badqty, thqty,
	ptqty, enprice, capacity, enprice_tax, enprice_notax, tax, deliqty, deliprice_notax,
	mtrlwareid, mtrlwareprintid, newprice, mtrlcode, mtrlname,disuseid)
	Select u_inwaremx.scid, u_inwaremx.inwareid, u_inwaremx.printid, u_inwaremx.ifrel,
	u_inwaremx.relid, u_inwaremx.mtrlid, u_inwaremx.plancode, u_inwaremx.status,
	u_inwaremx.qty, u_inwaremx.fprice, u_inwaremx.rebate, u_inwaremx.price,
	u_inwaremx.planprice, u_inwaremx.jgprice, u_inwaremx.mxdscrp,
	u_inwaremx.woodcode, u_inwaremx.relcode, u_inwaremx.pcode,
	u_inwaremx.sptid_cusid, u_inwaremx.ctmint, u_inwaremx.cost,
	u_inwaremx.sptmtrlname, u_inwaremx.uqty, u_inwaremx.uprice, u_inwaremx.unit,
	u_inwaremx.rate, u_inwaremx.bootqty, u_inwaremx.noauditqty,
	u_inwaremx.relprintid, u_inwaremx.checkqty, u_inwaremx.result,
	u_inwaremx.waredscrp, u_inwaremx.relbillid, u_inwaremx.relbillprintid,
	u_inwaremx.relbillcode, u_inwaremx.mtrlcuscode, u_inwaremx.location,
	u_inwaremx.badqty, u_inwaremx.thqty, u_inwaremx.ptqty, u_inwaremx.enprice,
	u_inwaremx.capacity, u_inwaremx.enprice_tax, u_inwaremx.enprice_notax,
	u_inwaremx.tax, u_inwaremx.deliqty, u_inwaremx.deliprice_notax,
	u_inwaremx.mtrlwareid, u_inwaremx.mtrlwareprintid, u_inwaremx.newprice,
	u_mtrldef.mtrlcode, u_mtrldef.mtrlname,:ll_disuseid
	From u_inwaremx LEFT Outer JOIN
	u_mtrldef ON u_inwaremx.mtrlid = u_mtrldef.mtrlid
	Where u_inwaremx.scid = :arg_scid
	And u_inwaremx.inwareid = :arg_inwareid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '插入采购收货单废弃单明细失败,'+commit_transaction.SQLErrText
	Goto ext
End If

Insert Into u_inwaremx_mx_disuse
	(scid, inwareid, mxprintid, mtrlid, plancode, status, qty, fprice, rebate, price, mxdscrp,
	printid, woodcode, pcode, sptid_cusid, ctmint, cost, waredscrp, mtrlcuscode, location,
	ptinwareid, ptprintid, ptinwarecode, mtrlcode, mtrlname, disuseid)
	Select u_inwaremx_mx.scid, u_inwaremx_mx.inwareid, u_inwaremx_mx.mxprintid,
	u_inwaremx_mx.mtrlid, u_inwaremx_mx.plancode, u_inwaremx_mx.status,
	u_inwaremx_mx.qty, u_inwaremx_mx.fprice, u_inwaremx_mx.rebate,
	u_inwaremx_mx.price, u_inwaremx_mx.mxdscrp, u_inwaremx_mx.printid,
	u_inwaremx_mx.woodcode, u_inwaremx_mx.pcode, u_inwaremx_mx.sptid_cusid,
	u_inwaremx_mx.ctmint, u_inwaremx_mx.cost, u_inwaremx_mx.waredscrp,
	u_inwaremx_mx.mtrlcuscode, u_inwaremx_mx.location, u_inwaremx_mx.ptinwareid,
	u_inwaremx_mx.ptprintid, u_inwaremx_mx.ptinwarecode, u_mtrldef.mtrlcode,
	u_mtrldef.mtrlname, :ll_disuseid
	From u_inwaremx_mx LEFT Outer JOIN
	u_mtrldef ON u_inwaremx_mx.mtrlid = u_mtrldef.mtrlid
	Where u_inwaremx_mx.scid = :arg_scid
	And u_inwaremx_mx.inwareid = :arg_inwareid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '插入采购收货单废弃单包件明细失败,'+commit_transaction.SQLErrText
	Goto ext
End If

Insert Into U_inwaremx_mx_barcode_disuse
	(billtype, scid, inwareid, barcode, printid, qty, ctmint, opemp, opdate, disuseid)
	Select billtype, scid, inwareid, barcode, printid, qty, ctmint, opemp, opdate, :ll_disuseid
	From U_inwaremx_mx_barcode
	Where U_inwaremx_mx_barcode.scid = :arg_scid
	And U_inwaremx_mx_barcode.inwareid = :arg_inwareid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '插入采购收货单废弃单条码明细失败,'+commit_transaction.SQLErrText
	Goto ext
End If

Insert Into u_inware_itemmx_disuse
	(scid, inwareid, printid, itemid, amt, mxdscrp, itemcode, itemname, itemtype, disuseid)
	Select u_inware_itemmx.scid, u_inware_itemmx.inwareid, u_inware_itemmx.printid,
	u_inware_itemmx.itemid, u_inware_itemmx.amt, u_inware_itemmx.mxdscrp,
	u_itemdef.itemcode, u_itemdef.itemname, u_itemdef.itemtype, :ll_disuseid
	From u_inware_itemmx LEFT Outer JOIN
	u_itemdef ON u_inware_itemmx.itemid = u_itemdef.itemid
	Where u_inware_itemmx.scid = :arg_scid
	And u_inware_itemmx.inwareid = :arg_inwareid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '插入采购收货单废弃单费用明细失败,'+commit_transaction.SQLErrText
	Goto ext
End If

ext:
If rslt = 0 Then
	Rollback Using commit_transaction;
ElseIf rslt = 1 And arg_ifcommit Then
	Commit Using commit_transaction;
End If

Return rslt



end function

public function integer acceptmx (s_inwaremx s_mx, ref string arg_msg);Long rslt = 1,cnt = 0,ls_i
Decimal ld_planprice,ld_cost
Decimal ld_noauditqty,ld_bootqty
Decimal ld_consignedqty,ld_uqty
String ls_relcode,ls_unit
Decimal lde_mx_qty
Decimal ld_uprate,ld_upqty
Int li_ifpack,li_ifpackpro

Decimal ld_capacity,ld_capacity_zj
s_mtrlcfg_expr s_pz[]
String ls_status_zj
Long ll_i
Decimal lde_newprice
Int li_outtype_storage
Int li_check_taskqty
Decimal ld_fprice_notax

IF uo_option_buy_zero = -1000 THEN
	rslt = 0
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_wfjg_zero = -1000 THEN
	rslt = 0
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_change_status = '-1000' THEN
	rslt = 0
	arg_msg = '选项:[029]配置标题文本,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_change_woodcode = '-1000' THEN
	rslt = 0
	arg_msg = '选项:[027]配置1标题文本,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_change_pcode = '-1000' THEN
	rslt = 0
	arg_msg = '选项:[028]配置2标题文本,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_unit_dec = -1000 THEN
	rslt = 0
	arg_msg = '选项:[023]辅助单位转换库存单位小数位,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_ifovertask = -1000 THEN
	rslt = 0
	arg_msg = '选项:[010]超采购,外协订单收货,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_ifovertask_cp = -1000 THEN
	rslt = 0
	arg_msg = '选项:[112]超生产指令单数量进仓,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_cost_notax = -1000 THEN
	rslt = 0
	arg_msg = '选项:[362]采购外协使用不含税价进仓,读取初始默认值失败,操作取消!'
	GOTO ext
END IF



uo_spt_price uo_sptprice
uo_sptprice = Create uo_spt_price

IF it_newbegin = False And it_updatebegin = False THEN
	rslt = 0
	arg_msg = "非编辑状态不可以使用,操作取消"
	GOTO ext
END IF

//清除空值
IF IsNull(s_mx.printid) THEN s_mx.printid = 0
IF IsNull(s_mx.mtrlid) THEN s_mx.mtrlid = 0
IF IsNull(s_mx.mtrlcode) THEN s_mx.mtrlcode = ''
IF IsNull(s_mx.plancode) THEN s_mx.plancode = ''
IF IsNull(s_mx.status) THEN s_mx.status = ''
IF IsNull(s_mx.woodcode) THEN s_mx.woodcode = ''
IF IsNull(s_mx.pcode) THEN s_mx.pcode = ''
IF IsNull(s_mx.uqty) THEN s_mx.uqty = 0
IF IsNull(s_mx.enprice) THEN s_mx.enprice = 0
IF IsNull(s_mx.rebate) THEN s_mx.rebate = 1
IF IsNull(s_mx.mxdscrp) THEN s_mx.mxdscrp = ''
IF IsNull(s_mx.jgprice) THEN s_mx.jgprice = 0
IF IsNull(s_mx.relid) THEN s_mx.relid = 0
IF IsNull(s_mx.ifrel) THEN s_mx.ifrel = 0
IF IsNull(s_mx.mxdscrp) THEN s_mx.woodcode = ''
IF IsNull(s_mx.pcode) THEN s_mx.pcode = ''
IF IsNull(s_mx.sptid) THEN s_mx.sptid = 0
IF IsNull(s_mx.relprintid) THEN s_mx.relprintid = 0
IF IsNull(s_mx.checkqty) THEN s_mx.checkqty = 0
IF IsNull(s_mx.result) THEN s_mx.result = ''
IF IsNull(s_mx.waredscrp) THEN s_mx.waredscrp = ''
IF IsNull(s_mx.relbillid) THEN s_mx.relbillid = 0
IF IsNull(s_mx.relbillprintid) THEN s_mx.relbillprintid = 0

IF IsNull(s_mx.mtrlcuscode) THEN s_mx.mtrlcuscode = ''
IF IsNull(s_mx.Location) THEN s_mx.Location = ''

IF IsNull(s_mx.deliqty) THEN s_mx.deliqty = 0
IF IsNull(s_mx.tax) THEN s_mx.tax = 0
IF IsNull(s_mx.Thptype) THEN s_mx.Thptype = 0 //退货处理选项: 0-不操作，1-更新原采购订单，2-重新生成采购订单
IF IsNull(s_mx.jgdscrp) THEN s_mx.jgdscrp = ''

IF IsNull(s_mx.ifvqty) THEN s_mx.ifvqty = 0

//IF s_mx.rebate = 0 THEN s_mx.rebate = 1

IF IsNull(s_mx.unit) THEN s_mx.unit = ''
IF IsNull(s_mx.rate) THEN s_mx.rate = 1
IF s_mx.rate = 0  THEN s_mx.rate = 1
IF IsNull(s_mx.ifnotinout) THEN s_mx.ifnotinout = 0

IF s_mx.mtrlid = 0 THEN //OR s_mx.uqty = 0 OR s_mx.qty = 0  THEN
	rslt = 1
	GOTO ext
END IF

s_mx.status = Trim(s_mx.status)
s_mx.woodcode = Trim(s_mx.woodcode)
s_mx.pcode = Trim(s_mx.pcode)
s_mx.plancode = Trim(s_mx.plancode)
s_mx.mtrlcuscode = Trim(s_mx.mtrlcuscode)
s_mx.Location = Trim(s_mx.Location)

IF billtype <> 1 THEN
	mrate = 1
END IF

//检查物料id
Int li_statusflag,li_woodcodeflag,li_pcodeflag
Int li_status_check,li_woodcode_check,li_pcode_check
Int li_outtype_mtrl,li_ifunit

SELECT unit,
	statusflag,
	woodcodeflag,
	pcodeflag,
	status_check,
	woodcode_check,
	pcode_check,
	capacity * capaparm,
	outtype,
	ifpack,
	ifpackpro,
	ifunit
	INTO :ls_unit,
	:li_statusflag,
	:li_woodcodeflag,
	:li_pcodeflag,
	:li_status_check,
	:li_woodcode_check,
	:li_pcode_check,
	:ld_capacity,
	:li_outtype_mtrl,
	:li_ifpack,
	:li_ifpackpro,
	:li_ifunit
	FROM u_mtrldef
	Where u_mtrldef.mtrlid = :s_mx.mtrlid Using commit_transaction ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '行:'+String(s_mx.printid)+",物料:"+s_mx.mtrlcode+"查询操作失败,物料或产品编号:"+s_mx.mtrlcode
	GOTO ext
END IF


SELECT outtype INTO :li_outtype_storage FROM u_storage
	Where storageid = :storageid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询仓库出仓策略失败,"+commit_transaction.SQLErrText
	GOTO ext
END IF

IF li_outtype_storage > 0 THEN
	IF billtype <> 23 And billtype <> 25 And billtype <> 1 And ( li_ifpackpro = 1 Or li_ifpackpro = 2 ) THEN
		arg_msg = "第"+String(s_mx.printid)+"行,物料:"+s_mx.mtrlcode+"个性包件产品或通用包件产品不能直接开进仓单,操作取消"
		rslt = 0
		GOTO ext
	END IF
END IF

//IF billtype <> 9 THEN
//	IF li_ifunit = 1 THEN
//		IF s_mx.uqty = s_mx.qty And s_mx.unit <> ls_unit THEN
//			rslt = 0
//			arg_msg = "第"+String(s_mx.printid)+"行,物料使用库存双数量核算,但录入的计量单位数量与库存单位数量相同,操作取消"
//			GOTO ext
//		END IF
//	END IF
//END IF

IF li_ifpack = 2 And s_mx.mtrlcuscode = '' THEN
	arg_msg = '行:'+String(s_mx.printid)+",物料:"+s_mx.mtrlcode+",为个性包件,但没有产品批号,请检查"
	rslt = 0
	GOTO ext
END IF

IF li_ifpackpro = 2 And s_mx.mtrlcuscode = '' THEN
	arg_msg = '行:'+String(s_mx.printid)+",物料:"+s_mx.mtrlcode+",为个性包件产品,但没有产品批号,请检查"
	rslt = 0
	GOTO ext
END IF

IF li_ifpackpro = 4 And s_mx.mtrlcuscode = '' THEN
	arg_msg = '行:'+String(s_mx.printid)+",物料:"+s_mx.mtrlcode+",为组合配置整排散进包件产品,但没有产品批号,请检查"
	rslt = 0
	GOTO ext
END IF

f_get_planprice_mtrl(s_mx.mtrlid,s_mx.status,s_mx.woodcode,s_mx.pcode,ld_planprice)

IF Not ((uo_option_buy_zero = 1 And billtype = 1) Or &
	(uo_option_wfjg_zero = 1 And billtype = 4 ) Or &
	(billtype = 9 And relid > 0 And li_outtype_mtrl = 2)) THEN
	
	IF billtype = 9 THEN
		IF s_mx.uqty = 0 And s_mx.qty = 0 THEN
			rslt = 1
			GOTO ext
		END IF
	ELSE
		IF s_mx.uqty = 0 Or s_mx.qty = 0 Or s_mx.deliqty = 0  THEN
			rslt = 1
			GOTO ext
		END IF
	END IF
	
	IF s_mx.uqty = 0 THEN
		s_mx.rate = 0
	ELSE
		s_mx.rate = s_mx.qty / s_mx.uqty
	END IF
	
	IF billtype <> 9 THEN
		IF s_mx.checkqty = 0 THEN s_mx.checkqty = s_mx.uqty
	END IF
END IF

IF s_mx.rebate <= 0 or s_mx.rebate > 1 THEN
	arg_msg = '行:'+String(s_mx.printid)+',折扣错误,只能取范围(0, 1]'
	rslt = 0
	GOTO ext
END IF

//IF s_mx.checkqty < s_mx.uqty THEN
//	arg_msg = '第'+String(s_mx.printid)+'行,送货数不能少于实进仓数'
//	rslt = 0
//	GOTO ext
//END IF

IF li_statusflag = 2 THEN
	IF s_mx.status = '' THEN
		arg_msg = '行:'+String(s_mx.printid)+',物料:'+s_mx.mtrlcode+','+uo_option_change_status + '字段使用组合配置,请输入'
		rslt = 0
		GOTO ext
	END IF
ELSEIF li_statusflag = 4 And li_status_check = 1  THEN
	IF s_mx.status = '' THEN
		arg_msg = '行:'+String(s_mx.printid)+',物料:'+s_mx.mtrlcode+','+uo_option_change_woodcode + '字段使用部件选配,请输入'
		rslt = 0
		GOTO ext
	END IF
ELSEIF li_statusflag = 1 Or li_statusflag = 0 THEN
	IF f_check_status(1,s_mx.status) = 0 THEN
		rslt = 0
		arg_msg = '行:'+String(s_mx.printid)+",查询操作失败,可能"+uo_option_change_status+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.status
		GOTO ext
	END IF
END IF

IF li_woodcodeflag = 4  And li_woodcode_check = 1 THEN
	IF s_mx.woodcode = '' THEN
		arg_msg = '行:'+String(s_mx.printid)+',物料:'+s_mx.mtrlcode+','+uo_option_change_woodcode + '字段使用部件选配,请输入'
		rslt = 0
		GOTO ext
	END IF
ELSEIF li_woodcodeflag = 1 Or li_woodcodeflag = 0 THEN
	IF f_check_status(2,s_mx.woodcode) = 0 THEN
		rslt = 0
		arg_msg = '行:'+String(s_mx.printid)+",查询操作失败,可能"+uo_option_change_woodcode+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.woodcode
		GOTO ext
	END IF
END IF

IF li_pcodeflag = 4  And li_pcode_check = 1 THEN
	IF s_mx.pcode = '' THEN
		arg_msg = '行:'+String(s_mx.printid)+',物料:'+s_mx.mtrlcode+','+uo_option_change_pcode + '字段使用部件选配,请输入'
		rslt = 0
		GOTO ext
	END IF
ELSEIF li_pcodeflag = 1 Or li_pcodeflag = 0 THEN
	IF f_check_status(3,s_mx.pcode) = 0 THEN
		rslt = 0
		arg_msg = '行:'+String(s_mx.printid)+",查询操作失败,可能"+uo_option_change_pcode+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.pcode
		GOTO ext
	END IF
END IF

IF li_statusflag = 2 THEN
	ld_capacity = 0
	f_checkpz(s_mx.status,s_pz[])
	FOR ll_i = 1 To  UpperBound(s_pz)
		ls_status_zj = s_pz[ll_i].cfgname
		
		SELECT capacity * capaparm
			INTO :ld_capacity_zj
			FROM u_mtrl_configure
			WHERE mtrlid = :s_mx.mtrlid
			And Name = :ls_status_zj Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "第"+String(s_mx.printid)+"行,物料:"+s_mx.mtrlcode+"查询子件 "+ls_status_zj+" 折算套数参数操作失败"
			GOTO ext
		END IF
		
		ld_capacity = ld_capacity + ld_capacity_zj * Dec(s_pz[ll_i].qty)
		
	NEXT
END IF

Int li_iflimitprice
SELECT iflimitprice
	INTO :li_iflimitprice
	FROM u_mtrldef
	Where mtrlid = :s_mx.mtrlid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '行:'+String(s_mx.printid)+',查询物料:'+s_mx.mtrlcode+'限价属性失败 '+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF billtype <> 9 THEN
	//	IF Trim(ls_unit) <> Trim(s_mx.unit) And s_mx.rate = 1 THEN
	//		arg_msg = '进仓单,行:'+String(s_mx.printid)+',物料库存单位:'+Trim(ls_unit)+'与采购单位:'+Trim(s_mx.unit)+'不同,但转换率为1,请检查'
	//		rslt = 0
	//		GOTO ext
	//	END IF
	
	IF Trim(ls_unit) = Trim(s_mx.unit) And s_mx.rate <> 1 THEN
		arg_msg = '进仓单,行:'+String(s_mx.printid)+',物料:'+s_mx.mtrlcode+'物料库存单位:'+Trim(ls_unit)+'与采购单位:'+Trim(s_mx.unit)+'相同,但转换率不为1,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF



//查询采购限价并检查进仓价
IF billtype = 1 THEN
	IF uo_sptprice.uof_check_limitprice(thflag,s_mx.mtrlid,s_mx.status,s_mx.woodcode,s_mx.pcode,s_mx.unit,s_mx.enprice * s_mx.rebate,arg_msg) = 0 THEN
		arg_msg = '行:'+String(s_mx.printid)+","+arg_msg
		rslt = 0
		GOTO ext
	END IF
	
	IF li_iflimitprice = 1 THEN
		IF uo_sptprice.uof_check_price(thflag,sptid,s_mx.mtrlid,s_mx.mtrlcode,s_mx.unit,s_mx.status,s_mx.woodcode,s_mx.pcode,'',moneyid,s_mx.enprice * s_mx.rebate,indate,arg_msg) = 0 THEN
			arg_msg = '行:'+String(s_mx.printid)+","+arg_msg
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	IF thflag = 1 THEN
		//退货处理选项
		IF s_mx.Thptype = 0 THEN
			
		ELSEIF s_mx.Thptype = 1 THEN
			IF s_mx.ifrel = 0 THEN
				arg_msg = '行:'+String(s_mx.printid)+',没有选订单的明细退货处理选项不能选择[更新原采购订单]'
				rslt = 0
				GOTO ext
			END IF
		ELSEIF s_mx.Thptype = 2 THEN
			
		END IF
	END IF
END IF

//增加新字段 newprice  最新报价

IF billtype  = 1 THEN
	DateTime ldt_effdate
	Decimal ls_1stnewcost,ls_1stzqrate,ls_1strate
	String ls_msg
	String ls_1stunit
	ls_1stunit = s_mx.unit
	ldt_effdate = DateTime(Today(),Time(0))
	
	IF uo_sptprice.uof_getmtrlsptprice(moneyid,sptid,s_mx.mtrlid,ls_1stunit,s_mx.status,s_mx.woodcode,s_mx.pcode,'',ls_1stnewcost,ls_1stzqrate,ls_1strate,ldt_effdate,ls_msg) <> 1 THEN
		lde_newprice   = 0
	ELSE
		lde_newprice  = ls_1stnewcost
	END IF
ELSE
	lde_newprice = 0
END IF



CHOOSE CASE billtype
	CASE 1,26
		IF s_mx.ifrel > 0 THEN
			IF s_mx.relid = 0 THEN
				arg_msg = '行:'+String(s_mx.printid)+',请先择相应的订单'
				rslt = 0
				GOTO ext
			END IF
			
			SELECT taskcode,sum(uqty - consignedqty - stopqty),sum(uqty),sum(consignedqty)
				INTO :ls_relcode,:ld_bootqty,:ld_uqty,:ld_consignedqty
				FROM u_buytaskmx,u_buytask
				WHERE u_buytaskmx.taskid = :s_mx.relid
				AND u_buytaskmx.scid = :scid
				AND u_buytaskmx.printid = :s_mx.relprintid
				AND u_buytaskmx.taskid =  u_buytask.taskid
				AND u_buytaskmx.scid =  u_buytask.scid
				GROUP BY taskcode
				Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(s_mx.printid)+',查询采购订单是否有订购物料:'+s_mx.mtrlcode+'失败'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			IF billtype = 1 THEN
				lde_mx_qty = 0
				FOR ls_i = 1 To it_mxbt
					IF s_mx.mtrlid = inwaremx[ls_i].mtrlid And &
						s_mx.relid = inwaremx[ls_i].relid And &
						s_mx.relprintid = inwaremx[ls_i].relprintid THEN
						lde_mx_qty = lde_mx_qty + inwaremx[ls_i].uqty
					END IF
				NEXT
				lde_mx_qty = lde_mx_qty + s_mx.uqty
				
				//查已开单数
				ld_noauditqty = 0
				SELECT sum(uqty) INTO :ld_noauditqty
					FROM u_inwaremx,u_inware
					WHERE u_inwaremx.relid = :s_mx.relid
					AND u_inwaremx.sptid_cusid = :s_mx.sptid
					AND u_inwaremx.mtrlid = :s_mx.mtrlid
					AND u_inwaremx.status = :s_mx.status
					AND u_inwaremx.woodcode = :s_mx.woodcode
					AND u_inwaremx.pcode = :s_mx.pcode
					AND u_inwaremx.unit = :s_mx.unit
					AND u_inwaremx.relprintid = :s_mx.relprintid
					AND u_inware.inwareid <> :inwareid
					AND u_inware.flag = 0
					AND u_inware.inwareid = u_inwaremx.inwareid
					AND u_inware.scid = u_inwaremx.scid
					AND u_inwaremx.scid = :scid
					And u_inware.billtype = 1 Using commit_transaction;
				IF commit_transaction.SQLCode <> 0 THEN
					arg_msg = '行:'+String(s_mx.printid)+',查询物料:'+s_mx.mtrlcode+'相关订单单据已开单数失败'+commit_transaction.SQLErrText
					rslt = 0
					GOTO ext
				END IF
				IF IsNull(ld_noauditqty) THEN ld_noauditqty = 0
				
				IF uo_option_ifovertask = 1 THEN
					IF lde_mx_qty + ld_noauditqty > ld_bootqty THEN
						arg_msg = '行:'+String(s_mx.printid)+',物料:'+s_mx.mtrlcode+'未完成数:'+String(ld_bootqty,'#,##0.0###')+'已开单未审核数:'+String(ld_noauditqty,'#,##0.0###')+',不能收货:'+String(lde_mx_qty,'#,##0.0###')
						rslt = 0
						GOTO ext
					END IF
				ELSEIF uo_option_ifovertask = 3 THEN
					SELECT uprate , upqty
						INTO :ld_uprate,:ld_upqty
						FROM u_mtrldef
						Where mtrlid = :s_mx.mtrlid Using commit_transaction;
					IF commit_transaction.SQLCode <> 0 THEN
						arg_msg = '行:'+String(s_mx.printid)+',查询物料:'+Trim(s_mx.mtrlcode)+'超收货比例失败,'+commit_transaction.SQLErrText
						rslt = 0
						GOTO ext
					END IF
					
					IF ld_uqty * (1 + ld_uprate) + ld_upqty < ld_consignedqty + lde_mx_qty + ld_noauditqty THEN
						rslt = 0
						arg_msg = '行:'+String(s_mx.printid)+",物料:"+s_mx.mtrlcode+"未完成数量只有"+String(ld_uqty - ld_consignedqty,'#,##0.0###')+"已开单未审核数:"+String(ld_noauditqty,'#,##0.0###')+",允许超收上限:"+String(ld_uqty * (1 + ld_uprate) + ld_upqty - ld_consignedqty - ld_noauditqty,'#,##0.00##')+",不能入库"+String(lde_mx_qty,'#,##0.0#')
						GOTO ext
					END IF
				END IF
			END IF
		END IF
	CASE 3
		IF s_mx.ifrel > 0 THEN
			IF s_mx.relid = 0 THEN
				arg_msg = '行:'+String(s_mx.printid)+',请先择相应的计划'
				rslt = 0
				GOTO ext
			END IF
			
			SELECT u_Order_ml.ordercode,
				isnull(u_sc_wkp.check_taskqty,0)
				INTO :ls_relcode,
				:li_check_taskqty
				FROM u_Order_ml LEFT OUTER JOIN
				u_sc_wkp ON u_Order_ml.wrkGrpid = u_sc_wkp.wrkGrpid
				WHERE u_order_ml.orderid = :s_mx.relid
				AND u_order_ml.mtrlid = :s_mx.mtrlid
				AND u_order_ml.scid = :scid
				Using commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(s_mx.printid)+',查询生产计划是否有生产产品:'+s_mx.mtrlcode+'失败'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			//检查指令单工序是否已开完派工单
			IF li_check_taskqty = 1 THEN
				SELECT count(*)
					INTO :cnt
					FROM U_OrderRqwp
					WHERE scid = :scid
					AND orderid = :s_mx.relid
					AND proqty > taskqty
					Using commit_transaction;
				IF commit_transaction.SQLCode <> 0 THEN
					arg_msg = '行:'+String(s_mx.printid)+',查询指令单工序是否已完成派工失败'+commit_transaction.SQLErrText
					rslt = 0
					GOTO ext
				END IF
				
				IF cnt > 0 THEN
					arg_msg = '行:'+String(s_mx.printid)+',指令单工序没有完成派工,不允许进仓'
					rslt = 0
					GOTO ext
				END IF
			END IF
			
			//查已开单数
			ld_noauditqty = 0
			SELECT sum(qty) INTO :ld_noauditqty
				FROM u_inwaremx,u_inware
				WHERE u_inwaremx.relid = :s_mx.relid
				AND u_inware.inwareid <> :inwareid
				AND u_inware.flag = 0
				AND u_inware.inwareid = u_inwaremx.inwareid
				AND u_inware.scid = u_inwaremx.scid
				AND u_inwaremx.scid = :scid
				And u_inware.billtype = 3 Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(s_mx.printid)+',查询物料:'+s_mx.mtrlcode+'相关订单单据已开单数失败'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			IF IsNull(ld_noauditqty) THEN ld_noauditqty = 0
			
			lde_mx_qty = 0
			FOR ls_i = 1 To it_mxbt
				IF s_mx.mtrlid = inwaremx[ls_i].mtrlid And &
					s_mx.relid = inwaremx[ls_i].relid And &
					s_mx.relprintid = inwaremx[ls_i].relprintid THEN
					lde_mx_qty = lde_mx_qty + inwaremx[ls_i].qty
				END IF
			NEXT
			lde_mx_qty = lde_mx_qty + s_mx.qty
			
			SELECT orderqty - stopqty,acmpqty
				INTO :ld_uqty,:ld_consignedqty
				FROM u_order_ml
				WHERE u_order_ml.orderid = :s_mx.relid
				AND u_order_ml.scid = :scid
				Using commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(s_mx.printid)+',查询生产计划是否有物料:'+s_mx.mtrlcode+'失败'
				rslt = 0
				GOTO ext
			END IF
			
			IF uo_option_ifovertask_cp = 1 Or uo_option_ifovertask_cp = 4  THEN //不允许超收
				IF ld_uqty < lde_mx_qty + ld_consignedqty + ld_noauditqty THEN
					rslt = 0
					arg_msg = '行:'+String(s_mx.printid)+',该计划明细产品['+s_mx.mtrlcode+']未完成数量'+String(ld_uqty - ld_consignedqty,'#,##0.00##' )+',已开单未审核数:'+String(ld_noauditqty,'#,##0.0###')+'小于本次完成数量'
					GOTO ext
				END IF
			ELSEIF uo_option_ifovertask_cp = 3 THEN //允许超收但按比例限制
				SELECT uprate , upqty
					INTO :ld_uprate,:ld_upqty
					FROM u_mtrldef
					Where mtrlid = :s_mx.mtrlid Using commit_transaction;
				IF commit_transaction.SQLCode <> 0 THEN
					arg_msg = '行:'+String(s_mx.printid)+',查询物料:'+Trim(s_mx.mtrlcode)+'超收货比例失败,'+commit_transaction.SQLErrText
					rslt = 0
					GOTO ext
				END IF
				
				IF ld_uqty * (1 + ld_uprate) + ld_upqty < ld_consignedqty + lde_mx_qty + ld_noauditqty THEN
					rslt = 0
					arg_msg = '行:'+String(s_mx.printid)+",物料:"+s_mx.mtrlcode+"未完成数量只有"+String(ld_uqty - ld_consignedqty,'#,##0.0###')+'已开单未审核数:'+String(ld_noauditqty,'#,##0.0###')+",允许超收上限:"+String(ld_uqty * (1 + ld_uprate) + ld_upqty - ld_consignedqty - ld_noauditqty,'#,##0.00##')+",不能入库"+String(lde_mx_qty,'#,##0.0#')
					GOTO ext
				END IF
			END IF
		END IF
		
		Int li_if_cus_mtrlware
		SELECT  balctype INTO :li_if_cus_mtrlware
			FROM u_storage
			Where storageid = :storageid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '行:'+String(s_mx.printid)+',查询仓库是否使用客户库存失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF billtype = 3 And li_if_cus_mtrlware = 1 THEN
			cnt = 0
			SELECT count(*) INTO :cnt
				FROM u_cust
				Where cusid = :s_mx.sptid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(s_mx.printid)+',查询客户资料失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		END IF
		
		
	CASE 4
		IF s_mx.ifrel > 0 THEN
			IF s_mx.relid = 0 THEN
				arg_msg = '行:'+String(s_mx.printid)+',请先择相应的加工计划'
				rslt = 0
				GOTO ext
			END IF
			
			SELECT u_order_wfjg.taskcode ,sum(u_order_wfjgmx.qty - u_order_wfjgmx.consignedqty)INTO :ls_relcode,:ld_bootqty
				FROM u_order_wfjgmx,u_order_wfjg
				WHERE u_order_wfjgmx.wfjgid = :s_mx.relid
				AND u_order_wfjgmx.scid = :scid
				AND u_order_wfjgmx.printid = :s_mx.relprintid
				AND u_order_wfjgmx.wfjgid =  u_order_wfjg.wfjgid
				AND u_order_wfjgmx.scid =  u_order_wfjg.scid
				GROUP BY u_order_wfjg.taskcode
				Using commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(s_mx.printid)+',查询外协计划是否有加工产品:'+s_mx.mtrlcode+'失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		END IF
	CASE 5
		IF s_mx.ifrel > 0 THEN
			IF s_mx.relid = 0 THEN
				arg_msg = '行:'+String(s_mx.printid)+',请先择相应的来料加工订单'
				rslt = 0
				GOTO ext
			END IF
			
			SELECT u_saletask_ll.taskcode ,sum(qty - consignedqty),sum(qty),sum(consignedqty)
				INTO :ls_relcode,:ld_bootqty,:ld_uqty,:ld_consignedqty
				FROM u_saletaskmx_in,u_saletask_ll
				WHERE u_saletaskmx_in.taskid = :s_mx.relid
				AND u_saletask_ll.scid = :scid
				AND u_saletaskmx_in.printid = :s_mx.relprintid
				AND u_saletaskmx_in.taskid =  u_saletask_ll.taskid
				GROUP BY u_saletask_ll.taskcode
				Using commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '行:'+String(s_mx.printid)+',查询来料订单是否有收料物料:'+s_mx.mtrlcode+'失败'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			lde_mx_qty = 0
			FOR ls_i = 1 To it_mxbt
				IF s_mx.mtrlid = inwaremx[ls_i].mtrlid And &
					s_mx.relid = inwaremx[ls_i].relid And &
					s_mx.relprintid = inwaremx[ls_i].relprintid THEN
					lde_mx_qty = lde_mx_qty + inwaremx[ls_i].qty
				END IF
			NEXT
			lde_mx_qty = lde_mx_qty + s_mx.uqty
			
			//查已开单数
			ld_noauditqty = 0
			SELECT sum(qty) INTO :ld_noauditqty
				FROM u_inwaremx,u_inware
				WHERE u_inwaremx.relid = :s_mx.relid
				AND u_inwaremx.sptid_cusid = :s_mx.sptid
				AND u_inwaremx.mtrlid = :s_mx.mtrlid
				AND u_inwaremx.status = :s_mx.status
				AND u_inwaremx.woodcode = :s_mx.woodcode
				AND u_inwaremx.pcode = :s_mx.pcode
				AND u_inwaremx.unit = :s_mx.unit
				AND u_inwaremx.relprintid = :s_mx.relprintid
				AND u_inware.inwareid <> :inwareid
				AND u_inware.flag = 0
				AND u_inware.inwareid = u_inwaremx.inwareid
				AND u_inware.scid = u_inwaremx.scid
				AND u_inwaremx.scid = :scid
				And u_inware.billtype = 5 Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询物料:'+s_mx.mtrlcode+'相关订单单据已开单数失败'
				rslt = 0
				GOTO ext
			END IF
			IF IsNull(ld_noauditqty) THEN ld_noauditqty = 0
			
			IF ld_uqty < lde_mx_qty + ld_consignedqty + ld_noauditqty THEN
				rslt = 0
				arg_msg = '行:'+String(s_mx.printid)+',该计划明细产品['+s_mx.mtrlcode+']未完成数量'+String(ld_uqty - ld_consignedqty,'#,##0.00##' )+',已开单未审核数:'+String(ld_noauditqty,'#,##0.0###')+'小于本次完成数量'
				GOTO ext
			END IF
			
		END IF
		
END CHOOSE

IF s_mx.enprice * s_mx.rebate < 0 THEN //检查进仓价
	rslt = 0
	arg_msg = '行:'+String(s_mx.printid)+",物料或产品：" + String(s_mx.mtrlcode)+" 单价错误"
	GOTO ext
END IF


//查询质检单号
String ls_relbillcode
ls_relbillcode = ''
IF s_mx.relbillid > 0 THEN
	SELECT billcode
		INTO :ls_relbillcode
		FROM u_sptcheck
		Where billid = :s_mx.relbillid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '行:'+String(s_mx.printid)+',查询质检单号失败,'+commit_transaction.SQLErrText
		GOTO ext
	END IF
END IF

//写入内容

it_mxbt++
inwaremx[it_mxbt].noauditqty = ld_noauditqty
inwaremx[it_mxbt].printid = s_mx.printid
inwaremx[it_mxbt].mtrlid = s_mx.mtrlid
inwaremx[it_mxbt].mtrlcode = s_mx.mtrlcode
inwaremx[it_mxbt].unit = s_mx.unit
inwaremx[it_mxbt].rate = s_mx.rate
inwaremx[it_mxbt].plancode = s_mx.plancode
inwaremx[it_mxbt].bootqty = ld_bootqty
inwaremx[it_mxbt].status = s_mx.status


inwaremx[it_mxbt].enprice = s_mx.enprice
inwaremx[it_mxbt].uprice = s_mx.enprice * mrate
inwaremx[it_mxbt].rebate = s_mx.rebate
inwaremx[it_mxbt].uqty = s_mx.uqty
inwaremx[it_mxbt].qty = s_mx.qty //Round(s_mx.uqty * s_mx.rate,uo_option_unit_dec)

inwaremx[it_mxbt].deliqty = s_mx.deliqty
inwaremx[it_mxbt].tax = s_mx.tax

inwaremx[it_mxbt].deliprice_notax = s_mx.enprice / (1 + s_mx.tax)

IF s_mx.uqty <> 0 THEN
	inwaremx[it_mxbt].enprice_tax = s_mx.deliqty * s_mx.enprice / s_mx.uqty
	inwaremx[it_mxbt].enprice_notax = (s_mx.deliqty * s_mx.enprice / s_mx.uqty) / (1 + s_mx.tax)
ELSE
	inwaremx[it_mxbt].enprice_tax = s_mx.enprice
	inwaremx[it_mxbt].enprice_notax = s_mx.enprice / (1 + s_mx.tax)
END IF

inwaremx[it_mxbt].enprice_tax = Abs(inwaremx[it_mxbt].enprice_tax)
inwaremx[it_mxbt].enprice_notax = Abs(inwaremx[it_mxbt].enprice_notax)

IF Round(s_mx.uqty * s_mx.rate,uo_option_unit_dec) <> 0 THEN
	inwaremx[it_mxbt].fprice = Round((inwaremx[it_mxbt].enprice_tax * mrate * s_mx.uqty)/(Round(s_mx.uqty * s_mx.rate,uo_option_unit_dec)),10)
	ld_fprice_notax = Round((inwaremx[it_mxbt].enprice_notax * mrate * s_mx.uqty)/(Round(s_mx.uqty * s_mx.rate,uo_option_unit_dec)),10)
ELSE
	inwaremx[it_mxbt].fprice = 0
	ld_fprice_notax = 0
END IF

inwaremx[it_mxbt].fprice = Abs(inwaremx[it_mxbt].fprice)
ld_fprice_notax = Abs(ld_fprice_notax)

inwaremx[it_mxbt].price = inwaremx[it_mxbt].fprice * s_mx.rebate
inwaremx[it_mxbt].planprice = ld_planprice
inwaremx[it_mxbt].mxdscrp = s_mx.mxdscrp
inwaremx[it_mxbt].dxflag = dxflag
inwaremx[it_mxbt].jgprice = s_mx.jgprice
inwaremx[it_mxbt].relid = s_mx.relid
inwaremx[it_mxbt].ifrel = s_mx.ifrel
inwaremx[it_mxbt].woodcode = s_mx.woodcode
inwaremx[it_mxbt].pcode = s_mx.pcode
inwaremx[it_mxbt].relcode = ls_relcode
inwaremx[it_mxbt].relprintid = s_mx.relprintid

inwaremx[it_mxbt].checkqty = s_mx.checkqty
inwaremx[it_mxbt].result = s_mx.result
inwaremx[it_mxbt].waredscrp = s_mx.waredscrp

inwaremx[it_mxbt].relbillid = s_mx.relbillid
inwaremx[it_mxbt].relbillprintid = s_mx.relbillprintid
inwaremx[it_mxbt].relbillcode = ls_relbillcode
inwaremx[it_mxbt].mtrlcuscode = s_mx.mtrlcuscode
inwaremx[it_mxbt].Location = s_mx.Location
inwaremx[it_mxbt].capacity = ld_capacity * s_mx.qty
inwaremx[it_mxbt].ifvqty = s_mx.ifvqty
inwaremx[it_mxbt].ifnotinout = s_mx.ifnotinout


IF dxflag = 0 THEN
	inwaremx[it_mxbt].sptid = s_mx.sptid
ELSE
	inwaremx[it_mxbt].sptid = sptid
END IF

IF billtype = 1 THEN
	String ls_sptmtrlname
	uo_spt_price uo_price
	uo_price = Create uo_spt_price
	IF uo_price.uof_getmtrlname(sptid,s_mx.mtrlid,ls_sptmtrlname,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	Destroy uo_price
	inwaremx[it_mxbt].sptmtrlname = ls_sptmtrlname
END IF


IF thflag = 1 THEN
	Long ll_sptid,ll_billtype,ll_balctype
	Int li_thtype
	//查询相关订单属于材料订单还是成品订单
	//	IF billtype = 1 AND  s_mx.relid > 0 THEN
	//		SELECT billtype INTO :ll_billtype
	//			FROM u_buytask
	//			WHERE taskid = :s_mx.relid
	//			AND scid = :scid;
	//		IF commit_transaction.SQLCode <> 0 THEN
	//			rslt = 0
	//			arg_msg = '查询订单类型失败'+'~n'+commit_transaction.SQLErrText
	//			GOTO ext
	//		END IF
	//	ELSE
	//		ll_billtype = 0
	//	END IF
	//	
	//	IF billtype = 5 THEN
	//		ll_sptid = s_mx.sptid
	//	ELSEIF billtype = 1 AND ll_billtype = 1 THEN
	//		SELECT balctype INTO :ll_balctype
	//			FROM u_storage
	//			Where storageid = :storageid;
	//		IF commit_transaction.SQLCode <> 0 THEN
	//			rslt = 0
	//			arg_msg = '查询仓库是否使用客户库存失败'+'~n'+commit_transaction.SQLErrText
	//			GOTO ext
	//		END IF
	//		
	//		IF ll_balctype = 1 THEN
	ll_sptid = s_mx.sptid
	//		ELSE
	//			ll_sptid = 0
	//		END IF
	//	ELSE
	//		ll_sptid = 0
	//	END IF
	
	SELECT  thtype INTO :li_thtype
		FROM u_storage
		Where storageid = :storageid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '行:'+String(s_mx.printid)+',查询仓库退货取价模式失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF li_thtype = 0 THEN
		SELECT cost
			INTO :ld_cost
			FROM u_mtrlware
			WHERE scid = :scid
			AND mtrlid = :s_mx.mtrlid
			AND storageid = :storageid
			AND status = :s_mx.status
			AND plancode = :s_mx.plancode
			AND woodcode = :s_mx.woodcode
			AND pcode = :s_mx.pcode
			AND dxflag = :dxflag
			AND sptid = :ll_sptid
			AND mtrlcuscode = :s_mx.mtrlcuscode
			And Location = :s_mx.Location Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 Or IsNull(ld_cost) THEN ld_cost = 0
		
		inwaremx[it_mxbt].cost = ld_cost
	ELSE
		
		IF uo_option_cost_notax = 0 THEN
			inwaremx[it_mxbt].cost = inwaremx[it_mxbt].fprice * s_mx.rebate
		ELSE
			inwaremx[it_mxbt].cost = ld_fprice_notax * s_mx.rebate
		END IF
		
	END IF
ELSE
	IF uo_option_cost_notax = 0 THEN
		inwaremx[it_mxbt].cost = inwaremx[it_mxbt].fprice * s_mx.rebate
	ELSE
		inwaremx[it_mxbt].cost = ld_fprice_notax * s_mx.rebate
	END IF
END IF


inwaremx[it_mxbt].newprice = lde_newprice

inwaremx[it_mxbt].Thptype = s_mx.Thptype

inwaremx[it_mxbt].jgdscrp = s_mx.jgdscrp
ext:
Destroy uo_sptprice
IF rslt = 0 THEN p_clearmx()
Return(rslt)






end function

public function integer uof_check_scll_rate (long arg_scid, long arg_inwareid, long arg_printid, long arg_relid, long arg_mtrlid, decimal arg_qty, integer arg_ck_if_save_audit, ref string arg_msg);Int rslt = 1
Long cnt

Long ll_relid,ll_mtrlid
Decimal ld_qty,ld_minrate,ld_orderqty,ld_acmpqty,ld_uprate,ld_upqty
Decimal ld_truerqqty,ld_dstrqty,ld_scllplanqty,ld_backqty,ld_backbuqty
String ls_msg
Int li_ck_result

If uo_option_ifovertask_cp = -1000 Then
	rslt = 0
	arg_msg = '选项:[112]超生产指令单数量进仓,读取初始默认值失败,操作取消!'
	Goto ext
End If

If arg_ck_if_save_audit = 0 Then
	ll_relid = arg_relid
	ll_mtrlid = arg_mtrlid
	ld_qty = arg_qty
Else
	If arg_inwareid > 0 Then
		Select relid,qty,mtrlid
			Into :ll_relid,:ld_qty,:ll_mtrlid
			From u_inwaremx
			Where scid = :arg_scid
			And inwareid = :arg_inwareid
			And printid = :arg_printid Using commit_transaction;
		If commit_transaction.SQLCode <> 0 Then
			arg_msg = '查询进仓单明细失败,'+commit_transaction.SQLErrText
			rslt = 0
			Goto ext
		End If
	End If
End If

//yyx2014-9-26 采购补件指令单进仓不检查领料
Int li_ifbj_wkp,li_mtrlorigin
SELECT mtrlorigin
	INTO :li_mtrlorigin
	FROM u_mtrldef
	Where mtrlid = :ll_mtrlid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询明细物料物料来源失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

SELECT u_sc_wkp.ifbj
	INTO :li_ifbj_wkp
	FROM u_order_ml,u_sc_wkp
	WHERE u_order_ml.wrkgrpid = u_sc_wkp.wrkgrpid
	AND u_order_ml.scid = :arg_scid
	And u_order_ml.orderid = :ll_relid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询明细指令单生产车间是否补件车间失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF li_ifbj_wkp = 1 And li_mtrlorigin = 2 THEN
	rslt = 1
	GOTO ext
END IF
//end_yyx2014-9-26 采购补件指令单进仓不检查领料


Select count(*) Into :cnt
	From u_OrderRqMtrl_scll Inner JOIN
	u_mtrldef ON u_OrderRqMtrl_scll.MtrlID = u_mtrldef.mtrlid
	Where (u_mtrldef.mtrlkind = 0 Or u_mtrldef.mtrlkind = 3)
	And (u_OrderRqMtrl_scll.trueRqqty > 0)
	And (u_OrderRqMtrl_scll.OrderID = :ll_relid)
	And (u_OrderRqMtrl_scll.scid = :arg_scid) Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	arg_msg = '查询相关指令单领料明细失败,'+commit_transaction.SQLErrText
	rslt = 0
	Goto ext
End If

If cnt > 0 Then
	
	Select Min(Case when u_OrderRqMtrl_scll.trueRqqty = 0 Then 1 Else Round((u_OrderRqMtrl_scll.DstrQty + IsNull(uv_outware_scll_backbu_noaudit.backqty,0) + IsNull(uv_outware_scll_bu.qty,0)) / u_OrderRqMtrl_scll.trueRqqty,10) End),
IsNull(sum(u_OrderRqMtrl_scll.trueRqqty),0),
IsNull(sum(u_OrderRqMtrl_scll.DstrQty),0)
Into :ld_minrate,:ld_truerqqty,:ld_dstrqty
From u_OrderRqMtrl_scll Inner JOIN
u_mtrldef On u_OrderRqMtrl_scll.mtrlid = u_mtrldef.mtrlid Left Outer JOIN
uv_outware_scll_backbu_noaudit On
u_OrderRqMtrl_scll.scid = uv_outware_scll_backbu_noaudit.scid And
u_OrderRqMtrl_scll.OrderID = uv_outware_scll_backbu_noaudit.relid And
u_OrderRqMtrl_scll.mtrlid = uv_outware_scll_backbu_noaudit.mtrlid And
u_OrderRqMtrl_scll.status = uv_outware_scll_backbu_noaudit.status And
u_OrderRqMtrl_scll.woodcode = uv_outware_scll_backbu_noaudit.woodcode And
u_OrderRqMtrl_scll.pcode = uv_outware_scll_backbu_noaudit.pcode Left Outer JOIN
uv_outware_scll_bu On u_OrderRqMtrl_scll.mtrlid = uv_outware_scll_bu.mtrlid And
u_OrderRqMtrl_scll.status = uv_outware_scll_bu.status And
u_OrderRqMtrl_scll.woodcode = uv_outware_scll_bu.woodcode And
u_OrderRqMtrl_scll.pcode = uv_outware_scll_bu.pcode And
u_OrderRqMtrl_scll.scid = uv_outware_scll_bu.scid And
u_OrderRqMtrl_scll.OrderID = uv_outware_scll_bu.relid
Where (u_mtrldef.mtrlkind = 0 Or u_mtrldef.mtrlkind = 3)
And (u_OrderRqMtrl_scll.trueRqqty + IsNull(uv_outware_scll_bu.qty,0) > 0)
And (u_OrderRqMtrl_scll.OrderID = :ll_relid)
And (u_OrderRqMtrl_scll.scid = :arg_scid) Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	ld_minrate = 1
End If

If IsNull(ld_minrate) Then ld_minrate = 1

Select orderqty - stopqty,acmpqty
	Into :ld_orderqty,:ld_acmpqty
	From u_order_ml
	Where scid = :arg_scid
	And OrderID = :ll_relid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '查询相关指令单数量失败,'+commit_transaction.SQLErrText
	Goto ext
End If

If uo_option_ifovertask_cp = 1 Then
	If ld_acmpqty + ld_qty > Ceiling(ld_orderqty * ld_minrate) Then
		rslt = 0
		arg_msg = '相关指令单最大领料配套数量为:'+String(Ceiling(ld_orderqty * ld_minrate),'#,##0.##########')+',已进仓数:'+String(ld_acmpqty,'#,##0.##########')+',不能进仓:'+String(ld_qty,'#,##0.##########')
		Goto ext
	End If
ElseIf uo_option_ifovertask_cp = 4 Then
	
	Select IsNull(sum(Case u_mtrldef.scllplan_mode when 0 Then u_OrderRqMtrl_scll.flqty + IsNull(uv_outware_scllplan_noaudit.qty,0) Else IsNull(uv_outware_scllplan_all.p_rqqty,0) End),0)
Into :ld_scllplanqty
From u_OrderRqMtrl_scll Inner JOIN
u_mtrldef On u_OrderRqMtrl_scll.mtrlid = u_mtrldef.mtrlid Left Outer JOIN
uv_outware_scllplan_noaudit On
u_OrderRqMtrl_scll.scid = uv_outware_scllplan_noaudit.scid And
u_OrderRqMtrl_scll.OrderID = uv_outware_scllplan_noaudit.OrderID And
u_OrderRqMtrl_scll.mtrlid = uv_outware_scllplan_noaudit.mtrlid And
u_OrderRqMtrl_scll.wrkGrpid = uv_outware_scllplan_noaudit.wrkGrpid And
u_OrderRqMtrl_scll.status = uv_outware_scllplan_noaudit.status And
u_OrderRqMtrl_scll.woodcode = uv_outware_scllplan_noaudit.woodcode And
u_OrderRqMtrl_scll.pcode = uv_outware_scllplan_noaudit.pcode Left Outer JOIN
uv_outware_scllplan_all On
u_OrderRqMtrl_scll.scid = uv_outware_scllplan_all.scid And
u_OrderRqMtrl_scll.OrderID = uv_outware_scllplan_all.OrderID And
u_OrderRqMtrl_scll.mtrlid = uv_outware_scllplan_all.mtrlid And
u_OrderRqMtrl_scll.status = uv_outware_scllplan_all.status And
u_OrderRqMtrl_scll.woodcode = uv_outware_scllplan_all.woodcode And
u_OrderRqMtrl_scll.pcode = uv_outware_scllplan_all.pcode And
u_OrderRqMtrl_scll.wrkGrpid = uv_outware_scllplan_all.wrkGrpid
Where (u_mtrldef.mtrlkind = 0 Or u_mtrldef.mtrlkind = 3)
And (u_OrderRqMtrl_scll.OrderID = :ll_relid)
And (u_OrderRqMtrl_scll.scid = :arg_scid) Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	ld_scllplanqty = 0
End If

//	SELECT IsNull(sum(CASE u_mtrldef.scllplan_mode when 0 THEN IsNull(uv_outware_scllplan_all.conqty,0) ELSE IsNull(uv_outware_scllplan_all.p_rqqty,0) END),0)
//Into :ld_scllplanqty
//From uv_outware_scllplan_all Inner JOIN
//u_mtrldef On uv_outware_scllplan_all.mtrlid = u_mtrldef.mtrlid
//Where (u_mtrldef.mtrlkind = 0 Or u_mtrldef.mtrlkind = 3)
//And (uv_outware_scllplan_all.OrderID = :ll_relid)
//And (uv_outware_scllplan_all.scid = :arg_scid) Using commit_transaction;
//IF commit_transaction.SQLCode <> 0 THEN
//	ld_scllplanqty = 0
//END IF

Select IsNull(sum(uv_outware_scll_back.qty),0)
	Into :ld_backqty
	From uv_outware_scll_back Inner JOIN
	u_mtrldef On uv_outware_scll_back.mtrlid = u_mtrldef.mtrlid
	Where (u_mtrldef.mtrlkind = 0 Or u_mtrldef.mtrlkind = 3)
	And (uv_outware_scll_back.qty <> 0)
	And (uv_outware_scll_back.relid = :ll_relid)
	And (uv_outware_scll_back.scid = :arg_scid) Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	arg_msg = '查询指令单退料数量失败,'+commit_transaction.SQLErrText
	rslt = 0
	Goto ext
End If

Select IsNull(sum(uv_outware_scll_backbu.qty),0)
	Into :ld_backbuqty
	From uv_outware_scll_backbu Inner JOIN
	u_mtrldef On uv_outware_scll_backbu.mtrlid = u_mtrldef.mtrlid
	Where (u_mtrldef.mtrlkind = 0 Or u_mtrldef.mtrlkind = 3)
	And (uv_outware_scll_backbu.qty <> 0)
	And (uv_outware_scll_backbu.relid = :ll_relid)
	And (uv_outware_scll_backbu.scid = :arg_scid) Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	arg_msg = '查询指令单补料数量失败,'+commit_transaction.SQLErrText
	rslt = 0
	Goto ext
End If

//yyx2013-3-18
If ld_scllplanqty > 0 And ld_minrate <> 1 Then
	ld_minrate = Round((ld_scllplanqty + ld_backqty + ld_backbuqty)/ld_truerqqty,10)
End If
//

If ld_acmpqty + ld_qty > Ceiling(ld_orderqty * ld_minrate) Then
	If ld_truerqqty - ld_dstrqty > 0 And ld_truerqqty > ld_scllplanqty Then
		ls_msg = ',有材料未开完发料通知单'
		li_ck_result = 0
	ElseIf ld_truerqqty - ld_dstrqty > 0 And ld_truerqqty = ld_scllplanqty Then
		If Abs(ld_backqty) > ld_backbuqty Then
			ls_msg = ',有材料未补完料'
			li_ck_result = 0
		End If
	ElseIf ld_truerqqty - ld_dstrqty > 0 And ld_dstrqty < ld_scllplanqty Then
		If ld_backqty = 0 Then
			ls_msg = ',有材料有发料单未审核'
		Else
			ls_msg = ',有材料有补料单未审核'
		End If
		li_ck_result = 1
	End If
	
	If arg_ck_if_save_audit = 0 Then
		If li_ck_result = 0 Then
			rslt = 0
			arg_msg = '相关指令单最大领料配套数量为:'+String(Ceiling(ld_orderqty * ld_minrate),'#,##0.##########')+',已进仓数:'+String(ld_acmpqty,'#,##0.##########')+',不能保存进仓:'+String(ld_qty,'#,##0.##########') + ',原因:'+ls_msg
			Goto ext
		End If
	Else
		rslt = 0
		arg_msg = '相关指令单最大领料配套数量为:'+String(Ceiling(ld_orderqty * ld_minrate),'#,##0.##########')+',已进仓数:'+String(ld_acmpqty,'#,##0.##########')+',不能审核进仓:'+String(ld_qty,'#,##0.##########') + ',原因:'+ls_msg
		Goto ext
	End If
End If
ElseIf uo_option_ifovertask_cp = 3 Then
	Select uprate , upqty
		Into :ld_uprate,:ld_upqty
		From u_mtrldef
		Where mtrlid = :ll_mtrlid;
	If sqlca.SQLCode <> 0 Then
		arg_msg = '查询物料超收货比例失败,'+sqlca.SQLErrText
		rslt = 0
		Goto ext
	End If
	
	If ld_acmpqty + ld_qty > Ceiling(ld_orderqty * ld_minrate)  * (1 + ld_uprate) + ld_upqty Then
		rslt = 0
		arg_msg = '相关指令单最大领料配套数量为:'+String(Ceiling(ld_orderqty * ld_minrate),'#,##0.##########')+',允许超收上限:'+String(Ceiling(ld_orderqty * ld_minrate)  * (1 + ld_uprate) + ld_upqty,'#,##0.##########')+',已进仓数:'+String(ld_acmpqty,'#,##0.##########')+',不能进仓:'+String(ld_qty,'#,##0.##########')
		Goto ext
	End If
End If

End If


ext:
Return rslt
















end function

public function integer uof_p_barcode (integer arg_audittype, ref string arg_msg, s_inwaremx_barcode_fp arg_mxbarcode_fp);Int rslt = 1
Int li_storagetype_storage
Long i,j,ll_find
Long ll_scid,ll_mtrlwareid
String ls_location_top1
String ls_relbillcode
Long ll_relbillid,ll_relprintid,ll_Porderid
Int li_ordertype_order
Decimal ld_qty


uo_getbar uo_gb
uo_gb = Create uo_getbar


IF billtype <> 1 And billtype <> 3 And billtype <> 8 And billtype <> 9 And billtype <> 12 THEN
	rslt = 1
	GOTO ext
END IF

IF billtype = 8 And (sptname = '更新成本价(正单)' Or sptname = '调整成本价(负单)') THEN
	rslt = 1
	GOTO ext
END IF

IF it_mxbt_barcode = 0 THEN
	arg_msg = '没有条码明细,请检查'
	rslt = 0
	GOTO ext
END IF

IF f_rst_storage_storagetype(storageid,li_storagetype_storage) = 0 THEN
	arg_msg = '查询仓库库存策略失败,请检查'
	rslt = 0
	GOTO ext
END IF

FOR i = 1 To it_mxbt_barcode
	IF thflag = 0 THEN
		IF arg_audittype = 1 THEN
			
			IF uo_option_barcodelocation_use_inwaremx_location = 0 THEN
				ls_location_top1 = ''
			ELSE
				SELECT top 1 u_inwaremx.location
					INTO :ls_location_top1
					FROM u_inwaremx
					WHERE u_inwaremx.scid = :scid
					AND u_inwaremx.inwareid = :inwareid
					Using commit_transaction;
				IF commit_transaction.SQLCode <> 0 THEN
					arg_msg = '查询进仓单明细仓位信息失败,'+commit_transaction.SQLErrText
					rslt = 0
					GOTO ext
				END IF
			END IF
			
			SELECT u_mtrlware.scid,u_mtrlware.mtrlwareid
				INTO :ll_scid,:ll_mtrlwareid
				FROM u_mtrlware,u_mtrlware_mx,u_mtrldef
				WHERE u_mtrlware.storageid = :storageid
				AND u_mtrlware_mx.barcode = :s_mx_barcode[i].barcode
				AND u_mtrlware.mtrlid = u_mtrlware_mx.mtrlid
				AND u_mtrlware.mtrlid = u_mtrldef.mtrlid
				AND ( u_mtrlware.sptid = u_mtrlware_mx.sptid AND :li_storagetype_storage = 0 OR
				u_mtrlware.sptid = 0 AND :li_storagetype_storage = 1 )
				AND u_mtrlware.status = u_mtrlware_mx.status
				AND u_mtrlware.woodcode = u_mtrlware_mx.woodcode
				AND u_mtrlware.pcode = u_mtrlware_mx.pcode
				AND u_mtrlware.plancode = u_mtrlware_mx.plancode
				AND ( u_mtrlware.mtrlcuscode = u_mtrlware_mx.mtrlcuscode AND :li_storagetype_storage = 0 OR
				:li_storagetype_storage = 1 AND u_mtrlware.mtrlcuscode = u_mtrlware_mx.mtrlcuscode AND (u_mtrldef.ifpackpro = 4 OR u_mtrldef.ifpack = 2) OR
				:li_storagetype_storage = 1 AND u_mtrlware.mtrlcuscode = '' AND u_mtrldef.ifpackpro <> 4 AND u_mtrldef.ifpack <> 2 )
				AND (u_mtrlware.Location = u_mtrlware_mx.Location AND :uo_option_barcodelocation_use_inwaremx_location = 0 OR
				u_mtrlware.Location = :ls_location_top1 And :uo_option_barcodelocation_use_inwaremx_location = 1 ) Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '条码:'+s_mx_barcode[i].barcode+',查询库存资料失败,请检查对应条码单与库存资料,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF s_mx_barcode[i].u_mtrldef_ifbarcodefp = 0 THEN
				ls_relbillcode = ''
				ll_relbillid = 0
				ll_relprintid = 0
			ELSE
				IF billtype = 3 THEN
					IF s_mx_barcode[i].ifrel <> 1 THEN
						ls_relbillcode = ''
						ll_relbillid = 0
						ll_relprintid = 0
					ELSE
						SELECT u_order_ml.ordertype,
							u_order_ml.porderid,
							u_order_ml.saletaskcode,
							u_order_ml.taskid,
							u_order_ml.taskmxid
							INTO :li_ordertype_order,
							:ll_porderid,
							:ls_relbillcode,
							:ll_relbillid,
							:ll_relprintid
							FROM u_order_ml
							WHERE u_order_ml.scid = :s_mx_barcode[i].scid
							AND u_order_ml.orderid = :s_mx_barcode[i].orderid
							Using commit_transaction;
						IF commit_transaction.SQLCode <> 0 THEN
							arg_msg = '条码:'+s_mx_barcode[i].barcode+',查询对应车间指令单信息失败,'+commit_transaction.SQLErrText
							rslt = 0
							GOTO ext
						END IF
						
						IF li_ordertype_order = 4 THEN
							SELECT u_order_ml.saletaskcode,
								u_order_ml.taskid,
								u_order_ml.taskmxid
								INTO :ls_relbillcode,
								:ll_relbillid,
								:ll_relprintid
								FROM u_order_ml
								WHERE u_order_ml.scid = :s_mx_barcode[i].scid
								AND u_order_ml.orderid = :ll_porderid
								Using commit_transaction;
							IF commit_transaction.SQLCode <> 0 THEN
								arg_msg = '条码:'+s_mx_barcode[i].barcode+',查询对应车间指令单相关主生产计划信息失败,'+commit_transaction.SQLErrText
								rslt = 0
								GOTO ext
							END IF
						END IF
						
						//yyx2013-5-24
						ld_qty = s_mx_barcode[i].packqty * s_mx_barcode[i].qty
						
						IF ll_relbillid > 0 THEN
							ll_find = 0

							FOR j = 1 To UpperBound(arg_mxbarcode_fp.mtrlwareid)
								IF arg_mxbarcode_fp.mtrlwareid[j] = ll_mtrlwareid And &
									arg_mxbarcode_fp.relbillid[j] = ll_relbillid And &
									arg_mxbarcode_fp.relprintid[j] = ll_relprintid THEN
									ll_find = j
									EXIT
								END IF
							NEXT
							
							IF ll_find = 0 THEN
								ls_relbillcode = ''
								ll_relbillid = 0
								ll_relprintid = 0
							ELSE
								IF arg_mxbarcode_fp.assignqty[ll_find] <= arg_mxbarcode_fp.fpqty[ll_find] THEN
									ls_relbillcode = ''
									ll_relbillid = 0
									ll_relprintid = 0
								ELSE
									arg_mxbarcode_fp.fpqty[ll_find] += ld_qty
								END IF
							END IF
						END IF
						//yyx2013-5-24_end
					END IF
				ELSE
					ls_relbillcode = ''
					ll_relbillid = 0
					ll_relprintid = 0
				END IF
			END IF
		ELSE
			ll_scid = 0
			ll_mtrlwareid = 0
			ls_relbillcode = ''
			ll_relbillid = 0
			ll_relprintid = 0
		END IF
	ELSE
		ll_scid = 0
		ll_mtrlwareid = 0
	END IF
	
	IF uo_gb.uof_barcode_in(s_mx_barcode[i].barcode,&
		ll_scid,ll_mtrlwareid,ls_relbillcode,ll_relbillid,ll_relprintid,&
		arg_audittype,thflag,False,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
END IF

Destroy uo_getbar
RETURN rslt







end function

public function integer p_update_mtrlware (long arg_mtrlid, string arg_mtrlcode, long arg_storageid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_uqty, decimal arg_price, decimal arg_planprice, long arg_sptid, integer arg_dxflag, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, string arg_location, string arg_dscrp, integer arg_ifvqty, ref string arg_msg);Int rslt = 1
Long ls_newid
String or_err_part
Decimal ld_cost
Int li_storMtrlprp,li_ifcost
Int if_recmp_balc
Decimal ld_noallocqty,ld_allocqty
Decimal ld_wareamt_check,ld_noallocqty_check

If sys_if_recmp_balc < 0 Then
	Select if_recmp_balc
		Into :if_recmp_balc
		From sys_msg Using commit_transaction  ;
	If commit_transaction.SQLCode <> 0 Then
		arg_msg = '查询是否执行结存表重算失败,'+commit_transaction.SQLErrText
		rslt = 0
		Goto ext
	End If
	
	If if_recmp_balc = 0 Then
		rslt = 0
		arg_msg = '由于系统升级,结存表结构与原来不同,请先通知管理员执行危险功能中的[按新结构重算现结存表]功能,才能审核和撤审进出仓单据'
		Goto ext
	End If
Else
	If sys_if_recmp_balc = 0 Then
		rslt = 0
		arg_msg = '由于系统升级,结存表结构与原来不同,请先通知管理员执行危险功能中的[按新结构重算现结存表]功能,才能审核和撤审进出仓单据'
		Goto ext
	End If
End If

If uo_option_change_status = '-1000' Then
	rslt = 0
	arg_msg = '选项:[029]配置标题文本,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_change_woodcode = '-1000' Then
	rslt = 0
	arg_msg = '选项:[027]配置1标题文本,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_change_pcode = '-1000' Then
	rslt = 0
	arg_msg = '选项:[028]配置2标题文本,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_cost_dec = -1000 Then
	rslt = 0
	arg_msg = '选项:[022]库存成本价转换小数点,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_mtrlware_autocmp = -1000 Then
	rslt = 0
	arg_msg = '选项:[158]自动计算库存包件可装数,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_djqty_check = -1000 Then
	rslt = 0
	arg_msg = '选项:[378]进出仓检查冻结数不能大于库存数,读取初始默认值失败,操作取消!'
	Goto ext
End If


uo_cmpl_packpro uo_cmpl_p
uo_cmpl_p = Create uo_cmpl_packpro
uo_cmpl_p.commit_transaction = commit_transaction

Decimal ld_pypkqty,ld_pypkamt
Decimal ld_buyinqty,ld_buyinamt
Decimal ld_buyinqty_pack,ld_buyinamt_pack
Decimal ld_saleinqty_packpro,ld_saleinamt_packpro
Decimal ld_cpinqty,ld_cpinamt
Decimal ld_jginqty,ld_jginamt
Decimal ld_diinqty,ld_diinamt
Decimal ld_mvinqty,ld_mvinamt
Decimal ld_otinqty,ld_otinamt
Decimal ld_pyinqty,ld_pyinamt
Int li_ifunit,li_ifpack,li_ifpackpro
String ls_str
Int li_statusflag
Decimal ld_capacity,ld_capacity_zj
s_mtrlcfg_expr s_pz[]
String ls_status_zj
Long ll_i
Long ll_mtrlwareid,ll_mtrlwareid_find
Int li_incheck,li_storagetype,li_ifmrp
String ls_storagename

Decimal i_auditingqty

Select Mtrlprp,ifcost,incheck,storagetype,storagename,ifmrp
	Into :li_storMtrlprp,:li_ifcost,:li_incheck,:li_storagetype,:ls_storagename,:li_ifmrp
	From u_storage
	Where storageid = :arg_storageid Using commit_transaction  ;
If commit_transaction.SQLCode <> 0 Then
	arg_msg = '查询仓库类型失败'
	rslt = 0
	Goto ext
End If

Select ifunit,ifpack,capacity,statusflag,ifpackpro
	Into :li_ifunit,:li_ifpack,:ld_capacity,:li_statusflag,:li_ifpackpro
	From u_mtrldef
	Where mtrlid = :arg_mtrlid Using commit_transaction  ;
If commit_transaction.SQLCode <> 0 Then
	arg_msg = '查询物料信息失败'
	rslt = 0
	Goto ext
End If

If li_statusflag = 2 Then
	ld_capacity = 0
	f_checkpz(arg_status,s_pz[])
	For ll_i = 1 To  UpperBound(s_pz)
		ls_status_zj = s_pz[ll_i].cfgname
		
		Select capacity
			Into :ld_capacity_zj
			From u_mtrl_configure
			Where mtrlid = :arg_mtrlid
			And Name = :ls_status_zj;
		If commit_transaction.SQLCode <> 0 Then
			ld_capacity_zj = 0
		End If
		
		ld_capacity = ld_capacity + ld_capacity_zj * Dec(s_pz[ll_i].qty)
		
	Next
End If

Int li_ifupdate_date
If billtype = 1 And thflag = 0 Or &
	billtype = 2  Or &
	billtype = 3  Or &
	billtype = 4 And thflag = 0 Or &
	billtype = 5  Or &
	billtype = 6  Or &
	billtype = 12  Or &
	billtype = 8 And sptname <> '调整成本价(负单)' And sptname <> '更新成本价(正单)'  Or &
	billtype = 25  Or &
	billtype = 26  Or &
	billtype = 28  Then
	li_ifupdate_date = 1
Else
	li_ifupdate_date = 0
End If

If li_ifunit = 0 Then arg_uqty = 0


//检查库存
If (li_storagetype = 1 Or arg_qty < 0 And li_incheck = 1) And Not (billtype = 8 And Pos(sptname,'调整成本价') > 0 ) Then
	Select noallocqty - noauditingqty,noallocqty,allocqty
		Into :i_auditingqty,:ld_noallocqty,:ld_allocqty
		From u_mtrlware
		Where ( mtrlid = :arg_mtrlid ) And
		( plancode = :arg_plancode ) And
		( storageid = :arg_storageid ) And
		( scid = :scid ) And
		( status = :arg_status ) And
		( sptid = :arg_sptid) And
		( dxflag = :arg_dxflag) And
		( woodcode = :arg_woodcode) And
		( pcode = :arg_pcode) And
		( mtrlcuscode = :arg_mtrlcuscode) And
		( Location = :arg_location) Using commit_transaction  ;
	If commit_transaction.SQLCode <> 0 Then
		If commit_transaction.SQLCode = 100 Then
			i_auditingqty = 0
		Else
			rslt = 0
			arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致查询物料["+arg_mtrlcode+"]库存未开单数操作失败"+"~n"+commit_transaction.SQLErrText
			Goto ext
		End If
	End If
	
	If IsNull(i_auditingqty) Then i_auditingqty = 0
	If IsNull(ld_noallocqty) Then ld_noallocqty = 0
	If IsNull(ld_allocqty) Then ld_allocqty = 0
	
	If arg_qty < 0 And li_incheck = 1 And Not (billtype = 8 And Pos(sptname,'调整成本价') > 0 ) Then
		If arg_qty + i_auditingqty < 0 Then
			rslt = 0
			arg_msg = '仓库:'+ls_storagename+",物料["+arg_mtrlcode+"]未开单库存数只有"+String(i_auditingqty,'#####,0.00#######')+',不能扣减数量:'+String(0 - arg_qty,'#####,0.00#######')
			Goto ext
		End If
	End If
	
	If li_storagetype = 1 And billtype <> 23 Then
		If ld_noallocqty + arg_qty  < ld_allocqty Then
			arg_msg = '仓库:'+ls_storagename+",物料["+arg_mtrlcode+']库存数小于已分配数,请检查库存'
			rslt = 0
			Goto ext
		End If
	End If
End If
//-------------------------------------------更新库存
If li_ifcost = 1 Then //核算金额
	Select Case noallocqty + :arg_qty when 0 Then 0 Else wareamt + Round(:arg_qty * :arg_price,2) End,
noallocqty + :arg_qty
Into :ld_wareamt_check,
:ld_noallocqty_check
From u_mtrlware
Where ( mtrlid = :arg_mtrlid ) And
( plancode = :arg_plancode ) And
( storageid = :arg_storageid ) And
( scid = :scid ) And
( status = :arg_status ) And
( sptid = :arg_sptid) And
( dxflag = :arg_dxflag) And
( woodcode = :arg_woodcode) And
( pcode = :arg_pcode) And
( mtrlcuscode = :arg_mtrlcuscode) And
( Location = :arg_location) Using commit_transaction  ;
If commit_transaction.SQLCode = -1 Then
	rslt = 0
	arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]库存信息(检查数量金额合理性)操作失败"+"~n"+commit_transaction.SQLErrText
	Goto ext
ElseIf commit_transaction.SQLCode = 0 Then
	If ld_wareamt_check <> 0 And ld_noallocqty_check = 0 Then
		rslt = 0
		arg_msg = '仓库:'+ls_storagename+",物料["+arg_mtrlcode+"]库存数量为0但金额不为0,操作取消"
		Goto ext
	End If
End If




Update u_mtrlware
	Set noallocqty = noallocqty + :arg_qty ,
	unoallocqty = unoallocqty + :arg_uqty,
	wareamt = case noallocqty + :arg_qty when 0 then 0 else wareamt + round(:arg_qty * :arg_price,2) End,
	waredate = case :li_ifupdate_date when 1 then getdate() else waredate End,
	newprice = :arg_price,
	dscrp = :arg_dscrp,
	capacity = capacity + :ld_capacity * :arg_qty ,
	cost = case noallocqty + :arg_qty when 0 then cost else round((wareamt + round(:arg_qty * :arg_price, 2)) / ( noallocqty + :arg_qty ),:uo_option_cost_dec) End
	Where ( mtrlid = :arg_mtrlid ) And
	( plancode = :arg_plancode ) And
	( storageid = :arg_storageid ) And
	( scid = :scid ) And
	( status = :arg_status ) And
	( sptid = :arg_sptid) And
	( dxflag = :arg_dxflag) And
	( woodcode = :arg_woodcode) And
	( pcode = :arg_pcode) And
	( mtrlcuscode = :arg_mtrlcuscode) And
	( Location = :arg_location) Using commit_transaction  ;
If commit_transaction.SQLCode = 0 Then
	If commit_transaction.SQLNRows = 0 Then
		///////////////////////// //
		ls_newid = f_sys_scidentity(scid,"u_mtrlware","mtrlwareid",arg_msg,True,id_sqlca)
		If ls_newid <= 0 Then
			rslt = 0
			Goto ext
		End If
		///////////////////////// //
		ld_cost = Round(arg_price,uo_option_cost_dec)
		Insert Into u_mtrlware
			( scid,
			mtrlwareid,
			mtrlid,
			storageid,
			plancode,
			status,
			noallocqty,
			unoallocqty,
			allocqty,
			wareamt,
			planprice,
			sptid,
			dxflag,
			woodcode,
			pcode,
			cost,
			storMtrlprp,
			dscrp,
			mtrlcuscode,
			location,
			capacity)
			Values (
			:scid,
			:ls_newid,
			:arg_mtrlid,
			:arg_storageid,
			:arg_plancode,
			:arg_status,
			:arg_qty,
			:arg_uqty,
			0,
			round(:arg_price * :arg_qty,2),
			:arg_planprice,
			:arg_sptid,
			:arg_dxflag,
			:arg_woodcode,
			:arg_pcode,
			:ld_cost,
			:li_storMtrlprp,
			:arg_dscrp,
			:arg_mtrlcuscode,
			:arg_location,
			:ld_capacity * :arg_qty) Using commit_transaction ;
		If commit_transaction.SQLCode <> 0 Then
			rslt = 0
			arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]库存建立操作失败"+"~n"+commit_transaction.SQLErrText
			Goto ext
		End If
		
	End If
Else
	rslt = 0
	If arg_status <> '' Then
		ls_str = ' '+uo_option_change_status+':'+arg_status
	End If
	If arg_pcode <> '' Then
		ls_str = ls_str + ' '+uo_option_change_pcode+':'+arg_pcode
	End If
	If arg_woodcode <> '' Then
		ls_str = ls_str + ' '+uo_option_change_woodcode+':'+arg_woodcode
	End If
	or_err_part = 'column insert or update conflicts with a rule imposed by a previous create rule statement'
	If commit_transaction.SQLCode = 513 Or Pos(Lower(commit_transaction.SQLErrText),or_err_part) > 0 Then
		arg_msg = '仓库:'+ls_storagename+",物料["+arg_mtrlcode+"]同仓库内同批号没有足够的库存支持冲减"
	ElseIf Pos(commit_transaction.SQLErrText,'CK_u_mtrlware') > 0 Then
		arg_msg = '仓库:'+ls_storagename+",物料:"+arg_mtrlcode+ls_str+" 同仓库内同批号没有足够的库存支持冲减"
	ElseIf Pos(commit_transaction.SQLErrText,'CREATE RULE') > 0 And Pos(commit_transaction.SQLErrText,'cost') > 0 Then
		arg_msg = '仓库:'+ls_storagename+",物料:"+arg_mtrlcode+ls_str+" 同仓库内同批号的库存金额不够冲减"
	Else
		arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]库存更新操作失败"+"~n"+commit_transaction.SQLErrText
	End If
	Goto ext
End If

//-----------------------------------更新结存
Select mtrlwareid Into :ll_mtrlwareid
	From u_mtrlware
	Where ( mtrlid = :arg_mtrlid ) And
	( plancode = :arg_plancode ) And
	( storageid = :arg_storageid ) And
	( scid = :scid ) And
	( status = :arg_status ) And
	( sptid = :arg_sptid) And
	( dxflag = :arg_dxflag) And
	( woodcode = :arg_woodcode) And
	( pcode = :arg_pcode) And
	( mtrlcuscode = :arg_mtrlcuscode) And
	( Location = :arg_location) Using commit_transaction ;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]查询库存操作失败"+"~n"+commit_transaction.SQLErrText
	Goto ext
End If

Choose Case billtype
	Case 1,2,5,26
		ld_buyinqty = arg_qty
		ld_buyinamt = Round(arg_qty * arg_price,2)
	Case 3
		ld_cpinqty = arg_qty
		ld_cpinamt = Round(arg_qty * arg_price,2)
	Case 4
		ld_jginqty = arg_qty
		ld_jginamt = Round(arg_qty * arg_price,2)
	Case 8
		ld_otinqty = arg_qty
		ld_otinamt = Round(arg_qty * arg_price,2)
	Case 9
		ld_pyinqty = arg_qty
		ld_pyinamt = Round(arg_qty * arg_price,2)
		ld_pypkqty = arg_qty
		ld_pypkamt = Round(arg_qty * arg_price,2)
	Case 12
		ld_mvinqty = arg_qty
		ld_mvinamt = Round(arg_qty * arg_price,2)
	Case 15
		ld_diinqty = arg_qty
		ld_diinamt = Round(arg_qty * arg_price,2)
	Case 23
		ld_saleinqty_packpro = arg_qty
		ld_saleinamt_packpro = Round(arg_qty * arg_price,2)
	Case 25
		ld_buyinqty_pack = arg_qty
		ld_buyinamt_pack = Round(arg_qty * arg_price,2)
	Case Else
		ld_otinqty = arg_qty
		ld_otinamt = Round(arg_qty * arg_price,2)
End Choose


Update u_warebalc
	Set incqty = incqty + :arg_qty ,
	incamt  = incamt + round(:arg_qty * :arg_price,2),
	
	vincqty = case :arg_ifvqty when 0 then vincqty else vincqty + :arg_qty End,
	vincamt  = case :arg_ifvqty when 0 then  vincamt else vincamt + round(:arg_qty * :arg_price,2) End,
	uvincqty = case :arg_ifvqty when 0 then uvincqty else uvincqty + :arg_uqty End ,
	
	balcqty = balcqty + :arg_qty,
	balcamt = case balcqty + :arg_qty when 0 then 0 else balcamt + round(:arg_qty * :arg_price,2) End,
	
	pypk = pypk + :ld_pypkqty,
	pypkamt = pypkamt + :ld_pypkamt,
	
	uincqty = uincqty + :arg_uqty,
	ubalcqty = ubalcqty + :arg_uqty,
	
	buyinqty = buyinqty + :ld_buyinqty,
	buyinamt = buyinamt + :ld_buyinamt,
	
	buyinqty_pack = buyinqty_pack + :ld_buyinqty_pack,
	buyinamt_pack = buyinamt_pack + :ld_buyinamt_pack,
	
	saleinqty_packpro = saleinqty_packpro + :ld_saleinqty_packpro,
	saleinamt_packpro = saleinamt_packpro + :ld_saleinamt_packpro,
	
	cpinqty = cpinqty + :ld_cpinqty,
	cpinamt = cpinamt + :ld_cpinamt,
	
	jginqty = jginqty + :ld_jginqty,
	jginamt = jginamt + :ld_jginamt,
	
	otinqty = otinqty + :ld_otinqty,
	otinamt = otinamt + :ld_otinamt,
	
	mvinqty = mvinqty + :ld_mvinqty,
	mvinamt = mvinamt + :ld_mvinamt,
	
	diinqty = diinqty + :ld_diinqty,
	diinamt = diinamt + :ld_diinamt,
	
	pyinqty = pyinqty + :ld_pyinqty,
	pyinamt = pyinamt + :ld_pyinamt
	Where ( balcdateint  = 0) And
	( scid = :scid) And
	( mtrlwareid = :ll_mtrlwareid) Using commit_transaction  ;
If commit_transaction.SQLCode = 0 Then
	If commit_transaction.SQLNRows = 0 Then
		Insert Into u_warebalc
			( balcdateint,
			mtrlid,
			storageid,
			bgqty,
			bgamt,
			incqty,
			incamt,
			desqty,
			desamt,
			balcqty,
			balcamt,
			pypk,
			pypkamt,
			status,
			scid,
			buyinqty,
			buyinamt,
			buyinqty_pack,
			buyinamt_pack,
			saleinqty_packpro,
			saleinamt_packpro,
			cpinqty,
			cpinamt,
			jginqty,
			jginamt,
			diinqty,
			diinamt,
			mvinqty,
			mvinamt,
			otinqty,
			otinamt,
			pyinqty,
			pyinamt,
			woodcode,
			pcode,
			ubgqty,
			uincqty,
			udesqty,
			ubalcqty,
			plancode,
			sptid,
			dxflag,
			mtrlcuscode,
			location,
			mtrlwareid
			)
			Values (
			0,
			:arg_mtrlid,
			:arg_storageid,
			0,
			0,
			:arg_qty,
			round(:arg_qty * :arg_price,2),
			0,
			0,
			:arg_qty,
			round(:arg_qty * :arg_price,2),
			:ld_pypkqty,
			:ld_pypkamt,
			:arg_status,
			:scid,
			:ld_buyinqty,
			:ld_buyinamt,
			:ld_buyinqty_pack,
			:ld_buyinamt_pack,
			:ld_saleinqty_packpro,
			:ld_saleinamt_packpro,
			:ld_cpinqty,
			:ld_cpinamt,
			:ld_jginqty,
			:ld_jginamt,
			:ld_diinqty,
			:ld_diinamt,
			:ld_mvinqty,
			:ld_mvinamt,
			:ld_otinqty,
			:ld_otinamt,
			:ld_pyinqty,
			:ld_pyinamt,
			:arg_woodcode,
			:arg_pcode,
			0,
			:arg_uqty,
			0,
			:arg_uqty,
			:arg_plancode,
			:arg_sptid,
			:arg_dxflag,
			:arg_mtrlcuscode,
			:arg_location,
			:ll_mtrlwareid
			) Using commit_transaction ;
		If commit_transaction.SQLCode <> 0 Then
			rslt = 0
			arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]结存建立操作失败"+"~n"+commit_transaction.SQLErrText
			Goto ext
		End If
	End If
Else
	rslt = 0
	or_err_part = 'column insert or update conflicts with a rule imposed by a previous create rule statement'
	If commit_transaction.SQLCode = 513 Or Pos(Lower(commit_transaction.SQLErrText),or_err_part) > 0 Then
		arg_msg = '仓库:'+ls_storagename+",物料["+arg_mtrlcode+"]同仓库内同批号没有足够的结存支持冲减"
	Else
		arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]结存更新操作失败"+"~n"+commit_transaction.SQLErrText
	End If
	Goto ext
End If
Else // 不核算金额
	Update u_mtrlware
		Set noallocqty = noallocqty + :arg_qty ,
		unoallocqty = unoallocqty + :arg_uqty,
		wareamt = 0,
		waredate = case :li_ifupdate_date when 1 then getdate() else waredate End,
		newprice = 0,
		dscrp = :arg_dscrp,
		cost = 0,
		capacity = capacity + :ld_capacity * :arg_qty
		Where ( mtrlid = :arg_mtrlid ) And
		( plancode = :arg_plancode ) And
		( storageid = :arg_storageid ) And
		( scid = :scid ) And
		( status = :arg_status ) And
		( sptid = :arg_sptid) And
		( dxflag = :arg_dxflag) And
		( woodcode = :arg_woodcode) And
		( pcode = :arg_pcode)  And
		( mtrlcuscode = :arg_mtrlcuscode) And
		( Location = :arg_location) Using commit_transaction  ;
	If commit_transaction.SQLCode = 0 Then
		If commit_transaction.SQLNRows = 0 Then
			///////////////////////// //
			ls_newid = f_sys_scidentity(scid,"u_mtrlware","mtrlwareid",arg_msg,True,id_sqlca)
			If ls_newid <= 0 Then
				rslt = 0
				Goto ext
			End If
			///////////////////////// //
			Insert Into u_mtrlware
				( scid,
				mtrlwareid,
				mtrlid,
				storageid,
				plancode,
				status,
				noallocqty,
				unoallocqty,
				allocqty,
				wareamt,
				planprice,
				sptid,
				dxflag,
				woodcode,
				pcode,
				cost,
				storMtrlprp,
				dscrp,
				mtrlcuscode,
				location,
				capacity)
				Values (
				:scid,
				:ls_newid,
				:arg_mtrlid,
				:arg_storageid,
				:arg_plancode,
				:arg_status,
				:arg_qty,
				:arg_uqty,
				0,
				0,
				0,
				:arg_sptid,
				:arg_dxflag,
				:arg_woodcode,
				:arg_pcode,
				0,
				:li_storMtrlprp,
				:arg_dscrp,
				:arg_mtrlcuscode,
				:arg_location,
				:ld_capacity * :arg_qty) Using commit_transaction ;
			If commit_transaction.SQLCode <> 0 Then
				rslt = 0
				If Pos(commit_transaction.SQLErrText,'CK_u_mtrlware') > 0 Then
					If arg_status <> '' Then
						ls_str = ' '+uo_option_change_status+':'+arg_status
					End If
					If arg_pcode <> '' Then
						ls_str = ls_str + ' '+uo_option_change_pcode+':'+arg_pcode
					End If
					If arg_woodcode <> '' Then
						ls_str = ls_str + ' '+uo_option_change_woodcode+':'+arg_woodcode
					End If
					arg_msg = '仓库:'+ls_storagename+",物料:"+arg_mtrlcode+ls_str+" 同仓库内同批号没有足够的库存支持冲减"
				Else
					arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]库存建立操作失败"+"~n"+commit_transaction.SQLErrText
				End If
				Goto ext
			End If
			
		End If
	Else
		rslt = 0
		or_err_part = 'column insert or update conflicts with a rule imposed by a previous create rule statement'
		If commit_transaction.SQLCode = 513 Or Pos(Lower(commit_transaction.SQLErrText),or_err_part) > 0 Then
			arg_msg = '仓库:'+ls_storagename+",物料["+arg_mtrlcode+"]同仓库内同批号没有足够的库存支持冲减"
		ElseIf Pos(commit_transaction.SQLErrText,'CK_u_mtrlware') > 0 Then
			If arg_status <> '' Then
				ls_str = ' '+uo_option_change_status+':'+arg_status
			End If
			If arg_pcode <> '' Then
				ls_str = ls_str + ' '+uo_option_change_pcode+':'+arg_pcode
			End If
			If arg_woodcode <> '' Then
				ls_str = ls_str + ' '+uo_option_change_woodcode+':'+arg_woodcode
			End If
			arg_msg = '仓库:'+ls_storagename+",物料:"+arg_mtrlcode+ls_str+" 同仓库内同批号没有足够的库存支持冲减"
		Else
			arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]库存更新操作失败"+"~n"+commit_transaction.SQLErrText
		End If
		Goto ext
	End If
	
	//-----------------------------------更新结存
	Select mtrlwareid Into :ll_mtrlwareid
		From u_mtrlware
		Where ( mtrlid = :arg_mtrlid ) And
		( plancode = :arg_plancode ) And
		( storageid = :arg_storageid ) And
		( scid = :scid ) And
		( status = :arg_status ) And
		( sptid = :arg_sptid) And
		( dxflag = :arg_dxflag) And
		( woodcode = :arg_woodcode) And
		( pcode = :arg_pcode) And
		( mtrlcuscode = :arg_mtrlcuscode) And
		( Location = :arg_location) Using commit_transaction ;
	If commit_transaction.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]查询库存操作失败"+"~n"+commit_transaction.SQLErrText
		Goto ext
	End If
	
	
	Choose Case billtype
		Case 1,2
			ld_buyinqty = arg_qty
		Case 3
			ld_cpinqty = arg_qty
		Case 4
			ld_jginqty = arg_qty
		Case 8
			ld_otinqty = arg_qty
		Case 9
			ld_pyinqty = arg_qty
			ld_pypkqty = arg_qty
		Case 12
			ld_mvinqty = arg_qty
		Case 15
			ld_diinqty = arg_qty
		Case 23
			ld_saleinqty_packpro = arg_qty
		Case 25
			ld_buyinqty_pack = arg_qty
		Case Else
			ld_otinqty = arg_qty
	End Choose
	
	
	Update u_warebalc
		Set incqty = incqty + :arg_qty ,
		uincqty = uincqty + :arg_uqty,
		incamt  = 0,
		balcqty = balcqty + :arg_qty,
		ubalcqty = ubalcqty + :arg_uqty,
		balcamt = 0,
		
		pypk = pypk + :ld_pypkqty,
		pypkamt = 0,
		
		buyinqty = buyinqty + :ld_buyinqty,
		buyinamt = 0,
		
		buyinqty_pack = buyinqty_pack + :ld_buyinqty_pack,
		buyinamt_pack = 0,
		
		saleinqty_packpro = saleinqty_packpro + :ld_saleinqty_packpro,
		saleinamt_packpro = 0,
		
		cpinqty = cpinqty + :ld_cpinqty,
		cpinamt = 0,
		
		jginqty = jginqty + :ld_jginqty,
		jginamt = 0,
		
		otinqty = otinqty + :ld_otinqty,
		otinamt = 0,
		
		mvinqty = mvinqty + :ld_mvinqty,
		mvinamt = 0,
		
		diinqty = diinqty + :ld_diinqty,
		diinamt = 0,
		
		pyinqty = pyinqty + :ld_pyinqty,
		pyinamt = 0
		Where ( balcdateint  = 0) And
		( scid = :scid) And
		( mtrlwareid = :ll_mtrlwareid) Using commit_transaction  ;
	If commit_transaction.SQLCode = 0 Then
		If commit_transaction.SQLNRows = 0 Then
			Insert Into u_warebalc
				( balcdateint,
				mtrlid,
				storageid,
				bgqty,
				bgamt,
				incqty,
				incamt,
				desqty,
				desamt,
				balcqty,
				balcamt,
				pypk,
				pypkamt,
				status,
				scid,
				buyinqty,
				buyinamt,
				buyinqty_pack,
				buyinamt_pack,
				saleinqty_packpro,
				saleinamt_packpro,
				cpinqty,
				cpinamt,
				jginqty,
				jginamt,
				diinqty,
				diinamt,
				mvinqty,
				mvinamt,
				otinqty,
				otinamt,
				pyinqty,
				pyinamt,
				woodcode,
				pcode,
				ubgqty,
				uincqty,
				udesqty,
				ubalcqty,
				plancode,
				sptid,
				dxflag,
				mtrlcuscode,
				location,
				mtrlwareid)
				Values (
				0,
				:arg_mtrlid,
				:arg_storageid,
				0,
				0,
				:arg_qty,
				0,
				0,
				0,
				:arg_qty,
				0,
				:ld_pypkqty,
				0,
				:arg_status,
				:scid,
				
				:ld_buyinqty,
				0,
				:ld_buyinqty_pack,
				0,
				:ld_saleinqty_packpro,
				0,
				:ld_cpinqty,
				0,
				:ld_jginqty,
				0,
				:ld_diinqty,
				0,
				:ld_mvinqty,
				0,
				:ld_otinqty,
				0,
				:ld_pyinqty,
				0,
				:arg_woodcode,
				:arg_pcode,
				0,
				:arg_uqty,
				0,
				:arg_uqty,
				:arg_plancode,
				:arg_sptid,
				:arg_dxflag,
				:arg_mtrlcuscode,
				:arg_location,
				:ll_mtrlwareid) Using commit_transaction ;
			If commit_transaction.SQLCode <> 0 Then
				rslt = 0
				arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]结存建立操作失败"+"~n"+commit_transaction.SQLErrText
				Goto ext
			End If
		End If
	Else
		rslt = 0
		or_err_part = 'column insert or update conflicts with a rule imposed by a previous create rule statement'
		If commit_transaction.SQLCode = 513 Or Pos(Lower(commit_transaction.SQLErrText),or_err_part) > 0 Then
			arg_msg = '仓库:'+ls_storagename+",物料["+arg_mtrlcode+"]同仓库内同批号没有足够的结存支持冲减"
		Else
			arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]结存更新操作失败"+"~n"+commit_transaction.SQLErrText
		End If
		Goto ext
	End If
End If

If arg_qty > 0 Then
	If li_ifpack = 2 Then
		Update u_mtrlware
			Set u_mtrlware.dscrp = :arg_location,
			u_mtrlware.waredate = case :li_ifupdate_date when 1 then getdate() else u_mtrlware.waredate End
			From u_mtrlware,u_mtrldef
			Where  u_mtrlware.mtrlid = u_mtrldef.mtrlid
			And u_mtrldef.ifpackpro = 2
			And u_mtrlware.mtrlcuscode = :arg_mtrlcuscode Using commit_transaction ;
		If commit_transaction.SQLCode <> 0 Then
			rslt = 0
			arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]更新个性包件产品库存摘要操作失败"+"~n"+commit_transaction.SQLErrText
			Goto ext
		End If
	ElseIf li_ifpackpro = 4 Then
		Update u_mtrlware
			Set u_mtrlware.dscrp = :arg_location,
			u_mtrlware.waredate = case :li_ifupdate_date when 1 then getdate() else u_mtrlware.waredate End
			From u_mtrlware,u_mtrldef
			Where  u_mtrlware.mtrlid = u_mtrldef.mtrlid
			And u_mtrldef.ifpackpro = 4
			And u_mtrlware.mtrlid = :arg_mtrlid
			And u_mtrlware.mtrlcuscode = :arg_mtrlcuscode
			And (PATINDEX('%+%',u_mtrlware.status) > 0 Or PATINDEX('%*%',u_mtrlware.status) > 0) Using commit_transaction ;
		If commit_transaction.SQLCode <> 0 Then
			rslt = 0
			arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致物料["+arg_mtrlcode+"]更新组合配置包件产品库存摘要操作失败"+"~n"+commit_transaction.SQLErrText
			Goto ext
		End If
	End If
End If

//自动计算包件产品可装数yyx20100414
//yyx2012-9-28取消
//If ( li_ifpack = 1 Or li_ifpack = 2 Or li_ifpackpro = 3 Or li_ifpackpro = 4 ) And uo_option_mtrlware_autocmp = 1 THEN
//	IF uo_cmpl_p.uof_cmpl(arg_mtrlid,arg_plancode,arg_mtrlcuscode,arg_storageid,arg_msg) = 0 THEN
//		rslt = 0
//		GOTO ext
//	END IF
//END IF

If uo_option_djqty_check = 1 and li_ifmrp = 1 Then
	Decimal ld_djqty
	
	Select SUM(u_OrderRqMtrl_scll.wareqty - u_OrderRqMtrl_scll.DstrQty  + isnull(uv_outware_scll_back.qty,0) )
		Into :ld_djqty
		From u_OrderRqMtrl_scll Inner JOIN
		u_Order_ml ON u_OrderRqMtrl_scll.OrderID = u_Order_ml.OrderID LEFT OUTER JOIN
      uv_outware_scll_back ON u_OrderRqMtrl_scll.scid = uv_outware_scll_back.scid AND 
      u_OrderRqMtrl_scll.OrderID = uv_outware_scll_back.relid AND 
      u_OrderRqMtrl_scll.MtrlID = uv_outware_scll_back.mtrlid AND 
      u_OrderRqMtrl_scll.status = uv_outware_scll_back.status AND 
      u_OrderRqMtrl_scll.woodcode = uv_outware_scll_back.woodcode AND 
      u_OrderRqMtrl_scll.pcode = uv_outware_scll_back.pcode
		Where (u_OrderRqMtrl_scll.wareqty <> 0) And (u_Order_ml.Status Not In (3,5,6))
		And u_OrderRqMtrl_scll.wareqty - u_OrderRqMtrl_scll.DstrQty   + isnull(uv_outware_scll_back.qty,0)> 0
		And u_OrderRqMtrl_scll.MtrlID = :arg_mtrlid
		And u_OrderRqMtrl_scll.scid = :scid Using commit_transaction;
	If commit_transaction.SQLCode <> 0 Then
		ld_djqty = 0
	End If
	
	If IsNull(ld_djqty) Then ld_djqty = 0
	
	Select SUM(u_mtrlware.noallocqty)
		Into :ld_noallocqty
		From u_mtrlware Inner JOIN
		u_storage ON u_mtrlware.storageid = u_storage.storageid
		Where (u_storage.inuse = 1)
		And u_storage.ifmrp = 1
		And u_mtrlware.mtrlid = :arg_mtrlid
		And u_mtrlware.scid = :scid  Using commit_transaction;
	If commit_transaction.SQLCode <> 0 Then
		ld_noallocqty = 0
	End If
	
	If IsNull(ld_noallocqty) Then ld_noallocqty = 0
	
	If ld_djqty > ld_noallocqty Then
		rslt = 0
		arg_msg = '物料['+arg_mtrlcode+']冻结数不能大于库存数,冻结数:'+String(ld_djqty,'#,##0.##########')+',库存数:'+String(ld_noallocqty,'#,##0.##########')
		Goto ext
	End If
	
End If

ext:
If rslt = 0 Then
	Rollback Using commit_transaction;
End If

Destroy uo_cmpl_p
Return rslt











end function

public function integer mod_price (long arg_scid, long arg_inwareid, long arg_printid, decimal arg_enprice, decimal arg_jgprice, decimal arg_tax, decimal arg_rebate, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Int li_StoreBalcType
Int li_storagetype
Long ll_cnt
Long ll_option_buy_sptprice_sec
String ls_optionvalue
String ls_unit
Decimal ld_fprice_notax


f_get_sys_option_value('168',ls_optionvalue,arg_msg)
ll_option_buy_sptprice_sec = Long(ls_optionvalue)


IF uo_option_unit_dec = -1000 THEN
	rslt = 0
	arg_msg = '选项:[023]辅助单位转换库存单位小数位,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF ll_option_buy_sptprice_sec = -1000 THEN
	rslt = 0
	arg_msg = '选项:[168]采购收货单财审更新供应商最新价,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

uo_spt_price uo_sptprice
uo_sptprice = Create uo_spt_price


IF p_getinfo(arg_scid,arg_inwareid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF flag = 0 THEN
	rslt = 0
	arg_msg = '进仓单待审核状态下不能执行修改单价功能'
	GOTO ext
END IF

IF secflag = 1 THEN
	rslt = 0
	arg_msg = '进仓单已财审,不能执行修改单价功能'
	GOTO ext
END IF

SELECT storagetype, StoreBalcType
	INTO :li_storagetype, :li_StoreBalcType
	FROM u_storage
	Where storageid = :storageid Using commit_transaction  ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,仓库属性"
	GOTO ext
END IF

IF li_StoreBalcType = 0 THEN
	IF balcdateint > 0 THEN
		rslt = 0
		arg_msg = "单据已结存,不能修改"
		GOTO ext
	END IF
ELSE
	SELECT count(*)
		INTO :ll_cnt
		FROM u_warebalc
		WHERE storageid = :storageid
		AND balcdateint = :balcdateint
		AND AmtAuditFlag  = 1
		Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,仓库属性"
		GOTO ext
	END IF
	
	IF ll_cnt > 0 THEN
		rslt = 0
		arg_msg = "仓库已金额结存,不能修改"
		GOTO ext
	END IF
END IF

Decimal ld_enprice,ld_uprice,ld_uqty,ld_rate,ld_qty,ld_rebate,ld_cost,ld_deliqty,ld_tax, lde_cost
Long ll_mtrlid, ll_mtrlwareid
String ls_status,ls_woodcode,ls_pcode,ls_plancode,ls_mtrlcuscode,ls_location
Long ll_sptid,ll_ifpack,ll_ifpackpro
String ls_mxdscrp
Long ll_sptid_m
String ls_mtrlcuscode_m

SELECT u_inwaremx.enprice,
	u_inwaremx.uprice,
	u_inwaremx.uqty,
	u_inwaremx.rate,
	u_inwaremx.qty,
	u_inwaremx.rebate,
	u_inwaremx.mtrlid,
	u_inwaremx.status,
	u_inwaremx.woodcode,
	u_inwaremx.pcode,
	u_inwaremx.cost,
	u_inwaremx.plancode,
	u_inwaremx.sptid_cusid,
	u_inwaremx.mtrlcuscode,
	u_inwaremx.location,
	u_mtrldef.ifpack,
	u_mtrldef.ifpackpro,
	u_inwaremx.deliqty,
	u_inwaremx.tax,
	u_inwaremx.mtrlwareid,
	u_inwaremx.cost,
	u_inwaremx.unit,
	u_inwaremx.mxdscrp
	INTO :ld_enprice,
	:ld_uprice,
	:ld_uqty,
	:ld_rate,
	:ld_qty,
	:ld_rebate,
	:ll_mtrlid,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:ld_cost,
	:ls_plancode,
	:ll_sptid,
	:ls_mtrlcuscode,
	:ls_location,
	:ll_ifpack,
	:ll_ifpackpro,
	:ld_deliqty,
	:ld_tax,
	:ll_mtrlwareid,
	:lde_cost,
	:ls_unit,
	:ls_mxdscrp
	FROM u_inwaremx INNER JOIN
	u_mtrldef ON u_inwaremx.mtrlid = u_mtrldef.mtrlid
	WHERE u_inwaremx.scid = :arg_scid
	AND u_inwaremx.inwareid = :arg_inwareid
	AND u_inwaremx.printid = :arg_printid
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询进仓单明细内容失败'+commit_transaction.SQLErrText
	GOTO ext
END IF

IF ll_mtrlwareid = 0 THEN
	//马上处理一次,如果不行,再报错误
	IF li_storagetype = 1 And ll_ifpack <> 2 And ll_ifpackpro <> 2 And ll_ifpackpro <> 4 THEN
		IF billtype = 17 THEN //客户调货条码转换单
			ll_sptid_m = ll_sptid
			ls_mtrlcuscode_m = ls_mtrlcuscode
		ELSE
			ll_sptid_m = 0
			ls_mtrlcuscode_m = ''
		END IF
	ELSE
		IF billtype = 4 THEN
			ll_sptid_m = 0
		ELSE
			ll_sptid_m = ll_sptid
		END IF
		ls_mtrlcuscode_m = ls_mtrlcuscode
	END IF
	
	//取库存信息yyx2012-09-25
	Long ll_mtrlwareid_ref
	ll_mtrlwareid_ref = 0
	IF uof_ref_mtrlwareid(scid,storageid,ll_mtrlid,&
		ls_status,ls_woodcode,ls_pcode,ls_plancode,&
		ls_location,ll_sptid_m,ls_mtrlcuscode_m,ll_mtrlwareid_ref,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	IF p_update_mtrlwareid_inwaremx(ll_mtrlwareid_ref,arg_inwareid,arg_printid,arg_msg,False) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	ll_mtrlwareid = ll_mtrlwareid_ref
	
	IF ll_mtrlwareid = 0 THEN
		rslt = 0
		arg_msg = '明细库存ID为0,不能操作'
		GOTO ext
	END IF
END IF

IF arg_tax = -1 THEN arg_tax = ld_tax
IF arg_rebate = -1 THEN arg_rebate = ld_rebate

IF arg_enprice = ld_enprice And arg_tax = ld_tax  And arg_rebate = ld_rebate THEN
	rslt = 1
	//	rslt = 0
	//	arg_msg = '单价、折扣、税率没有任何修改,不能保存'
	GOTO ext
END IF



Decimal ld_uprice_new,ld_fprice_new,ld_price_new,ld_cost_new
Decimal ld_enprice_tax,ld_enprice_notax,ld_deliprice_notax

ld_uprice_new = Round(arg_enprice * mrate,10)
ld_fprice_new = Round((ld_uprice_new * ld_uqty)/(Round(ld_uqty * ld_rate,uo_option_unit_dec)),10)
ld_price_new = ld_fprice_new * arg_rebate

ld_deliprice_notax = arg_enprice / (1 + arg_tax)

IF ld_uqty <> 0 THEN
	ld_enprice_tax = ld_deliqty * arg_enprice / ld_uqty
	ld_enprice_notax = (ld_deliqty * arg_enprice / ld_uqty) / (1 + arg_tax)
ELSE
	ld_enprice_tax = arg_enprice
	ld_enprice_notax = arg_enprice / (1 + arg_tax)
END IF

ld_enprice_tax = Abs(ld_enprice_tax)
ld_enprice_notax = Abs(ld_enprice_notax)

IF billtype = 1 THEN //采购
	IF thflag = 0 THEN
		ld_cost_new = ld_fprice_new * arg_rebate
	ELSE //采购退货单
		ld_cost_new = lde_cost
	END IF
ELSEIF  billtype = 4  THEN //外协
	IF ld_qty > 0 THEN
		ld_cost_new = ld_fprice_new * arg_rebate
	ELSE
		ld_cost_new = lde_cost
	END IF
ELSE
	ld_cost_new = ld_fprice_new * arg_rebate
END IF

UPDATE u_inwaremx
	SET enprice = :arg_enprice,
	uprice = :ld_uprice_new,
	fprice = :ld_fprice_new,
	price = :ld_price_new,
	cost = :ld_cost_new,
	jgprice = :arg_jgprice,
	deliprice_notax = :ld_deliprice_notax,
	enprice_tax = :ld_enprice_tax,
	enprice_notax = :ld_enprice_notax,
	tax = :arg_tax,
	rebate = :arg_rebate
	WHERE scid = :arg_scid
	AND inwareid = :arg_inwareid
	And printid = :arg_printid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新单据明细失败'+commit_transaction.SQLErrText
	GOTO ext
END IF

//重算结存, 
IF f_warebalc_cmpl_one(storageid, balcdateint, ll_mtrlwareid, arg_msg, False, commit_transaction) = 0 THEN
	rslt = 0
	GOTO ext
END IF

//如果是采购收货单/退货单, 更新供应商最新收货价
IF ll_option_buy_sptprice_sec = 0 And billtype = 1 THEN
	ld_fprice_notax = ld_fprice_new / ( 1 + arg_tax)
	
	IF uo_sptprice.uof_update_sptprice(thflag,sptid,ll_mtrlid,ls_unit,ls_status,ls_woodcode,ls_pcode,'',inwareid,arg_enprice,ld_rebate,ld_rate,ld_fprice_new,ld_fprice_notax,indate,inwarecode,0,ls_mxdscrp,arg_printid,0,moneyid,indate,DateTime(9999-01-01),False,arg_msg) = 0 THEN
		arg_msg = '更新最新收货价失败,'+arg_msg
		rslt = 0
		GOTO ext
	END IF
END IF

// //更新结存,库存,出仓相应金额
//IF li_storagetype = 1 And ll_ifpack <> 2 And ll_ifpackpro <> 2 And ll_ifpackpro <> 4 THEN
//	IF billtype = 17 THEN //客户调货条码转换单
//		ll_sptid_m = ll_sptid
//		ls_mtrlcuscode_m = ls_mtrlcuscode
//	ELSE
//		ll_sptid_m = 0
//		ls_mtrlcuscode_m = ''
//	END IF
//ELSE
//	IF billtype = 4 THEN
//		ll_sptid_m = 0
//	ELSE
//		ll_sptid_m = ll_sptid
//	END IF
//	ls_mtrlcuscode_m = ls_mtrlcuscode
//END IF
//
//Decimal ld_bgamt,ld_incamt,ld_bgqty,ld_incqty
//Decimal ld_newcost
//
//IF thflag = 0 THEN
//	SELECT bgamt,
//		incamt,
//		bgqty,
//		incqty
//		INTO :ld_bgamt,
//		:ld_incamt,
//		:ld_bgqty,
//		:ld_incqty
//		FROM u_warebalc
//		WHERE mtrlid = :ll_mtrlid
//		AND balcdateint = 0
//		AND storageid = :storageid
//		AND status = :ls_status
//		AND woodcode = :ls_woodcode
//		AND pcode = :ls_pcode
//		AND plancode = :ls_plancode
//		AND mtrlcuscode = :ls_mtrlcuscode_m
//		AND sptid = :ll_sptid_m
//		AND location = :ls_location
//		Using commit_transaction;
//	IF commit_transaction.SQLCode <> 0 THEN
//		rslt = 0
//		arg_msg = '查询相关结存信息失败'+commit_transaction.SQLErrText
//		GOTO ext
//	END IF
//	
//	IF ld_bgqty + ld_incqty <> 0 THEN
//		ld_newcost = Round((ld_bgamt + ld_incamt - ld_cost * ld_qty + ld_cost_new * ld_qty) / (ld_bgqty + ld_incqty),10)
//	ELSE
//		ld_newcost = 0
//	END IF
//	
//	IF ld_newcost < 0 THEN ld_newcost = 0
//	
//	UPDATE u_warebalc
//		SET incamt = incamt + round((:ld_cost_new - :ld_cost) * :ld_qty,2),
//		desamt = round(desqty * :ld_newcost,2),
//		balcamt = round(balcqty * :ld_newcost,2)
//		WHERE mtrlid = :ll_mtrlid
//		AND balcdateint = 0
//		AND Storageid = :storageid
//		AND status = :ls_status
//		AND woodcode = :ls_woodcode
//		AND pcode = :ls_pcode
//		AND plancode = :ls_plancode
//		AND mtrlcuscode = :ls_mtrlcuscode_m
//		AND sptid = :ll_sptid_m
//		AND location = :ls_location
//		Using commit_transaction;
//	IF commit_transaction.SQLCode <> 0 THEN
//		rslt = 0
//		arg_msg = '更新结存表失败'+commit_transaction.SQLErrText
//		GOTO ext
//	END IF
//	
//	UPDATE u_mtrlware
//		SET cost = :ld_newcost,
//		wareamt = round(noallocqty * :ld_newcost,2)
//		WHERE mtrlid = :ll_mtrlid
//		AND Storageid = :storageid
//		AND status = :ls_status
//		AND woodcode = :ls_woodcode
//		AND pcode = :ls_pcode
//		AND plancode = :ls_plancode
//		AND mtrlcuscode = :ls_mtrlcuscode_m
//		AND sptid = :ll_sptid_m
//		AND location = :ls_location
//		Using commit_transaction;
//	IF commit_transaction.SQLCode <> 0 THEN
//		rslt = 0
//		arg_msg = '更新库存表失败'+commit_transaction.SQLErrText
//		GOTO ext
//	END IF
//	
//	UPDATE u_outwaremx
//		SET u_outwaremx.costamt = round(u_outwaremx.qty * :ld_newcost,2)
//		FROM u_outwaremx INNER JOIN
//		u_outware ON u_outwaremx.scid = u_outware.scid AND
//		u_outwaremx.outwareid = u_outware.outwareid
//		WHERE u_outwaremx.mtrlid = :ll_mtrlid
//		AND u_outware.storageid = :storageid
//		AND u_outwaremx.status = :ls_status
//		AND u_outwaremx.woodcode = :ls_woodcode
//		AND u_outwaremx.pcode = :ls_pcode
//		AND u_outwaremx.plancode = :ls_plancode
//		AND u_outwaremx.mtrlcuscode = :ls_mtrlcuscode_m
//		AND u_outwaremx.sptid = :ll_sptid_m
//		AND u_outwaremx.location = :ls_location
//		AND u_outware.balcflag  = 0
//		Using commit_transaction;
//	IF commit_transaction.SQLCode <> 0 THEN
//		rslt = 0
//		arg_msg = '更新未结存的出仓单金额失败'+commit_transaction.SQLErrText
//		GOTO ext
//	END IF
//	
//END IF

ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF
RETURN rslt













end function

public function integer acceptmx_mx (long arg_printid, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_fprice, decimal arg_rebate, string arg_mxdscrp, ref string arg_msg, string arg_woodcode, string arg_pcode, long arg_cusid_sptid, long arg_mxprintid, string arg_waredscrp, string arg_mtrlcuscode, string arg_location, long arg_ptinwareid, long arg_ptprintid, integer arg_ifnotinout);Int rslt = 1
Long cnt = 0,ls_i
Decimal ld_cost
String ls_ptinwarecode

IF uo_option_change_status = '-1000' THEN
	rslt = 0
	arg_msg = '选项:[029]配置标题文本,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_change_woodcode = '-1000' THEN
	rslt = 0
	arg_msg = '选项:[027]配置1标题文本,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_change_pcode = '-1000' THEN
	rslt = 0
	arg_msg = '选项:[028]配置2标题文本,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF it_newbegin = FALSE AND it_updatebegin = FALSE THEN
	rslt = 0
	arg_msg = "非编辑状态不可以使用,操作取消"
	GOTO ext
END IF

//清除空值
IF IsNull(arg_printid) THEN arg_printid = 0
IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0
IF IsNull(arg_mtrlcode) THEN arg_mtrlcode = ''
IF IsNull(arg_plancode) THEN arg_plancode = ''
IF IsNull(arg_status) THEN arg_status = ''
IF IsNull(arg_qty) THEN arg_qty = 0
IF IsNull(arg_fprice) THEN arg_fprice = 0
IF IsNull(arg_rebate) THEN arg_rebate = 1
IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = ''
IF IsNull(arg_mxdscrp) THEN arg_woodcode = ''
IF IsNull(arg_pcode) THEN arg_pcode = ''
IF IsNull(arg_cusid_sptid) THEN arg_cusid_sptid = 0
IF IsNull(arg_mxprintid) THEN arg_mxprintid = 0
IF IsNull(arg_waredscrp) THEN arg_waredscrp = ''
IF IsNull(arg_mtrlcuscode) THEN arg_mtrlcuscode = ''
IF IsNull(arg_location) THEN arg_location = ''
IF IsNull(arg_ptinwareid) THEN arg_ptinwareid = 0
IF IsNull(arg_ptprintid) THEN arg_ptprintid = 0

IF arg_rebate = 0 THEN arg_rebate = 1

IF arg_mtrlid = 0 OR arg_qty = 0  THEN
	rslt = 1
	GOTO ext
END IF

IF f_check_status(1,arg_status) = 0 THEN
	rslt = 0
	arg_msg = "包件明细行:"+String(arg_mxprintid)+",查询操作失败,可能"+uo_option_change_status+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_status
	GOTO ext
END IF

IF f_check_status(2,arg_woodcode) = 0 THEN
	rslt = 0
	arg_msg = "包件明细行:"+String(arg_mxprintid)+",查询操作失败,可能"+uo_option_change_woodcode+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_woodcode
	GOTO ext
END IF

IF f_check_status(3,arg_pcode) = 0 THEN
	rslt = 0
	arg_msg = "包件明细行:"+String(arg_mxprintid)+",查询操作失败,可能"+uo_option_change_pcode+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_pcode
	GOTO ext
END IF

IF arg_rebate <= 0 THEN
	arg_msg = '折扣错误,请检查'
	rslt = 0
	GOTO ext
END IF

//检查物料id
Int li_statusflag
SELECT statusflag
	INTO :li_statusflag
	FROM u_mtrldef
	Where u_mtrldef.mtrlid = :arg_mtrlid USING commit_transaction ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,物料或产品编号:"+arg_mtrlcode
	GOTO ext
END IF

IF li_statusflag = 2 AND Trim(arg_status) = '' THEN
	rslt = 0
	arg_msg = '第'+String(arg_printid)+'行,产品:'+arg_mtrlcode+' 属于组合配置类型,但没有输入配置,请检查'
	GOTO ext
END IF

IF arg_fprice * arg_rebate < 0 THEN //检查进仓价
	rslt = 0
	arg_msg = "物料或产品:" + String(arg_mtrlcode)+" 单价错误"
	GOTO ext
END IF

IF billtype = 27 THEN
	SELECT inwarecode INTO :ls_ptinwarecode
		FROM u_inware
		WHERE scid = :scid
		AND inwareid = :arg_ptinwareid
		AND billtype = 26
		AND flag = 1 USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '配套明细行:'+String(arg_mxprintid)+',查询相关采购收货包件进仓单号失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

//写入内容
it_mxbt_mx++
inwaremx_mx[it_mxbt_mx].printid = arg_printid
inwaremx_mx[it_mxbt_mx].mtrlid = arg_mtrlid
inwaremx_mx[it_mxbt_mx].mtrlcode = arg_mtrlcode
inwaremx_mx[it_mxbt_mx].plancode = arg_plancode
inwaremx_mx[it_mxbt_mx].status = arg_status
inwaremx_mx[it_mxbt_mx].fprice = arg_fprice
inwaremx_mx[it_mxbt_mx].rebate = arg_rebate
inwaremx_mx[it_mxbt_mx].qty = arg_qty
inwaremx_mx[it_mxbt_mx].price = arg_fprice * arg_rebate
inwaremx_mx[it_mxbt_mx].mxdscrp = arg_mxdscrp
inwaremx_mx[it_mxbt_mx].mxprintid = arg_mxprintid
inwaremx_mx[it_mxbt_mx].woodcode = arg_woodcode
inwaremx_mx[it_mxbt_mx].pcode = arg_pcode
inwaremx_mx[it_mxbt_mx].waredscrp = arg_waredscrp
inwaremx_mx[it_mxbt_mx].mtrlcuscode = arg_mtrlcuscode
inwaremx_mx[it_mxbt_mx].Location = arg_location
inwaremx_mx[it_mxbt_mx].sptid = arg_cusid_sptid
inwaremx_mx[it_mxbt_mx].ptinwareid = arg_ptinwareid
inwaremx_mx[it_mxbt_mx].ptprintid = arg_ptprintid
inwaremx_mx[it_mxbt_mx].ptinwarecode = ls_ptinwarecode
inwaremx_mx[it_mxbt_mx].ifnotinout = arg_ifnotinout

ext:

IF rslt = 0 THEN p_clearmx()
RETURN(rslt)








end function

on uo_inware.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_inware.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

event constructor;String str_optionvalue,arg_msg

f_get_sys_option_value('142',str_optionvalue,arg_msg)
uo_option_inout_type = Long(str_optionvalue)

f_get_sys_option_value('206',str_optionvalue,arg_msg)
uo_option_barcode_inwareother_paudit = Long(str_optionvalue)

f_get_sys_option_value('208',str_optionvalue,arg_msg)
uo_option_barcode_inwarebuy_paudit = Long(str_optionvalue)

f_get_sys_option_value('207',str_optionvalue,arg_msg)
uo_option_barcode_inwarecp_paudit = Long(str_optionvalue)

f_get_sys_option_value('063',str_optionvalue,arg_msg)
uo_option_mtrlware_dscrp = Long(str_optionvalue)

f_get_sys_option_value('023',str_optionvalue,arg_msg)
uo_option_unit_dec = Long(str_optionvalue)

f_get_sys_option_value('183',str_optionvalue,arg_msg)
uo_option_buy_zero = Long(str_optionvalue)

f_get_sys_option_value('184',str_optionvalue,arg_msg)
uo_option_wfjg_zero = Long(str_optionvalue)

f_get_sys_option_value('029',str_optionvalue,arg_msg)
uo_option_change_status = str_optionvalue

f_get_sys_option_value('027',str_optionvalue,arg_msg)
uo_option_change_woodcode = str_optionvalue

f_get_sys_option_value('028',str_optionvalue,arg_msg)
uo_option_change_pcode = str_optionvalue

f_get_sys_option_value('010',str_optionvalue,arg_msg)
uo_option_ifovertask = Long(str_optionvalue)

f_get_sys_option_value('112',str_optionvalue,arg_msg)
uo_option_ifovertask_cp = Long(str_optionvalue)

f_get_sys_option_value('022',str_optionvalue,arg_msg)
uo_option_cost_dec = Long(str_optionvalue)

f_get_sys_option_value('158',str_optionvalue,arg_msg)
uo_option_mtrlware_autocmp = Long(str_optionvalue)

f_get_sys_option_value('285',str_optionvalue,arg_msg)
uo_option_use_clfp = Long(str_optionvalue)

f_get_sys_option_value('287',str_optionvalue,arg_msg)
uo_option_barcodelocation_use_inwaremx_location = Long(str_optionvalue)

f_get_sys_option_value('249',str_optionvalue,arg_msg)
uo_option_cp_inware_scll_rate = long(str_optionvalue)

f_get_sys_option_value('362',str_optionvalue,arg_msg)
uo_option_cost_notax = long(str_optionvalue)

f_get_sys_option_value('378',str_optionvalue,arg_msg)
uo_option_djqty_check = long(str_optionvalue)

f_get_sys_option_value('417',str_optionvalue,arg_msg)
uo_option_canpack_ifzanyong = Long(str_optionvalue)

end event