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

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

global type uo_outware from nonvisualobject
end type
global uo_outware uo_outware

type variables
Public ProtectedWrite Long scid = 0 //分部id
Public ProtectedWrite Long outwareid //进仓单表自动增量id
Public ProtectedWrite String outwarecode //单据的唯一编号
Public ProtectedWrite Int billtype = 0 //业务类型
Public ProtectedWrite DateTime opdate //建立时间,自动
Public ProtectedWrite String opemp //建立操作员
Public ProtectedWrite DateTime moddate //修改时间,自动
Public ProtectedWrite String modemp //修改操作员
Public ProtectedWrite Int balcflag = 0 //仓库日结标志
Public ProtectedWrite Int flag = 0 //仓库审核标志
Public ProtectedWrite DateTime auditingdate //审核时间
Public ProtectedWrite String auditingrep //审核操作员
Public ProtectedWrite Int secflag = 0 //财务审核标志
Public ProtectedWrite DateTime secauditingdate //二审核时间
Public ProtectedWrite String secauditingrep //二审核操作员
Public ProtectedWrite Decimal sum_amt = 0 //单据总金额
Public ProtectedWrite Decimal sum_amt_en = 0 //单据总金额(其它单价)

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

Public ProtectedWrite Int priceflag = 0 //确认标志
Public ProtectedWrite DateTime pricedate //确认时间
Public ProtectedWrite String priceemp //确认操作员
Public ProtectedWrite Long ctmint

Long relid = 0 //关联id
Long storageid = 0 //进仓仓库
DateTime outdate //进仓发生时间
String outrep = '' //经手人
String part = '' //相关号码
String dscrp = '' //备注
Long cusid = 0 //客户id
String cusname = '' //客户名称(不记帐模式使用)
Int thflag = 0 //退货标记
Int ifauto = 0

String relstr_1
String relstr_2
String relstr_3
Long    relint_1
Long    relint_2
Long    relint_3
long relint_4
Decimal otheramt
Decimal damt
Decimal mrate
String rel_address
String rel_tele
String rel_fax
String rel_rep
String upname
DateTime viewdate
Long storagescid = 0 //仓库分部ID
Long deptid = 0

long typeid = 0 

String carcode
String transcode

Decimal totalamt
Decimal getamt
Int lsflag
Int pda_flag
DateTime pda_date
long exchangeid
string station_address

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

s_outwaremx  outwaremx[], ins_ref_outwaremx[],ins_empty_outwaremx[] //明细结构数组
long ins_ref_mxbt = 0
s_outwaremx_mx outwaremx_mx[]
s_outwaremx_barcode s_mx_barcode[]
s_outware_itemmx outware_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_pd_py_check_barcode = False

Int uo_option_autowaste,uo_option_inout_type
Int uo_option_barcode_outwareother_paudit
Int uo_option_confirmaudit_sale,uo_option_sale_use_planqty
Int uo_option_confirmaudit_scll,uo_option_cost_dec
String uo_option_change_status,uo_option_change_woodcode,uo_option_change_pcode
Int uo_option_mtrlware_autocmp,uo_option_mtrlware_limit
Int uo_option_scll_limit,uo_option_if_pricetype
Int uo_option_checkprice_native
Int uo_option_if_saleout
Int uo_option_disuse_outware_sale
Int uo_option_sale_ifuse_negativeprice
Int uo_option_pda_sale_lock
Int uo_option_price_rmb
int uo_option_outware_sale_checkprice
int uo_option_scll_use_planqty
int uo_option_barcodelocation_use_inwaremx_location
int uo_option_djqty_check
int uo_option_outware_saleout
int uo_option_scllplan_outware_auto
int uo_option_noauditingqty_mode
int uo_option_outware_pack_save_cmp
int uo_option_pk_notauditqty_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 auditing (boolean arg_ifcommit, ref string arg_msg)
public function integer updatebegin (long arg_scid, long arg_outwareid, integer arg_billtype, ref string arg_msg)
public function integer getinfo (long arg_scid, long arg_outwareid, ref string arg_msg)
public function integer add_dscrp (long arg_scid, long arg_outwareid, 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_outwareid, ref string arg_msg)
public function integer p_reset ()
public function integer p_update_cost (long arg_mtrlwareid, string arg_mtrlcode, decimal arg_qty, long arg_printid, ref decimal arg_ref_costamt, ref string arg_msg, boolean arg_ifcommit)
public function integer del (long arg_scid, long arg_outwareid, integer arg_ifcheck_auto, ref string arg_msg, boolean arg_ifcommit)
public function integer p_update_mtrlware_ws (long arg_mtrlwareid, long arg_mtrlid, string arg_mtrlcode, long arg_storageid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_uqty, decimal arg_costamt, decimal arg_planprice, long arg_sptid, integer arg_dxflag, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, string arg_location, ref string arg_msg)
public function integer uof_p_barcode (integer arg_audittype, ref string arg_msg)
public function integer uof_outbarcode_add (integer arg_billtype, long arg_scid, long arg_outwareid, string arg_barcode, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit)
public function integer priceaudit (boolean arg_ifcommit, ref string arg_msg)
public function integer c_priceaudit (boolean arg_ifcommit, ref string arg_msg)
public function integer uof_set_qty_equal_bqty (long arg_scid, long arg_outwareid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_check_qty_to_bqty (ref string arg_msg)
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_item (long arg_printid, long arg_itemid, decimal arg_amt, string arg_mxdscrp, ref string arg_msg)
public function integer acceptmx (long arg_mtrlwareid, decimal arg_qty, decimal arg_fprice, decimal arg_rebate, string arg_mxdscrp, long arg_printid, ref string arg_msg, integer arg_ifrel, long arg_relid, long arg_olmtrlid, long arg_packqty, string arg_outtype, decimal arg_planqty, long arg_relprintid, string arg_unit, decimal arg_uqty, decimal arg_rate, string arg_pricetype, string arg_formula, long arg_saleoutid, long arg_saleoutprintid, string arg_mxdscrp2, decimal arg_net_weight, decimal arg_gross_weight, decimal arg_cubage, decimal arg_taxrate, string arg_priceformula, string arg_qtyformula)
public function integer uof_check_warepdb_audit (long arg_storageid, ref string arg_msg)
public function integer uof_disuse (long arg_scid, long arg_outwareid, integer arg_disusetype, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_updatesaleoutcodestr (long arg_scid, long arg_outwareid, ref string arg_msg)
public function integer acceptmx (s_outwaremx s_mx, ref string arg_msg)
protected function integer p_update_mtrlware (long arg_mtrlwareid, long arg_mtrlid, string arg_mtrlcode, long arg_storageid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_uqty, decimal arg_costamt, decimal arg_planprice, long arg_sptid, integer arg_dxflag, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, string arg_location, integer arg_ifvqty, ref string arg_msg)
public function integer acceptmx_mx (long arg_printid, long arg_mtrlwareid, decimal arg_planqty, decimal arg_qty, string arg_mxdscrp, long arg_mxprintid, integer arg_ifnotinout, ref string arg_msg)
public function integer uof_noauditingqty_add (long arg_scid, long arg_billtype, integer arg_relint_1, ref string arg_msg)
public function integer uof_noauditingqty_del (long arg_scid, long arg_outwareid, ref string arg_msg)
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 = 7 OR &
	arg_billtype = 8 OR &
	arg_billtype = 9 OR &
	arg_billtype = 10 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) 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+'7-外协销售出仓单,'
	arg_msg = arg_msg+'8-其它出仓单,'
	arg_msg = arg_msg+'9-盘亏出仓单,'
	arg_msg = arg_msg+'10-工具出仓单,'
	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-发料损耗自动出仓单'
	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,j
DateTime server_dt
Long ls_newid
Int li_outtype
String ls_storagename
String ls_sccode
Decimal ld_trueoverqty

Int li_ifmrp
Long ll_mtrlid_arr[]
Decimal ld_qty_arr[]
String ls_mtrlcode_arr[]
Long ll_mxcnt = 0
Decimal ld_djqty,ld_noallocqty
Int li_priceflag
Long ll_cnt_billtype21

s_cmplpackpro_ref_mtrlwareid_array s_mtrlwareid_array_rst

ins_ref_outwaremx = ins_empty_outwaremx
ins_ref_mxbt = 0


IF uo_option_disuse_outware_sale = -1000 THEN
	rslt = 0
	arg_msg = '选项:[292]启用销售发货单废弃单,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_price_rmb = -1000 THEN
	arg_msg = '选项:[238]销售单价按人民币单价折算,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF

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(outrep) THEN outrep = ''
IF IsNull(dscrp) THEN dscrp = ''
IF IsNull(part) THEN part = ''
IF IsNull(cusid) THEN cusid = 0
IF IsNull(cusname) THEN cusname = ''
IF IsNull(thflag) THEN thflag = 0
IF IsNull(otheramt) THEN otheramt = 0
IF IsNull(damt) THEN damt = 0

IF IsNull(relstr_1) THEN relstr_1 = ''
IF IsNull(relstr_2) THEN relstr_2 = ''
IF IsNull(relstr_3) THEN relstr_3 = ''
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(relint_4) THEN relint_4 = 0


IF IsNull(mrate) THEN mrate = 0
IF IsNull(ifauto) THEN ifauto = 0

IF IsNull(rel_address) THEN rel_address = ''
IF IsNull(rel_tele) THEN rel_tele = ''
IF IsNull(rel_fax) THEN rel_fax = ''
IF IsNull(rel_rep) THEN rel_rep = ''
IF IsNull(upname) THEN upname = ''

IF IsNull(deptid) THEN deptid = 0

IF IsNull(totalamt) THEN totalamt = 0
IF IsNull(getamt) THEN getamt = 0
IF IsNull(lsflag) THEN lsflag = 0

IF IsNull(carcode) THEN carcode = ''
IF IsNull(transcode) THEN transcode = ''

IF IsNull(typeid) THEN typeid = 0

IF IsNull(exchangeid) THEN exchangeid = 0
IF IsNull(station_address) THEN station_address = ''

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

//yyx20150529发货单使用先确认后仓审模式在修改保存操作增加检查单据状态
IF uo_option_confirmaudit_sale = 1 THEN
	IF billtype = 1 And outwareid > 0 And priceflag = 0 THEN
		SELECT priceflag INTO :li_priceflag
			FROM u_outware
			WHERE u_outware.outwareid = :outwareid
			And u_outware.scid = :scid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "查询单据确认状态操作失败"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
		
		IF li_priceflag = 1 THEN
			arg_msg = '单据已经确认,不能保存,操作取消'
			rslt = 0
			GOTO ext
		ELSE
			SELECT count(*) INTO :ll_cnt_billtype21
				FROM u_outware
				WHERE u_outware.relid = :outwareid
				AND u_outware.scid = :scid
				And billtype = 21 Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				rslt = 0
				arg_msg = "查询单据是否已确认操作生成销售出仓单失败"+"~n"+commit_transaction.SQLErrText
				GOTO ext
			END IF
			
			IF ll_cnt_billtype21 > 0 THEN
				arg_msg = '单据已确认操作生成销售出仓单,不能保存,操作取消'
				rslt = 0
				GOTO ext
			END IF
		END IF
	END IF
END IF
//


Int li_mustloca,li_nocheck_bjmx
SELECT storagename,outtype,mustloca,nocheck_bjmx,ifmrp
	INTO :ls_storagename,:li_outtype,:li_mustloca,:li_nocheck_bjmx,:li_ifmrp
	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_nocheck_bjmx = 0 THEN
	IF li_outtype <> 0 And billtype = 1 And flag = 0 THEN
		IF it_mxbt_mx = 0 THEN
			rslt = 0
			arg_msg = "没有正确包件明细"
			GOTO ext
		END IF
	END IF
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 Year(Date(outdate)) < 2000 Or IsNull(outdate) THEN
	rslt = 0
	arg_msg = "缺少出仓发生时间或不合理"
	GOTO ext
END IF

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

IF billtype = 1 Or billtype = 5 THEN
	SELECT name INTO :cusname
		FROM u_cust
		Where cusid = :cusid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,客户资料"
		GOTO ext
	END IF
	
	IF billtype = 1 THEN
		IF relint_1 = 0 THEN
			arg_msg = '请选择结算方式'
			rslt = 0
			GOTO ext
		END IF
		
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM cw_currency
			Where moneyid = :relint_2;
		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
		
		
		IF f_moneyid_rate_check(relint_2,mrate,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
ELSEIF billtype = 4 Or billtype = 7  THEN
	SELECT name INTO :cusname
		FROM u_spt
		Where sptid = :cusid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,加工商资料"
		GOTO ext
	END IF
ELSEIF billtype = 3 THEN
	IF relid = 0 THEN
		arg_msg = '请选择领料工组'
		rslt = 0
		GOTO ext
	END IF
	
	IF relint_1 = 1 Or relint_1 = 2 THEN
		IF cusname = '' THEN
			arg_msg = '请输入原因'
			rslt = 0
			GOTO ext
		END IF
	END IF
ELSEIF billtype = 8 THEN
	IF Trim(cusname) = '' Or IsNull(cusname) THEN
		rslt = 0
		arg_msg = "请输入出仓原因!"
		GOTO ext
	END IF
END IF

If (thflag = 1 Or (billtype = 3 And relint_1 = 2 )) And li_mustloca = 1 THEN
	//
	String ls_msg_loca
	Long ll_cnt_loca
	ll_cnt_loca = 0
	FOR i = 1 To it_mxbt
		IF Trim(outwaremx[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 billtype = 1 And thflag = 0 And outwareid > 0 And uo_option_disuse_outware_sale = 1 THEN
	IF uof_disuse(scid,outwareid,0,arg_msg,False) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF


//检查冻结数
IF uo_option_djqty_check = 1 And li_ifmrp = 1 And Not ( billtype = 3  And relint_1 = 4) THEN
	FOR i = 1 To it_mxbt
		FOR j = 1 To ll_mxcnt
			IF outwaremx[i].mtrlid = ll_mtrlid_arr[j] THEN
				ld_qty_arr[j] = ld_qty_arr[j] + outwaremx[i].qty
				GOTO _next_mx
			END IF
		NEXT
		
		ll_mxcnt++
		ll_mtrlid_arr[ll_mxcnt] = outwaremx[i].mtrlid
		ld_qty_arr[ll_mxcnt] = outwaremx[i].qty
		ls_mtrlcode_arr[ll_mxcnt] = outwaremx[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 outwareid = 0 THEN //新建
	ls_newid = f_sys_scidentity(scid,"u_outware","outwareid",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
				outwarecode = getid(scid,ls_sccode + 'XS',Date(server_dt),if_getid_ture,commit_transaction)
			ELSE
				IF relid = 0 THEN
					outwarecode = getid(scid,ls_sccode + 'XT',Date(server_dt),if_getid_ture,commit_transaction)
				ELSEIF relid = 1 THEN
					outwarecode = getid(scid,ls_sccode + 'QS',Date(server_dt),if_getid_ture,commit_transaction)
				END IF
			END IF
		CASE 3
			IF relint_1 = 0 THEN //生产领料
				outwarecode = getid(scid,ls_sccode + 'LL',Date(server_dt),if_getid_ture,commit_transaction)
			ELSEIF relint_1 = 1 THEN //超额发料单
				outwarecode = getid(scid,ls_sccode + 'BL',Date(server_dt),if_getid_ture,commit_transaction)
			ELSEIF relint_1 = 2 THEN //生产还料单
				outwarecode = getid(scid,ls_sccode + 'HL',Date(server_dt),if_getid_ture,commit_transaction)
			ELSEIF relint_1 = 3 THEN //其他领料
				outwarecode = getid(scid,ls_sccode + 'OL',Date(server_dt),if_getid_ture,commit_transaction)
			ELSEIF relint_1 = 4 THEN //发料单
				outwarecode = getid(scid,ls_sccode + 'FO',Date(server_dt),if_getid_ture,commit_transaction)
			ELSEIF relint_1 = 5 THEN //生产补料单
				outwarecode = getid(scid,ls_sccode + 'BU',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
		CASE 4
			IF thflag = 0 THEN
				outwarecode = getid(scid,ls_sccode + 'KL',Date(server_dt),if_getid_ture,commit_transaction)
			ELSE
				outwarecode = getid(scid,ls_sccode + 'TL',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
		CASE 5 //来料加工
			IF thflag = 0 THEN
				outwarecode = getid(scid,ls_sccode + 'XL',Date(server_dt),if_getid_ture,commit_transaction)
			ELSE
				outwarecode = getid(scid,ls_sccode + 'LT',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
		CASE 6
			outwarecode = getid(scid,ls_sccode + 'SU',Date(server_dt),if_getid_ture,commit_transaction)
			
		CASE 7
			IF thflag = 0 THEN
				outwarecode = getid(scid,ls_sccode + 'KW',Date(server_dt),if_getid_ture,commit_transaction)
			ELSE
				outwarecode = getid(scid,ls_sccode + 'TW',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
			
		CASE 8
			outwarecode = getid(scid,ls_sccode + 'CC',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 9
			outwarecode = getid(scid,ls_sccode + 'PQ',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 10
			outwarecode = getid(scid,ls_sccode + 'KF',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 12
			outwarecode = getid(scid,ls_sccode + 'OC',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 15
			outwarecode = getid(scid,ls_sccode + 'DI',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 16
			outwarecode = getid(scid,ls_sccode + 'LC',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 17
			outwarecode = getid(scid,ls_sccode + 'RO',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 18
			outwarecode = getid(scid,ls_sccode + 'OA',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 19
			outwarecode = getid(scid,ls_sccode + 'CO',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 20
			outwarecode = getid(scid,ls_sccode + 'WO',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 21
			outwarecode = getid(scid,ls_sccode + 'BO',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 22
			outwarecode = getid(scid,ls_sccode + 'QO',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 23
			outwarecode = getid(scid,ls_sccode + 'HO',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 24
			outwarecode = getid(scid,ls_sccode + 'LY',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 25
			outwarecode = getid(scid,ls_sccode + 'FW',Date(server_dt),if_getid_ture,commit_transaction)
			
	END CHOOSE
	
	IF outwarecode = "err" Or outwarecode = '' THEN
		outwarecode = ''
		rslt = 0
		arg_msg = "无法获取进仓单编号"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	
	INSERT INTO u_outware (
		scid,
		outwareid,
		outwarecode,
		billtype,
		relid,
		storageid,
		outdate,
		outrep,
		part,
		dscrp,
		cusid,
		cusname,
		thflag,
		opdate,
		opemp,
		relstr_1,
		relstr_2,
		relstr_3,
		relint_1,
		relint_2,
		relint_3,
		relint_4,
		otheramt,
		damt,
		rel_address,
		rel_tele,
		rel_fax,
		rel_rep,
		mrate,
		upname,
		ifauto,
		viewdate,
		deptid,
		totalamt,
		getamt,
		lsflag,
		carcode,
		transcode,
		typeid,
		exchangeid,
		station_address)
		VALUES (
		:scid,
		:ls_newid,
		:outwarecode,
		:billtype,
		:relid,
		:storageid,
		:outdate,
		:outrep,
		:part,
		:dscrp,
		:cusid,
		:cusname,
		:thflag,
		:server_dt,
		:publ_operator,
		:relstr_1,
		:relstr_2,
		:relstr_3,
		:relint_1,
		:relint_2,
		:relint_3,
		:relint_4,
		:otheramt,
		:damt,
		:rel_address,
		:rel_tele,
		:rel_fax,
		:rel_rep,
		:mrate,
		:upname,
		:ifauto,
		:viewdate,
		:deptid,
		:totalamt,
		:getamt,
		:lsflag,
		:carcode,
		:transcode,
		:typeid,
		:exchangeid,
		:station_address) Using commit_transaction ;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "因网络或其它原因导致插入操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	//读取新outwareid
	outwareid = ls_newid
	
	FOR i = 1 To it_mxbt
		
		//如果是发料单,计算实际超发数量
		IF billtype = 3 And relint_1 = 4 THEN
			IF outwaremx[i].qty - outwaremx[i].planqty > 0 THEN
				ld_trueoverqty = outwaremx[i].qty - outwaremx[i].planqty
			ELSE
				ld_trueoverqty = 0
			END IF
		END IF
		
		INSERT INTO u_outwaremx
			(scid,
			outwareid,
			mtrlwareid,
			printid,
			mtrlid,
			plancode,
			status,
			qty,
			fprice,
			rebate,
			price,
			planprice,
			mxdscrp,
			sptid,
			dxflag,
			costamt,
			ifrel,
			relid,
			packqty,
			olmtrlid,
			woodcode,
			relcode,
			pcode,
			enprice,
			newpriceamt,
			outtypestr,
			dftsaleprice,
			cost,
			planqty,
			relprintid,
			unit,
			rate,
			uqty,
			storageid,
			scidprice,
			mtrlcuscode,
			location,
			pricetype,
			formula,
			capacity,
			saleqty,
			saleoutid,
			saleoutprintid,
			mxdscrp2,
			net_weight,
			gross_weight,
			cubage,
			taxrate,
			priceformula,
			qtyformula,
			enacprice,
			ifvqty,
			trueoverqty,
			backtype,
			ifnotinout)
			VALUES (
			:scid,
			:ls_newid,
			:outwaremx[i].mtrlwareid,
			:outwaremx[i].printid,
			:outwaremx[i].mtrlid,
			:outwaremx[i].plancode,
			:outwaremx[i].status,
			:outwaremx[i].qty,
			:outwaremx[i].fprice,
			:outwaremx[i].rebate,
			:outwaremx[i].price,
			:outwaremx[i].planprice,
			:outwaremx[i].mxdscrp,
			:outwaremx[i].sptid,
			:outwaremx[i].dxflag,
			:outwaremx[i].costamt,
			:outwaremx[i].ifrel,
			:outwaremx[i].relid,
			:outwaremx[i].packqty,
			:outwaremx[i].olmtrlid,
			:outwaremx[i].woodcode,
			:outwaremx[i].relcode,
			:outwaremx[i].pcode,
			:outwaremx[i].enprice,
			:outwaremx[i].newpriceamt,
			:outwaremx[i].outtype,
			:outwaremx[i].dftsaleprice,
			:outwaremx[i].cost,
			:outwaremx[i].planqty,
			:outwaremx[i].relprintid,
			:outwaremx[i].unit,
			:outwaremx[i].rate,
			:outwaremx[i].uqty,
			:outwaremx[i].storageid,
			:outwaremx[i].scidprice,
			:outwaremx[i].mtrlcuscode,
			:outwaremx[i].Location,
			:outwaremx[i].pricetype,
			:outwaremx[i].formula,
			:outwaremx[i].capacity,
			:outwaremx[i].qty,
			:outwaremx[i].saleoutid,
			:outwaremx[i].saleoutprintid,
			:outwaremx[i].mxdscrp2,
			:outwaremx[i].net_weight,
			:outwaremx[i].gross_weight,
			:outwaremx[i].cubage,
			:outwaremx[i].taxrate,
			:outwaremx[i].priceformula,
			:outwaremx[i].qtyformula,
			:outwaremx[i].enacprice,
			:outwaremx[i].ifvqty,
			:ld_trueoverqty,
			:outwaremx[i].backtype,
			:outwaremx[i].ifnotinout) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			outwareid = 0 //还原outwareid
			rslt = 0
			arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
	NEXT
	
	FOR i = 1 To it_mxbt_mx
		INSERT INTO u_outwaremx_mx
			(scid,
			outwareid,
			mtrlwareid,
			printid,
			mxprintid,
			mtrlid,
			plancode,
			status,
			qty,
			mxdscrp,
			sptid,
			dxflag,
			woodcode,
			pcode,
			planqty,
			storageid,
			mtrlcuscode,
			location,
			ifnotinout)
			VALUES (
			:scid,
			:ls_newid,
			:outwaremx_mx[i].mtrlwareid,
			:outwaremx_mx[i].printid,
			:outwaremx_mx[i].mxprintid,
			:outwaremx_mx[i].mtrlid,
			:outwaremx_mx[i].plancode,
			:outwaremx_mx[i].status,
			:outwaremx_mx[i].qty,
			:outwaremx_mx[i].mxdscrp,
			:outwaremx_mx[i].sptid,
			:outwaremx_mx[i].dxflag,
			:outwaremx_mx[i].woodcode,
			:outwaremx_mx[i].pcode,
			:outwaremx_mx[i].planqty,
			:outwaremx_mx[i].storageid,
			:outwaremx_mx[i].mtrlcuscode,
			:outwaremx_mx[i].Location,
			:outwaremx_mx[i].ifnotinout) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			outwareid = 0 //还原outwareid
			rslt = 0
			arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
	NEXT
	
	FOR i = 1 To it_mxbt_item
		INSERT INTO u_outware_itemmx
			(scid,
			outwareid,
			printid,
			itemid,
			amt,
			mxdscrp)
			VALUES (:scid,
			:ls_newid,
			:outware_itemmx[i].printid,
			:outware_itemmx[i].itemid,
			:outware_itemmx[i].amt,
			:outware_itemmx[i].mxdscrp) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			outwareid = 0 //还原taskid
			rslt = 0
			arg_msg = "因网络或其它原因导致插入费用明细操作失败"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
	NEXT
	
	//增加已开单数
	IF billtype <> 21 And billtype <> 12 THEN
		IF uof_noauditingqty_add(scid,billtype,relint_1,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	
	IF uo_option_outware_pack_save_cmp = 1 And  billtype <> 23 And uo_option_mtrlware_autocmp = 1  THEN
		FOR i = 1 To it_mxbt
			If  ( outwaremx[i].ifpack = 1 Or outwaremx[i].ifpack = 2 Or outwaremx[i].ifpackpro = 3 Or outwaremx[i].ifpackpro = 4 ) THEN
				ins_ref_mxbt++
				ins_ref_outwaremx[ins_ref_mxbt].mtrlid = outwaremx[i].mtrlid
				ins_ref_outwaremx[ins_ref_mxbt].plancode = outwaremx[i].plancode
				ins_ref_outwaremx[ins_ref_mxbt].mtrlcuscode = outwaremx[i].mtrlcuscode
				ins_ref_outwaremx[ins_ref_mxbt].storageid = storageid
			END IF
		NEXT
	END IF
	
ELSE //////////////////////////////////////////////// //更新
	//	IF (billtype = 1 OR billtype = 5) AND sys_option_autowaste = 1 THEN
	//		uo_outware_waste uo_waste
	//		uo_waste = CREATE uo_outware_waste
	//		uo_waste.commit_transaction = commit_transaction
	//		IF uo_waste.insertwaste(1,scid,outwareid,arg_msg,FALSE) = 0 THEN
	//			rslt = 0
	//			GOTO ext
	//		END IF
	//		DESTROY uo_waste
	//	END IF
	
	IF uo_option_outware_pack_save_cmp = 1 And  billtype <> 23 And uo_option_mtrlware_autocmp = 1  THEN
		
		ins_ref_mxbt = 1
		DECLARE cur_outwaremx_ori CURSOR FOR
			SELECT u_outwaremx.mtrlid,
			u_outwaremx.plancode,
			u_outwaremx.mtrlcuscode,
			u_outwaremx.storageid
			FROM u_outwaremx,u_mtrldef
			WHERE u_outwaremx.outwareid = :outwareid
			AND u_outwaremx.mtrlid = u_mtrldef.mtrlid
			AND u_outwaremx.scid = :scid
			AND  ( u_mtrldef.ifpack = 1 OR u_mtrldef.ifpack = 2 OR u_mtrldef.ifpackpro = 3 OR u_mtrldef.ifpackpro = 4 )
			Order By u_outwaremx.printid Using commit_transaction;
			
		OPEN cur_outwaremx_ori;
		FETCH cur_outwaremx_ori Into :ins_ref_outwaremx[ins_ref_mxbt].mtrlid,:ins_ref_outwaremx[ins_ref_mxbt].plancode,:ins_ref_outwaremx[ins_ref_mxbt].mtrlcuscode,:ins_ref_outwaremx[ins_ref_mxbt].storageid;
		DO WHILE sqlca.SQLCode = 0
			ins_ref_mxbt++
			FETCH cur_outwaremx_ori Into :ins_ref_outwaremx[ins_ref_mxbt].mtrlid,:ins_ref_outwaremx[ins_ref_mxbt].plancode,:ins_ref_outwaremx[ins_ref_mxbt].mtrlcuscode,:ins_ref_outwaremx[ins_ref_mxbt].storageid;
		LOOP
		CLOSE cur_outwaremx_ori;
		
		ins_ref_mxbt = ins_ref_mxbt - 1
		
		FOR i = 1 To it_mxbt
			If  ( outwaremx[i].ifpack = 1 Or outwaremx[i].ifpack = 2 Or outwaremx[i].ifpackpro = 3 Or outwaremx[i].ifpackpro = 4 ) THEN
				
				FOR j = 1 To ins_ref_mxbt
					IF ins_ref_outwaremx[j].mtrlid = outwaremx[i].mtrlid  And ins_ref_outwaremx[j].plancode = outwaremx[i].plancode And ins_ref_outwaremx[j].mtrlcuscode = outwaremx[i].mtrlcuscode And ins_ref_outwaremx[j].storageid = storageid THEN
						GOTO _next_mtrl
					END IF
				NEXT
				
				ins_ref_mxbt++
				ins_ref_outwaremx[ins_ref_mxbt].mtrlid = outwaremx[i].mtrlid
				ins_ref_outwaremx[ins_ref_mxbt].plancode = outwaremx[i].plancode
				ins_ref_outwaremx[ins_ref_mxbt].mtrlcuscode = outwaremx[i].mtrlcuscode
				ins_ref_outwaremx[ins_ref_mxbt].storageid = storageid
			END IF
			
			_next_mtrl:
		NEXT
	END IF
	
	If (billtype > 1 And billtype <> 5 ) Or ((billtype = 1 Or billtype = 5)  And flag = 0 And priceflag = 0) THEN
		UPDATE u_outware
			SET billtype = :billtype,
			relid = :relid,
			storageid = :storageid,
			outdate = :outdate,
			outrep = :outrep,
			part = :part,
			dscrp = :dscrp,
			cusid = :cusid,
			cusname = :cusname,
			thflag = :thflag,
			moddate = :server_dt,
			modemp = :publ_operator,
			relstr_1 = :relstr_1,
			relstr_2 = :relstr_2,
			relstr_3 = :relstr_3,
			relint_1 = :relint_1,
			relint_2 = :relint_2,
			relint_3 = :relint_3,
			relint_4 = :relint_4,
			otheramt = :otheramt,
			damt = :damt,
			rel_address = :rel_address,
			rel_tele = :rel_tele,
			rel_fax = :rel_fax,
			rel_rep = :rel_rep,
			mrate = :mrate,
			upname = :upname,
			viewdate = :viewdate,
			deptid = :deptid,
			totalamt = :totalamt,
			getamt = :getamt,
			lsflag = :lsflag,
			carcode = :carcode,
			transcode = :transcode,
			typeid = :typeid,
			exchangeid = :exchangeid,
			station_address = :station_address
			WHERE u_outware.outwareid = :outwareid
			AND u_outware.scid = :scid
			And flag = 0 Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 Or commit_transaction.SQLNRows <= 0 THEN
			rslt = 0
			arg_msg = "因网络或其它原因导致更新单据操作失败(1)"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
		
		//更新库存已开单数(减)
		IF billtype <> 21 And billtype <> 12 THEN
			IF uof_noauditingqty_del(scid,outwareid,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
		END IF
		
		//删除原有明细
		DELETE FROM u_outwaremx
			WHERE u_outwaremx.outwareid = :outwareid
			And u_outwaremx.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
			
			//如果是发料单,计算实际超发数量
			IF billtype = 3 And relint_1 = 4 THEN
				IF outwaremx[i].qty - outwaremx[i].planqty > 0 THEN
					ld_trueoverqty = outwaremx[i].qty - outwaremx[i].planqty
				ELSE
					ld_trueoverqty = 0
				END IF
			END IF
			
			INSERT INTO u_outwaremx
				(scid,
				outwareid,
				mtrlwareid,
				printid,
				mtrlid,
				plancode,
				status,
				qty,
				fprice,
				rebate,
				price,
				planprice,
				mxdscrp,
				sptid,
				dxflag,
				costamt,
				ifrel,
				relid,
				packqty,
				olmtrlid,
				woodcode,
				relcode,
				pcode,
				enprice,
				newpriceamt,
				outtypestr,
				dftsaleprice,
				cost,
				planqty,
				relprintid,
				unit,
				rate,
				uqty,
				storageid,
				scidprice,
				mtrlcuscode,
				location,
				pricetype,
				formula,
				capacity,
				saleqty,
				saleoutid,
				saleoutprintid,
				mxdscrp2,
				net_weight,
				gross_weight,
				cubage,
				taxrate,
				priceformula,
				qtyformula,
				enacprice,
				ifvqty,
				trueoverqty,
				backtype,
				ifnotinout)
				VALUES (
				:scid,
				:outwareid,
				:outwaremx[i].mtrlwareid,
				:outwaremx[i].printid,
				:outwaremx[i].mtrlid,
				:outwaremx[i].plancode,
				:outwaremx[i].status,
				:outwaremx[i].qty,
				:outwaremx[i].fprice,
				:outwaremx[i].rebate,
				:outwaremx[i].price,
				:outwaremx[i].planprice,
				:outwaremx[i].mxdscrp,
				:outwaremx[i].sptid,
				:outwaremx[i].dxflag,
				:outwaremx[i].costamt,
				:outwaremx[i].ifrel,
				:outwaremx[i].relid,
				:outwaremx[i].packqty,
				:outwaremx[i].olmtrlid,
				:outwaremx[i].woodcode,
				:outwaremx[i].relcode,
				:outwaremx[i].pcode,
				:outwaremx[i].enprice,
				:outwaremx[i].newpriceamt,
				:outwaremx[i].outtype,
				:outwaremx[i].dftsaleprice,
				:outwaremx[i].cost,
				:outwaremx[i].planqty,
				:outwaremx[i].relprintid,
				:outwaremx[i].unit,
				:outwaremx[i].rate,
				:outwaremx[i].uqty,
				:outwaremx[i].storageid,
				:outwaremx[i].scidprice,
				:outwaremx[i].mtrlcuscode,
				:outwaremx[i].Location,
				:outwaremx[i].pricetype,
				:outwaremx[i].formula,
				:outwaremx[i].capacity,
				:outwaremx[i].qty,
				:outwaremx[i].saleoutid,
				:outwaremx[i].saleoutprintid,
				:outwaremx[i].mxdscrp2,
				:outwaremx[i].net_weight,
				:outwaremx[i].gross_weight,
				:outwaremx[i].cubage,
				:outwaremx[i].taxrate,
				:outwaremx[i].priceformula,
				:outwaremx[i].qtyformula,
				:outwaremx[i].enacprice,
				:outwaremx[i].ifvqty,
				:ld_trueoverqty,
				:outwaremx[i].backtype,
				:outwaremx[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_outwaremx_mx
			WHERE u_outwaremx_mx.outwareid = :outwareid
			And u_outwaremx_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_outwaremx_mx
				(scid,
				outwareid,
				mtrlwareid,
				printid,
				mxprintid,
				mtrlid,
				plancode,
				status,
				qty,
				mxdscrp,
				sptid,
				dxflag,
				woodcode,
				pcode,
				planqty,
				storageid,
				mtrlcuscode,
				location,
				ifnotinout)
				VALUES (
				:scid,
				:outwareid,
				:outwaremx_mx[i].mtrlwareid,
				:outwaremx_mx[i].printid,
				:outwaremx_mx[i].mxprintid,
				:outwaremx_mx[i].mtrlid,
				:outwaremx_mx[i].plancode,
				:outwaremx_mx[i].status,
				:outwaremx_mx[i].qty,
				:outwaremx_mx[i].mxdscrp,
				:outwaremx_mx[i].sptid,
				:outwaremx_mx[i].dxflag,
				:outwaremx_mx[i].woodcode,
				:outwaremx_mx[i].pcode,
				:outwaremx_mx[i].planqty,
				:outwaremx_mx[i].storageid,
				:outwaremx_mx[i].mtrlcuscode,
				:outwaremx_mx[i].Location,
				:outwaremx_mx[i].ifnotinout) Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				outwareid = 0 //还原outwareid
				rslt = 0
				arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText
				GOTO ext
			END IF
		NEXT
		
		DELETE FROM u_outware_itemmx
			WHERE u_outware_itemmx.outwareid = :outwareid
			And u_outware_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_outware_itemmx
				(scid,
				outwareid,
				printid,
				itemid,
				amt,
				mxdscrp)
				VALUES (:scid,
				:outwareid,
				:outware_itemmx[i].printid,
				:outware_itemmx[i].itemid,
				:outware_itemmx[i].amt,
				:outware_itemmx[i].mxdscrp) Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				outwareid = 0 //还原taskid
				rslt = 0
				arg_msg = "因网络或其它原因导致插入费用明细操作失败"+"~n"+commit_transaction.SQLErrText
				GOTO ext
			END IF
		NEXT
		
		//增加已开单数
		IF billtype <> 21 And billtype <> 12 THEN
			IF uof_noauditingqty_add(scid,billtype,relint_1,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
		END IF
		
	ElseIf (billtype = 1 Or billtype = 5)  And flag = 0 And priceflag = 1 THEN
		UPDATE u_outware
			SET billtype = :billtype,
			relid = :relid,
			storageid = :storageid,
			outdate = :outdate,
			outrep = :outrep,
			part = :part,
			dscrp = :dscrp,
			cusid = :cusid,
			cusname = :cusname,
			thflag = :thflag,
			moddate = :server_dt,
			modemp = :publ_operator,
			relstr_1 = :relstr_1,
			relstr_2 = :relstr_2,
			relstr_3 = :relstr_3,
			relint_1 = :relint_1,
			relint_2 = :relint_2,
			otheramt = :otheramt,
			damt = :damt,
			rel_address = :rel_address,
			rel_tele = :rel_tele,
			rel_fax = :rel_fax,
			rel_rep = :rel_rep,
			mrate = :mrate,
			upname = :upname,
			viewdate = :viewdate,
			deptid = :deptid,
			carcode = :carcode,
			transcode = :transcode,
			typeid = :typeid,
			exchangeid = :exchangeid,
			station_address = :station_address
			WHERE u_outware.outwareid = :outwareid
			AND u_outware.scid = :scid
			AND flag = 0
			AND secflag = 0
			And priceflag = 1 Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 Or commit_transaction.SQLNRows <= 0 THEN
			rslt = 0
			arg_msg = "因网络或其它原因导致更新单据操作失败(3)"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
		
		//更新库存已开单数(减)
		IF billtype <> 21 And billtype <> 12 THEN
			IF uof_noauditingqty_del(scid,outwareid,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
		END IF
		
		FOR i = 1 To it_mxbt
			UPDATE u_outWAREmx
				SET qty = :outWAREmx[i].qty,
				saleqty = :outwaremx[i].qty,
				mxdscrp = :outwaremx[I].mxdscrp,
				fprice = :outwaremx[I].fprice,
				rebate = :outwaremx[I].rebate,
				enprice = :outwaremx[I].enprice,
				enacprice = :outwaremx[I].enacprice,
				packqty = :outwaremx[I].packqty,
				outtype = :outwaremx[I].outtype,
				formula = :outwaremx[i].formula,
				capacity = :outwaremx[i].capacity,
				mxdscrp2 = :outwaremx[i].mxdscrp2,
				net_weight = :outwaremx[i].net_weight,
				gross_weight = :outwaremx[i].gross_weight,
				cubage = :outwaremx[i].cubage,
				taxrate = :outwaremx[i].taxrate,
				priceformula = :outwaremx[i].priceformula,
				qtyformula = :outwaremx[i].qtyformula
				WHERE  ( scid = :scid AND
				outWAREid = :outwareid AND
				printid = :outwaremx[i].printid);
			IF commit_transaction.SQLCode <> 0 THEN
				rslt = 0
				arg_msg = "因网络或其它原因导致更新明细实发数操作失败"+"~n"+commit_transaction.SQLErrText
				GOTO ext
			END IF
		NEXT
		
		FOR i = 1 To it_mxbt_mx
			UPDATE u_outwaremx_mx
				SET qty = :outwaremx_mx[i].qty,
				mxdscrp = :outwaremx_mx[I].mxdscrp
				WHERE  ( scid = :scid AND
				outWAREid = :outwareid AND
				printid = :outwaremx_mx[i].printid AND
				mxprintid = :outwaremx_mx[i].mxprintid);
			IF commit_transaction.SQLCode <> 0 THEN
				rslt = 0
				arg_msg = "因网络或其它原因导致更新应发明细实发数操作失败"+"~n"+commit_transaction.SQLErrText
				GOTO ext
			END IF
		NEXT
		
		
		DELETE FROM u_outware_itemmx
			WHERE u_outware_itemmx.outwareid = :outwareid
			And u_outware_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_outware_itemmx
				(scid,
				outwareid,
				printid,
				itemid,
				amt,
				mxdscrp)
				VALUES (:scid,
				:outwareid,
				:outware_itemmx[i].printid,
				:outware_itemmx[i].itemid,
				:outware_itemmx[i].amt,
				:outware_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
		
		//增加已开单数
		IF billtype <> 21 And billtype <> 12 THEN
			IF uof_noauditingqty_add(scid,billtype,relint_1,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
		END IF
	ELSE
		UPDATE u_outware
			SET billtype = :billtype,
			relid = :relid,
			storageid = :storageid,
			outdate = :outdate,
			outrep = :outrep,
			part = :part,
			dscrp = :dscrp,
			cusid = :cusid,
			cusname = :cusname,
			thflag = :thflag,
			moddate = :server_dt,
			modemp = :publ_operator,
			relstr_1 = :relstr_1,
			relstr_2 = :relstr_2,
			relstr_3 = :relstr_3,
			relint_1 = :relint_1,
			relint_2 = :relint_2,
			otheramt = :otheramt,
			damt = :damt,
			rel_address = :rel_address,
			rel_tele = :rel_tele,
			rel_fax = :rel_fax,
			rel_rep = :rel_rep,
			mrate = :mrate,
			upname = :upname,
			viewdate = :viewdate,
			deptid = :deptid,
			carcode = :carcode,
			transcode = :transcode,
			typeid = :typeid,
			exchangeid = :exchangeid,
			station_address = :station_address
			WHERE u_outware.outwareid = :outwareid
			AND u_outware.scid = :scid
			AND flag = 1
			And secflag = 0 Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 Or commit_transaction.SQLNRows <= 0 THEN
			rslt = 0
			arg_msg = "因网络或其它原因导致更新单据操作失败(2)"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
		
		FOR i = 1 To it_mxbt
			UPDATE u_outWAREmx
				SET price = :outWAREmx[i].price,
				mxdscrp = :outwaremx[I].mxdscrp,
				fprice = :outwaremx[I].fprice,
				rebate = :outwaremx[I].rebate,
				enprice = :outwaremx[I].enprice,
				enacprice = :outwaremx[I].enacprice,
				taxrate = :outwaremx[i].taxrate,
				priceformula = :outwaremx[i].priceformula,
				qtyformula = :outwaremx[i].qtyformula
				WHERE  ( scid = :scid AND
				outWAREid = :outwareid AND
				printid = :outwaremx[i].printid);
			IF commit_transaction.SQLCode <> 0 THEN
				rslt = 0
				arg_msg = "因网络或其它原因导致更新明细价格操作失败"+"~n"+commit_transaction.SQLErrText
				GOTO ext
			END IF
		NEXT
		
		
		DELETE FROM u_outware_itemmx
			WHERE u_outware_itemmx.outwareid = :outwareid
			And u_outware_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_outware_itemmx
				(scid,
				outwareid,
				printid,
				itemid,
				amt,
				mxdscrp)
				VALUES (:scid,
				:outwareid,
				:outware_itemmx[i].printid,
				:outware_itemmx[i].itemid,
				:outware_itemmx[i].amt,
				:outware_itemmx[i].mxdscrp) Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				outwareid = 0 //还原taskid
				rslt = 0
				arg_msg = "因网络或其它原因导致插入费用明细操作失败"+"~n"+commit_transaction.SQLErrText
				GOTO ext
			END IF
		NEXT
	END IF
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 auditing (boolean arg_ifcommit, ref string arg_msg);Int rslt = 1
Long cnt = 0,i,j,mx_barcode_cnt
String ls_storagename
Int li_outtype,li_storagetype,li_if_pd_usebarcode
Decimal ld_sumnotoutqty,ld_sumnotoutqty_bill

s_cmplpackpro_ref_mtrlwareid_array s_mtrlwareid_array_rst

ins_ref_outwaremx = ins_empty_outwaremx
ins_ref_mxbt = 0

Long ll_taskid,ll_taskprintid
Decimal ld_assign_outqty,ld_outmx_qty

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_outwareother_paudit = -1000 Then
	rslt = 0
	arg_msg = '选项:[205]仓库使用条码流程,其它出仓单使用先确认后审核流程,读取初始默认值失败,操作取消!'
	Goto ext
End If

uo_mtrlware_assign uo_ma
uo_ma = Create uo_mtrlware_assign
uo_ma.commit_transaction = commit_transaction

//库存分配ds
datastore ds_out_assign
ds_out_assign = Create datastore
If thflag = 0 Then
	ds_out_assign.DataObject = 'ds_outwaremx_assign'
Else
	ds_out_assign.DataObject = 'ds_outwaremx_assign_cancel'
End If
ds_out_assign.SetTransObject(commit_transaction)

If outwareid = 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 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
//

If uo_option_inout_type = 2 And li_outtype = 2 And &
	( uo_option_barcode_outwareother_paudit = 1 And billtype = 8 ) 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 Then
	For i = 1 To it_mxbt
		If outwaremx[i].outtype_mtrl = 2 Then mx_barcode_cnt++
	Next
	
	If mx_barcode_cnt > 0 And ( billtype = 8 Or billtype = 9 And &
		( li_if_pd_usebarcode = 1 Or li_if_pd_usebarcode = 0 And if_pd_py_check_barcode ))  Then
		If uof_check_qty_to_bqty(arg_msg) = 0 Then
			rslt = 0
			Goto ext
		End If
	End If
End If

Update u_outware
	Set Auditingrep = :publ_operator,
	Auditingdate = getdate(),
	flag = 1
	Where u_outware.outwareid = :outwareid
	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
	
	Decimal ld_ref_costamt
	
	//	ld_ref_costamt = 0
	If p_update_cost(outwaremx[i].mtrlwareid,outwaremx[i].mtrlcode,&
		outwaremx[i].qty,outwaremx[i].printid,ld_ref_costamt,arg_msg,False) = 0 Then
		arg_msg = '物料:'+outwaremx[i].mtrlcode+',行:'+String(i)+','+arg_msg
		rslt = 0
		Goto ext
	End If
	
	If billtype <> 19 Then
		//先取消分配再扣库存
		//更新库存分配(销售出仓单包件出仓)
		
		If billtype = 21 And li_storagetype = 1 And li_outtype > 0 And thflag = 0 Then
			ll_taskid = 0
			ll_taskprintid = 0
			ld_assign_outqty = 0
			
			Select u_outwaremx.relid,
				u_outwaremx.relprintid
				Into :ll_taskid,
				:ll_taskprintid
				From u_outwaremx
				Where u_outwaremx.scid = :scid
				And u_outwaremx.outwareid = :relid //发货单id
				And u_outwaremx.printid = :outwaremx[i].olmtrlid
				Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售发货单(包件明细)行:'+String(i)+'查询相关发货单明细所属订单明细失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			If ll_taskid > 0 Then
				ds_out_assign.Retrieve(scid,outwaremx[i].mtrlwareid,ll_taskid,ll_taskprintid)
				
				If ds_out_assign.RowCount() > 0 Then
					ld_sumnotoutqty = ds_out_assign.Object.sumnotoutqty[1]
				Else
					ld_sumnotoutqty = 0
				End If
				
				ld_sumnotoutqty_bill = 0
				ld_sumnotoutqty_bill = outwaremx[i].qty
				
				ds_out_assign.AcceptText()
				If ld_sumnotoutqty_bill > ld_sumnotoutqty Then
					arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售发货单(包件明细)行:'+String(i)+'订单库存分配数不足,请检查库存分配未出仓明细'
					rslt = 0
					Goto ext
				Else
					ld_assign_outqty = 0
					For j = 1 To ds_out_assign.RowCount()
						If ds_out_assign.Object.notoutqty[j] >= ld_sumnotoutqty_bill Then
							ld_assign_outqty = ld_sumnotoutqty_bill
							If uo_ma.uof_assign_addoutqty(ds_out_assign.Object.assignid[j],ld_assign_outqty,arg_msg,False) = 0 Then
								arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售发货单(包件明细)行:'+String(i)+','+arg_msg
								rslt = 0
								Goto ext
							End If
							Exit
						Else
							ld_assign_outqty = ds_out_assign.Object.notoutqty[j]
							If uo_ma.uof_assign_addoutqty(ds_out_assign.Object.assignid[j],ld_assign_outqty,arg_msg,False) = 0 Then
								arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售发货单(包件明细)行:'+String(i)+','+arg_msg
								rslt = 0
								Goto ext
							End If
							ld_sumnotoutqty_bill = ld_sumnotoutqty_bill - ds_out_assign.Object.notoutqty[j]
						End If
					Next
				End If
			End If
		End If
		
		If sys_option_inout_procedure = 0  Then
			If p_update_mtrlware ( outwaremx[i].mtrlwareid, outwaremx[i].mtrlid, &
				outwaremx[i].mtrlcode, storageid, outwaremx[i].plancode,&
				outwaremx[i].status, outwaremx[i].qty,outwaremx[i].uqty,ld_ref_costamt,&
				outwaremx[i].planprice, outwaremx[i].sptid,outwaremx[i].dxflag,&
				outwaremx[i].woodcode,  outwaremx[i].pcode,outwaremx[i].mtrlcuscode,outwaremx[i].Location,outwaremx[i].ifvqty,arg_msg) = 0 Then
				arg_msg = '物料:'+outwaremx[i].mtrlcode+',行:'+String(i)+','+arg_msg
				rslt = 0
				Goto ext
			End If
		Else
			If uo_pro.p_outware_update_mtrlware(scid,outwareid,outwaremx[i].printid,outwaremx[i].mtrlwareid,&
				outwaremx[i].mtrlid,outwaremx[i].mtrlcode,storageid,outwaremx[i].plancode,outwaremx[i].status,&
				outwaremx[i].qty,outwaremx[i].uqty,ld_ref_costamt,&
				outwaremx[i].planprice, outwaremx[i].sptid,outwaremx[i].dxflag,&
				outwaremx[i].woodcode,  outwaremx[i].pcode,outwaremx[i].mtrlcuscode,outwaremx[i].Location,arg_msg) =  0 Then
				arg_msg = '物料:'+outwaremx[i].mtrlcode+',行:'+String(i)+','+arg_msg
				rslt = 0
				Goto ext
			End If
		End If
		
		//更新库存分配销售退货单
		If billtype = 21 And li_storagetype = 1 And li_outtype > 0 And thflag = 1 Then
			ll_taskid = 0
			ll_taskprintid = 0
			ld_assign_outqty = 0
			
			Select u_outwaremx.relid,
				u_outwaremx.relprintid
				Into :ll_taskid,
				:ll_taskprintid
				From u_outwaremx
				Where u_outwaremx.scid = :scid
				And u_outwaremx.outwareid = :relid
				And u_outwaremx.printid = :outwaremx[i].olmtrlid
				Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售退货单(包件明细)行:'+String(i)+'查询相关发货单明细所属订单明细失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			If ll_taskid > 0 Then
				ds_out_assign.Retrieve(scid,outwaremx[i].mtrlwareid,ll_taskid,ll_taskprintid)
				
				If ds_out_assign.RowCount() > 0 Then
					ld_sumnotoutqty = ds_out_assign.Object.sumnotoutqty[1]
				Else
					ld_sumnotoutqty = 0
				End If
				
				ds_out_assign.AcceptText()
				
				ld_outmx_qty = Abs(outwaremx[i].qty)
				If ld_outmx_qty > ld_sumnotoutqty And ll_taskid > 0 Then
					arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售退货单(包件明细)行:'+String(i)+'订单库存分配已出仓数不足,不能撤审,请检查库存分配已出仓明细'
					rslt = 0
					Goto ext
				Else
					ld_assign_outqty = 0
					For j = 1 To ds_out_assign.RowCount()
						If ds_out_assign.Object.notoutqty[j] >= ld_outmx_qty Then
							ld_assign_outqty = ld_outmx_qty
							If uo_ma.uof_assign_addoutqty(ds_out_assign.Object.assignid[j],0 - ld_assign_outqty,arg_msg,False) = 0 Then
								arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售退货单(包件明细)行:'+String(i)+','+arg_msg
								rslt = 0
								Goto ext
							End If
							Exit
						Else
							ld_assign_outqty = ds_out_assign.Object.notoutqty[j]
							If uo_ma.uof_assign_addoutqty(ds_out_assign.Object.assignid[j],0 - ld_assign_outqty,arg_msg,False) = 0 Then
								arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售退货单(包件明细)行:'+String(i)+','+arg_msg
								rslt = 0
								Goto ext
							End If
							ld_outmx_qty = ld_outmx_qty - ds_out_assign.Object.notoutqty[j]
						End If
					Next
				End If
			End If
		End If
	Else
		If sys_option_inout_procedure = 0  Then
			If p_update_mtrlware_ws( outwaremx[i].mtrlwareid, outwaremx[i].mtrlid, &
				outwaremx[i].mtrlcode, storageid, outwaremx[i].plancode,&
				outwaremx[i].status, outwaremx[i].qty,outwaremx[i].uqty,ld_ref_costamt,&
				outwaremx[i].planprice, outwaremx[i].sptid,outwaremx[i].dxflag,&
				outwaremx[i].woodcode,  outwaremx[i].pcode,outwaremx[i].mtrlcuscode,outwaremx[i].Location,arg_msg) = 0 Then
				arg_msg = '物料:'+outwaremx[i].mtrlcode+',行:'+String(i)+','+arg_msg
				rslt = 0
				Goto ext
			End If
		Else
			If uo_pro.p_outware_update_mtrlware(scid,outwareid,outwaremx[i].printid,outwaremx[i].mtrlwareid,&
				outwaremx[i].mtrlid,outwaremx[i].mtrlcode,storageid,outwaremx[i].plancode,outwaremx[i].status,&
				outwaremx[i].qty,outwaremx[i].uqty,ld_ref_costamt,&
				outwaremx[i].planprice, outwaremx[i].sptid,outwaremx[i].dxflag,&
				outwaremx[i].woodcode,  outwaremx[i].pcode,outwaremx[i].mtrlcuscode,outwaremx[i].Location,arg_msg) =  0 Then
				arg_msg = '物料:'+outwaremx[i].mtrlcode+',行:'+String(i)+','+arg_msg
				rslt = 0
				Goto ext
			End If
		End If
	End If
	
	//yyx2012-9-29返回计算可装数库存id数组
	
	If billtype <> 23 And ( outwaremx[i].ifpack = 1 Or outwaremx[i].ifpack = 2 Or outwaremx[i].ifpackpro = 3 Or outwaremx[i].ifpackpro = 4 ) And uo_option_mtrlware_autocmp = 1 Then
		If uo_option_noauditingqty_mode = 0 Then
			If uo_cmpl_p.uof_ref_mtrlwarid_array(outwaremx[i].mtrlid,outwaremx[i].plancode,outwaremx[i].mtrlcuscode,storageid,s_mtrlwareid_array_rst,arg_msg) = 0 Then
				rslt = 0
				Goto ext
			End If
		Else
			ins_ref_mxbt++
			ins_ref_outwaremx[ins_ref_mxbt].mtrlid = outwaremx[i].mtrlid
			ins_ref_outwaremx[ins_ref_mxbt].plancode = outwaremx[i].plancode
			ins_ref_outwaremx[ins_ref_mxbt].mtrlcuscode = outwaremx[i].mtrlcuscode
			ins_ref_outwaremx[ins_ref_mxbt].storageid = storageid
		End If
	End If
	
	//
Next

//更新条码
If li_outtype = 2 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_pd_py_check_barcode )) Then
	If uof_p_barcode(1,arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
End If

//更新库存已开单数(减)
If billtype <> 21 And  billtype <> 12 Then
	If uof_noauditingqty_del(scid,outwareid,arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
End If

//yyx2012-9-29返回计算可装数库存id数组计算可装数
If billtype <> 23 And UpperBound(s_mtrlwareid_array_rst.mtrlwareid) > 0  And uo_option_mtrlware_autocmp = 1 Then
	If uo_option_noauditingqty_mode = 0 Then
		If uo_cmpl_p.uof_cmpl_diqty(s_mtrlwareid_array_rst,arg_msg) = 0 Then
			rslt = 0
			Goto ext
		End If
	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 ds_out_assign
Destroy uo_pro
Destroy uo_cmpl_p

Return rslt



end function

public function integer updatebegin (long arg_scid, long arg_outwareid, 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_outwareother_paudit= -1000 THEN
	rslt = 0
	arg_msg = '选项:[205]仓库使用条码流程,其它出仓单使用先确认后审核流程,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_confirmaudit_sale = -1000 THEN
	rslt = 0
	arg_msg = '选项:[025]销售单先确认后审核,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_sale_use_planqty = -1000 THEN
	rslt = 0
	arg_msg = '选项:[115]销售发货单使用计划发货数,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


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

IF arg_outwareid <= 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 = 7 OR &
	arg_billtype = 8 OR &
	arg_billtype = 9 OR &
	arg_billtype = 10 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) 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+'7-外协销售出仓单,'
	arg_msg = arg_msg+'8-其他出仓单,'
	arg_msg = arg_msg+'9-盘亏出仓单,'
	arg_msg = arg_msg+'10-工具出仓单,'
	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-发料损耗自动出仓单'
	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

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

IF uo_option_inout_type = 2 AND &
	( uo_option_barcode_outwareother_paudit = 1 AND arg_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 arg_billtype = 1 THEN
	IF uo_option_confirmaudit_sale = 1 AND uo_option_sale_use_planqty = 1 THEN
		IF priceflag = 1 AND flag = 1 AND secflag = 1 THEN
			rslt = 0
			arg_msg = '单据已经过仓库及财务审核,不可以修改'
			GOTO ext
		ELSEIF priceflag = 1 AND flag = 0 AND secflag = 0 THEN
			rslt = 0
			arg_msg = '单据已经确认,仓审前不可以修改'
			GOTO ext
		END IF
	ELSE
		IF flag = 1 AND secflag = 1 THEN
			rslt = 0
			arg_msg = '单据已经过仓库及财务审核,不可以修改'
			GOTO ext
		ELSEIF priceflag = 1 AND flag = 0 AND secflag = 0 THEN
			rslt = 0
			arg_msg = '单据已经确认,仓审前不可以修改'
			GOTO ext
		END IF
	END IF
ELSEIF arg_billtype = 5 THEN
	IF flag = 1 AND secflag = 1 THEN
		rslt = 0
		arg_msg = '单据已经过仓库及财务审核,不可以修改'
		GOTO ext
	ELSEIF priceflag = 1 AND flag = 0 AND secflag = 0 THEN
		rslt = 0
		arg_msg = '单据已经确认,仓审前不可以修改,不可以修改'
		GOTO ext
	END IF
ELSE
	IF flag = 1 THEN
		rslt = 0
		arg_msg = '单据已经审核,不可以修改'
		GOTO ext
	END IF
END IF

outwareid = arg_outwareid
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 getinfo (long arg_scid, long arg_outwareid, ref string arg_msg);//getinfo(arg_scid,arg_outwareid,arg_msg)
//0 失败  1成功
Int rslt = 1
Long i = 1,no_mxcheck = 0,j = 1,no_mxcheck_barcode = 0,k = 1,l = 1,ll_i
Int li_outtype
Decimal ld_planprice

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

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

rslt = p_getinfo(arg_scid,arg_outwareid,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_outwaremx CURSOR FOR
	SELECT u_outwaremx.printid,
	u_outwaremx.mtrlid,
	u_outwaremx.plancode,
	u_outwaremx.status,
	u_outwaremx.qty,
	u_outwaremx.fprice,
	u_outwaremx.rebate,
	u_outwaremx.price,
	u_outwaremx.mxdscrp,
	u_mtrldef.mtrlcode,
	u_outwaremx.sptid,
	u_outwaremx.dxflag,
	u_outwaremx.mtrlwareid,
	u_outwaremx.storageid,
	u_outwaremx.costamt,
	u_outwaremx.ifrel,
	u_outwaremx.relid,
	u_outwaremx.olmtrlid,
	u_outwaremx.packqty,
	u_outwaremx.woodcode,
	u_outwaremx.pcode,
	u_outwaremx.enprice,
	u_outwaremx.newpriceamt,
	u_outwaremx.outtypestr,
	u_outwaremx.dftsaleprice,
	u_outwaremx.cost,
	u_outwaremx.planqty,
	u_outwaremx.relprintid,
	u_outwaremx.relcode,
	u_outwaremx.unit,
	u_outwaremx.rate,
	u_outwaremx.uqty,
	u_outwaremx.overqty,
	u_outwaremx.mtrlcuscode,
	u_outwaremx.location,
	u_outwaremx.pricetype,
	u_outwaremx.formula,
	u_outwaremx.capacity,
	u_mtrldef.ifpackpro,
	u_mtrldef.ifpack,
	u_mtrldef.outtype,
	u_outwaremx.saleqty,
	u_outwaremx.saleoutid,
	u_outwaremx.saleoutprintid,
	u_outwaremx.mxdscrp2,
	u_outwaremx.net_weight,
	u_outwaremx.gross_weight,
	u_outwaremx.cubage,
	u_outwaremx.taxrate,
	u_outwaremx.priceformula,
	u_outwaremx.qtyformula,
	u_mtrldef.iffp,
	u_outwaremx.enacprice,
	u_outwaremx.ifvqty,
	u_outwaremx.backtype,
	u_outwaremx.ifnotinout
	FROM u_outwaremx,u_mtrldef,u_outware
	WHERE u_outware.outwareid = :arg_outwareid  AND
	u_outwaremx.mtrlid = u_mtrldef.mtrlid AND
	u_outware.scid = :arg_scid AND
	u_outware.outwareid = u_outwaremx.outwareid AND
	u_outware.scid = u_outwaremx.scid
	Order By u_outwaremx.printid Using commit_transaction;
	
OPEN cur_outwaremx;
FETCH cur_outwaremx INTO :outwaremx[i].printid,:outwaremx[i].mtrlid,:outwaremx[i].plancode,
	:outwaremx[i].status,:outwaremx[i].qty,:outwaremx[i].fprice,
	:outwaremx[i].rebate,:outwaremx[i].price,
	:outwaremx[i].mxdscrp,:outwaremx[i].mtrlcode,
	:outwaremx[i].sptid,:outwaremx[i].dxflag,
	:outwaremx[i].mtrlwareid,:outwaremx[i].storageid,
	:outwaremx[i].costamt,:outwaremx[i].ifrel,
	:outwaremx[i].relid,:outwaremx[i].olmtrlid,:outwaremx[i].packqty,
	:outwaremx[i].woodcode,:outwaremx[i].pcode,:outwaremx[i].enprice,
	:outwaremx[i].newpriceamt,:outwaremx[i].outtype,:outwaremx[i].dftsaleprice,
	:outwaremx[i].cost,:outwaremx[i].planqty,:outwaremx[i].relprintid,:outwaremx[i].relcode,
	:outwaremx[i].unit,:outwaremx[i].rate,:outwaremx[i].uqty,:outwaremx[i].overqty,
	:outwaremx[i].mtrlcuscode,:outwaremx[i].Location,:outwaremx[i].pricetype,:outwaremx[i].formula,
	:outwaremx[i].capacity,:outwaremx[i].ifpackpro,:outwaremx[i].ifpack,:outwaremx[i].outtype_mtrl,
	:outwaremx[i].saleqty,:outwaremx[i].saleoutid,:outwaremx[i].saleoutprintid,
	:outwaremx[i].mxdscrp2,:outwaremx[i].net_weight,:outwaremx[i].gross_weight,:outwaremx[i].cubage,
	:outwaremx[i].taxrate,:outwaremx[i].priceformula,:outwaremx[i].qtyformula,:outwaremx[i].iffp,
	:outwaremx[i].enacprice,:outwaremx[i].ifvqty,:outwaremx[i].backtype,:outwaremx[i].ifnotinout;
DO WHILE commit_transaction.SQLCode = 0
	
	sum_amt = sum_amt + Round( (outwaremx[i].saleqty * outwaremx[i].price) / ( 1 + outwaremx[i].taxrate) ,2) //计算单据总金额
	sum_amt_en = sum_amt_en + Round((outwaremx[i].saleqty * outwaremx[i].enacprice)  / ( 1 + outwaremx[i].taxrate),2) //计算单据总金额
	
	sum_taxamt = sum_taxamt + Round( ( outwaremx[i].saleqty * outwaremx[i].price * outwaremx[i].taxrate) / ( 1 + outwaremx[i].taxrate) ,2)
	sum_taxamt_en = sum_taxamt_en + Round( (outwaremx[i].saleqty * outwaremx[i].enacprice * outwaremx[i].taxrate) / ( 1 + outwaremx[i].taxrate),2)
	
	i++
	FETCH cur_outwaremx INTO :outwaremx[i].printid,:outwaremx[i].mtrlid,:outwaremx[i].plancode,
		:outwaremx[i].status,:outwaremx[i].qty,:outwaremx[i].fprice,
		:outwaremx[i].rebate,:outwaremx[i].price,
		:outwaremx[i].mxdscrp,:outwaremx[i].mtrlcode,
		:outwaremx[i].sptid,:outwaremx[i].dxflag,
		:outwaremx[i].mtrlwareid,:outwaremx[i].storageid,
		:outwaremx[i].costamt,:outwaremx[i].ifrel,
		:outwaremx[i].relid,:outwaremx[i].olmtrlid,:outwaremx[i].packqty,
		:outwaremx[i].woodcode,:outwaremx[i].pcode,:outwaremx[i].enprice,
		:outwaremx[i].newpriceamt,:outwaremx[i].outtype,:outwaremx[i].dftsaleprice,
		:outwaremx[i].cost,:outwaremx[i].planqty,:outwaremx[i].relprintid,:outwaremx[i].relcode,
		:outwaremx[i].unit,:outwaremx[i].rate,:outwaremx[i].uqty,:outwaremx[i].overqty,
		:outwaremx[i].mtrlcuscode,:outwaremx[i].Location,:outwaremx[i].pricetype,:outwaremx[i].formula,
		:outwaremx[i].capacity,:outwaremx[i].ifpackpro,:outwaremx[i].ifpack,:outwaremx[i].outtype_mtrl,
		:outwaremx[i].saleqty,:outwaremx[i].saleoutid,:outwaremx[i].saleoutprintid,
		:outwaremx[i].mxdscrp2,:outwaremx[i].net_weight,:outwaremx[i].gross_weight,:outwaremx[i].cubage,
		:outwaremx[i].taxrate,:outwaremx[i].priceformula,:outwaremx[i].qtyformula,:outwaremx[i].iffp,
		:outwaremx[i].enacprice,:outwaremx[i].ifvqty,:outwaremx[i].backtype,:outwaremx[i].ifnotinout;
LOOP
CLOSE cur_outwaremx;

//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck
	FROM u_outwaremx
	WHERE u_outwaremx.outwareid = :arg_outwareid
	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

//取计划价
FOR ll_i = 1 To i - 1
	ld_planprice = 0
	f_get_planprice_mtrl(outwaremx[ll_i].mtrlid,outwaremx[ll_i].status,outwaremx[ll_i].woodcode,outwaremx[ll_i].pcode,ld_planprice)
	IF IsNull(ld_planprice) THEN ld_planprice = 0
	outwaremx[ll_i].planprice = ld_planprice
NEXT


DECLARE cur_outwaremx_mx CURSOR FOR
SELECT u_outwaremx_mx.printid, u_outwaremx_mx.mxprintid, 
      u_outwaremx_mx.mtrlwareid, u_outwaremx_mx.storageid, u_outwaremx_mx.mtrlid, 
      u_outwaremx_mx.plancode, u_outwaremx_mx.status, u_outwaremx_mx.woodcode, 
      u_outwaremx_mx.pcode, u_outwaremx_mx.mtrlcuscode, u_outwaremx_mx.location, 
      u_outwaremx_mx.sptid, u_outwaremx_mx.dxflag, u_outwaremx_mx.planqty, 
      u_outwaremx_mx.qty, u_outwaremx_mx.mxdscrp, u_outwaremx_mx.ifnotinout, 
      u_mtrldef.ifpackpro, u_mtrldef.ifpack,u_mtrldef.mtrlcode
FROM u_outwaremx_mx INNER JOIN
      u_mtrldef ON u_outwaremx_mx.mtrlid = u_mtrldef.mtrlid
	WHERE u_outwaremx_mx.scid = :arg_scid
	AND u_outwaremx_mx.outwareid = :arg_outwareid
	Order By u_outwaremx_mx.mxprintid  Using commit_transaction;
	
OPEN cur_outwaremx_mx;
FETCH cur_outwaremx_mx INTO :outwaremx_mx[j].printid,:outwaremx_mx[j].mxprintid,
:outwaremx_mx[j].mtrlwareid,:outwaremx_mx[j].storageid,:outwaremx_mx[j].mtrlid,
:outwaremx_mx[j].plancode,:outwaremx_mx[j].status,:outwaremx_mx[j].woodcode,
:outwaremx_mx[j].pcode,:outwaremx_mx[j].mtrlcuscode,:outwaremx_mx[j].location,
:outwaremx_mx[j].sptid,:outwaremx_mx[j].dxflag,:outwaremx_mx[j].planqty,
	:outwaremx_mx[j].qty,:outwaremx_mx[j].mxdscrp,:outwaremx_mx[j].ifnotinout,
	:outwaremx_mx[j].ifpackpro, :outwaremx_mx[j].ifpack, :outwaremx_mx[j].mtrlcode;
	
DO WHILE commit_transaction.SQLCode = 0
	j++
	FETCH cur_outwaremx_mx INTO :outwaremx_mx[j].printid,:outwaremx_mx[j].mxprintid,
	:outwaremx_mx[j].mtrlwareid,:outwaremx_mx[j].storageid,:outwaremx_mx[j].mtrlid,
	:outwaremx_mx[j].plancode,:outwaremx_mx[j].status,:outwaremx_mx[j].woodcode,
	:outwaremx_mx[j].pcode,:outwaremx_mx[j].mtrlcuscode,:outwaremx_mx[j].location,
	:outwaremx_mx[j].sptid,:outwaremx_mx[j].dxflag,:outwaremx_mx[j].planqty,
		:outwaremx_mx[j].qty,:outwaremx_mx[j].mxdscrp,:outwaremx_mx[j].ifnotinout,
		:outwaremx_mx[j].ifpackpro, :outwaremx_mx[j].ifpack, :outwaremx_mx[j].mtrlcode;
LOOP

CLOSE cur_outwaremx_mx;

SELECT count(*) INTO :no_mxcheck
	FROM u_outwaremx_mx
	WHERE u_outwaremx_mx.outwareid = :arg_outwareid
	And scid = :arg_scid  Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,出仓单应发明细数量"
	GOTO ext
END IF

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

//用游标读取条码明细
IF li_outtype = 2 THEN
	DECLARE cur_outwaremx_barcode CURSOR FOR
		SELECT u_outwaremx_mx_barcode.barcode,
		u_outwaremx_mx_barcode.qty,
		u_mtrlware_mx.packqty,
		u_mtrlware_mx.mtrlwareid,
		u_outwaremx_mx_barcode.qty * u_mtrlware_mx.packqty
		FROM u_outwaremx_mx_barcode,u_mtrlware_mx
		WHERE u_outwaremx_mx_barcode.barcode = u_mtrlware_mx.barcode AND
		u_outwaremx_mx_barcode.outwareid = :arg_outwareid  AND
		u_outwaremx_mx_barcode.scid = :arg_scid AND
		u_outwaremx_mx_barcode.billtype = :billtype
		Order By u_outwaremx_mx_barcode.barcode Using commit_transaction;
		
	OPEN cur_outwaremx_barcode;
	FETCH cur_outwaremx_barcode INTO :s_mx_barcode[k].barcode,:s_mx_barcode[k].qty,
		:s_mx_barcode[k].packqty,:s_mx_barcode[k].mtrlwareid,:s_mx_barcode[k].outqty;
		
	DO WHILE commit_transaction.SQLCode = 0
		k++
		FETCH cur_outwaremx_barcode INTO :s_mx_barcode[k].barcode,:s_mx_barcode[k].qty,
			:s_mx_barcode[k].packqty,:s_mx_barcode[k].mtrlwareid,:s_mx_barcode[k].outqty;
	LOOP
	CLOSE cur_outwaremx_barcode;
	
	//检验明细是否读入完整
	SELECT count(*) INTO :no_mxcheck_barcode
		FROM u_outwaremx_mx_barcode
		WHERE u_outwaremx_mx_barcode.outwareid = :arg_outwareid
		AND u_outwaremx_mx_barcode.scid = :arg_scid
		And u_outwaremx_mx_barcode.billtype = :billtype Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,出仓单明细数量"
		GOTO ext
	END IF
	
	IF k <> (no_mxcheck_barcode+1) THEN
		rslt = 0
		arg_msg = "查询操作失败,出仓单条码明细"
		GOTO ext
	END IF
	
	it_mxbt_barcode = k - 1
END IF

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

//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck
	FROM u_outware_itemmx
	Where outwareid = :arg_outwareid 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

outwareid = arg_outwareid
scid = arg_scid

it_mxbt = i - 1
it_mxbt_mx = j - 1
it_mxbt_barcode = k - 1
it_newbegin = False
it_updatebegin = False
ext:

IF rslt = 0 THEN p_reset()

RETURN rslt





end function

public function integer add_dscrp (long arg_scid, long arg_outwareid, string arg_newdescppart, ref string arg_msg);Int rslt = 1

IF uo_option_confirmaudit_sale = -1000 THEN
	rslt = 0
	arg_msg = '选项:[025]销售单先确认后审核,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

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_outwareid,arg_msg)
IF rslt = 0 THEN GOTO ext

IF billtype = 1 and uo_option_confirmaudit_sale = 1 THEN
	IF priceflag = 0 THEN
		rslt = 0
		arg_msg = "单据未确认,不能增备注"
		GOTO ext
	END IF 
ELSE
	IF flag = 0 THEN
		rslt = 0
		arg_msg = "非审核状态下不可用"
		GOTO ext
	END IF
END IF

UPDATE u_outware
	SET dscrp = dscrp+' '+:arg_newdescppart
	WHERE outwareid = :outwareid
	AND scid = :scid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	ROLLBACK ;
	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
String ls_storagename
Int li_outtype,li_storagetype,li_if_pd_usebarcode
Decimal ld_sumnotoutqty

Decimal ld_assign_outqty,ld_outmx_qty,ld_sumnotoutqty_bill
Long ll_taskid,ll_taskprintid

DateTime null_dt
SetNull(null_dt)

s_cmplpackpro_ref_mtrlwareid_array s_mtrlwareid_array_rst

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

ins_ref_outwaremx = ins_empty_outwaremx
ins_ref_mxbt = 0


If f_aps_mrp_cklock(scid,arg_msg) = 0 Then
	rslt = 0
	Goto ext
End If


uo_mtrlware_assign uo_ma
uo_ma = Create uo_mtrlware_assign
uo_ma.commit_transaction = commit_transaction


//库存分配ds
datastore ds_out_assign
ds_out_assign = Create datastore
If thflag = 0 Then
	ds_out_assign.DataObject = 'ds_outwaremx_assign_cancel'
Else
	ds_out_assign.DataObject = 'ds_outwaremx_assign'
End If
ds_out_assign.SetTransObject(commit_transaction)

If storageid = 0 Then
	rslt = 0
	arg_msg = '没有正确的仓库'
	Goto ext
End If

If billtype <> 9 And Not (billtype = 3 And Pos(dscrp,'电脑生成的') > 0 And Pos(dscrp,'的领料单') > 0)  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 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
//

If outwareid = 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


Update u_outware
	Set Auditingrep = '',
	Auditingdate = :null_dt,
	flag = 0
	Where u_outware.outwareid = :outwareid
	And flag = 1
	And secflag = 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 billtype <> 19 Then
		//销售退货单更新分配明细
		If billtype = 21 And li_storagetype = 1 And li_outtype > 0 And thflag = 1 Then
			ll_taskid = 0
			ll_taskprintid = 0
			ld_assign_outqty = 0
			
			Select u_outwaremx.relid,
				u_outwaremx.relprintid
				Into :ll_taskid,
				:ll_taskprintid
				From u_outwaremx
				Where u_outwaremx.scid = :scid
				And u_outwaremx.outwareid = :relid //发货单id
				And u_outwaremx.printid = :outwaremx[i].olmtrlid
				Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售退货单(包件明细)行:'+String(i)+'查询相关发货单明细所属订单明细失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			If ll_taskid > 0 Then
				ds_out_assign.Retrieve(scid,outwaremx[i].mtrlwareid,ll_taskid,ll_taskprintid)
				
				If ds_out_assign.RowCount() > 0 Then
					ld_sumnotoutqty = ds_out_assign.Object.sumnotoutqty[1]
				Else
					ld_sumnotoutqty = 0
				End If
				
				ld_sumnotoutqty_bill = 0
				ld_sumnotoutqty_bill = Abs(outwaremx[i].qty)
				
				ds_out_assign.AcceptText()
				If ld_sumnotoutqty_bill > ld_sumnotoutqty Then
					arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售退货单(包件明细)行:'+String(i)+'订单库存分配数不足,请检查库存分配未出仓明细'
					rslt = 0
					Goto ext
				Else
					ld_assign_outqty = 0
					For j = 1 To ds_out_assign.RowCount()
						If ds_out_assign.Object.notoutqty[j] >= ld_sumnotoutqty_bill Then
							ld_assign_outqty = ld_sumnotoutqty_bill
							If uo_ma.uof_assign_addoutqty(ds_out_assign.Object.assignid[j],ld_assign_outqty,arg_msg,False) = 0 Then
								arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售退货单(包件明细)行:'+String(i)+','+arg_msg
								rslt = 0
								Goto ext
							End If
							Exit
						Else
							ld_assign_outqty = ds_out_assign.Object.notoutqty[j]
							If uo_ma.uof_assign_addoutqty(ds_out_assign.Object.assignid[j],ld_assign_outqty,arg_msg,False) = 0 Then
								arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售退货单(包件明细)行:'+String(i)+','+arg_msg
								rslt = 0
								Goto ext
							End If
							ld_sumnotoutqty_bill = ld_sumnotoutqty_bill - ds_out_assign.Object.notoutqty[j]
						End If
					Next
				End If
			End If
		End If
		
		
		If sys_option_inout_procedure = 0 Then
			If p_update_mtrlware ( outwaremx[i].mtrlwareid, outwaremx[i].mtrlid, &
				outwaremx[i].mtrlcode, storageid, outwaremx[i].plancode,&
				outwaremx[i].status, 0 - outwaremx[i].qty,0 - outwaremx[i].uqty,0 - outwaremx[i].costamt,&
				outwaremx[i].planprice, outwaremx[i].sptid,  outwaremx[i].dxflag,&
				outwaremx[i].woodcode,  outwaremx[i].pcode,outwaremx[i].mtrlcuscode,outwaremx[i].Location,outwaremx[i].ifvqty,arg_msg) = 0 Then
				arg_msg = '物料:'+outwaremx[i].mtrlcode+',行:'+String(i)+','+arg_msg
				rslt = 0
				Goto ext
			End If
		Else
			If uo_pro.p_outware_update_mtrlware(scid,outwareid,outwaremx[i].printid,outwaremx[i].mtrlwareid,&
				outwaremx[i].mtrlid,outwaremx[i].mtrlcode,storageid,outwaremx[i].plancode,outwaremx[i].status,&
				0 - outwaremx[i].qty,0 - outwaremx[i].uqty,0 - outwaremx[i].costamt,&
				outwaremx[i].planprice, outwaremx[i].sptid,outwaremx[i].dxflag,&
				outwaremx[i].woodcode,  outwaremx[i].pcode,outwaremx[i].mtrlcuscode,outwaremx[i].Location,arg_msg) =  0 Then
				arg_msg = '物料:'+outwaremx[i].mtrlcode+',行:'+String(i)+','+arg_msg
				rslt = 0
				Goto ext
			End If
		End If
		
		//发货单更新库存分配
		
		If billtype = 21 And li_storagetype = 1 And li_outtype > 0 And thflag = 0 Then
			ll_taskid = 0
			ll_taskprintid = 0
			ld_assign_outqty = 0
			
			Select u_outwaremx.relid,
				u_outwaremx.relprintid
				Into :ll_taskid,
				:ll_taskprintid
				From u_outwaremx
				Where u_outwaremx.scid = :scid
				And u_outwaremx.outwareid = :relid
				And u_outwaremx.printid = :outwaremx[i].olmtrlid
				Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '物料:'+outwaremx[i].mtrlcode+',销售出仓单明细行:'+String(i)+'查询相关发货单明细所属订单明细失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			If ll_taskid > 0 Then
				ds_out_assign.Retrieve(scid,outwaremx[i].mtrlwareid,ll_taskid,ll_taskprintid)
				
				If ds_out_assign.RowCount() > 0 Then
					ld_sumnotoutqty = ds_out_assign.Object.sumnotoutqty[1]
				Else
					ld_sumnotoutqty = 0
				End If
				
				ds_out_assign.AcceptText()
				
				ld_outmx_qty = outwaremx[i].qty
				If ld_outmx_qty > ld_sumnotoutqty Then
					arg_msg = '物料:'+outwaremx[i].mtrlcode+',行:'+String(i)+'订单库存分配已出仓数不足,不能撤审,请检查库存分配已出仓明细'
					rslt = 0
					Goto ext
				Else
					ld_assign_outqty = 0
					For j = 1 To ds_out_assign.RowCount()
						If ds_out_assign.Object.notoutqty[j] >= ld_outmx_qty Then
							ld_assign_outqty = ld_outmx_qty
							If uo_ma.uof_assign_addoutqty(ds_out_assign.Object.assignid[j],0 - ld_assign_outqty,arg_msg,False) = 0 Then
								arg_msg = '物料:'+outwaremx[i].mtrlcode+',行:'+String(i)+','+arg_msg
								rslt = 0
								Goto ext
							End If
							Exit
						Else
							ld_assign_outqty = ds_out_assign.Object.notoutqty[j]
							If uo_ma.uof_assign_addoutqty(ds_out_assign.Object.assignid[j],0 - ld_assign_outqty,arg_msg,False) = 0 Then
								arg_msg = '物料:'+outwaremx[i].mtrlcode+',行:'+String(i)+','+arg_msg
								rslt = 0
								Goto ext
							End If
							ld_outmx_qty = ld_outmx_qty - ds_out_assign.Object.notoutqty[j]
						End If
					Next
				End If
			End If
		End If
	Else
		If sys_option_inout_procedure = 0 Then
			If p_update_mtrlware_ws( outwaremx[i].mtrlwareid, outwaremx[i].mtrlid, &
				outwaremx[i].mtrlcode, storageid, outwaremx[i].plancode,&
				outwaremx[i].status, 0 - outwaremx[i].qty,0 - outwaremx[i].uqty,0 - outwaremx[i].costamt,&
				outwaremx[i].planprice, outwaremx[i].sptid,  outwaremx[i].dxflag,&
				outwaremx[i].woodcode,  outwaremx[i].pcode,outwaremx[i].mtrlcuscode,outwaremx[i].Location,arg_msg) = 0 Then
				arg_msg = '物料:'+outwaremx[i].mtrlcode+',行:'+String(i)+','+arg_msg
				rslt = 0
				Goto ext
			End If
		Else
			If uo_pro.p_outware_update_mtrlware(scid,outwareid,outwaremx[i].printid,outwaremx[i].mtrlwareid,&
				outwaremx[i].mtrlid,outwaremx[i].mtrlcode,storageid,outwaremx[i].plancode,outwaremx[i].status,&
				0 - outwaremx[i].qty,0 - outwaremx[i].uqty,0 - outwaremx[i].costamt,&
				outwaremx[i].planprice, outwaremx[i].sptid,outwaremx[i].dxflag,&
				outwaremx[i].woodcode,  outwaremx[i].pcode,outwaremx[i].mtrlcuscode,outwaremx[i].Location,arg_msg) =  0 Then
				arg_msg = '物料:'+outwaremx[i].mtrlcode+',行:'+String(i)+','+arg_msg
				rslt = 0
				Goto ext
			End If
		End If
	End If
	
	If li_outtype = 2 And outwaremx[i].outtype_mtrl = 2 Then mx_barcode_cnt++
	
	//yyx2012-9-29返回计算可装数库存id数组
	If billtype <> 23 And ( outwaremx[i].ifpack = 1 Or outwaremx[i].ifpack = 2 Or outwaremx[i].ifpackpro = 3 Or outwaremx[i].ifpackpro = 4 ) And uo_option_mtrlware_autocmp = 1 Then
		If uo_option_noauditingqty_mode = 0 Then
			If uo_cmpl_p.uof_ref_mtrlwarid_array(outwaremx[i].mtrlid,outwaremx[i].plancode,outwaremx[i].mtrlcuscode,storageid,s_mtrlwareid_array_rst,arg_msg) = 0 Then
				rslt = 0
				Goto ext
			End If
		Else
			ins_ref_mxbt++
			ins_ref_outwaremx[ins_ref_mxbt].mtrlid = outwaremx[i].mtrlid
			ins_ref_outwaremx[ins_ref_mxbt].plancode = outwaremx[i].plancode
			ins_ref_outwaremx[ins_ref_mxbt].mtrlcuscode = outwaremx[i].mtrlcuscode
			ins_ref_outwaremx[ins_ref_mxbt].storageid = storageid
		End If
	End If
	//
Next

//更新条码
If li_outtype = 2 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_pd_py_check_barcode )) Then
	If uof_p_barcode(0,arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
End If

//增加已开单数
If billtype <> 21 And billtype <> 12 Then
	If uof_noauditingqty_add(scid,billtype,relint_1,arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
End If

//yyx2012-9-29返回计算可装数库存id数组计算可装数
If billtype <> 23 And UpperBound(s_mtrlwareid_array_rst.mtrlwareid) > 0  And uo_option_mtrlware_autocmp = 1 Then
	If uo_option_noauditingqty_mode = 0 Then
		If uo_cmpl_p.uof_cmpl_diqty(s_mtrlwareid_array_rst,arg_msg) = 0 Then
			rslt = 0
			Goto ext
		End If
	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 ds_out_assign
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_outwareid, ref string arg_msg);//p_getinfo(arg_scid,arg_outwareid,arg_msg)
//0 失败  1成功
Int rslt = 1

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

SELECT  u_outware.outwarecode,
	u_outware.billtype,
	u_outware.relid,
	u_outware.storageid,
	u_outware.outdate,
	u_outware.outrep,
	u_outware.part,
	u_outware.cusid,
	u_outware.cusname,
	u_outware.dscrp,
	u_outware.thflag,
	u_outware.flag,
	u_outware.secflag,
	u_outware.balcflag,
	u_outware.relstr_1,
	u_outware.relstr_2,
	u_outware.relstr_3,
	u_outware.relint_1,
	u_outware.relint_2,
	u_outware.relint_3,
	u_outware.priceflag,
	u_outware.otheramt,
	u_outware.damt,
	u_outware.rel_address,
	u_outware.rel_tele,
	u_outware.rel_fax,
	u_outware.rel_rep,
	u_outware.mrate,
	u_outware.upname,
	u_outware.ctmint,
	u_outware.ifauto,
	u_outware.viewdate,
	u_outware.deptid,
	u_outware.carcode,
	u_outware.transcode,
	u_outware.pda_flag,
	u_outware.pda_date,
	u_outware.typeid,
	u_outware.exchangeid,
	u_outware.balcdateint,
	u_outware.relint_4,
	u_outware.station_address
	INTO :outwarecode,
	:billtype,
	:relid,
	:storageid,
	:outdate,
	:outrep,
	:part,
	:cusid,
	:cusname,
	:dscrp,
	:thflag,
	:flag,
	:secflag,
	:balcflag,
	:relstr_1,
	:relstr_2,
	:relstr_3,
	:relint_1,
	:relint_2,
	:relint_3,
	:priceflag,
	:otheramt,
	:damt,
	:rel_address,
	:rel_tele,
	:rel_fax,
	:rel_rep,
	:mrate,
	:upname,
	:ctmint,
	:ifauto,
	:viewdate,
	:deptid,
	:carcode,
	:transcode,
	:pda_flag,
	:pda_date,
	:typeid,
	:exchangeid,
	:balcdateint,
	:relint_4,
	:station_address
	FROM u_outware
	WHERE u_outware.outwareid = :arg_outwareid
	AND scid = :arg_scid   USING commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arG_MSG = "查询操作失败(错误出仓单唯一码),出仓单,"+string(arg_outwareid)+','+string(commit_transaction.SQLCode)+'~n'+commit_transaction.SQLErrText
	GOTO ext
END IF

outwareid = arg_outwareid
scid = arg_scid

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

end function

public function integer p_reset ();//int p_reset()
//清除对象及其明细
scid = 0
outwareid = 0
outwarecode = ''
billtype = 0
opemp = ''
modemp = ''
auditingrep = ''
secauditingrep = ''
flag = 0
secflag = 0
relid = 0
storageid = 0
outrep = ''
part = ''
dscrp = ''
cusid = 0
cusname = ''
thflag = 0
otheramt = 0
damt = 0
rel_address = ''
rel_tele = ''
rel_fax = ''
rel_rep= ''
deptid = 0
station_address = ''

exchangeid = 0
balcdateint = 0
relint_4 = 0

carcode = ''
transcode = ''
typeid = 0

it_newbegin = FALSE
it_updatebegin = FALSE

//清除明细
p_clearmx()
RETURN 1



end function

public function integer p_update_cost (long arg_mtrlwareid, string arg_mtrlcode, decimal arg_qty, long arg_printid, ref decimal arg_ref_costamt, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Decimal ld_cost,ld_cost_cmpl,ld_noallocqty,ld_wareamt

Long ll_storagescid
SELECT scid INTO :ll_storagescid
	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

//yyx2012-9-21 storageid = :storageid 这个无用
//SELECT cost INTO :ld_cost
//	FROM u_mtrlware
//	WHERE storageid = :storageid
//	AND mtrlwareid = :arg_mtrlwareid
//	AND scid = :ll_storagescid USING commit_transaction;
//IF commit_transaction.SQLCode <> 0 THEN
//	arg_msg = '查询'+arg_mtrlcode+'库存成本价失败,'+commit_transaction.SQLErrText
//	rslt = 0
//	GOTO ext
//END IF

SELECT u_mtrlware.cost,u_mtrlware.noallocqty,u_mtrlware.wareamt
	INTO :ld_cost,:ld_noallocqty,:ld_wareamt
	FROM u_mtrlware
	WHERE u_mtrlware.mtrlwareid = :arg_mtrlwareid
	And u_mtrlware.scid = :ll_storagescid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询'+arg_mtrlcode+'库存成本价失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

//yyx2013-8-31
IF ld_noallocqty = 0 THEN
	ld_cost = ld_cost
ELSE
	ld_cost_cmpl = Round(ld_wareamt/ld_noallocqty,uo_option_cost_dec)
	
	IF ld_cost <> ld_cost_cmpl THEN
		ld_cost = ld_cost_cmpl
	END IF
END IF
//yyx2013-8-31_end

arg_ref_costamt = Round(ld_cost * arg_qty ,2)

UPDATE u_outwaremx
	SET costamt = :arg_ref_costamt,
	cost = :ld_cost
	WHERE scid = :scid
	AND outwareid = :outwareid
	And printid = :arg_printid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '更新'+arg_mtrlcode+'出仓成本价失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF billtype = 3 Or &
	billtype = 4 Or &
	billtype = 8 Or &
	billtype = 9 Or &
	billtype = 12 Or &
	billtype = 24 THEN
	UPDATE u_outwaremx
		SET u_outwaremx.fprice = :ld_cost,
		u_outwaremx.price = :ld_cost
		WHERE scid = :scid
		AND outwareid = :outwareid
		And printid = :arg_printid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '更新'+arg_mtrlcode+'出仓面价失败,'+commit_transaction.SQLErrText
		rslt = 0
		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 del (long arg_scid, long arg_outwareid, integer arg_ifcheck_auto, ref string arg_msg, boolean arg_ifcommit);//如果单据还没有审核删除单据极其明细
//0 FAIL, 1 SUCCESS

Int rslt = 1
Long i

s_cmplpackpro_ref_mtrlwareid_array s_mtrlwareid_array_rst

ins_ref_outwaremx = ins_empty_outwaremx
ins_ref_mxbt = 0


If uo_option_disuse_outware_sale = -1000 Then
	rslt = 0
	arg_msg = '选项:[292]启用销售发货单废弃单,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_confirmaudit_sale = -1000 Then
	rslt = 0
	arg_msg = '选项:[025]销售单先确认后审核,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_confirmaudit_scll = -1000 Then
	rslt = 0
	arg_msg = '选项:[006]生产领料单先确认后审核,读取初始默认值失败,操作取消!'
	Goto ext
End If

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

If getinfo(arg_scid,arg_outwareid,arg_msg) = 0 Then
	rslt = 0
	Goto ext
End If

//IF ( billtype = 1 or billtype = 5 ) AND uo_option_autowaste = 1 THEN
//	uo_outware_waste uo_waste
//	uo_waste = CREATE uo_outware_waste
//	uo_waste.commit_transaction = commit_transaction
//	IF uo_waste.insertwaste(0,arg_scid,arg_outwareid,arG_MSG,FALSE) = 0 THEN
//		rslt = 0
//		GOTO ext
//	END IF
//	
//	DESTROY uo_waste
//END IF

If ( billtype = 1 Or billtype = 5 ) And uo_option_confirmaudit_sale = 1 Then
	If priceflag = 1 Then
		arg_msg = '单据已确认,不能删除'
		rslt = 0
		Goto ext
	End If
End If

If billtype = 3 And relint_1 = 0 And uo_option_confirmaudit_scll = 1 Then
	If priceflag = 1 Then
		arg_msg = '单据已确认,不能删除'
		rslt = 0
		Goto ext
	End If
End If

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

If arg_ifcheck_auto = 1 Then
	If ifauto = 1 Then
		rslt = 0
		arg_msg = '单据为动建立的单据,不可以删除'
		Goto ext
	End If
End If

If billtype = 1 And thflag = 0 And uo_option_disuse_outware_sale = 1 Then
	If uof_disuse(arg_scid,arg_outwareid,1,arg_msg,False) = 0 Then
		rslt = 0
		Goto ext
	End If
End If

If uo_option_outware_pack_save_cmp = 1 And  billtype <> 23 And uo_option_mtrlware_autocmp = 1  Then
	For i = 1 To it_mxbt
		If  ( outwaremx[i].ifpack = 1 Or outwaremx[i].ifpack = 2 Or outwaremx[i].ifpackpro = 3 Or outwaremx[i].ifpackpro = 4 ) Then
			ins_ref_mxbt++
			ins_ref_outwaremx[ins_ref_mxbt].mtrlid = outwaremx[i].mtrlid
			ins_ref_outwaremx[ins_ref_mxbt].plancode = outwaremx[i].plancode
			ins_ref_outwaremx[ins_ref_mxbt].mtrlcuscode = outwaremx[i].mtrlcuscode
			ins_ref_outwaremx[ins_ref_mxbt].storageid = storageid
		End If
	Next
End If

//更新库存已开单数(减)
If billtype <> 21 And billtype <> 12 Then
	If uof_noauditingqty_del(arg_scid,arg_outwareid,arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
End If


Delete From u_outware
	Where u_outware.outwareid = :arg_outwareid
	And u_outware.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_outwaremx
	Where u_outwaremx.outwareid = :arg_outwareid
	And u_outwaremx.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_outwaremx_mx
	Where u_outwaremx_mx.outwareid = :arg_outwareid
	And u_outwaremx_mx.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_outwaremx_mx_barcode
	Where u_outwaremx_mx_barcode.outwareid = :arg_outwareid
	And u_outwaremx_mx_barcode.scid = :arg_scid
	And u_outwaremx_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_outware_itemmx
	Where u_outware_itemmx.outwareid = :arg_outwareid
	And u_outware_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

it_newbegin = False
it_updatebegin = False

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

Return (rslt)



end function

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

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
Int li_ifcost

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,scid,ifcost INTO :li_storMtrlprp,:ll_storagescid,: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

Int li_ifupdate_date
String ls_str
String or_err_part

IF billtype = 1 Or &
	billtype = 2 Or &
	billtype = 3 Or &
	billtype = 4 Or &
	billtype = 5 Or &
	billtype = 7 Or &
	billtype = 8 Or &
	billtype = 10 THEN
	li_ifupdate_date = 1
ELSE
	li_ifupdate_date = 0
END IF

IF li_ifunit = 0 THEN arg_uqty = 0

IF li_ifcost = 1 THEN
	
	UPDATE u_mtrlware
		SET noallocqty = noallocqty - :arg_qty ,
		wsallocqty = wsallocqty - :arg_qty,
		unoallocqty = unoallocqty - :arg_uqty,
		capacity = capacity + :ld_capacity * :arg_qty,
		wareamt = case noallocqty - :arg_qty when 0 then 0 else wareamt - :arg_costamt END ,
		cost = case noallocqty  - :arg_qty when 0 then cost else round((wareamt - :arg_costamt)/(noallocqty - :arg_qty),:uo_option_cost_dec) END ,
		saledate = case :li_ifupdate_date when 1 then getdate() else saledate END
		WHERE ( mtrlwareid = :arg_mtrlwareid ) AND
		( scid = :ll_storagescid ) Using commit_transaction  ;
	IF commit_transaction.SQLCode = 0 THEN
		IF commit_transaction.SQLNRows = 0 THEN
			
			ls_newid = f_sys_scidentity(ll_storagescid,"u_mtrlware","mtrlwareid",arg_msg,True,id_sqlca)
			IF ls_newid <= 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			ld_cost = Round(arg_costamt/arg_qty,uo_option_cost_dec)
			INSERT INTO u_mtrlware
				( scid,
				mtrlwareid,
				mtrlid,
				storageid,
				plancode,
				status,
				noallocqty,
				unoallocqty,
				wareamt,
				planprice,
				sptid,
				dxflag,
				woodcode,
				pcode,
				cost,
				storMtrlprp,
				mtrlcuscode,
				location,
				capacity,
				wsallocqty)
				VALUES (
				:ll_storagescid,
				:ls_newid,
				:arg_mtrlid,
				:arg_storageid,
				:arg_plancode,
				:arg_status,
				:arg_qty,
				:arg_uqty,
				:arg_costamt,
				:arg_planprice,
				:arg_sptid,
				:arg_dxflag,
				:arg_woodcode,
				:arg_pcode,
				:ld_cost,
				:li_storMtrlprp,
				: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+' '+uo_option_change_status+':'+arg_status+' '+uo_option_change_pcode+':'+arg_pcode+' '+uo_option_change_woodcode+':'+arg_woodcode+"库存更新操作失败"+"~n"+commit_transaction.SQLErrText
		END IF
		GOTO ext
	END IF
	
ELSE
	
	UPDATE u_mtrlware
		SET noallocqty = noallocqty - :arg_qty ,
		wsallocqty = wsallocqty - :arg_qty,
		unoallocqty = unoallocqty - :arg_uqty,
		capacity = capacity + :ld_capacity * :arg_qty,
		wareamt = 0 ,
		cost = 0 ,
		saledate = case :li_ifupdate_date when 1 then getdate() else saledate END
		WHERE ( mtrlwareid = :arg_mtrlwareid ) AND
		( scid = :ll_storagescid ) Using commit_transaction  ;
	IF commit_transaction.SQLCode = 0 THEN
		IF commit_transaction.SQLNRows = 0 THEN
			ls_newid = f_sys_scidentity(ll_storagescid,"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,
				mtrlcuscode,
				location,
				capacity,
				wsallocqty)
				VALUES (
				:ll_storagescid,
				: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_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+' '+uo_option_change_status+':'+arg_status+' '+uo_option_change_pcode+':'+arg_pcode+' '+uo_option_change_woodcode+':'+arg_woodcode+"库存更新操作失败"+"~n"+commit_transaction.SQLErrText
		END IF
		GOTO ext
	END IF
END IF

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







end function

public function integer uof_p_barcode (integer arg_audittype, ref string arg_msg);Int rslt = 1
Long i
Long ll_scid,ll_mtrlwareid
Int li_storagetype_storage
String ls_location_top1

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

uo_getbar uo_gb
uo_gb = Create uo_getbar

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 uo_gb.uof_barcode_out(s_mx_barcode[i].barcode,arg_audittype,False,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	ELSE
		IF arg_audittype = 1 THEN
			
			IF uo_option_barcodelocation_use_inwaremx_location = 0 THEN
				ls_location_top1 = ''
			ELSE
				SELECT top 1 u_outwaremx.location
					INTO :ls_location_top1
					FROM u_outwaremx
					WHERE u_outwaremx.scid = :scid
					AND u_outwaremx.outwareid = :outwareid
					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
		ELSE
			ll_scid = 0
			ll_mtrlwareid = 0
		END IF	
		
		IF uo_gb.uof_barcode_in(s_mx_barcode[i].barcode,&
			ll_scid,ll_mtrlwareid,'',0,0,arg_audittype,0,False,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
NEXT

ext:
IF rslt = 0 THEN
	ROLLBACK;
END IF

Destroy uo_getbar
RETURN rslt




end function

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

INSERT INTO u_outwaremx_mx_barcode
	(billtype,scid,outwareid,barcode,qty)
	VALUES
	(:arg_billtype,
	:arg_scid,:arg_outwareid,:arg_barcode,:arg_qty);
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '出仓明细保存条码失败,条码:'+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 priceaudit (boolean arg_ifcommit, ref string arg_msg);Long rslt = 1,i

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

UPDATE u_outware
	SET priceemp = :publ_operator,
	pricedate = getdate(),
	priceflag = 1
	WHERE u_outware.outwareid = :outwareid
	AND priceflag = 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

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 c_priceaudit (boolean arg_ifcommit, ref string arg_msg);Long rslt = 1,i
DateTime null_dt

SetNull(null_dt)

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

IF flag = 1 THEN
	rslt = 0
	arg_msg = "单据已仓审,不能反确认"
	GOTO ext
END IF	

IF it_mxbt_barcode > 0 THEN
	arg_msg = '单据已扫描条码,不能反确认,如果要反确认,请先清除条码'
	rslt = 0
	GOTO ext
END IF

UPDATE u_outware
	SET priceemp = '',
	pricedate = :null_dt,
	priceflag = 0
	WHERE u_outware.outwareid = :outwareid
	AND priceflag = 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

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 uof_set_qty_equal_bqty (long arg_scid, long arg_outwareid, 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
Long ll_mtrlware_arr[]
Decimal ld_outqty_arr[],ld_updateqty

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

IF getinfo(arg_scid,arg_outwareid,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 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
	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

UPDATE u_outwaremx
	SET u_outwaremx.uqty = 0,
	u_outwaremx.qty = 0
	FROM u_outwaremx,u_mtrldef
	WHERE u_outwaremx.scid = :arg_scid
	AND u_outwaremx.outwareid = :arg_outwareid
	AND u_outwaremx.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 outwaremx[ll_i].outtype_mtrl <> 2 THEN CONTINUE
	
	FOR ll_k = 1 TO UpperBound(ll_mtrlware_arr)
		IF ld_outqty_arr[ll_k] = 0 THEN CONTINUE
		IF outwaremx[ll_i].mtrlwareid = ll_mtrlware_arr[ll_k] THEN
			IF outwaremx[ll_i].qty >= ld_outqty_arr[ll_k] THEN
				ld_updateqty = ld_outqty_arr[ll_k]
				ld_outqty_arr[ll_k] = 0
			ELSE
				ld_updateqty = outwaremx[ll_i].qty
				ld_outqty_arr[ll_k] = ld_outqty_arr[ll_k] - outwaremx[ll_i].qty
			END IF
			EXIT
		END IF
	NEXT
	
	IF ld_updateqty > 0 THEN
		UPDATE u_outwaremx
			SET u_outwaremx.uqty = :ld_updateqty,
			u_outwaremx.qty = :ld_updateqty
			WHERE u_outwaremx.scid = :arg_scid
			AND u_outwaremx.outwareid = :arg_outwareid
			AND u_outwaremx.printid = :outwaremx[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_check_qty_to_bqty (ref string arg_msg);Int rslt = 1
Long ll_j,ll_k
Long ll_f,ll_arr,ll_find
String ls_mtrlcode_array[],ls_mtrlcode
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++
			ls_mtrlcode_array[ll_arr] = outwaremx_mx[ll_j].mtrlcode
			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
		IF outwaremx[ll_j].outtype_mtrl <> 2 THEN CONTINUE
		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++
			ls_mtrlcode_array[ll_arr] = outwaremx[ll_j].mtrlcode
			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
	
	ll_find = 0
	FOR ll_k = 1 To UpperBound(ll_mtrlware_arr)
		IF ll_mtrlware_arr_bill[ll_j] = ll_mtrlware_arr[ll_k] THEN
			ll_find = ll_k
			IF ld_outqty_arr_bill[ll_j] = ld_outqty_arr[ll_k] THEN
				lb_equal = True
				EXIT
			END IF
		END IF
	NEXT
	
	IF Not lb_equal THEN
		IF ll_find = 0 THEN
			arg_msg = '出仓明细:'+ls_mtrlcode_array[ll_j]+',按条码出仓物料的出仓数:'+String( ld_outqty_arr_bill[ll_j],'#0.##########')+',与条码扫描明细数量:0,不相等请检查'
		ELSE
			arg_msg = '出仓明细:'+ls_mtrlcode_array[ll_j]+',按条码出仓物料的出仓数:'+String( ld_outqty_arr_bill[ll_j],'#0.##########')+',与条码扫描明细数量:'+String( ld_outqty_arr[ll_find],'#0.##########')+',不相等请检查'
		END IF
		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
	
	ll_find = 0
	FOR ll_k = 1 To UpperBound(ll_mtrlware_arr_bill)
		IF ll_mtrlware_arr[ll_j] = ll_mtrlware_arr_bill[ll_k] THEN
			ll_find = ll_k
			IF ld_outqty_arr[ll_j] = ld_outqty_arr_bill[ll_k] THEN
				lb_equal = True
				EXIT
			END IF
		END IF
	NEXT
	
	IF Not lb_equal THEN
		ls_mtrlcode = ''
		SELECT u_mtrldef.mtrlcode INTO :ls_mtrlcode
			FROM u_mtrlware,u_mtrldef
			WHERE u_mtrlware.mtrlid = u_mtrldef.mtrlid
			AND u_mtrlware.scid = :scid
			And u_mtrlware.mtrlwareid = :ll_mtrlware_arr[ll_j] Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '查询条码库存id:'+String(ll_mtrlware_arr[ll_j])+',查询物料编码失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF ll_find = 0 THEN
			arg_msg = '条码扫描明细物料:'+ls_mtrlcode+',数量:'+String( ld_outqty_arr[ll_j],'#0.##########')+',与出仓明细按条码出仓物料的出仓数:0,不相等,请检查'
		ELSE
			arg_msg = '条码扫描明细物料:'+ls_mtrlcode+',数量:'+String( ld_outqty_arr[ll_j],'#0.##########')+',与出仓明细按条码出仓物料的出仓数:'+String( ld_outqty_arr_bill[ll_find],'#0.##########')+',不相等,请检查'
		END IF
		rslt = 0
		GOTO ext
	END IF
NEXT


ext:
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_outware
	SET secauditingrep = :publ_operator,
	secauditingdate = getdate(),
	secflag = 1
	WHERE outwareid = :outwareid
	AND secflag = 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

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_outware
	SET secauditingrep = '',
	secauditingdate = :null_dt,
	secflag = 0
	WHERE outwareid = :outwareid
	AND secflag = 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

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_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++

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


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



end function

public function integer acceptmx (long arg_mtrlwareid, decimal arg_qty, decimal arg_fprice, decimal arg_rebate, string arg_mxdscrp, long arg_printid, ref string arg_msg, integer arg_ifrel, long arg_relid, long arg_olmtrlid, long arg_packqty, string arg_outtype, decimal arg_planqty, long arg_relprintid, string arg_unit, decimal arg_uqty, decimal arg_rate, string arg_pricetype, string arg_formula, long arg_saleoutid, long arg_saleoutprintid, string arg_mxdscrp2, decimal arg_net_weight, decimal arg_gross_weight, decimal arg_cubage, decimal arg_taxrate, string arg_priceformula, string arg_qtyformula);
s_outwaremx s_mx

s_mx.mtrlwareid   = arg_mtrlwareid    	
s_mx.qty   = arg_qty           	
s_mx.fprice   = arg_fprice        	
s_mx.rebate  = arg_rebate        	
s_mx.mxdscrp  = arg_mxdscrp       	
s_mx.printid  = arg_printid       	
s_mx.ifrel  = arg_ifrel         	
s_mx.relid    = arg_relid         	
s_mx.olmtrlid  = arg_olmtrlid      	
s_mx.packqty  = arg_packqty       	
s_mx.outtype  = arg_outtype       	
s_mx.planqty  = arg_planqty       	
s_mx.relprintid  = arg_relprintid    	
s_mx.unit  = arg_unit          	
s_mx.uqty  = arg_uqty          	
s_mx.rate  = arg_rate          	
s_mx.pricetype  = arg_pricetype     	
s_mx.formula  = arg_formula       	
s_mx.saleoutid  = arg_saleoutid     	
s_mx.saleoutprintid  = arg_saleoutprintid	
s_mx.mxdscrp2   = arg_mxdscrp2      	
s_mx.net_weight  = arg_net_weight    	
s_mx.gross_weight  = arg_gross_weight  	
s_mx.cubage  = arg_cubage        	
s_mx.taxrate  = arg_taxrate       	
s_mx.priceformula  = arg_priceformula  	
s_mx.qtyformula  = arg_qtyformula 

return acceptmx(s_mx, arg_msg)


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 uof_disuse (long arg_scid, long arg_outwareid, 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_outware_disuse
	Where scid = :arg_scid
	And outwareid = :arg_outwareid 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_outware_disuse
	(scid, outwareid, outwarecode, billtype, relid, StorageID, opdate, opemp, Modemp,
	moddate, flag, auditingdate, auditingrep, outdate, outrep, part, dscrp, cusid, cusname,
	balcflag, balcdateint, thflag, secflag, secauditingdate, secauditingrep, ctmint,
	printnum, wagemth, otheramt, relstr_1, relstr_2, relstr_3, relint_1, relint_2, relint_3,
	priceflag, pricedate, priceemp, rel_address, rel_tele, rel_fax, rel_rep, mrate, damt,
	upname, ifauto, viewdate, deptid, senduser, sendcnt, sendtime, pda_flag, pda_date,
	carcode, transcode, lsflag, totalamt, getamt, moneyname, banktypename,
	storagename, disuseemp, disusedate, disusetype, disuseid)
	Select u_outware.scid, u_outware.outwareid, u_outware.outwarecode, u_outware.billtype,
	u_outware.relid, u_outware.StorageID, u_outware.opdate, u_outware.opemp,
	u_outware.Modemp, u_outware.moddate, u_outware.flag, u_outware.auditingdate,
	u_outware.auditingrep, u_outware.outdate, u_outware.outrep, u_outware.part,
	u_outware.dscrp, u_outware.cusid, u_outware.cusname, u_outware.balcflag,
	u_outware.balcdateint, u_outware.thflag, u_outware.secflag,
	u_outware.secauditingdate, u_outware.secauditingrep, u_outware.ctmint,
	u_outware.printnum, u_outware.wagemth, u_outware.otheramt, u_outware.relstr_1,
	u_outware.relstr_2, u_outware.relstr_3, u_outware.relint_1, u_outware.relint_2,
	u_outware.relint_3, u_outware.priceflag, u_outware.pricedate, u_outware.priceemp,
	u_outware.rel_address, u_outware.rel_tele, u_outware.rel_fax, u_outware.rel_rep,
	u_outware.mrate, u_outware.damt, u_outware.upname, u_outware.ifauto,
	u_outware.viewdate, u_outware.deptid, u_outware.senduser, u_outware.sendcnt,
	u_outware.sendtime, u_outware.pda_flag, u_outware.pda_date, u_outware.carcode,
	u_outware.transcode, u_outware.lsflag, u_outware.totalamt, u_outware.getamt,
	cw_currency.name, cw_banktype.banktypename, u_storage.storagename,
	:publ_operator,getdate(),:arg_disusetype,:ll_disuseid
	From u_outware LEFT Outer JOIN
	u_storage ON u_outware.StorageID = u_storage.storageid LEFT Outer JOIN
	cw_banktype ON u_outware.relint_1 = cw_banktype.banktypeid LEFT Outer JOIN
	cw_currency ON u_outware.relint_2 = cw_currency.moneyid
	Where u_outware.scid = :arg_scid
	And u_outware.outwareid = :arg_outwareid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '插入销售发货单废弃单失败,'+commit_transaction.SQLErrText
	Goto ext
End If

Insert Into u_outwaremx_disuse
	(scid, outwareid, printid, mtrlwareid, mtrlid, storageid, plancode, status, qty, fprice,
	rebate, price, costamt, planprice, mxdscrp, Sptid, Dxflag, ifrel, olmtrlid, relid, packqty,
	woodcode, relcode, pcode, enprice, newpriceamt, ctmint, outtype, dftsaleprice, cost,
	planqty, relprintid, uqty, rate, unit, scidprice, outtypestr, overqty, mtrlcuscode,
	location, pricetype, formula, capacity, saleqty, saleoutid, saleoutprintid, net_weight,
	gross_weight, cubage, mxdscrp2, taxrate, priceformula, qtyformula, mtrlwareprintid,
	mtrlcode, mtrlname,disuseid)
	Select u_outwaremx.scid, u_outwaremx.outwareid, u_outwaremx.printid,
	u_outwaremx.mtrlwareid, u_outwaremx.mtrlid, u_outwaremx.storageid,
	u_outwaremx.plancode, u_outwaremx.status, u_outwaremx.qty, u_outwaremx.fprice,
	u_outwaremx.rebate, u_outwaremx.price, u_outwaremx.costamt,
	u_outwaremx.planprice, u_outwaremx.mxdscrp, u_outwaremx.Sptid,
	u_outwaremx.Dxflag, u_outwaremx.ifrel, u_outwaremx.olmtrlid, u_outwaremx.relid,
	u_outwaremx.packqty, u_outwaremx.woodcode, u_outwaremx.relcode,
	u_outwaremx.pcode, u_outwaremx.enprice, u_outwaremx.newpriceamt,
	u_outwaremx.ctmint, u_outwaremx.outtype, u_outwaremx.dftsaleprice,
	u_outwaremx.cost, u_outwaremx.planqty, u_outwaremx.relprintid, u_outwaremx.uqty,
	u_outwaremx.rate, u_outwaremx.unit, u_outwaremx.scidprice,
	u_outwaremx.outtypestr, u_outwaremx.overqty, u_outwaremx.mtrlcuscode,
	u_outwaremx.location, u_outwaremx.pricetype, u_outwaremx.formula,
	u_outwaremx.capacity, u_outwaremx.saleqty, u_outwaremx.saleoutid,
	u_outwaremx.saleoutprintid, u_outwaremx.net_weight, u_outwaremx.gross_weight,
	u_outwaremx.cubage, u_outwaremx.mxdscrp2, u_outwaremx.taxrate,
	u_outwaremx.priceformula, u_outwaremx.qtyformula, u_outwaremx.mtrlwareprintid,
	u_mtrldef.mtrlcode, u_mtrldef.mtrlname,:ll_disuseid
	From u_outwaremx LEFT Outer JOIN
	u_mtrldef ON u_outwaremx.mtrlid = u_mtrldef.mtrlid
	Where u_outwaremx.scid = :arg_scid
	And u_outwaremx.outwareid = :arg_outwareid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '插入销售发货单废弃单明细失败,'+commit_transaction.SQLErrText
	Goto ext
End If

Insert Into u_outwaremx_mx_disuse
	(scid, outwareid, printid, mxprintid, mtrlwareid, storageid, mtrlid, plancode, status,
	woodcode, pcode, mtrlcuscode, location, sptid, dxflag, planqty, qty, mxdscrp, ctmint,
	mtrlcode, mtrlname, disuseid)
	Select u_outwaremx_mx.scid, u_outwaremx_mx.outwareid, u_outwaremx_mx.printid,
	u_outwaremx_mx.mxprintid, u_outwaremx_mx.mtrlwareid,
	u_outwaremx_mx.storageid, u_outwaremx_mx.mtrlid, u_outwaremx_mx.plancode,
	u_outwaremx_mx.status, u_outwaremx_mx.woodcode, u_outwaremx_mx.pcode,
	u_outwaremx_mx.mtrlcuscode, u_outwaremx_mx.location, u_outwaremx_mx.sptid,
	u_outwaremx_mx.dxflag, u_outwaremx_mx.planqty, u_outwaremx_mx.qty,
	u_outwaremx_mx.mxdscrp, u_outwaremx_mx.ctmint, u_mtrldef.mtrlcode,
	u_mtrldef.mtrlname,:ll_disuseid
	From u_outwaremx_mx LEFT Outer JOIN
	u_mtrldef ON u_outwaremx_mx.mtrlid = u_mtrldef.mtrlid
	Where u_outwaremx_mx.scid = :arg_scid
	And u_outwaremx_mx.outwareid = :arg_outwareid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '插入销售发货单废弃单包件明细失败,'+commit_transaction.SQLErrText
	Goto ext
End If

Insert Into u_outwaremx_mx_barcode_disuse
	(billtype, scid, outwareid, barcode, qty, ctmint, printid, opemp, opdate, disuseid)
	Select billtype, scid, outwareid, barcode, qty, ctmint, printid, opemp, opdate, :ll_disuseid
	From u_outwaremx_mx_barcode
	Where u_outwaremx_mx_barcode.scid = :arg_scid
	And u_outwaremx_mx_barcode.outwareid = :arg_outwareid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '插入销售发货单废弃单条码明细失败,'+commit_transaction.SQLErrText
	Goto ext
End If

Insert Into u_outware_itemmx_disuse
	(scid, outwareid, printid, itemid, amt, mxdscrp, itemcode, itemname, itemtype,
	disuseid)
	Select u_outware_itemmx.scid, u_outware_itemmx.outwareid, u_outware_itemmx.printid,
	u_outware_itemmx.itemid, u_outware_itemmx.amt, u_outware_itemmx.mxdscrp,
	u_itemdef.itemcode, u_itemdef.itemname, u_itemdef.itemtype,:ll_disuseid
	From u_outware_itemmx LEFT Outer JOIN
	u_itemdef ON u_outware_itemmx.itemid = u_itemdef.itemid
	Where u_outware_itemmx.scid = :arg_scid
	And u_outware_itemmx.outwareid = :arg_outwareid 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 uof_updatesaleoutcodestr (long arg_scid, long arg_outwareid, ref string arg_msg);if sys_option_if_saleout = 0 then return 1

Int rslt = 1
Long i
Long ll_scid, ll_taskid, ll_printid


uo_bgtr_timer uo_tr
uo_tr = Create uo_bgtr_timer

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

FOR i = 1 To it_mxbt
	ll_taskid = outwaremx[i].relid
	ll_printid = outwaremx[i].relprintid
	IF ll_taskid > 0 And ll_printid > 0 THEN
		IF uo_tr.uf_update_saleoutcodestr(arg_scid, ll_taskid, ll_printid, arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
NEXT

ext:
Destroy uo_tr
RETURN rslt


end function

public function integer acceptmx (s_outwaremx s_mx, ref string arg_msg);Long rslt = 1,cnt = 0,LS_i
Long i_mtrlid,i_storageid,i_sptid
Int i_dxflag,li_mtrlkind
String i_plancode,i_mtrlcode,i_status,i_woodcode,i_pcode
Decimal i_planprice,ld_dftsaleprice
Double i_cost,i_newprice
Decimal i_notauditqty,i_allouseqty
String ls_relcode,ls_relcode_saleout
Decimal lde_noconqty,lde_notauditqty,lde_mx_qty
Decimal ld_saletqty_task,ld_fpqty_task,ld_consignedqty_task
Decimal lde_notauditqty_plan
Long ll_storagescid
String ls_unit
Int li_ifunit
Decimal ld_scllrate
String i_mtrlcuscode,i_location
Decimal ld_viewqty

Int li_if_cus_mtrlware
Int ls_noallocflag
Long ll_storagetype,ll_storagetype_storage,ll_outtype_storage
Int li_statusflag
Decimal ld_capacity,ld_capacity_zj
s_mtrlcfg_expr s_pz[]
String ls_status_zj
Long ll_i
Long li_storagetype
Decimal ld_upsalerate,ld_upsaleqty

String ls_status_task,ls_woodcode_task,ls_pcode_task
Long ll_mtrlid_task
Decimal ld_scllqty
Int li_status_ck,li_woodcode_ck,li_pcode_ck
Decimal ld_noaudit_planqty
Int i_ifpackpro,li_outtype,i_ifpack
Decimal i_packqty_fp,ld_pack_noauditqty

//uo_option_confirmaudit_sale
//uo_option_sale_use_planqty
//uo_option_mtrlware_limit
//uo_option_inout_type
//uo_option_if_pricetype
//uo_option_checkprice_native

uo_cusprice uo_price
uo_price = Create uo_cusprice

If uo_option_confirmaudit_sale = -1000 Then
	rslt = 0
	arg_msg = '选项:[025]销售单先确认后审核,读取初始默认值失败,操作取消!'
	Goto ext
End If


If uo_option_sale_use_planqty = -1000 Then
	rslt = 0
	arg_msg = '选项:[115]销售发货单使用计划发货数,读取初始默认值失败,操作取消!'
	Goto ext
End If


If uo_option_mtrlware_limit = -1000 Then
	rslt = 0
	arg_msg = '选项:[037]客户库存选择限制,读取初始默认值失败,操作取消!'
	Goto ext
End If


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


If uo_option_if_pricetype = -1000 Then
	rslt = 0
	arg_msg = '选项:[154]启用价格分类,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_checkprice_native = -1000 Then
	rslt = 0
	arg_msg = '选项:[056]销售价按本位币限价,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_if_saleout = -1000 Then
	rslt = 0
	arg_msg = '选项:[200]使用发货通知单,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_outware_sale_checkprice = -1000 Then
	rslt = 0
	arg_msg = '选项:[320]销售发货单保存时检查实价是否与销售订单一致,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_scll_use_planqty = -1000 Then
	rslt = 0
	arg_msg = '选项:[123]领料单使用计划领料数,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_price_rmb = -1000 Then
	rslt = 0
	arg_msg = '选项:[238]销售单价按人民币单价折算,读取初始默认值失败,操作取消!'
	Goto ext
End If


If uo_option_pk_notauditqty_check = -1000 Then
	rslt = 0
	arg_msg = '选项:[397]盘亏单保存时检查库存未开单数,读取初始默认值失败,操作取消!'
	Goto ext
End If

If it_newbegin = False And it_updatebegin = False Then
	rslt = 0
	arg_msg = "非编辑状态不可以使用,操作取消"
	Goto ext
End If

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


Select scid,
	storagetype,
	outtype,
	balctype,
	noallocflag
	Into :ll_storagescid,
	:ll_storagetype_storage,
	:ll_outtype_storage,
	:li_if_cus_mtrlware,
	:ls_noallocflag
	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 IsNull(s_mx.mtrlwareid) Then s_mx.mtrlwareid = 0
If IsNull(s_mx.printid) Then s_mx.printid = 0
If IsNull(s_mx.qty) Then s_mx.qty = 0
If IsNull(s_mx.fprice) Then s_mx.fprice = 0
If IsNull(s_mx.rebate) Then s_mx.rebate = 0
If IsNull(s_mx.mxdscrp) Then s_mx.mxdscrp = ''
If IsNull(s_mx.ifrel) Then s_mx.ifrel = 0
If IsNull(s_mx.relid) Then s_mx.relid = 0
If IsNull(s_mx.olmtrlid) Then s_mx.olmtrlid = 0
If IsNull(s_mx.packqty) Then s_mx.packqty = 0
If IsNull(s_mx.outtype) Then s_mx.outtype = ''
If IsNull(s_mx.planqty) Then s_mx.planqty = 0
If IsNull(s_mx.relprintid) Then s_mx.relprintid = 0
If IsNull(s_mx.unit) Then s_mx.unit = ''
If IsNull(s_mx.uqty) Then s_mx.uqty = 0
If IsNull(s_mx.rate) Then s_mx.rate = 1
If IsNull(s_mx.pricetype) Then s_mx.pricetype = ''
If IsNull(s_mx.formula) Then s_mx.formula = ''
If IsNull(s_mx.saleoutid) Then s_mx.saleoutid = 0
If IsNull(s_mx.saleoutprintid) Then s_mx.saleoutprintid = 0

If IsNull(s_mx.mxdscrp2) Then s_mx.mxdscrp2 = ''
If IsNull(s_mx.net_weight) Then s_mx.net_weight = 0
If IsNull(s_mx.gross_weight) Then s_mx.gross_weight = 0
If IsNull(s_mx.cubage) Then s_mx.cubage = 0
If IsNull(s_mx.taxrate) Then s_mx.taxrate = 0

If IsNull(s_mx.priceformula) Then s_mx.priceformula = ''
If IsNull(s_mx.qtyformula) Then s_mx.qtyformula = ''
If IsNull(s_mx.ifvqty) Then s_mx.ifvqty = 0
If IsNull(s_mx.backtype) Then s_mx.backtype = 0
If IsNull(s_mx.ifnotinout) Then s_mx.ifnotinout = 0

If s_mx.mtrlwareid = 0 Or ( s_mx.qty = 0 And s_mx.planqty = 0 And s_mx.uqty = 0 )  Then
	rslt = 1
	Goto ext
End If

If billtype <> 9 Then
	If s_mx.uqty = 0 And s_mx.rate = 0 Then
		rslt = 1
		Goto ext
	End If
End If

If s_mx.uqty = 0 Then
	s_mx.rate = 1
Else
	If billtype = 1 Then
		s_mx.rate = s_mx.planqty / s_mx.uqty
	Else
		s_mx.rate = s_mx.qty / s_mx.uqty
	End If
End If

If s_mx.rebate < 0 Then
	arg_msg = '折扣错误,请检查'
	rslt = 0
	Goto ext
End If

//检查物料库存ID
Select u_mtrlware.mtrlid,
	u_mtrlware.storageid,
	u_mtrlware.plancode,
	u_mtrlware.status,
	u_mtrlware.cost,
	u_mtrldef.mtrlcode,
	u_mtrlware.sptid,
	u_mtrlware.dxflag,
	u_mtrlware.woodcode,
	u_mtrlware.pcode,
	u_mtrlware.noauditingqty,
	u_mtrlware.noallocqty,
	u_mtrldef.unit,
	u_mtrlware.mtrlcuscode,
	u_mtrlware.location,
	u_mtrldef.storagetype,
	u_mtrldef.statusflag,
	u_mtrldef.capacity * u_mtrldef.capaparm,
	u_mtrldef.storagetype,
	u_mtrldef.upsalerate,
	u_mtrldef.upsaleqty,
	u_mtrldef.ifunit,
	u_mtrldef.outtype,
	u_mtrldef.ifpackpro,
	u_mtrldef.ifpack,
	u_mtrlware.packqty_fp
	Into :i_mtrlid,
	:i_storageid,
	:i_plancode,
	:i_status,
	:i_cost,
	:i_mtrlcode,
	:i_sptid,
	:i_dxflag,
	:i_woodcode,
	:i_pcode,
	:i_notauditqty,
	:i_allouseqty,
	:ls_unit,
	:i_mtrlcuscode,
	:i_location,
	:ll_storagetype,
	:li_statusflag,
	:ld_capacity,
	:li_storagetype,
	:ld_upsalerate,
	:ld_upsaleqty,
	:li_ifunit,
	:li_outtype,
	:i_ifpackpro,
	:i_ifpack,
	:i_packqty_fp
	From u_mtrlware Inner JOIN
	u_mtrldef ON u_mtrlware.mtrlid = u_mtrldef.mtrlid
	Where ( u_mtrlware.mtrlwareid = :s_mx.mtrlwareid )
	And ( u_mtrlware.scid = :ll_storagescid ) Using commit_transaction;
	
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = "第"+String(s_mx.printid)+"行,查询操作失败,库存编号(出仓单)错误,分部:"+String(ll_storagescid)+'库存:'+String(s_mx.mtrlwareid)+',~n'+commit_transaction.SQLErrText
	Goto ext
End If


If IsNull(ld_dftsaleprice) Then ld_dftsaleprice = 0
If IsNull(i_cost) Then i_cost = 0
If IsNull(i_plancode) Then i_plancode = ''
If IsNull(i_status) Then i_status = ''
If IsNull(i_mtrlid) Then i_mtrlid = 0
If IsNull(i_storageid) Then i_storageid = 0

If IsNull(i_sptid) Then i_sptid = 0
If IsNull(i_dxflag) Then i_dxflag = 0
If IsNull(i_woodcode) Then i_woodcode = ''
If IsNull(i_pcode) Then i_pcode = ''
If IsNull(i_mtrlcuscode) Then i_mtrlcuscode = ''
If IsNull(i_location) Then i_location = ''
If IsNull(ll_storagetype) Then ll_storagetype = 0
If IsNull(li_statusflag) Then li_statusflag = 0
If IsNull(ld_capacity) Then ld_capacity = 0
If IsNull(ld_upsalerate) Then ld_upsalerate = 0
If IsNull(ld_upsaleqty) Then ld_upsaleqty = 0
If IsNull(i_packqty_fp) Then i_packqty_fp = 0


If billtype = 1 And thflag = 0 Then
	If uo_option_confirmaudit_sale = 0 Or uo_option_sale_use_planqty = 0 Then
		If ll_outtype_storage = 0  Then //And ll_storagetype_storage = 0 THEN  // // dyy edit 2012-02-23
			s_mx.qty = s_mx.planqty
		End If
		
		If li_ifunit = 0 And s_mx.rate <> 0 Then
			s_mx.uqty = s_mx.qty / s_mx.rate
		End If
		
	End If
End If

//销售发货单检查高级进出仓属性
If billtype = 1 Then
	If uo_option_inout_type <> 0 And ll_outtype_storage <> 0 And i_ifpackpro <> 0 And li_outtype = 0 Then
		rslt = 0
		arg_msg = "第"+String(s_mx.printid)+"行,物料编码:"+i_mtrlcode+",仓库使用包件出仓或条码出仓，发货明细物料资料是包件产品，但产品资料没设为包件出仓或条码出仓，不能保存"
		Goto ext
	End If
End If

If s_mx.mtrlwareid = 0 Or ( s_mx.qty = 0 And s_mx.planqty = 0 And s_mx.uqty = 0 )  Then
	rslt = 1
	Goto ext
End If

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

If li_statusflag = 2 Then
	ld_capacity = 0
	f_checkpz(i_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 = :i_mtrlid
			And Name = :ls_status_zj Using commit_transaction;
		If commit_transaction.SQLCode <> 0 Then
			rslt = 0
			arg_msg = "第"+String(s_mx.printid)+"行,物料编码:"+i_mtrlcode+",查询子件 "+ls_status_zj+" 折算套数参数操作失败"
			Goto ext
		End If
		
		ld_capacity = ld_capacity + ld_capacity_zj * Dec(s_pz[ll_i].qty)
	Next
End If

Select sum(qty) Into :ld_viewqty
	From u_mtrlware_view
	Where scid = :ll_storagescid
	And mtrlwareid = :s_mx.mtrlwareid
	And inuse = 1
	And cusid = :cusid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = "第"+String(s_mx.printid)+"行,查询操作失败,库存虚拟数量,分部:"+String(ll_storagescid)+'库存:'+String(s_mx.mtrlwareid)+',~n'+commit_transaction.SQLErrText
	Goto ext
End If

If IsNull(ld_viewqty) Then ld_viewqty = 0


If billtype = 1 Or billtype = 5 Then
	If ll_storagetype = 0 Then
		If li_if_cus_mtrlware = 1 And uo_option_mtrlware_limit = 0 And flag = 0 Then
			If cusid <> i_sptid Then
				rslt = 0
				arg_msg = "查询操作失败,明细纪录对应的库存不是该客户的库存!"
				Goto ext
			End If
		End If
	End If
End If

If billtype = 1 Then
	f_get_defsaleprice(cusid,i_mtrlid,i_status,i_pcode,i_woodcode,relint_2,ld_dftsaleprice)
Else
	ld_dftsaleprice = 0
	mrate = 1
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)+' '+i_mtrlcode+',物料库存单位:'+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)+' '+i_mtrlcode+',物料库存单位:'+Trim(ls_unit)+'与采购单位:'+Trim(s_mx.unit)+'相同,但转换率不为1,请检查'
		rslt = 0
		Goto ext
	End If
End If


//*****检查大于未开数不可以开单
If (flag = 0 And billtype <> 12  And billtype <> 21 And billtype <> 23 And billtype <> 17 And billtype <> 4 And billtype <> 7 ) And thflag = 0 Then
	
	If uo_option_pk_notauditqty_check = 0 And billtype = 9 Then
		Goto _end_check_qty
	End If
	
	If Not (billtype = 3 And relint_1 = 4 And it_newbegin) Then
		Decimal ol_mtrl_qty = 0,ld_mx_qty = 0,ld_ref_qty = 0
		Decimal ol_mtrl_qty_plan = 0,ol_mtrl_qty_sf = 0
		
		
		String ls_msg
		Boolean lb_ifplan = False
		
		If billtype = 1 And uo_option_confirmaudit_sale = 1 And  uo_option_sale_use_planqty = 1 Then lb_ifplan = True
		If billtype = 1 And ll_outtype_storage = 2 Then lb_ifplan = True
		If billtype = 3 And relint_1 <> 4 And relint_1 <> 5 And uo_option_scll_use_planqty = 1 Then lb_ifplan = True
		
		
		If ls_noallocflag = 1 Then
			If it_updatebegin Then
				Select sum(u_outwaremx.qty),sum(u_outwaremx.planqty)
					Into :ol_mtrl_qty_sf,:ol_mtrl_qty_plan
					From u_outwaremx
					Where u_outwaremx.outwareid = :outwareid
					And u_outwaremx.mtrlwareid = :s_mx.mtrlwareid
					And scid = :scid Using commit_transaction;
				If commit_transaction.SQLCode = -1 Then
					rslt = 0
					arg_msg = "物料编码:"+i_mtrlcode+',查询原开单数量失败'
					Goto ext
				End If
			End If
			
			For LS_i = 1 To it_mxbt
				If s_mx.mtrlwareid = outwaremx[LS_i].mtrlwareid Then
					If lb_ifplan Then
						ld_mx_qty = ld_mx_qty + outwaremx[LS_i].planqty
					Else
						ld_mx_qty = ld_mx_qty + outwaremx[LS_i].qty
					End If
				End If
			Next
			
			If lb_ifplan Then
				ld_mx_qty = ld_mx_qty + s_mx.planqty
			Else
				ld_mx_qty = ld_mx_qty + s_mx.qty
			End If
			
			If IsNull(i_allouseqty) Then i_allouseqty = 0
			If IsNull(i_notauditqty) Then i_notauditqty = 0
			If IsNull(ol_mtrl_qty_sf) Then ol_mtrl_qty_sf = 0
			If IsNull(ol_mtrl_qty_plan) Then ol_mtrl_qty_plan = 0
			If IsNull(ld_mx_qty) Then ld_mx_qty = 0
			
			Select ifpackpro Into :i_ifpackpro
				From u_mtrldef
				Where mtrlid = :i_mtrlid Using commit_transaction ;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = "物料编码:"+i_mtrlcode+',查询物料是否包件产品失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			ld_ref_qty = 0
			If i_ifpackpro  > 0 Then
				If f_cmp_di_qty_outware(scid,outwareid,i_mtrlid,storageid,i_status,i_woodcode,i_pcode,i_plancode,i_mtrlcuscode,cusid,ld_ref_qty,ls_msg,arg_msg) = 0 Then
					ld_ref_qty = 0
					//				arg_msg =  '第'+String(s_mx.printid)+'行,计算可装数失败,'+arg_msg
					//				rslt = 0
					//				GOTO ext
				End If
				
				If uo_option_inout_type = 0 Then
					If lb_ifplan Then
						ol_mtrl_qty = ol_mtrl_qty_plan
					Else
						ol_mtrl_qty = ol_mtrl_qty_sf
					End If
				Else
					ol_mtrl_qty = 0
				End If
			Else
				If lb_ifplan Then
					ol_mtrl_qty = ol_mtrl_qty_plan
				Else
					ol_mtrl_qty = ol_mtrl_qty_sf
				End If
			End If
			
			If ld_mx_qty > ( i_allouseqty - i_notauditqty + ol_mtrl_qty + ld_ref_qty + ld_viewqty ) Then
				rslt = 0
				arg_msg = String(i_mtrlcode)+"库存未开单数不够,不能开单.未开单数{"+String(i_allouseqty - i_notauditqty + ol_mtrl_qty,'#####,0.00#######')+"}" + "可组装数{"+String(ld_ref_qty,'#####,0.00#######')+"}"+ "库存虚拟数量{"+String(ld_viewqty,'#####,0.00#######')+"},不能开单:"+String(ld_mx_qty,'#####,0.00#######')
				Goto ext
			End If
			
			//如果包件产品使用占用数流程, 直接开单发包件,要检查数量不能超出未分配占用数(盘亏单除外)
			If i_ifpack = 1 And  uo_option_canpack_ifzanyong = 1 And billtype <> 9 Then
				Select SUM(Case u_outwaremx.qty WHEN 0 Then u_outwaremx.planqty Else u_outwaremx.qty End)
				Into :ld_pack_noauditqty
				From u_outwaremx Inner JOIN
				u_outware On u_outwaremx.scid = u_outware.scid And
				u_outwaremx.outwareid = u_outware.outwareid
				Where (u_outware.flag = 0)
				And (u_outware.thflag = 0)
				And  ( u_outwaremx.mtrlwareid  = :s_mx.mtrlwareid )
				And ( u_outwaremx.scid = :scid )
				and (u_outware.outwareid <> :outwareid) Using  commit_transaction;
				If commit_transaction.SQLCode = -1 Then
					rslt = 0
					arg_msg = "物料编码:"+i_mtrlcode+',查询包件直接开单数量失败'
					Goto ext
				End If
				
				If IsNull(ld_pack_noauditqty) Then ld_pack_noauditqty = 0
				
				If ld_mx_qty - ol_mtrl_qty + ld_pack_noauditqty  > i_allouseqty - i_packqty_fp Then
					rslt = 0
					arg_msg = String(i_mtrlcode)+"库存未分配数不够,不能开单.未分配占用数{"+String(i_allouseqty - i_packqty_fp + ol_mtrl_qty,'#####,0.00#######')+"}" + "包件已直接开单数{"+string(ld_pack_noauditqty,'#####,0.00#######')+"},不能开单:"+String(ld_mx_qty,'#####,0.00#######')
					Goto ext
				End If
				
			End If
			
			
		End If
	End If

_end_check_qty:
End If

//***********************************************

If uo_option_sale_ifuse_negativeprice = 0 Then
	If s_mx.fprice * s_mx.rebate < 0 Then //检查单价
		rslt = 0
		arg_msg = '明细行:'+String(s_mx.printid)+",物料或产品:" + String(i_mtrlcode)+" 单价错误"
		Goto ext
	End If
End If

If s_mx.rebate < 0 Then
	rslt = 0
	arg_msg = '明细行:'+String(s_mx.printid)+",物料或产品:" + String(i_mtrlcode)+" 折扣错误"
	Goto ext
End If

Choose Case billtype
	Case 1
		If s_mx.ifrel > 0 Then
			If flag = 0 Then
				//检查订单
				If s_mx.relid = 0 Then
					arg_msg = '请先择相应的订单'
					rslt = 0
					Goto ext
				End If
				
				Select u_saletask.taskcode,
					u_saletaskmx.saleqty * (1 + :ld_upsalerate) + :ld_upsaleqty - u_saletaskmx.consignedqty ,
					u_saletaskmx.mtrlid,
					u_saletaskmx.status,
					u_saletaskmx.woodcode,
					u_saletaskmx.pcode,
					u_saletaskmx.fpqty,
					u_saletaskmx.saleqty * (1 + :ld_upsalerate) + :ld_upsaleqty,
					u_saletaskmx.consignedqty
					Into :ls_relcode,
					:lde_noconqty,
					:ll_mtrlid_task,
					:ls_status_task,
					:ls_woodcode_task,
					:ls_pcode_task,
					:ld_fpqty_task,
					:ld_saletqty_task,
					:ld_consignedqty_task
					From u_saletaskmx,u_saletask
					Where u_saletaskmx.taskid = :s_mx.relid
					And u_saletaskmx.scid = :scid
					And u_saletaskmx.scid = u_saletask.scid
					And u_saletaskmx.printid = :s_mx.relprintid
					And u_saletaskmx.taskid = u_saletask.taskid
					Using commit_transaction;
					
				If commit_transaction.SQLCode <> 0 Then
					arg_msg = '查询销售订单是否有订购产品:'+i_mtrlcode+'失败'
					rslt = 0
					Goto ext
				End If
				
				If ll_mtrlid_task <> i_mtrlid Then
					arg_msg = '订单:'+ls_relcode+' 产品:'+i_mtrlcode+' 与发货单明细的库存信息(物料id)不匹配,不允许保存,请检查相关订单信息与库存信息'
					rslt = 0
					Goto ext
				End If
				
				Select Top 1 Case WHEN ltrim(rtrim(:i_status)) = ltrim(rtrim(:ls_status_task)) Then 0 Else 1 End,
		Case WHEN ltrim(rtrim(:i_woodcode)) = ltrim(rtrim(:ls_woodcode_task)) Then 0 Else 1 End,
		Case WHEN ltrim(rtrim(:i_pcode)) = ltrim(rtrim(:ls_pcode_task)) Then 0 Else 1 End
			Into :li_status_ck,:li_woodcode_ck,:li_pcode_ck
			From u_user Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '查询订单:'+ls_relcode+' 产品:'+i_mtrlcode+',3个配置信息与库存3个配置信息是否相同失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			If li_status_ck + li_woodcode_ck + li_pcode_ck > 0 Then
				arg_msg = '订单:'+ls_relcode+' 产品:'+i_mtrlcode+' 与发货单明细的库存信息不匹配,不允许保存,请检查相关订单信息与库存信息'
				rslt = 0
				Goto ext
			End If
			
			lde_mx_qty = 0
			For LS_i = 1 To it_mxbt
				If i_mtrlid = outwaremx[LS_i].mtrlid And &
					s_mx.relid = outwaremx[LS_i].relid And &
					i_status = outwaremx[LS_i].status And &
					i_woodcode = outwaremx[LS_i].woodcode And &
					i_pcode = outwaremx[LS_i].pcode And &
					(i_plancode = outwaremx[LS_i].plancode Or li_storagetype = 1) And  &
					s_mx.relprintid = outwaremx[LS_i].relprintid Then
					If lb_ifplan Then
						lde_mx_qty = lde_mx_qty + outwaremx[LS_i].planqty
					Else
						lde_mx_qty = lde_mx_qty + outwaremx[LS_i].qty
					End If
				End If
			Next
			
			If lb_ifplan Then
				lde_mx_qty = lde_mx_qty + s_mx.planqty
			Else
				lde_mx_qty = lde_mx_qty + s_mx.qty
			End If
			
			//查询相关订单已开发货单未审核数量
			Select isnull(sum(qty),0),isnull(sum(planqty),0)
				Into :lde_notauditqty,:lde_notauditqty_plan
				From u_outwaremx,u_outware
				Where u_outwaremx.relid = :s_mx.relid
				And u_outwaremx.relprintid = :s_mx.relprintid
				And u_outware.flag = 0
				And u_outware.billtype = 1
				And u_outwaremx.outwareid = u_outware.outwareid
				And u_outwaremx.scid = u_outware.scid
				And u_outware.outwareid <> :outwareid
				And u_outware.scid = :scid
				Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '查询销售订单:'+ls_relcode+'产品:'+i_mtrlcode+'已开发货单未审核数量失败'
				rslt = 0
				Goto ext
			End If
			
			If lb_ifplan Then
				If lde_notauditqty_plan + lde_mx_qty > lde_noconqty Then
					arg_msg = '订单:'+ls_relcode+' 产品:'+i_mtrlcode+'未发货数上限:'+String(lde_noconqty,'#,##0.##########')+',已开单未审核数:'+String(lde_notauditqty_plan,'#,##0.##########')+'不能再开单:'+String(lde_mx_qty,'#,##0.##########')
					rslt = 0
					Goto ext
				End If
				
				If ll_storagetype_storage = 1 And  ls_noallocflag = 1 Then
					If lde_notauditqty_plan + lde_mx_qty > ld_fpqty_task - ld_consignedqty_task Then
						arg_msg = '订单:'+ls_relcode+' 产品:'+i_mtrlcode+'分配未发货数上限:'+String(ld_fpqty_task - ld_consignedqty_task,'#,##0.##########')+',已开单未审核数:'+String(lde_notauditqty_plan,'#,##0.##########')+'不能再开单:'+String(lde_mx_qty,'#,##0.##########')
						rslt = 0
						Goto ext
					End If
				End If
				
			Else
				If lde_notauditqty + lde_mx_qty > lde_noconqty Then
					arg_msg = '订单:'+ls_relcode+' 产品:'+i_mtrlcode+'未发货数上限:'+String(lde_noconqty,'#,##0.##########')+',已开单未审核数:'+String(lde_notauditqty,'#,##0.##########')+'不能再开单:'+String(lde_mx_qty,'#,##0.##########')
					rslt = 0
					Goto ext
				End If
				If ll_storagetype_storage = 1 And  ls_noallocflag = 1 Then
					If lde_notauditqty + lde_mx_qty > ld_fpqty_task - ld_consignedqty_task Then
						arg_msg = '订单:'+ls_relcode+' 产品:'+i_mtrlcode+'分配未发货数上限:'+String(ld_fpqty_task - ld_consignedqty_task,'#,##0.##########')+',已开单未审核数:'+String(lde_notauditqty,'#,##0.##########')+'不能再开单:'+String(lde_mx_qty,'#,##0.##########')
						rslt = 0
						Goto ext
					End If
				End If
			End If
			
			//检查发货通知单
			If uo_option_if_saleout = 1 And thflag = 0 Then
				If s_mx.saleoutid = 0 Then
					arg_msg = '请先择相应的发货通知单'
					rslt = 0
					Goto ext
				End If
				
				Select u_saleoutmx.saleqty - u_saleoutmx.consignedqty - u_saleoutmx.stopqty,
					u_saleout.taskcode
					Into :lde_noconqty,:ls_relcode_saleout
					From u_saleoutmx,u_saleout
					Where u_saleoutmx.taskid = :s_mx.saleoutid
					And u_saleoutmx.printid = :s_mx.saleoutprintid
					And u_saleoutmx.taskid = u_saleout.taskid
					And u_saleout.scid = :scid
					Using commit_transaction;
				If commit_transaction.SQLCode <> 0 Then
					arg_msg = '查询发货通知单是否有产品:'+i_mtrlcode+'失败,'+commit_transaction.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				lde_mx_qty = 0
				For LS_i = 1 To it_mxbt
					If s_mx.saleoutid = outwaremx[LS_i].saleoutid And &
						s_mx.saleoutprintid = outwaremx[LS_i].saleoutprintid Then
						If lb_ifplan Then
							lde_mx_qty = lde_mx_qty + outwaremx[LS_i].planqty
						Else
							lde_mx_qty = lde_mx_qty + outwaremx[LS_i].qty
						End If
					End If
				Next
				
				If lb_ifplan Then
					lde_mx_qty = lde_mx_qty + s_mx.planqty
				Else
					lde_mx_qty = lde_mx_qty + s_mx.qty
				End If
				
				//查询相关订单已开发货单未审核数量
				Select isnull(sum(qty),0),isnull(sum(planqty),0)
					Into :lde_notauditqty,:lde_notauditqty_plan
					From u_outwaremx,u_outware
					Where u_outwaremx.saleoutid = :s_mx.saleoutid
					And u_outwaremx.saleoutprintid = :s_mx.saleoutprintid
					And u_outware.flag = 0
					And u_outware.billtype = 1
					And u_outwaremx.outwareid = u_outware.outwareid
					And u_outwaremx.scid = u_outware.scid
					And u_outware.outwareid <> :outwareid
					And u_outware.scid = :scid
					Using commit_transaction;
				If commit_transaction.SQLCode <> 0 Then
					arg_msg = '查询发货通知单:'+ls_relcode_saleout+',明细id:'+String(s_mx.saleoutprintid)+',产品:'+i_mtrlcode+'已开发货单未审核数量失败,'+commit_transaction.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				If lb_ifplan Then
					If lde_notauditqty_plan + lde_mx_qty > lde_noconqty Then
						arg_msg = '发货通知单:'+ls_relcode_saleout+',明细id:'+String(s_mx.saleoutprintid)+',产品:'+i_mtrlcode+'未发货数:'+String(lde_noconqty,'#,##0.##########')+',已开单未审核数:'+String(lde_notauditqty_plan,'#,##0.##########')+'不能再开单:'+String(lde_mx_qty,'#,##0.##########')
						rslt = 0
						Goto ext
					End If
				Else
					If lde_notauditqty + lde_mx_qty > lde_noconqty Then
						arg_msg = '发货通知单:'+ls_relcode_saleout+',明细id:'+String(s_mx.saleoutprintid)+',产品:'+i_mtrlcode+'未发货数:'+String(lde_noconqty,'#,##0.##########')+',已开单未审核数:'+String(lde_notauditqty,'#,##0.##########')+'不能再开单:'+String(lde_mx_qty,'#,##0.##########')
						rslt = 0
						Goto ext
					End If
				End If
			End If
		End If
	End If
	
Case 3
	
	//		IF uo_option_scll_limit = 0 AND NOT relint_1 = 3 THEN
	If Not (relint_1 = 3 Or relint_1 = 4 ) Then
		
		Select u_mtrldef.mtrlkind,
			u_mtrldef.scllrate,
			u_mtrldef.scllqty
			Into :li_mtrlkind,
			:ld_scllrate,
			:ld_scllqty
			From u_mtrldef,u_mtrlware
			Where u_mtrldef.mtrlid = u_mtrlware.mtrlid And
			u_mtrlware.mtrlwareid = :s_mx.mtrlwareid And
			u_mtrlware.scid = :ll_storagescid
			Using commit_transaction;
		If commit_transaction.SQLCode <> 0 Then
			arg_msg = '查询物料:'+i_mtrlcode+'分摊属性失败'
			rslt = 0
			Goto ext
		End If
		
		//		If li_mtrlkind = 0 And Not f_power_ind(119,sys_msg_pow) And ( s_mx.ifrel = 0 Or s_mx.relid = 0 ) Then
		//			arg_msg = '请先选择计划,第'+String(s_mx.printid)+'行'
		//			rslt = 0
		//			Goto ext
		//		End If
		//		
		//		If li_mtrlkind = 1 And ( s_mx.ifrel = 1 Or s_mx.relid > 0 ) Then
		//			arg_msg = '不能选择计划,第'+String(s_mx.printid)+'行'
		//			rslt = 0
		//			Goto ext
		//		End If
		
		If (li_mtrlkind = 0 Or (li_mtrlkind = 2 And ld_scllrate > 0)) And (relint_1 = 0 Or relint_1 = 5) And s_mx.relid > 0 Then
			Decimal ld_RqQty,ld_DstrQty,ld_noaudit_DstrQty
			Decimal ld_allowqty
			Long ll_wrkGrpid
			Decimal ld_backqty,ld_backbuqty
			
			Select u_OrderRqMtrl_scll.trueRqQty,
				u_OrderRqMtrl_scll.DstrQty,
				u_OrderRqMtrl_scll.wrkGrpid,
				isnull(uv_outware_scll_back.qty,0)
				Into :ld_RqQty,
				:ld_DstrQty,
				:ll_wrkGrpid,
				:ld_backqty
				From u_OrderRqMtrl_scll Inner JOIN
				u_workgroup ON
				u_OrderRqMtrl_scll.wrkGrpid = u_workgroup.wrkGrpid  LEFT Outer JOIN
				uv_outware_scll_back ON
				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 And
				u_OrderRqMtrl_scll.scid = uv_outware_scll_back.scid And
				u_OrderRqMtrl_scll.OrderID = uv_outware_scll_back.relid
				Where u_OrderRqMtrl_scll.scid = :scid
				And u_OrderRqMtrl_scll.orderid = :s_mx.relid
				And u_OrderRqMtrl_scll.MtrlID = :i_mtrlid
				And u_OrderRqMtrl_scll.status = :i_status
				And u_OrderRqMtrl_scll.woodcode = :i_woodcode
				And u_OrderRqMtrl_scll.pcode = :i_pcode
				And u_workgroup.workgroupid = :relid
				Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '查询物料'+i_mtrlcode+'计划领料数和已领料数失败,'+sqlca.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			If relint_1 = 5 Then
				Select sum(u_Outwaremx.qty) Into :ld_backbuqty
					From u_outware,u_Outwaremx,u_workgroup
					Where u_outware.scid = u_Outwaremx.scid
					And u_outware.outwareid = u_Outwaremx.outwareid
					And u_outware.billtype = 3
					And u_outware.relint_1 = 5
					And u_outware.outwareid <> :outwareid
					And u_Outwaremx.scid = :scid
					And u_Outwaremx.mtrlid = :i_mtrlid
					And u_outware.relid = u_workgroup.workgroupid
					And u_workgroup.wrkGrpid = :ll_wrkGrpid
					And u_Outwaremx.relid = :s_mx.relid
					Using commit_transaction;
				If commit_transaction.SQLCode <> 0 Then
					arg_msg = '查询物料'+i_mtrlcode+'已补料单数失败,'+sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				If IsNull(ld_backbuqty) Then ld_backbuqty = 0
				
				If 0 - ld_backqty < s_mx.qty + ld_backbuqty Then
					arg_msg = '第'+String(s_mx.printid)+'行,物料超领料:'+i_mtrlcode+',可补料总数:'+String(0 - ld_backqty,'#,#0.0#########')+',已补料数:'+String(ld_backbuqty,'#,#0.0#########')+',不可再补料:'+String(s_mx.qty,'#,#0.0#########')
					rslt = 0
					Goto ext
				End If
				
				
			End If
			
			Select sum(u_Outwaremx.qty),sum(u_Outwaremx.planqty) Into :ld_noaudit_DstrQty,:ld_noaudit_planqty
				From u_outware,u_Outwaremx,u_workgroup
				Where u_outware.scid = u_Outwaremx.scid
				And u_outware.outwareid = u_Outwaremx.outwareid
				And u_outware.billtype = 3
				And u_outware.flag = 0
				And u_outware.outwareid <> :outwareid
				And u_Outwaremx.scid = :scid
				And u_Outwaremx.mtrlid = :i_mtrlid
				And u_outware.relid = u_workgroup.workgroupid
				And u_workgroup.wrkGrpid = :ll_wrkGrpid
				And u_Outwaremx.relid = :s_mx.relid
				Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '查询物料'+i_mtrlcode+'已开单领料数失败,'+sqlca.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			If IsNull(ld_RqQty) Then ld_RqQty = 0
			If IsNull(ld_DstrQty) Then ld_DstrQty = 0
			If IsNull(ld_noaudit_DstrQty) Then ld_noaudit_DstrQty = 0
			
			//				IF li_mtrlkind = 0 THEN 
			//					ld_scllrate = 0
			//					ld_scllqty 
			
			ld_allowqty = ld_RqQty * (1 + ld_scllrate) + ld_scllqty - ld_DstrQty - ld_noaudit_DstrQty
			
			If ld_RqQty * (1 + ld_scllrate) + ld_scllqty < ld_DstrQty + ld_noaudit_DstrQty + s_mx.qty Then
				arg_msg = '第'+String(s_mx.printid)+'行,物料超领料:'+i_mtrlcode+',可领料:'+String(ld_allowqty,'#,#0.0####')+',需求数:'+String(ld_RqQty,'#,#0.0####')+',已领数:'+String(ld_DstrQty,'#,#0.0####')+',已开单数:'+String(ld_noaudit_DstrQty,'#,#0.0####')
				rslt = 0
				Goto ext
			End If
			
			If uo_option_scll_use_planqty = 1 And Not f_power_ind(3863,sys_msg_pow) Then
				ld_allowqty = ld_RqQty * (1 + ld_scllrate) + ld_scllqty - ld_DstrQty - ld_noaudit_planqty
				
				If ld_RqQty * (1 + ld_scllrate) + ld_scllqty < ld_DstrQty + ld_noaudit_planqty + s_mx.planqty Then
					arg_msg = '第'+String(s_mx.printid)+'行,物料超领料:'+i_mtrlcode+',可领料:'+String(ld_allowqty,'#,#0.0####')+',需求数:'+String(ld_RqQty,'#,#0.0####')+',已领数:'+String(ld_DstrQty,'#,#0.0####')+',已开单计划数:'+String(ld_noaudit_planqty,'#,#0.0####')
					rslt = 0
					Goto ext
				End If
			End If
		End If
		
	End If
	
	
	If s_mx.ifrel > 0 And relint_1 <> 4 Then
		If s_mx.relid = 0 Then
			arg_msg = '请先择相应的计划'
			rslt = 0
			Goto ext
		End If
		
		Select ordercode Into :ls_relcode
			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 = '查询生产计划是否有生产产品失败'
			rslt = 0
			Goto ext
		End If
	End If
	
	If relint_1 = 4 Then
		Select outwarecode
			Into :ls_relcode
			From u_outware_scllplan
			Where outwareid = :s_mx.relid
			And scid = :scid
			Using commit_transaction;
			
		If commit_transaction.SQLCode <> 0 Then
			arg_msg = '查询相关发料通知单失败'
			rslt = 0
			Goto ext
		End If
	End If
	
End Choose

//销售发货单要取分部结算价
Decimal ld_scidprice,ld_price_task
If flag = 0 Then
	If billtype = 1 Or billtype = 5 Then
		If s_mx.ifrel = 1 Then
			Select scidprice,price
				Into :ld_scidprice,:ld_price_task
				From u_saletaskmx
				Where scid = :scid
				And  u_saletaskmx.printid = :s_mx.relprintid
				And u_saletaskmx.taskid = :s_mx.relid Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '第'+String(s_mx.printid)+'行,物料编码:'+i_mtrlcode+'查询相关销售订单分部结算价失败'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
		Else
			Select scidprice
				Into :ld_scidprice
				From u_mtrldef
				Where mtrlid = :i_mtrlid Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '第'+String(s_mx.printid)+'行,物料编码:'+i_mtrlcode+'查询物料分部结算价失败'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
		End If
	End If
End If

//**取最新价
Select price
	Into :i_newprice
	From v_maxprice_sptprice
	Where mtrlid = :i_mtrlid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Or IsNull(i_newprice) Then i_newprice = 0


If billtype = 1 Then
	//	IF uo_option_if_pricetype = 1 And s_mx.pricetype <> '' THEN
	Int li_ifcheckprice
	
	If s_mx.pricetype <> '' Then
		Select ifcheckprice
			Into :li_ifcheckprice
			From u_pricetype
			Where pricetype = :s_mx.pricetype Using commit_transaction;
		If commit_transaction.SQLCode <> 0 Then
			arg_msg = '第'+String(s_mx.printid)+'行,物料编码:'+i_mtrlcode+'查询价格分类是否属于赠送类型失败,'+commit_transaction.SQLErrText
			rslt = 0
			Goto ext
		End If
	Else
		li_ifcheckprice = 1
	End If
	
	If li_ifcheckprice = 2 Then s_mx.rebate = 0
	
	If li_ifcheckprice = 1 And s_mx.ifrel = 0 Then
		If uo_option_checkprice_native = 1 Then
			If uo_price.uof_check_price (cusid,i_mtrlid,&
				i_mtrlcode,i_status,i_pcode,&
				i_woodcode,relint_2,s_mx.fprice * mrate * s_mx.rebate,s_mx.qty,arg_msg) = 0 Then
				rslt = 0
				Goto ext
			End If
		Else
			If uo_price.uof_check_price (cusid,i_mtrlid,&
				i_mtrlcode,i_status,i_pcode,&
				i_woodcode,relint_2,s_mx.fprice * s_mx.rebate,s_mx.qty,arg_msg) = 0 Then
				rslt = 0
				Goto ext
			End If
		End If
	End If
	
	//	END IF
End If

//写入内容
it_mxbt++
outwaremx[it_mxbt].dftsaleprice = ld_dftsaleprice

outwaremx[it_mxbt].mtrlwareid = s_mx.mtrlwareid
outwaremx[it_mxbt].mtrlid = i_mtrlid
outwaremx[it_mxbt].status = i_status
outwaremx[it_mxbt].qty = s_mx.qty
outwaremx[it_mxbt].planqty = s_mx.planqty
outwaremx[it_mxbt].storageid = i_storageid
outwaremx[it_mxbt].cost = i_cost
outwaremx[it_mxbt].costamt = Round(i_cost * s_mx.qty,2)
outwaremx[it_mxbt].newpriceamt = Round(i_newprice * s_mx.qty,2)
outwaremx[it_mxbt].plancode = i_plancode
outwaremx[it_mxbt].planprice = i_planprice
outwaremx[it_mxbt].mtrlcode = i_mtrlcode
outwaremx[it_mxbt].mxdscrp = s_mx.mxdscrp
outwaremx[it_mxbt].printid = s_mx.printid
outwaremx[it_mxbt].outtype = s_mx.outtype

outwaremx[it_mxbt].enprice = s_mx.fprice
outwaremx[it_mxbt].rebate = s_mx.rebate

If uo_option_price_rmb = 1 And billtype = 1 Then
	outwaremx[it_mxbt].fprice = Round(s_mx.fprice * mrate,2)
	outwaremx[it_mxbt].price = Round(outwaremx[it_mxbt].fprice * s_mx.rebate,2)
Else
	outwaremx[it_mxbt].fprice = s_mx.fprice * mrate
	outwaremx[it_mxbt].price = outwaremx[it_mxbt].fprice * s_mx.rebate
End If


If billtype = 1 And s_mx.ifrel = 1 And uo_option_outware_sale_checkprice = 1 Then
	If Abs(outwaremx[it_mxbt].price - ld_price_task) > 0.02 Then
		arg_msg = '第'+String(s_mx.printid)+'行,物料编码:'+i_mtrlcode+',销售发货单实价:'+String(outwaremx[it_mxbt].price,'#,##0.00')+' 与对应销售订单实价:'+String(ld_price_task,'#,##0.00')+' 不一致,请检查'
		rslt = 0
		Goto ext
	End If
End If

If billtype = 1 Then
	If uo_option_price_rmb = 1 Then
		outwaremx[it_mxbt].enacprice = Round(outwaremx[it_mxbt].fprice * s_mx.rebate/mrate,2)
	Else
		outwaremx[it_mxbt].enacprice = outwaremx[it_mxbt].fprice * s_mx.rebate/mrate
	End If
Else
	outwaremx[it_mxbt].enacprice = 0
End If

outwaremx[it_mxbt].sptid = i_sptid
outwaremx[it_mxbt].dxflag = i_dxflag
outwaremx[it_mxbt].ifrel = s_mx.ifrel
outwaremx[it_mxbt].relid = s_mx.relid
outwaremx[it_mxbt].olmtrlid = s_mx.olmtrlid
outwaremx[it_mxbt].packqty = s_mx.packqty
outwaremx[it_mxbt].woodcode = i_woodcode
outwaremx[it_mxbt].pcode = i_pcode
outwaremx[it_mxbt].relcode = ls_relcode
outwaremx[it_mxbt].relprintid = s_mx.relprintid
outwaremx[it_mxbt].unit = s_mx.unit
outwaremx[it_mxbt].rate = s_mx.rate
outwaremx[it_mxbt].uqty = s_mx.uqty

outwaremx[it_mxbt].mtrlcuscode = i_mtrlcuscode
outwaremx[it_mxbt].Location = i_location

outwaremx[it_mxbt].scidprice = ld_scidprice
outwaremx[it_mxbt].pricetype = s_mx.pricetype
outwaremx[it_mxbt].formula = s_mx.formula
outwaremx[it_mxbt].capacity = ld_capacity * s_mx.qty

outwaremx[it_mxbt].saleoutid = s_mx.saleoutid
outwaremx[it_mxbt].saleoutprintid = s_mx.saleoutprintid

outwaremx[it_mxbt].mxdscrp2 = s_mx.mxdscrp2
outwaremx[it_mxbt].net_weight = s_mx.net_weight
outwaremx[it_mxbt].gross_weight = s_mx.gross_weight
outwaremx[it_mxbt].cubage = s_mx.cubage
outwaremx[it_mxbt].taxrate = s_mx.taxrate

outwaremx[it_mxbt].priceformula = s_mx.priceformula
outwaremx[it_mxbt].qtyformula = s_mx.qtyformula
outwaremx[it_mxbt].ifvqty = s_mx.ifvqty
outwaremx[it_mxbt].backtype = s_mx.backtype
outwaremx[it_mxbt].ifnotinout = s_mx.ifnotinout

outwaremx[it_mxbt].ifpackpro = i_ifpackpro
outwaremx[it_mxbt].ifpack = i_ifpack

ext:
If rslt = 0 Then p_clearmx()

Destroy uo_price

Return rslt









end function

protected function integer p_update_mtrlware (long arg_mtrlwareid, long arg_mtrlid, string arg_mtrlcode, long arg_storageid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_uqty, decimal arg_costamt, decimal arg_planprice, long arg_sptid, integer arg_dxflag, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, string arg_location, integer arg_ifvqty, ref string arg_msg);Int rslt = 1
Long ls_newid
Decimal ld_cost
Int li_storMtrlprp,li_storagetype,li_outtype_storage
Long ll_storagescid
Int li_ifunit,li_ifpack,li_ifpackpro

Int li_statusflag
Decimal ld_capacity,ld_capacity_zj
s_mtrlcfg_expr s_pz[]
String ls_status_zj
Long ll_i
Decimal ld_noallocqty,ld_allocqty
String ls_storagename
Int li_ifcost
Int if_recmp_balc

String or_err_part

Decimal ld_pypkqty,ld_pypkamt
Decimal ld_saleoutqty,ld_saleoutamt
Decimal ld_saleoutqty_pack,ld_saleoutamt_pack
Decimal ld_buyoutqty_packpro,ld_buyoutamt_packpro
Decimal ld_cpoutqty,ld_cpoutamt
Decimal ld_jgoutqty,ld_jgoutamt
Decimal ld_dioutqty,ld_dioutamt
Decimal ld_mvoutqty,ld_mvoutamt
Decimal ld_otoutqty,ld_otoutamt
Decimal ld_pkoutqty,ld_pkoutamt
int li_ifmrp

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

SELECT Mtrlprp,scid,storagetype,outtype,storagename,ifcost,ifmrp
	INTO :li_storMtrlprp,:ll_storagescid,:li_storagetype,:li_outtype_storage,:ls_storagename,:li_ifcost,:li_ifmrp
	FROM u_storage
	Where storageid = :arg_storageid Using commit_transaction  ;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询仓库信息失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF li_storagetype = 1 THEN
	IF billtype <> 1 And billtype <> 23 Or billtype = 1 And li_outtype_storage = 0 THEN
		SELECT noallocqty,allocqty INTO :ld_noallocqty,:ld_allocqty
			FROM u_mtrlware
			WHERE ( mtrlwareid = :arg_mtrlwareid ) AND
			( scid = :ll_storagescid ) Using commit_transaction  ;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '仓库:'+ls_storagename+',查询库存信息失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF ld_noallocqty - arg_qty  < ld_allocqty THEN
			arg_msg = '仓库:'+ls_storagename+',库存数小于已分配数,请检查库存,库存id:'+string(arg_mtrlwareid)+',库存数:'+String(ld_noallocqty - arg_qty,'#0.##########')+',已分配数:'+String(ld_allocqty,'#0.##########')
			rslt = 0
			GOTO ext
		END IF
	END IF
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 = '查询物料信息失败,'+commit_transaction.SQLErrText
	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
String ls_str

IF billtype = 1 Or &
	billtype = 2 Or &
	billtype = 3 Or &
	billtype = 4 Or &
	billtype = 5 Or &
	billtype = 7 Or &
	billtype = 8 Or &
	billtype = 10 Or &
	billtype = 12 Or &
	billtype = 17 Or &
	billtype = 21 Or &
	billtype = 24 THEN
	li_ifupdate_date = 1
ELSE
	li_ifupdate_date = 0
END IF



IF li_ifunit = 0 THEN arg_uqty = 0

IF li_ifcost = 1 THEN
	
	UPDATE u_mtrlware
		SET noallocqty = noallocqty - :arg_qty ,
		unoallocqty = unoallocqty - :arg_uqty,
		capacity = capacity + :ld_capacity * :arg_qty ,
		wareamt = case noallocqty - :arg_qty when 0 then 0 else wareamt - :arg_costamt END ,
		cost = case noallocqty - :arg_qty when 0 then cost else round((wareamt - :arg_costamt)/(noallocqty - :arg_qty),:uo_option_cost_dec) END ,
		saledate = case :li_ifupdate_date when 1 then getdate() else saledate END
		WHERE ( mtrlwareid = :arg_mtrlwareid ) AND
		( scid = :ll_storagescid ) Using commit_transaction  ;
	IF commit_transaction.SQLCode = 0 THEN
		IF commit_transaction.SQLNRows = 0 THEN
			ls_newid = f_sys_scidentity(ll_storagescid,"u_mtrlware","mtrlwareid",arg_msg,True,id_sqlca)
			IF ls_newid <= 0 THEN
				rslt = 0
				GOTO ext
			END IF
			ld_cost = Round(arg_costamt/arg_qty,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,
				mtrlcuscode,
				location,
				capacity)
				VALUES (
				:ll_storagescid,
				:ls_newid,
				:arg_mtrlid,
				:arg_storageid,
				:arg_plancode,
				:arg_status,
				:arg_qty,
				:arg_uqty,
				0,
				:arg_costamt,
				:arg_planprice,
				:arg_sptid,
				:arg_dxflag,
				:arg_woodcode,
				:arg_pcode,
				:ld_cost,
				:li_storMtrlprp,
				:arg_mtrlcuscode,
				:arg_location,
				:ld_capacity * :arg_qty) Using commit_transaction ;
			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
			IF commit_transaction.SQLCode <> 0 THEN
				rslt = 0
				IF Pos(commit_transaction.SQLErrText,'CK_u_mtrlware') > 0 THEN
					arg_msg = '仓库:'+ls_storagename+',库存id:'+String(arg_mtrlwareid)+",物料:"+arg_mtrlcode+ls_str+",同仓库内同批号没有足够的库存数量支持冲减,"+commit_transaction.SQLErrText
				ELSEIF Pos(commit_transaction.SQLErrText,'CREATE RULE') > 0 And Pos(commit_transaction.SQLErrText,'cost') > 0 THEN
					arg_msg = '仓库:'+ls_storagename+',库存id:'+String(arg_mtrlwareid)+",物料:"+arg_mtrlcode+ls_str+",同仓库内同批号的库存金额不够冲减,"+commit_transaction.SQLErrText
				ELSE
					arg_msg = '仓库:'+ls_storagename+',库存id:'+String(arg_mtrlwareid)+",因网络或其它原因导致物料["+arg_mtrlcode+"]库存建立操作失败"+"~n"+commit_transaction.SQLErrText
				END IF
				
				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+',库存id:'+String(arg_mtrlwareid)+",物料:"+arg_mtrlcode+",同仓库内同批号没有足够的库存支持冲减,"+commit_transaction.SQLErrText
		ELSEIF Pos(commit_transaction.SQLErrText,'CK_u_mtrlware') > 0 THEN
			arg_msg = '仓库:'+ls_storagename+',库存id:'+String(arg_mtrlwareid)+",物料:"+arg_mtrlcode+ls_str+",同仓库内同批号没有足够的库存支持冲减,"+commit_transaction.SQLErrText
		ELSEIF Pos(commit_transaction.SQLErrText,'CREATE RULE') > 0 And Pos(commit_transaction.SQLErrText,'cost') > 0 THEN
			arg_msg = '仓库:'+ls_storagename+',库存id:'+String(arg_mtrlwareid)+",物料:"+arg_mtrlcode+ls_str+",同仓库内同批号的库存金额不够冲减"
		ELSE
			arg_msg = '仓库:'+ls_storagename+',库存id:'+String(arg_mtrlwareid)+",因网络或其它原因导致物料:"+arg_mtrlcode+' '+uo_option_change_status+':'+arg_status+' '+uo_option_change_pcode+':'+arg_pcode+' '+uo_option_change_woodcode+':'+arg_woodcode+"库存更新操作失败"+"~n"+commit_transaction.SQLErrText
		END IF
		GOTO ext
	END IF
	
	//-----------------------------------更新结存
	
	
	CHOOSE CASE billtype
		CASE 1,2,5,6
			ld_saleoutqty = arg_qty
			ld_saleoutamt = arg_costamt
		CASE 3
			ld_cpoutqty = arg_qty
			ld_cpoutamt = arg_costamt
		CASE 4,7
			ld_jgoutqty = arg_qty
			ld_jgoutamt = arg_costamt
		CASE 8
			ld_otoutqty = arg_qty
			ld_otoutamt = arg_costamt
		CASE 9
			ld_pkoutqty = arg_qty
			ld_pkoutamt = arg_costamt
			ld_pypkqty = arg_qty
			ld_pypkamt = arg_costamt
		CASE 12
			ld_mvoutqty = arg_qty
			ld_mvoutamt = arg_costamt
		CASE 15
			ld_dioutqty = arg_qty
			ld_dioutamt = arg_costamt
		CASE 21
			ld_saleoutqty_pack = arg_qty
			ld_saleoutamt_pack = arg_costamt
		CASE 23
			ld_buyoutqty_packpro = arg_qty
			ld_buyoutamt_packpro = arg_costamt
		CASE ELSE
			ld_otoutqty = arg_qty
			ld_otoutamt = arg_costamt
	END CHOOSE
	
	
	UPDATE u_warebalc
		SET desqty = desqty + :arg_qty ,
		udesqty = udesqty + :arg_uqty,
		desamt  = desamt + :arg_costamt,
		
		vdesqty = case :arg_ifvqty when 0 then vdesqty else vdesqty + :arg_qty END ,
		uvdesqty = case :arg_ifvqty when 0 then uvdesqty else uvdesqty + :arg_uqty END ,
		vdesamt  = case :arg_ifvqty when 0 then vdesamt else vdesamt + :arg_costamt END ,
		
		balcqty = balcqty - :arg_qty,
		ubalcqty = ubalcqty - :arg_uqty,
		balcamt = case balcqty - :arg_qty when 0 then 0 else balcamt - :arg_costamt END,
		pypk = pypk - :ld_pypkqty,
		pypkamt = pypkamt - :ld_pypkamt,
		
		saleoutqty = saleoutqty + :ld_saleoutqty,
		saleoutamt = saleoutamt + :ld_saleoutamt,
		
		saleoutqty_pack = saleoutqty_pack + :ld_saleoutqty_pack,
		saleoutamt_pack = saleoutamt_pack + :ld_saleoutamt_pack,
		
		buyoutqty_packpro = buyoutqty_packpro + :ld_buyoutqty_packpro,
		buyoutamt_packpro = buyoutamt_packpro + :ld_buyoutamt_packpro,
		
		cpoutqty = cpoutqty + :ld_cpoutqty,
		cpoutamt = cpoutamt + :ld_cpoutamt,
		
		jgoutqty = jgoutqty + :ld_jgoutqty,
		jgoutamt = jgoutamt + :ld_jgoutamt,
		
		otoutqty = otoutqty + :ld_otoutqty,
		otoutamt = otoutamt + :ld_otoutamt,
		
		mvoutqty = mvoutqty + :ld_mvoutqty,
		mvoutamt = mvoutamt + :ld_mvoutamt,
		
		dioutqty = dioutqty + :ld_dioutqty,
		dioutamt = dioutamt + :ld_dioutamt,
		
		pkoutqty = pkoutqty + :ld_pkoutqty,
		pkoutamt = pkoutamt + :ld_pkoutamt
		WHERE ( balcdateint  = 0 ) AND
		( scid = :ll_storagescid) AND
		( mtrlwareid = :arg_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 ,
				saleoutqty,
				saleoutamt,
				saleoutqty_pack,
				saleoutamt_pack,
				buyoutqty_packpro,
				buyoutamt_packpro,
				cpoutqty,
				cpoutamt,
				jgoutqty,
				jgoutamt,
				dioutqty,
				dioutamt,
				mvoutqty,
				mvoutamt,
				otoutqty,
				otoutamt,
				pkoutqty,
				pkoutamt,
				woodcode,
				pcode,
				ubgqty,
				uincqty,
				udesqty,
				ubalcqty,
				plancode,
				sptid,
				dxflag,
				mtrlcuscode,
				location,
				mtrlwareid)
				VALUES (
				0,
				:arg_mtrlid,
				:arg_storageid,
				0,
				0,
				0,
				0,
				:arg_qty,
				:arg_costamt,
				0 - :arg_qty,
				0 - :arg_costamt,
				0 - :ld_pypkqty,
				0 - :ld_pypkamt,
				:arg_status,
				:ll_storagescid,
				:ld_saleoutqty,
				:ld_saleoutamt,
				:ld_saleoutqty_pack,
				:ld_saleoutamt_pack,
				:ld_buyoutqty_packpro,
				:ld_buyoutamt_packpro,
				:ld_cpoutqty,
				:ld_cpoutamt,
				:ld_jgoutqty,
				:ld_jgoutamt,
				:ld_dioutqty,
				:ld_dioutamt,
				:ld_mvoutqty,
				:ld_mvoutamt,
				:ld_otoutqty,
				:ld_otoutamt,
				:ld_pkoutqty,
				:ld_pkoutamt,
				:arg_woodcode,
				:arg_pcode,
				0,
				0,
				:arg_uqty,
				0 - :arg_uqty,
				:arg_plancode,
				:arg_sptid,
				:arg_dxflag,
				:arg_mtrlcuscode,
				:arg_location,
				:arg_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+'颜色:'+arg_status+'面料:'+arg_pcode+'材质:'+arg_woodcode+"结存更新操作失败"+"~n"+commit_transaction.SQLErrText
		END IF
		GOTO ext
	END IF
	
ELSE
	UPDATE u_mtrlware
		SET noallocqty = noallocqty - :arg_qty ,
		unoallocqty = unoallocqty - :arg_uqty,
		capacity = capacity + :ld_capacity * :arg_qty ,
		wareamt = 0 ,
		cost = 0 ,
		saledate = case :li_ifupdate_date when 1 then getdate() else saledate END
		WHERE ( mtrlwareid = :arg_mtrlwareid ) AND
		( scid = :ll_storagescid ) Using commit_transaction  ;
	IF commit_transaction.SQLCode = 0 THEN
		IF commit_transaction.SQLNRows = 0 THEN
			ls_newid = f_sys_scidentity(ll_storagescid,"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,
				mtrlcuscode,
				location,
				capacity)
				VALUES (
				:ll_storagescid,
				: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_mtrlcuscode,
				:arg_location,
				:ld_capacity * :arg_qty) Using commit_transaction ;
			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
			IF commit_transaction.SQLCode <> 0 THEN
				rslt = 0
				IF Pos(commit_transaction.SQLErrText,'CK_u_mtrlware') > 0 THEN
					arg_msg = '仓库:'+ls_storagename+',库存id:'+String(arg_mtrlwareid)+",物料:"+arg_mtrlcode+ls_str+",同仓库内同批号没有足够的库存数量支持冲减,"+commit_transaction.SQLErrText
				ELSEIF Pos(commit_transaction.SQLErrText,'CREATE RULE') > 0 And Pos(commit_transaction.SQLErrText,'cost') > 0 THEN
					arg_msg = '仓库:'+ls_storagename+',库存id:'+String(arg_mtrlwareid)+",物料:"+arg_mtrlcode+ls_str+",同仓库内同批号的库存金额不够冲减,"+commit_transaction.SQLErrText
				ELSE
					arg_msg = '仓库:'+ls_storagename+',库存id:'+String(arg_mtrlwareid)+",因网络或其它原因导致物料["+arg_mtrlcode+"]库存建立操作失败"+"~n"+commit_transaction.SQLErrText
				END IF
				
				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+',库存id:'+String(arg_mtrlwareid)+",物料:"+arg_mtrlcode+",同仓库内同批号没有足够的库存支持冲减,"+commit_transaction.SQLErrText
		ELSEIF Pos(commit_transaction.SQLErrText,'CK_u_mtrlware') > 0 THEN
			arg_msg = '仓库:'+ls_storagename+',库存id:'+String(arg_mtrlwareid)+",物料:"+arg_mtrlcode+ls_str+",同仓库内同批号没有足够的库存支持冲减,"+commit_transaction.SQLErrText
		ELSEIF Pos(commit_transaction.SQLErrText,'CREATE RULE') > 0 And Pos(commit_transaction.SQLErrText,'cost') > 0 THEN
			arg_msg = '仓库:'+ls_storagename+',库存id:'+String(arg_mtrlwareid)+",物料:"+arg_mtrlcode+ls_str+",同仓库内同批号的库存金额不够冲减"
		ELSE
			arg_msg = '仓库:'+ls_storagename+',库存id:'+String(arg_mtrlwareid)+",因网络或其它原因导致物料:"+arg_mtrlcode+' '+uo_option_change_status+':'+arg_status+' '+uo_option_change_pcode+':'+arg_pcode+' '+uo_option_change_woodcode+':'+arg_woodcode+"库存更新操作失败"+"~n"+commit_transaction.SQLErrText
		END IF
		GOTO ext
	END IF
	
	//-----------------------------------更新结存
	
	
	CHOOSE CASE billtype
		CASE 1,2,5,6
			ld_saleoutqty = arg_qty
		CASE 3
			ld_cpoutqty = arg_qty
		CASE 4,7
			ld_jgoutqty = arg_qty
		CASE 8
			ld_otoutqty = arg_qty
		CASE 9
			ld_pkoutqty = arg_qty
			ld_pypkqty = arg_qty
		CASE 12
			ld_mvoutqty = arg_qty
		CASE 15
			ld_dioutqty = arg_qty
		CASE 21
			ld_saleoutqty_pack = arg_qty
		CASE 23
			ld_buyoutqty_packpro = arg_qty
		CASE ELSE
			ld_otoutqty = arg_qty
	END CHOOSE
	
	
	UPDATE u_warebalc
		SET desqty = desqty + :arg_qty ,
		udesqty = udesqty + :arg_uqty,
		desamt  = 0,
		
		vdesqty = case :arg_ifvqty when 0 then vdesqty else vdesqty + :arg_qty END ,
		uvdesqty = case :arg_ifvqty when 0 then uvdesqty else uvdesqty + :arg_uqty END ,
		vdesamt  = 0 ,
		
		balcqty = balcqty - :arg_qty,
		ubalcqty = ubalcqty - :arg_uqty,
		balcamt = 0,
		pypk = pypk - :ld_pypkqty,
		pypkamt = 0,
		
		saleoutqty = saleoutqty + :ld_saleoutqty,
		saleoutamt = 0,
		
		saleoutqty_pack = saleoutqty_pack + :ld_saleoutqty_pack,
		saleoutamt_pack = 0,
		
		buyoutqty_packpro = buyoutqty_packpro + :ld_buyoutqty_packpro,
		buyoutamt_packpro = 0,
		
		cpoutqty = cpoutqty + :ld_cpoutqty,
		cpoutamt = 0,
		
		jgoutqty = jgoutqty + :ld_jgoutqty,
		jgoutamt = 0,
		
		otoutqty = otoutqty + :ld_otoutqty,
		otoutamt = 0,
		
		mvoutqty = mvoutqty + :ld_mvoutqty,
		mvoutamt = 0,
		
		dioutqty = dioutqty + :ld_dioutqty,
		dioutamt = 0,
		
		pkoutqty = pkoutqty + :ld_pkoutqty,
		pkoutamt = 0
		WHERE ( balcdateint  = 0 ) AND
		( scid = :ll_storagescid) AND
		( mtrlwareid = :arg_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 ,
				saleoutqty,
				saleoutamt,
				saleoutqty_pack,
				saleoutamt_pack,
				buyoutqty_packpro,
				buyoutamt_packpro,
				cpoutqty,
				cpoutamt,
				jgoutqty,
				jgoutamt,
				dioutqty,
				dioutamt,
				mvoutqty,
				mvoutamt,
				otoutqty,
				otoutamt,
				pkoutqty,
				pkoutamt,
				woodcode,
				pcode,
				ubgqty,
				uincqty,
				udesqty,
				ubalcqty,
				plancode,
				sptid,
				dxflag,
				mtrlcuscode,
				location,
				mtrlwareid)
				VALUES (
				0,
				:arg_mtrlid,
				:arg_storageid,
				0,
				0,
				0,
				0,
				:arg_qty,
				0,
				0 - :arg_qty,
				0,
				0 - :ld_pypkqty,
				0,
				:arg_status,
				:ll_storagescid,
				:ld_saleoutqty,
				0,
				:ld_saleoutqty_pack,
				0,
				:ld_buyoutqty_packpro,
				0,
				:ld_cpoutqty,
				0,
				:ld_jgoutqty,
				0,
				:ld_dioutqty,
				0,
				:ld_mvoutqty,
				0,
				:ld_otoutqty,
				0,
				:ld_pkoutqty,
				0,
				:arg_woodcode,
				:arg_pcode,
				0,
				0,
				:arg_uqty,
				0 - :arg_uqty,
				:arg_plancode,
				:arg_sptid,
				:arg_dxflag,
				:arg_mtrlcuscode,
				:arg_location,
				:arg_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+'颜色:'+arg_status+'面料:'+arg_pcode+'材质:'+arg_woodcode+"结存更新操作失败"+"~n"+commit_transaction.SQLErrText
		END IF
		GOTO ext
	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 not (billtype = 3  And relint_1 = 2 ) and li_ifmrp = 1 and not ( billtype = 3  And relint_1 = 4) 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 = '冻结数不能大于库存数,冻结数:'+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 acceptmx_mx (long arg_printid, long arg_mtrlwareid, decimal arg_planqty, decimal arg_qty, string arg_mxdscrp, long arg_mxprintid, integer arg_ifnotinout, ref string arg_msg);Long rslt = 1,cnt = 0,LS_i
String i_plancode,i_mtrlcode,i_status,i_woodcode,i_pcode
Long ll_storagescid
Long i_mtrlid,i_storageid,i_sptid
Int i_dxflag
string i_mtrlcuscode,i_location
int i_ifpackpro,i_ifpack

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

SELECT scid INTO :ll_storagescid
	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 IsNull(arg_mtrlwareid) THEN arg_mtrlwareid = 0
IF IsNull(arg_printid) THEN arg_printid = 0
IF IsNull(arg_qty) THEN arg_qty = 0
IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = ''
IF IsNull(arg_planqty) THEN arg_planqty = 0
IF IsNull(arg_mxprintid) THEN arg_mxprintid = 0

IF arg_mtrlwareid = 0 Or ( arg_qty = 0 AND arg_planqty = 0 )  THEN
	rslt = 1
	GOTO ext
END IF

//检查物料库存ID
SELECT u_mtrlware.mtrlid,
	u_mtrlware.storageid,
	u_mtrlware.plancode,
	u_mtrlware.status,
	u_mtrldef.mtrlcode,
	u_mtrlware.sptid,
	u_mtrlware.dxflag,
	u_mtrlware.woodcode,
	u_mtrlware.pcode,
	u_mtrlware.mtrlcuscode,
	u_mtrlware.location,
	u_mtrldef.ifpackpro,
	u_mtrldef.ifpack
	INTO :i_mtrlid,
	:i_storageid,
	:i_plancode,
	:i_status,
	:i_mtrlcode,
	:i_sptid,
	:i_dxflag,
	:i_woodcode,
	:i_pcode,
	:i_mtrlcuscode,
	:i_location,
	:i_ifpackpro,
	:i_ifpack
	FROM u_mtrlware ,u_mtrldef
	WHERE ( u_mtrlware.mtrlwareid = :arg_mtrlwareid )
	AND	( u_mtrlware.mtrlid = u_mtrldef.mtrlid )
	And ( u_mtrlware.scid = :ll_storagescid ) USING commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "第"+String(arg_printid)+"行,查询操作失败,库存编号(出仓单)错误,分部:"+String(ll_storagescid)+'库存:'+String(arg_mtrlwareid)+',~n'+commit_transaction.SQLErrText
	GOTO ext
END IF

IF IsNull(i_plancode) THEN i_plancode = ''
IF IsNull(i_status) THEN i_status = ''
IF IsNull(i_mtrlid) THEN i_mtrlid = 0
IF IsNull(i_storageid) THEN i_storageid = 0
IF IsNull(i_sptid) THEN i_sptid = 0
IF IsNull(i_dxflag) THEN i_dxflag = 0
IF IsNull(i_woodcode) THEN i_woodcode = ''
IF IsNull(i_pcode) THEN i_pcode = ''
IF IsNull(i_mtrlcuscode) THEN i_mtrlcuscode = ''
IF IsNull(i_location) THEN i_location = ''
IF IsNull(i_ifpackpro) THEN i_ifpackpro = 0
IF IsNull(i_ifpack) THEN i_ifpack = 0

//写入内容
it_mxbt_mx++
outwaremx_mx[it_mxbt_mx].mtrlwareid = arg_mtrlwareid
outwaremx_mx[it_mxbt_mx].mtrlid = i_mtrlid
outwaremx_mx[it_mxbt_mx].status = i_status
outwaremx_mx[it_mxbt_mx].qty = arg_qty
outwaremx_mx[it_mxbt_mx].planqty = arg_planqty
outwaremx_mx[it_mxbt_mx].storageid = i_storageid
outwaremx_mx[it_mxbt_mx].plancode = i_plancode
outwaremx_mx[it_mxbt_mx].mtrlcode = i_mtrlcode
outwaremx_mx[it_mxbt_mx].mxdscrp = arg_mxdscrp
outwaremx_mx[it_mxbt_mx].printid = arg_printid
outwaremx_mx[it_mxbt_mx].mxprintid = arg_mxprintid
outwaremx_mx[it_mxbt_mx].sptid = i_sptid
outwaremx_mx[it_mxbt_mx].dxflag = i_dxflag
outwaremx_mx[it_mxbt_mx].woodcode = i_woodcode
outwaremx_mx[it_mxbt_mx].pcode = i_pcode
outwaremx_mx[it_mxbt_mx].mtrlcuscode = i_mtrlcuscode
outwaremx_mx[it_mxbt_mx].location = i_location
outwaremx_mx[it_mxbt_mx].ifnotinout = arg_ifnotinout

outwaremx_mx[it_mxbt_mx].ifpackpro = i_ifpackpro
outwaremx_mx[it_mxbt_mx].ifpack = i_ifpack

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

end function

public function integer uof_noauditingqty_add (long arg_scid, long arg_billtype, integer arg_relint_1, ref string arg_msg);If uo_option_noauditingqty_mode = 0 Then Return 1

Int rslt = 1
Long i
Decimal ld_qty,ld_uqty

If thflag = 1 Then
	rslt = 1
	Goto ext
End If

For i = 1 To it_mxbt
	ld_qty = 0
	ld_uqty = 0
	If arg_billtype <> 1 And arg_billtype <> 3 Then
		ld_qty = outwaremx[i].qty
		ld_uqty = outwaremx[i].uqty
	ElseIf arg_billtype = 3 And arg_relint_1 <> 4 And arg_relint_1 <> 2 Then
		ld_qty = outwaremx[i].qty
		ld_uqty = outwaremx[i].uqty
	ElseIf arg_billtype = 3 And arg_relint_1 = 4 And uo_option_scllplan_outware_auto = 1 Then
		ld_qty = outwaremx[i].qty
		ld_uqty = outwaremx[i].uqty
	ElseIf arg_billtype = 1 And uo_option_inout_type = 0 Then
		If outwaremx[i].qty = 0 Then
			ld_qty = outwaremx[i].planqty
		Else
			ld_qty = outwaremx[i].qty
		End If
		
		ld_uqty = outwaremx[i].uqty
	ElseIf arg_billtype = 1 And uo_option_inout_type > 0 And outwaremx[i].ifpack = 0 And outwaremx[i].ifpackpro = 0 Then
		If outwaremx[i].qty = 0 Then
			ld_qty = outwaremx[i].planqty
		Else
			ld_qty = outwaremx[i].qty
		End If
		
		ld_uqty = outwaremx[i].uqty
	End If
	
	Update u_mtrlware
		Set noauditingqty = noauditingqty + :ld_qty,
		noauditinguqty = noauditingqty + :ld_uqty
		Where scid = :arg_scid
		And mtrlwareid  = :outwaremx[i].mtrlwareid;
	If sqlca.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '物料:'+String(outwaremx[i].mtrlcode)+',更新明细库存已开单数失败 '+sqlca.SQLErrText
		Goto ext
	End If
	
Next

For i = 1 To it_mxbt_mx
	
	ld_qty = 0
	ld_uqty = 0
	If uo_option_inout_type > 0 Then
		If outwaremx_mx[i].ifpack = 1 Or outwaremx_mx[i].ifpackpro = 4 Or outwaremx_mx[i].ifpackpro = 3 Then
			If outwaremx_mx[i].qty = 0 Then
				ld_qty = outwaremx_mx[i].planqty
			Else
				ld_qty = outwaremx_mx[i].qty
			End If
			
			ld_uqty = ld_qty
			
			Update u_mtrlware
				Set noauditingqty = noauditingqty + :ld_qty,
				noauditinguqty = noauditingqty + :ld_uqty
				Where scid = :arg_scid
				And mtrlwareid  = :outwaremx_mx[i].mtrlwareid;
			If sqlca.SQLCode <> 0 Then
				rslt = 0
				arg_msg = '物料:'+String(outwaremx_mx[i].mtrlcode)+',更新明细库存已开单数失败 '+sqlca.SQLErrText
				Goto ext
			End If
		End If
	End If
	
Next




ext:
Return rslt








end function

public function integer uof_noauditingqty_del (long arg_scid, long arg_outwareid, ref string arg_msg);If uo_option_noauditingqty_mode = 0 Then Return 1


Int rslt = 1
Long i,ll_i,j
Decimal ld_qty,ld_uqty
Int arg_billtype,arg_relint_1

If thflag = 1 Then
	rslt = 1
	Goto ext
End If


i = 1
j = 1

s_outwaremx arg_s_mx[]
s_outwaremx_mx arg_s_mxmx[]

Select billtype,relint_1
	Into :arg_billtype,:arg_relint_1
	From u_outware
	Where scid = :arg_scid
	And outwareid = :arg_outwareid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '查询单据信息失败,'+commit_transaction.SQLErrText
	Goto ext
End If


Declare cur_outwaremx Cursor For
	Select u_outwaremx.mtrlwareid,
	u_outwaremx.planqty,
	u_outwaremx.qty,
	u_outwaremx.uqty,
	u_mtrldef.mtrlcode,
	u_mtrldef.ifpackpro,
	u_mtrldef.ifpack
	From u_outwaremx,u_mtrldef
	Where u_outwaremx.outwareid = :arg_outwareid  And
	u_outwaremx.mtrlid = u_mtrldef.mtrlid And
	u_outwaremx.scid = :arg_scid
	Order By u_outwaremx.printid Using commit_transaction;
	
Open cur_outwaremx;
Fetch cur_outwaremx Into :arg_s_mx[i].mtrlwareid,:arg_s_mx[i].planqty,:arg_s_mx[i].qty,:arg_s_mx[i].uqty,
	:arg_s_mx[i].mtrlcode,:arg_s_mx[i].ifpackpro,:arg_s_mx[i].ifpack;
Do While sqlca.SQLCode = 0
	i++
	Fetch cur_outwaremx Into :arg_s_mx[i].mtrlwareid,:arg_s_mx[i].planqty,:arg_s_mx[i].qty,:arg_s_mx[i].uqty,
		:arg_s_mx[i].mtrlcode,:arg_s_mx[i].ifpackpro,:arg_s_mx[i].ifpack;
Loop
Close cur_outwaremx;


Declare cur_outwaremx_mx Cursor For
	Select u_outwaremx_mx.mtrlwareid,
	u_outwaremx_mx.planqty,
	u_outwaremx_mx.qty,
	u_mtrldef.ifpackpro,
	u_mtrldef.ifpack,
	u_mtrldef.mtrlcode
	From u_outwaremx_mx Inner JOIN
	u_mtrldef ON u_outwaremx_mx.mtrlid = u_mtrldef.mtrlid
	Where u_outwaremx_mx.scid = :arg_scid
	And u_outwaremx_mx.outwareid = :arg_outwareid
	Order By u_outwaremx_mx.mxprintid  Using commit_transaction;
	
Open cur_outwaremx_mx;
Fetch cur_outwaremx_mx Into :arg_s_mxmx[j].mtrlwareid,:arg_s_mxmx[j].planqty,:arg_s_mxmx[j].qty,
	:arg_s_mxmx[j].ifpackpro, :arg_s_mxmx[j].ifpack, :arg_s_mxmx[j].mtrlcode;
Do While sqlca.SQLCode = 0
	j++
	Fetch cur_outwaremx_mx Into :arg_s_mxmx[j].mtrlwareid,:arg_s_mxmx[j].planqty,:arg_s_mxmx[j].qty,
		:arg_s_mxmx[j].ifpackpro, :arg_s_mxmx[j].ifpack, :arg_s_mxmx[j].mtrlcode;
Loop
Close cur_outwaremx_mx;

For ll_i = 1 To i - 1
	ld_qty = 0
	ld_uqty = 0
	If arg_billtype <> 1 And arg_billtype <> 3 Then
		ld_qty = arg_s_mx[ll_i].qty
		ld_uqty = arg_s_mx[ll_i].uqty
	ElseIf arg_billtype = 3 And arg_relint_1 <> 4 And arg_relint_1 <> 2 Then
		ld_qty = arg_s_mx[ll_i].qty
		ld_uqty = arg_s_mx[ll_i].uqty
	ElseIf arg_billtype = 3 And arg_relint_1 = 4 And uo_option_scllplan_outware_auto = 1 Then
		ld_qty = arg_s_mx[ll_i].qty
		ld_uqty = arg_s_mx[ll_i].uqty
	ElseIf arg_billtype = 1 And uo_option_inout_type = 0 Then
		If arg_s_mx[ll_i].qty = 0 Then
			ld_qty = arg_s_mx[ll_i].planqty
		Else
			ld_qty = arg_s_mx[ll_i].qty
		End If
		
		ld_uqty = arg_s_mx[ll_i].uqty
	ElseIf arg_billtype = 1 And uo_option_inout_type > 0 And arg_s_mx[ll_i].ifpack = 0 And arg_s_mx[ll_i].ifpackpro = 0 Then
		If arg_s_mx[ll_i].qty = 0 Then
			ld_qty = arg_s_mx[ll_i].planqty
		Else
			ld_qty = arg_s_mx[ll_i].qty
		End If
		
		ld_uqty = arg_s_mx[ll_i].uqty
	End If
	
	Update u_mtrlware
		Set noauditingqty = noauditingqty - :ld_qty,
		noauditinguqty = noauditingqty - :ld_uqty
		Where scid = :arg_scid
		And mtrlwareid  = :arg_s_mx[ll_i].mtrlwareid;
	If sqlca.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '物料:'+String(arg_s_mx[ll_i].mtrlcode)+',更新明细库存已开单数失败 '+sqlca.SQLErrText
		Goto ext
	End If
	
Next

For ll_i = 1 To j - 1
	ld_qty = 0
	ld_uqty = 0
	If uo_option_inout_type > 0 Then
		If arg_s_mxmx[ll_i].ifpack = 1 Or arg_s_mxmx[ll_i].ifpackpro = 4 Or arg_s_mxmx[ll_i].ifpackpro = 3 Then
			If arg_s_mxmx[ll_i].qty = 0 Then
				ld_qty = arg_s_mxmx[ll_i].planqty
			Else
				ld_qty = arg_s_mxmx[ll_i].qty
			End If
			
			ld_uqty = ld_qty
			
			
			
			Update u_mtrlware
				Set noauditingqty = noauditingqty - :ld_qty,
				noauditinguqty = noauditingqty - :ld_uqty
				Where scid = :arg_scid
				And mtrlwareid  = :arg_s_mxmx[ll_i].mtrlwareid;
			If sqlca.SQLCode <> 0 Then
				rslt = 0
				arg_msg = '物料:'+String(arg_s_mxmx[ll_i].mtrlcode)+',更新明细库存已开单数失败 '+sqlca.SQLErrText
				Goto ext
			End If
		End If
	End If
	
Next

ext:
Return rslt





end function

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

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

event constructor;String str_optionvalue,arg_msg

//f_get_sys_option_value('030',str_optionvalue,arg_msg)
//uo_option_autowaste = Long(str_optionvalue)
//
f_get_sys_option_value('142',str_optionvalue,arg_msg)
uo_option_inout_type = Long(str_optionvalue)

f_get_sys_option_value('205',str_optionvalue,arg_msg)
uo_option_barcode_outwareother_paudit = Long(str_optionvalue)

f_get_sys_option_value('025',str_optionvalue,arg_msg)
uo_option_confirmaudit_sale = Long(str_optionvalue)

f_get_sys_option_value('115',str_optionvalue,arg_msg)
uo_option_sale_use_planqty = Long(str_optionvalue)

f_get_sys_option_value('006',str_optionvalue,arg_msg)
uo_option_confirmaudit_scll = 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('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('158',str_optionvalue,arg_msg)
uo_option_mtrlware_autocmp = Long(str_optionvalue)

f_get_sys_option_value('037',str_optionvalue,arg_msg)
uo_option_mtrlware_limit = Long(str_optionvalue)

f_get_sys_option_value('200',str_optionvalue,arg_msg)
uo_option_if_saleout = Long(str_optionvalue)

f_get_sys_option_value('154',str_optionvalue,arg_msg)
uo_option_if_pricetype = Long(str_optionvalue)

f_get_sys_option_value('056',str_optionvalue,arg_msg)
uo_option_checkprice_native = Long(str_optionvalue)


f_get_sys_option_value('292',str_optionvalue,arg_msg)
uo_option_disuse_outware_sale = Long(str_optionvalue)

f_get_sys_option_value('300',str_optionvalue,arg_msg)
uo_option_sale_ifuse_negativeprice = Long(str_optionvalue)

f_get_sys_option_value('310',str_optionvalue,arg_msg)
uo_option_pda_sale_lock = Long(str_optionvalue)

f_get_sys_option_value('238',str_optionvalue,arg_msg)
uo_option_price_rmb = Long(str_optionvalue)

f_get_sys_option_value('320',str_optionvalue,arg_msg)
uo_option_outware_sale_checkprice = Long(str_optionvalue)

f_get_sys_option_value('123',str_optionvalue,arg_msg)
uo_option_scll_use_planqty = 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('378',str_optionvalue,arg_msg)
uo_option_djqty_check = long(str_optionvalue)


f_get_sys_option_value('147',str_optionvalue,arg_msg)
uo_option_outware_saleout = Long(str_optionvalue)

f_get_sys_option_value('248',str_optionvalue,arg_msg)
uo_option_scllplan_outware_auto = Long(str_optionvalue)

f_get_sys_option_value('390',str_optionvalue,arg_msg)
uo_option_noauditingqty_mode = Long(str_optionvalue)

f_get_sys_option_value('395',str_optionvalue,arg_msg)
uo_option_outware_pack_save_cmp = Long(str_optionvalue)


f_get_sys_option_value('397',str_optionvalue,arg_msg)
uo_option_pk_notauditqty_check = Long(str_optionvalue)


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


end event