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

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

global type uo_mtrlware_assign from nonvisualobject
end type
global uo_mtrlware_assign uo_mtrlware_assign

type variables
Long uo_assignid
Int li_if_assign_del_check_outware
Boolean ib_ifnotcheck_qty = False
Boolean ib_ifinware_audit_do = False

Transaction  commit_transaction //数据commit事务

Int uo_option_packpro2_not_use_pack1
Int uo_option_iffp_recmpl_canuseqty

Long uo_fp_storageid,uo_fp_pdbdate

Int li_if_uo_mtrlware_trans_fp_deluse
int uo_option_canpack_ifzanyong


end variables

forward prototypes
public function integer uof_assign_del (long arg_assignid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_assign_addoutqty (long arg_assignid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_plan_del (long arg_planid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_plan_addassignqty (long arg_planid, decimal arg_qty, string arg_inwarecode, long arg_inprintid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_assign_add (long arg_scid, long arg_mtrlwareid, integer arg_assigntype, long arg_relbillid, long arg_relprintid, decimal arg_assignqty, decimal arg_cost, string arg_dscrp, string arg_mtrlcuscode, string arg_inwarecode, long arg_inprintid, integer arg_fpgrade, string arg_opemp, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_plan_add (long arg_scid, long arg_mtrlwareid, integer arg_assigntype, long arg_relbillid, long arg_relprintid, decimal arg_planqty, string arg_dscrp, string arg_opemp, integer arg_plantype, integer arg_plankind, long arg_plankind_relbillid, long arg_plankind_relprintid, integer arg_fpgrade, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_assign_add_to_zl_scll (long arg_scid, long arg_orderid, long arg_mtrlid, long arg_wrkgrpid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_fpqty, long arg_from_p_orderid, integer arg_from_plantype, integer arg_from_produce_wrkgrpid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_assign_del_order (long arr_scid[], long arr_orderid[], ref string arg_msg, boolean if_commit)
public function integer uof_assign_add_order (long arg_scid[], long arg_orderid[], ref string arg_msg, boolean if_commit)
public function integer uof_assign_add_to_order (long arg_scid, long arg_mtrlwareid, long arg_orderid, decimal arg_qty, long arg_fpgrade, ref string arg_msg, boolean if_commit)
public function integer uof_assign_del_all_order (ref string arg_msg, boolean if_commit)
public function integer uof_assign_del_order_by_mtrlid (long arg_mtrlid, ref string arg_msg, boolean if_commit)
public function integer uof_assign_add_to_order_auto (ref string arg_msg, boolean if_commit)
public function integer uof_assign_add_to_order_by_mtrlid (long arg_mtrlid, ref string arg_msg, boolean if_commit)
public function integer uof_adjust_order_by_mtrlid (long arg_mtrlid, long arg_fpgrade, ref string arg_msg)
public function integer uof_assign_add_packpro_to_saletask (long arg_scid, long arg_mtrlwareid_task, long arg_cusid_task, long arg_mtrlid_task, decimal arg_fpqty, long arg_relbillid, long arg_relprintid, string arg_relbillcode, decimal arg_cost, string arg_dscrp, string arg_mtrlcuscode, integer arg_fpgrade, string arg_opemp, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_clear_barcodefp (ref string arg_barcode, string arg_msg, boolean arg_ifcommit)
end prototypes

public function integer uof_assign_del (long arg_assignid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_scid,ll_mtrlwareid,ll_storageid
Decimal ld_noallocqty,ld_allocqty
Decimal ld_assignqty,ld_outqty,ld_assignqty_mtrlcuscode,ld_assignqty_old_task
Int li_assigntype
Long ll_relbillid,ll_relprintid,ll_mtrlid,ll_mtrlid_son,ll_cusid,ll_fpgrade
Long i,cnt,k
Int li_ifpack,li_ifpackpro,li_ifpackpro_mtrlware
Decimal ld_Sonscale,ld_Sonscale_fm,ld_fpqty,ld_fpqty_mtrlcuscode
String ls_status,ls_woodcode,ls_pcode,ls_mtrlcuscode,ls_plancode
Long ll_mtrlwareid_task,ll_mtrlid_task
String ls_relbillcode,ls_mtrlcode,ls_mtrlcode_task
String ls_status_task,ls_woodcode_task,ls_pcode_task,ls_plancode_task
Int li_ref_ifadd
String arg_lsg
Decimal ld_ref_qty,ld_ref_pack_min_nofpqty,ld_ref_noauditingqty_ifpackpro
Int li_ifbarcodefp,li_outtype_storage
String ls_barcode
Decimal ld_barcode_fpqty_cancel,ld_ref_fpqty
s_cmplpackpro_ref_mtrlwareid_array s_mtrlwareid_array_rst


//取消指令分配用
Long j
Decimal ld_fpqty_zl,ld_arg_qty,ld_update_qty
Long ll_orderid_zl,ll_wrkgrpid_zl
String ls_ordercode_zl

Long ll_wrkgrpid, ll_plantype, ll_produce_wrkgrpid
Long arr_wrkgrpid[], arr_plantype[], arr_produce_wrkgrpid[]
Decimal ld_a_fpqty, arr_a_fpqty[], ld_tmpqty, ld_delqty
Long ll_rqcnt

IF uo_option_iffp_recmpl_canuseqty = -1000 THEN
	rslt = 0
	arg_msg = '选项:[290]库存分配是否重算库存可装数、未分配可装数、未开单可装数,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


datastore ds_cmpl_pack_saletask
ds_cmpl_pack_saletask = Create datastore
ds_cmpl_pack_saletask.DataObject = 'ds_uo_mtrlware_assign_saletask_pack_del'
ds_cmpl_pack_saletask.SetTransObject(commit_transaction)

datastore ds_cmpl_pack_saletask_barcode
ds_cmpl_pack_saletask_barcode = Create datastore
ds_cmpl_pack_saletask_barcode.DataObject = 'ds_uo_mtrlware_assign_saletask_barcode_del'
ds_cmpl_pack_saletask_barcode.SetTransObject(commit_transaction)

datastore ds_orderrqmtrl_fp_2_zl
ds_orderrqmtrl_fp_2_zl = Create datastore
ds_orderrqmtrl_fp_2_zl.DataObject = 'ds_order_mtrl_fp_to_zl_cancel'
ds_orderrqmtrl_fp_2_zl.SetTransObject(commit_transaction)

uo_cmpl_packpro uo_cmpl_p
uo_cmpl_p = Create uo_cmpl_packpro
uo_cmpl_p.commit_transaction = commit_transaction


IF IsNull(arg_assignid) THEN arg_assignid = 0
IF IsNull(arg_qty) THEN arg_qty = 0


ld_barcode_fpqty_cancel = arg_qty

SELECT scid,
	mtrlwareid,
	assignqty,
	outqty,
	assigntype,
	relbillid,
	relprintid,
	relbillcode,
	cusid,
	fpgrade
	INTO :ll_scid,
	:ll_mtrlwareid,
	:ld_assignqty,
	:ld_outqty,
	:li_assigntype,
	:ll_relbillid,
	:ll_relprintid,
	:ls_relbillcode,
	:ll_cusid,
	:ll_fpgrade
	FROM u_mtrlware_assign
	Where assignid = :arg_assignid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询库存分配资料失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF li_assigntype = 1 And li_if_assign_del_check_outware = 1 THEN
	cnt = 0
	SELECT count(*) INTO :cnt
		FROM u_outware,u_outwaremx
		WHERE u_outware.scid = u_outwaremx.scid
		AND u_outware.outwareid = u_outwaremx.outwareid
		AND u_outware.billtype = 1
		AND u_outware.flag = 0
		AND u_outwaremx.scid = :ll_scid
		AND u_outwaremx.relid = :ll_relbillid
		And u_outwaremx.relprintid = :ll_relprintid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '查询分配明细相关销售订单明细是否已开发货单失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF cnt > 0 THEN
		arg_msg = '分配明细相关销售订单明细已开发货单,操作取消'
		rslt = 0
		GOTO ext
	END IF
END IF

IF ld_assignqty - ld_outqty < arg_qty THEN
	arg_msg = '库存分配未出仓数只有:'+String(ld_assignqty - ld_outqty,'#,##0.##########') + ',不能取消分配数量:'+String(arg_qty,'#,##0.##########')
	rslt = 0
	GOTO ext
END IF

IF arg_qty = ld_assignqty And ld_outqty = 0 THEN
	DELETE FROM u_mtrlware_assign
		Where assignid = :arg_assignid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '删除库存分配失败,' + commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
ELSE
	UPDATE u_mtrlware_assign
		SET assignqty = assignqty - :arg_qty
		Where assignid = :arg_assignid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '更新库存分配已分配数失败,' + commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

UPDATE u_mtrlware
	SET allocqty = allocqty - :arg_qty
	WHERE mtrlwareid = :ll_mtrlwareid
	And scid = :ll_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '更新库存已分配数量失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

SELECT u_mtrlware.mtrlid,
	u_mtrlware.storageid,
	u_mtrldef.ifpack,
	u_mtrldef.ifpackpro,
	u_mtrldef.mtrlcode,
	u_mtrlware.status,
	u_mtrlware.woodcode,
	u_mtrlware.pcode,
	u_mtrlware.mtrlcuscode,
	u_mtrlware.noallocqty,
	u_mtrlware.allocqty,
	u_mtrlware.plancode,
	u_mtrldef.ifbarcodefp,
	u_storage.outtype
	INTO :ll_mtrlid,
	:ll_storageid,
	:li_ifpack,
	:li_ifpackpro_mtrlware,
	:ls_mtrlcode,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:ls_mtrlcuscode,
	:ld_noallocqty,
	:ld_allocqty,
	:ls_plancode,
	:li_ifbarcodefp,
	:li_outtype_storage
	FROM u_mtrlware,u_mtrldef,u_storage
	WHERE u_mtrlware.scid = :ll_scid
	AND u_mtrlware.mtrlwareid = :ll_mtrlwareid
	And u_mtrlware.mtrlid = u_mtrldef.mtrlid
	And u_mtrlware.storageid = u_storage.storageid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询库存物料资料失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ld_noallocqty < ld_allocqty THEN
	arg_msg = '库存数小于已分配数,请检查库存'
	rslt = 0
	GOTO ext
END IF

IF li_assigntype = 0 THEN
	//取消分到指令单
	ds_orderrqmtrl_fp_2_zl.Retrieve(ll_scid,ll_relbillid,ll_mtrlid,ls_status,ls_woodcode,ls_pcode)
	ld_arg_qty = arg_qty
	
	FOR i = 1 To ds_orderrqmtrl_fp_2_zl.RowCount()
		ll_orderid_zl = ds_orderrqmtrl_fp_2_zl.Object.u_orderrqmtrl_scll_orderid[i]
		ls_ordercode_zl = ds_orderrqmtrl_fp_2_zl.Object.u_order_ml_ordercode[i]
		ll_wrkgrpid_zl = ds_orderrqmtrl_fp_2_zl.Object.u_orderrqmtrl_scll_wrkgrpid[i]
		ld_fpqty_zl = ds_orderrqmtrl_fp_2_zl.Object.u_orderrqmtrl_scll_fpqty[i]
		
		IF ld_fpqty_zl > ld_arg_qty THEN
			ld_update_qty = ld_arg_qty
			ld_arg_qty = 0
		ELSE
			ld_update_qty = ld_fpqty_zl
			ld_arg_qty = ld_arg_qty - ld_fpqty_zl
		END IF
		
		IF uof_assign_add_to_zl_scll(ll_scid,ll_orderid_zl,ll_mtrlid,ll_wrkgrpid_zl,&
			ls_status,ls_woodcode,ls_pcode,0 - ld_update_qty,&
			0,0,0,arg_msg,False) = 0 THEN
			arg_msg = '计划:'+ls_relbillcode+',物料:'+ls_mtrlcode+',更新相关指令单:'+ls_ordercode_zl+',物料已分配数失败,'+arg_msg
			rslt = 0
			GOTO ext
		END IF
	NEXT
	
	ll_rqcnt = 0
	DECLARE cur1 CURSOR FOR
		SELECT wrkGrpid, plantype, produce_wrkGrpid, fpqty
		FROM u_OrderRqMtrl
		WHERE scid = :ll_scid
		AND orderid = :ll_relbillid
		AND mtrlid = :ll_mtrlid
		AND status = :ls_status
		AND woodcode = :ls_woodcode
		AND pcode = :ls_pcode
		And fpqty > 0 Using commit_transaction;
	OPEN cur1;
	FETCH cur1 Into :ll_wrkgrpid, :ll_plantype, :ll_produce_wrkgrpid, :ld_a_fpqty;
	DO WHILE commit_transaction.SQLCode = 0
		ll_rqcnt++
		arr_wrkgrpid[ll_rqcnt] = ll_wrkgrpid
		arr_plantype[ll_rqcnt] = ll_plantype
		arr_produce_wrkgrpid[ll_rqcnt] = ll_produce_wrkgrpid
		arr_a_fpqty[ll_rqcnt] = ld_a_fpqty
		FETCH cur1 Into :ll_wrkgrpid, :ll_plantype, :ll_produce_wrkgrpid, :ld_a_fpqty;
	LOOP
	CLOSE cur1;
	ld_tmpqty = arg_qty
	FOR i = 1 To ll_rqcnt
		IF ld_tmpqty = 0 THEN EXIT
		ll_wrkgrpid = arr_wrkgrpid[i]
		ll_plantype = arr_plantype[i]
		ll_produce_wrkgrpid = arr_produce_wrkgrpid[i]
		ld_a_fpqty = arr_a_fpqty[i]
		IF ld_tmpqty > ld_a_fpqty THEN
			ld_delqty = ld_a_fpqty
		ELSE
			ld_delqty = ld_tmpqty
		END IF
		UPDATE u_OrderRqMtrl
			SET u_OrderRqMtrl.fpqty = u_OrderRqMtrl.fpqty - :ld_delqty
			WHERE u_OrderRqMtrl.scid = :ll_scid
			AND u_OrderRqMtrl.orderid = :ll_relbillid
			AND u_OrderRqMtrl.mtrlid = :ll_mtrlid
			AND u_OrderRqMtrl.status = :ls_status
			AND u_OrderRqMtrl.woodcode = :ls_woodcode
			AND u_OrderRqMtrl.pcode = :ls_pcode
			AND u_OrderRqMtrl.wrkgrpid = :ll_wrkgrpid
			AND u_OrderRqMtrl.plantype = :ll_plantype
			And u_OrderRqMtrl.produce_wrkGrpid = :ll_produce_wrkgrpid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '更新生产计划需求明细库存已分配数失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		ld_tmpqty = ld_tmpqty - ld_delqty
		IF i = ll_rqcnt And ld_tmpqty > 0 THEN
			UPDATE u_OrderRqMtrl
				SET u_OrderRqMtrl.fpqty = u_OrderRqMtrl.fpqty - :ld_tmpqty
				WHERE u_OrderRqMtrl.scid = :ll_scid
				AND u_OrderRqMtrl.orderid = :ll_relbillid
				AND u_OrderRqMtrl.mtrlid = :ll_mtrlid
				AND u_OrderRqMtrl.status = :ls_status
				AND u_OrderRqMtrl.woodcode = :ls_woodcode
				AND u_OrderRqMtrl.pcode = :ls_pcode
				AND u_OrderRqMtrl.wrkgrpid = :ll_wrkgrpid
				AND u_OrderRqMtrl.plantype = :ll_plantype
				And u_OrderRqMtrl.produce_wrkGrpid = :ll_produce_wrkgrpid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '更新生产计划需求明细库存已分配数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		END IF
	NEXT
ELSE
	SELECT u_mtrldef.ifpackpro,
		u_saletaskmx.mtrlid,
		u_saletaskmx.status,
		u_saletaskmx.woodcode,
		u_saletaskmx.pcode,
		u_saletaskmx.mtrlcuscode,
		u_mtrldef.mtrlcode
		INTO :li_ifpackpro,
		:ll_mtrlid_task,
		:ls_status_task,
		:ls_woodcode_task,
		:ls_pcode_task,
		:ls_plancode_task,
		:ls_mtrlcode_task
		FROM u_saletask,u_saletaskmx,u_mtrldef
		WHERE u_saletask.scid = u_saletaskmx.scid
		AND u_saletask.taskid = u_saletaskmx.taskid
		AND u_saletaskmx.mtrlid = u_mtrldef.mtrlid
		AND u_saletaskmx.scid = :ll_scid
		AND u_saletaskmx.taskid = :ll_relbillid
		And u_saletaskmx.printid = :ll_relprintid Using commit_transaction;
	IF commit_transaction.SQLCode = -1 THEN
		arg_msg = '查询订单资料失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	ELSEIF commit_transaction.SQLCode = 100 THEN
		rslt = 1
		GOTO ext
	END IF
	
	//yyx20120825
	//包件检查订单包件产品是否有0库存,如果无则加0库存并计算可装数	
	
	IF li_ifpackpro = 2 And li_ifpack = 2 Or &
		li_ifpackpro = 4 And (Pos(ls_status_task,'+') > 0 Or Pos(ls_status_task,'*') > 0) Or &
		li_ifpackpro = 1 And li_ifpack = 1 THEN
		IF f_insert_0_mtrlware_2(ll_mtrlwareid_task,ll_mtrlid_task,ls_mtrlcode_task,ll_storageid,&
			0,ls_status_task,ls_woodcode_task,ls_pcode_task,ls_plancode_task,ls_mtrlcuscode,&
			'',0,li_ref_ifadd,arg_msg,False) = 0 THEN
			arg_msg = '订单产品:'+ls_mtrlcode_task+',查询包件产品0库存信息记录失败,'+arg_msg
			rslt = 0
			GOTO ext
		END IF
		
		IF li_ref_ifadd = 1 THEN
			IF f_cmp_di_qty_fpqty(ll_mtrlid_task,ll_storageid,ls_status_task,ls_woodcode_task,ls_pcode_task,ls_plancode_task,ls_mtrlcuscode,ld_ref_qty,ld_ref_pack_min_nofpqty,ld_ref_noauditingqty_ifpackpro,ld_ref_fpqty,arg_lsg,arg_msg) = 0 THEN
				arg_msg = '物料:'+ls_mtrlcode_task+',计算可装数失败,'+arg_msg
				rslt = 0
				GOTO ext
			END IF
			
			IF uo_cmpl_p.uof_update_canuseqty(ll_scid,ll_mtrlwareid_task,ld_ref_qty,ld_ref_pack_min_nofpqty,ld_ref_noauditingqty_ifpackpro,ld_ref_fpqty,arg_msg,False) = 0 THEN
				arg_msg = '物料:'+ls_mtrlcode_task+',更新可装数失败,'+arg_msg
				rslt = 0
				GOTO ext
			END IF
		END IF
	END IF
	//yyx20120712_end
	
	If (li_ifpackpro  = 1 Or li_ifpackpro  = 2) And li_ifpack = 0 THEN
		arg_msg = '当前库存分配的订单为包件产品,但对应分配的库存不是包件,请检查资料'
		rslt = 0
		GOTO ext
	ElseIf (li_ifpackpro  = 1 Or li_ifpackpro  = 2) And li_ifpack > 0 THEN
		Long ll_saletaskmx_pf_ch
		
		IF Not ( uo_option_packpro2_not_use_pack1 = 1 And li_ifpackpro = 2 And li_ifpack = 1 ) THEN
			ll_saletaskmx_pf_ch = 0
			IF li_ifpackpro = 1 THEN
				ll_saletaskmx_pf_ch = 0
			ELSE
				SELECT count(*)
					INTO :ll_saletaskmx_pf_ch
					FROM u_SaleTaskMx_pf
					WHERE u_SaleTaskMx_pf.scid = :ll_scid
					AND u_SaleTaskMx_pf.taskid = :ll_relbillid
					And u_SaleTaskMx_pf.printid = :ll_relprintid Using commit_transaction;
				IF commit_transaction.SQLCode <> 0 THEN
					arg_msg = '查询相关订单明细行:'+String(ll_relprintid)+'是否有换包件失败,'+commit_transaction.SQLErrText
					rslt = 0
					GOTO ext
				END IF
			END IF
			
			IF ll_saletaskmx_pf_ch > 0 THEN
				ds_cmpl_pack_saletask.DataObject = 'ds_uo_mtrlware_assign_saletask_pack2_del'
				ds_cmpl_pack_saletask.SetTransObject(commit_transaction)
				ds_cmpl_pack_saletask.Retrieve(ll_scid,ll_relbillid,ll_relprintid)
			ELSE
				ds_cmpl_pack_saletask.Retrieve(ll_mtrlid_task)
			END IF
			
			IF ds_cmpl_pack_saletask.RowCount() = 0 THEN
				ld_fpqty = 0
				ld_fpqty_mtrlcuscode = 0
			ELSE
				ld_fpqty = 999999999
				ld_fpqty_mtrlcuscode = 999999999
				
				FOR i = 1 To ds_cmpl_pack_saletask.RowCount()
					IF uo_option_packpro2_not_use_pack1 = 1 THEN
						IF li_ifpackpro = 2 And ds_cmpl_pack_saletask.Object.u_mtrldef_ifpack[i] = 1 THEN
							CONTINUE
						END IF
					END IF
					
					ll_mtrlid_son = ds_cmpl_pack_saletask.Object.u_prdpf_sonmtrlid[i]
					ld_Sonscale = ds_cmpl_pack_saletask.Object.u_prdpf_sonscale[i]
					ld_Sonscale_fm = ds_cmpl_pack_saletask.Object.u_prdpf_sonscale_fm[i]
					
					SELECT isnull(sum(assignqty),0),
						isnull(sum(case when u_mtrldef.ifpack = 1 OR u_mtrldef.ifpack = 2 AND u_mtrlware_assign.mtrlcuscode = :ls_mtrlcuscode then assignqty else 0 END ),0)
						INTO :ld_assignqty,:ld_assignqty_mtrlcuscode
						FROM u_mtrlware_assign INNER join u_mtrldef on
						u_mtrlware_assign.mtrlid = u_mtrldef.mtrlid
						WHERE u_mtrlware_assign.scid = :ll_scid
						AND u_mtrlware_assign.relbillid = :ll_relbillid
						AND u_mtrlware_assign.relprintid = :ll_relprintid
						AND u_mtrlware_assign.mtrlid = :ll_mtrlid_son
						And u_mtrlware_assign.assigntype = 1 Using commit_transaction;
					IF commit_transaction.SQLCode <> 0 THEN
						arg_msg = '查询订单其它包件已分配数失败,'+commit_transaction.SQLErrText
						rslt = 0
						GOTO ext
					END IF
					
					ld_fpqty = Min(ld_fpqty,ld_assignqty/(ld_Sonscale/ld_Sonscale_fm))
					ld_fpqty_mtrlcuscode = Min(ld_fpqty_mtrlcuscode,ld_assignqty_mtrlcuscode/(ld_Sonscale/ld_Sonscale_fm))
				NEXT
			END IF
			
			UPDATE u_saletaskmx
				SET u_saletaskmx.fpqty = :ld_fpqty
				WHERE u_saletaskmx.scid = :ll_scid
				AND u_saletaskmx.taskid = :ll_relbillid
				And u_saletaskmx.printid = :ll_relprintid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '更新订单明细已分配数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		END IF
	ELSEIF li_ifpackpro = 3 Or li_ifpackpro = 4 THEN //组合配置包件产品
		s_mtrlcfg_expr s_pz[]
		Long ll_array,ll_l
		Decimal ld_pf_Sonscale[]
		String ls_pf_status[],ls_pf_woodcode[],ls_pf_pcode[]
		
		f_checkpz(ls_status_task,s_pz[])
		ll_array = UpperBound(s_pz)
		IF ll_array = 0 THEN
			arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(ll_relprintid)+',拆分子件错误,请检查组合配置'
			rslt = 0
			GOTO ext
		END IF
		
		FOR ll_l = 1 To ll_array
			ls_pf_status[ll_l] = s_pz[ll_l].cfgname
			ls_pf_woodcode[ll_l] = ls_woodcode_task
			ls_pf_pcode[ll_l] = ls_pcode_task
			ld_pf_Sonscale[ll_l] = Dec(s_pz[ll_l].qty)
		NEXT
		
		ld_fpqty = 0
		
		FOR ll_l = 1 To ll_array
			IF ll_l > 1 And ld_fpqty = 0 THEN EXIT //最少配套数为0,不用计算其它子件
			
			SELECT isnull(sum(assignqty),0),
				isnull(sum(case u_mtrlware_assign.mtrlcuscode when :ls_mtrlcuscode then assignqty else 0 END ),0)
				INTO :ld_assignqty,:ld_assignqty_mtrlcuscode
				FROM u_mtrlware_assign,u_mtrlware
				WHERE u_mtrlware_assign.scid = u_mtrlware.scid
				AND u_mtrlware_assign.mtrlwareid = u_mtrlware.mtrlwareid
				AND u_mtrlware_assign.scid = :ll_scid
				AND u_mtrlware_assign.relbillid = :ll_relbillid
				AND u_mtrlware_assign.relprintid = :ll_relprintid
				AND u_mtrlware_assign.mtrlid = :ll_mtrlid
				AND u_mtrlware_assign.assigntype = 1
				AND u_mtrlware.status = :ls_pf_status[ll_l]
				AND u_mtrlware.woodcode = :ls_pf_woodcode[ll_l]
				And u_mtrlware.pcode = :ls_pf_pcode[ll_l] Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(ll_relprintid)+',查询订单包件已分配数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			
			IF ll_l = 1 THEN
				ld_fpqty = ld_assignqty/ld_pf_Sonscale[ll_l]
				ld_fpqty_mtrlcuscode = ld_assignqty_mtrlcuscode/ld_pf_Sonscale[ll_l]
			ELSE
				ld_fpqty = Min(ld_fpqty,ld_assignqty/ld_pf_Sonscale[ll_l])
				ld_fpqty_mtrlcuscode = Min(ld_fpqty_mtrlcuscode,ld_assignqty_mtrlcuscode/ld_pf_Sonscale[ll_l])
			END IF
		NEXT
		
		UPDATE u_saletaskmx
			SET u_saletaskmx.fpqty = :ld_fpqty
			WHERE u_saletaskmx.scid = :ll_scid
			AND u_saletaskmx.taskid = :ll_relbillid
			And u_saletaskmx.printid = :ll_relprintid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '更新订单明细已分配数失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	ELSE
		UPDATE u_saletaskmx
			SET u_saletaskmx.fpqty = u_saletaskmx.fpqty - :arg_qty
			WHERE u_saletaskmx.scid = :ll_scid
			AND u_saletaskmx.taskid = :ll_relbillid
			And u_saletaskmx.printid = :ll_relprintid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '更新订单明细已分配数失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	END IF
END IF

IF li_assigntype = 1 THEN
	//yyx20130119
	IF li_ifbarcodefp = 1 and ( li_outtype_storage = 2 or li_outtype_storage = 3 ) and li_if_uo_mtrlware_trans_fp_deluse = 0 THEN
		ds_cmpl_pack_saletask_barcode.Retrieve(ll_scid,ll_relbillid,ll_relprintid,ll_mtrlwareid)
		IF ds_cmpl_pack_saletask_barcode.RowCount() = 0 THEN
			arg_msg = '没有相关条码可取消分配,请检查相关订单库存条码分配'
			rslt = 0
			GOTO ext
		END IF
		
		IF ds_cmpl_pack_saletask_barcode.Object.sumqty[1] < ld_barcode_fpqty_cancel THEN
			arg_msg = '取消相关订单库存条码分配的数量不足冲减,请检查相关订单库存条码分配'
			rslt = 0
			GOTO ext
		END IF
		
		FOR k = 1 To ds_cmpl_pack_saletask_barcode.RowCount()
			IF ld_barcode_fpqty_cancel = 0 THEN
				EXIT
			END IF
			
			ls_barcode = ds_cmpl_pack_saletask_barcode.Object.barcode[k]
			
			IF ds_cmpl_pack_saletask_barcode.Object.qty[k] <= ld_barcode_fpqty_cancel THEN
				if uof_clear_barcodefp(ls_barcode,arg_msg,false) = 0 then
					rslt = 0
					goto ext
				end if
						
				ld_barcode_fpqty_cancel = ld_barcode_fpqty_cancel - ds_cmpl_pack_saletask_barcode.Object.qty[k]
			END IF
		NEXT
		
		IF ld_barcode_fpqty_cancel > 0 THEN
			arg_msg = '取消相关订单库存条码分配的数量有余数,操作取消,请检查相关订单库存条码分配'
			rslt = 0
			GOTO ext
		END IF
	END IF
	//
	//yyx20120825
	//检查包件产品订单同批号的可装数,更新到包件产品库存分配明细
	IF li_ifpackpro = 2 And li_ifpack = 2 Or &
		li_ifpackpro = 4 And (Pos(ls_status_task,'+') > 0 Or Pos(ls_status_task,'*') > 0) Or &
		li_ifpackpro = 1 And li_ifpack = 1 THEN
		SELECT assignqty
			INTO :ld_assignqty_old_task
			FROM u_mtrlware_assign
			WHERE u_mtrlware_assign.scid = :ll_scid
			AND u_mtrlware_assign.mtrlwareid = :ll_mtrlwareid_task
			AND u_mtrlware_assign.relbillid = :ll_relbillid
			AND u_mtrlware_assign.relprintid = :ll_relprintid
			AND u_mtrlware_assign.mtrlid = :ll_mtrlid_task
			And u_mtrlware_assign.assigntype = 1 Using commit_transaction;
		IF commit_transaction.SQLCode = -1 THEN
			arg_msg = '查询包件产品原库存分配数量失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		ELSEIF commit_transaction.SQLCode = 100 THEN
			ld_assignqty_old_task = 0
		END IF
		
		ld_fpqty_mtrlcuscode = ld_fpqty_mtrlcuscode - ld_assignqty_old_task
		
		IF uof_assign_add_packpro_to_saletask(ll_scid,ll_mtrlwareid_task,&
			ll_cusid,ll_mtrlid_task,ld_fpqty_mtrlcuscode,&
			ll_relbillid,ll_relprintid,ls_relbillcode,&
			0,'',ls_mtrlcuscode,&
			ll_fpgrade,'',arg_msg,False) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
	//yyx20120825_end
	
	//yyx2012-9-29
	IF Not ib_ifinware_audit_do And uo_option_iffp_recmpl_canuseqty = 1 THEN
		//yyx2012-9-29返回计算可装数库存id数组
		If ( li_ifpack = 1 Or li_ifpack = 2 Or li_ifpackpro_mtrlware = 3 Or li_ifpackpro_mtrlware = 4 ) THEN
			IF uo_cmpl_p.uof_ref_mtrlwarid_array(ll_mtrlid,ls_plancode,ls_mtrlcuscode,ll_storageid,s_mtrlwareid_array_rst,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
		END IF
		
		IF UpperBound(s_mtrlwareid_array_rst.mtrlwareid) > 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
END IF


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

Destroy ds_cmpl_pack_saletask
Destroy ds_orderrqmtrl_fp_2_zl
Destroy uo_cmpl_p

RETURN rslt















end function

public function integer uof_assign_addoutqty (long arg_assignid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_scid,ll_mtrlwareid
Decimal ld_assignqty,ld_outqty

IF IsNull(arg_assignid) THEN arg_assignid = 0
IF IsNull(arg_qty) THEN arg_qty = 0

SELECT scid,
	mtrlwareid,
	assignqty,
	outqty
	INTO :ll_scid,
	:ll_mtrlwareid,
	:ld_assignqty,
	:ld_outqty
	FROM u_mtrlware_assign
	Where assignid = :arg_assignid using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询库存分配资料失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ld_assignqty - ld_outqty < arg_qty THEN
	arg_msg = '库存分配未出仓数只有:'+String(ld_assignqty - ld_outqty,'#,##0.##########') + ',不能出仓数量:'+String(arg_qty,'#,##0.##########')
	rslt = 0
	GOTO ext
END IF

UPDATE u_mtrlware
	SET allocqty = allocqty - :arg_qty
	WHERE mtrlwareid = :ll_mtrlwareid
	AND scid = :ll_scid using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '更新库存已分配数量失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

UPDATE u_mtrlware_assign
	SET outqty = outqty + :arg_qty
	Where assignid = :arg_assignid using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '更新库存分配表已出仓数失败,' + commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

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

public function integer uof_plan_del (long arg_planid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Decimal ld_planassignqty,ld_assignqty
Int li_Plantype,li_Plankind
String ls_plankind_relbillcode
Long ll_Plankind_relbillid,ll_Plankind_relprintid,ll_scid
Decimal ld_fpqty,ld_ffpqty_not
Long ll_mtrlid,ll_mtrlwareid,ll_relbillid
String ls_status,ls_woodcode,ls_pcode
Int li_assigntype
String ls_Plankind_aps_plancode

IF IsNull(arg_planid) THEN arg_planid = 0
IF IsNull(arg_qty) THEN arg_qty = 0

SELECT planassignqty,
	assignqty,
	Plantype,
	Plankind,
	Plankind_relbillid,
	Plankind_relprintid,
	scid,
	mtrlwareid,
	assigntype,
	relbillid,
	Plankind_aps_plancode
	INTO :ld_planassignqty,
	:ld_assignqty,
	:li_Plantype,
	:li_Plankind,
	:ll_Plankind_relbillid,
	:ll_Plankind_relprintid,
	:ll_scid,
	:ll_mtrlwareid,
	:li_assigntype,
	:ll_relbillid,
	:ls_Plankind_aps_plancode
	FROM u_mtrlware_assign_plan
	Where planid = :arg_planid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询库存分配计划资料失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ld_planassignqty - ld_assignqty < arg_qty THEN
	arg_msg = '分配计划未完成分配数只有:'+String(ld_planassignqty - ld_assignqty,'#,##0.##########') + ',不能取消分配计划数量:'+String(arg_qty,'#,##0.##########')
	rslt = 0
	GOTO ext
END IF

IF li_Plantype = 1 THEN
	IF li_Plankind = 0 THEN
		arg_msg = '错误的分配计划类型,请检查(0-无,1-指令单分配,2-采购订单分配,3-外协订单分配)'
		rslt = 0
		GOTO ext
	END IF
	
	//检查分计划来源
	CHOOSE CASE li_Plankind
		CASE 1
			SELECT u_order_ml.ordercode,
				u_order_ml.fpqty,
				u_order_ml.fpqty - u_order_ml.ffpqty,
				u_order_ml.mtrlid,
				u_order_ml.status_mode,
				u_order_ml.woodcode,
				u_order_ml.pcode
				INTO :ls_plankind_relbillcode,:ld_fpqty,:ld_ffpqty_not,
				:ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode
				FROM u_order_ml
				WHERE u_order_ml.scid = :ll_scid
				And u_order_ml.orderid = :ll_Plankind_relbillid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询分配计划所属指令单资料失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF arg_qty > ld_fpqty THEN
				arg_msg = '指令单:'+ls_plankind_relbillcode+'分配计划占用数只有:'+String(ld_fpqty,'#,##0.##########')+',不能取消分配:'+String(arg_qty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
			
			IF arg_qty > ld_ffpqty_not THEN
				arg_msg = '指令单:'+ls_plankind_relbillcode+'分配计划未完成数只有:'+String(ld_ffpqty_not,'#,##0.##########')+',不能取消分配:'+String(arg_qty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
			
			UPDATE u_order_ml
				SET u_order_ml.fpqty = u_order_ml.fpqty - :arg_qty
				WHERE u_order_ml.scid = :ll_scid
				And u_order_ml.orderid = :ll_Plankind_relbillid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '更新指令单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			UPDATE u_order_zl_planmx
				SET u_order_zl_planmx.fpplanqty = u_order_zl_planmx.fpplanqty - :arg_qty
				WHERE u_order_zl_planmx.scid = :ll_scid
				AND u_order_zl_planmx.orderid = :ll_Plankind_relbillid
				And u_order_zl_planmx.aps_plancode = :ls_Plankind_aps_plancode Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '更新指令单:'+ls_plankind_relbillcode+',排程批:'+ls_Plankind_aps_plancode+',分配计划占用数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		CASE 2
			SELECT u_buytask.taskcode,
				u_buytaskmx.fpqty,
				u_buytaskmx.fpqty - u_buytaskmx.ffpqty,
				u_buytaskmx.mtrlid,
				u_buytaskmx.status,
				u_buytaskmx.woodcode,
				u_buytaskmx.pcode
				INTO :ls_plankind_relbillcode,:ld_fpqty,:ld_ffpqty_not,
				:ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode
				FROM u_buytask,u_buytaskmx
				WHERE u_buytask.scid = u_buytaskmx.scid
				AND u_buytask.taskid = u_buytaskmx.taskid
				AND u_buytaskmx.scid = :ll_scid
				AND u_buytaskmx.taskid = :ll_Plankind_relbillid
				And u_buytaskmx.printid = :ll_Plankind_relprintid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询分配计划所属采购订单资料失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF arg_qty > ld_fpqty THEN
				arg_msg = '采购订单:'+ls_plankind_relbillcode+'ld_fpqty:'+String(ld_ffpqty_not,'#,##0.##########')+',不能取消分配:'+String(arg_qty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
			
			IF arg_qty > ld_ffpqty_not THEN
				arg_msg = '采购订单:'+ls_plankind_relbillcode+'分配计划未完成数只有:'+String(ld_ffpqty_not,'#,##0.##########')+',不能取消分配:'+String(arg_qty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
			
			UPDATE u_buytaskmx
				SET u_buytaskmx.fpqty = u_buytaskmx.fpqty - :arg_qty
				WHERE u_buytaskmx.scid = :ll_scid
				AND u_buytaskmx.taskid = :ll_Plankind_relbillid
				And u_buytaskmx.printid = :ll_Plankind_relprintid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '更新采购订单:'+ls_plankind_relbillcode+'分配计划完成数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		CASE 3
			SELECT u_order_wfjg.taskcode,
				u_order_wfjgmx.fpqty,
				u_order_wfjgmx.fpqty - u_order_wfjgmx.ffpqty,
				u_order_wfjgmx.mtrlid,
				u_order_wfjgmx.status,
				u_order_wfjgmx.woodcode,
				u_order_wfjgmx.pcode
				INTO :ls_plankind_relbillcode,:ld_fpqty,:ld_ffpqty_not,
				:ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode
				FROM u_order_wfjg,u_order_wfjgmx
				WHERE u_order_wfjg.scid = u_order_wfjgmx.scid
				AND u_order_wfjg.taskid = u_order_wfjgmx.taskid
				AND u_order_wfjgmx.scid = :ll_scid
				AND u_order_wfjgmx.taskid = :ll_Plankind_relbillid
				And u_order_wfjgmx.printid = :ll_Plankind_relprintid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询分配计划所属采购订单资料失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF arg_qty > ld_fpqty THEN
				arg_msg = '外协订单:'+ls_plankind_relbillcode+'ld_fpqty:'+String(ld_ffpqty_not,'#,##0.##########')+',不能取消分配:'+String(arg_qty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
			
			IF arg_qty > ld_ffpqty_not THEN
				arg_msg = '外协订单:'+ls_plankind_relbillcode+'分配计划未完成数只有:'+String(ld_ffpqty_not,'#,##0.##########')+',不能取消分配:'+String(arg_qty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
			
			UPDATE u_order_wfjgmx
				SET u_order_wfjgmx.fpqty = u_order_wfjgmx.fpqty - :arg_qty
				WHERE u_order_wfjgmx.scid = :ll_scid
				AND u_order_wfjgmx.taskid = :ll_Plankind_relbillid
				And u_order_wfjgmx.printid = :ll_Plankind_relprintid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '更新外协订单:'+ls_plankind_relbillcode+'分配计划完成数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
	END CHOOSE
ELSE
	SELECT mtrlid,status,woodcode,pcode
		INTO :ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode
		FROM u_mtrlware
		WHERE u_mtrlware.scid = :ll_scid
		And u_mtrlware.mtrlwareid = :ll_mtrlwareid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '查询库存信息失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

IF li_assigntype = 0 THEN
	//更新已分配数
	UPDATE u_OrderRqMtrl
		SET u_OrderRqMtrl.fpplanqty = u_OrderRqMtrl.fpplanqty - :arg_qty
		WHERE u_OrderRqMtrl.scid = :ll_scid
		AND u_OrderRqMtrl.orderid = :ll_relbillid
		AND u_OrderRqMtrl.mtrlid = :ll_mtrlid
		AND u_OrderRqMtrl.status = :ls_status
		AND u_OrderRqMtrl.woodcode = :ls_woodcode
		And u_OrderRqMtrl.pcode = :ls_pcode Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '更新物料需求库存分配数失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

IF arg_qty = ld_planassignqty And ld_assignqty = 0 THEN
	DELETE FROM u_mtrlware_assign_plan
		Where planid = :arg_planid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '删除库存分配计划失败,' + commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
ELSE
	UPDATE u_mtrlware_assign_plan
		SET planassignqty = planassignqty - :arg_qty
		Where planid = :arg_planid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '更新库存分配计划计划分配数失败,' + 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 uof_plan_addassignqty (long arg_planid, decimal arg_qty, string arg_inwarecode, long arg_inprintid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_planmxid
Decimal ld_planassignqty,ld_assignqty
Int li_Plantype,li_Plankind
Long ll_Plankind_relbillid,ll_Plankind_relprintid,ll_scid
String ls_plankind_relbillcode
Decimal ld_ffpqty_not

IF IsNull(arg_planid) THEN arg_planid = 0
IF IsNull(arg_qty) THEN arg_qty = 0

SELECT planassignqty,
	assignqty,
	Plantype,
	Plankind,
	Plankind_relbillid,
	Plankind_relprintid,
	scid
	INTO :ld_planassignqty,
	:ld_assignqty,
	:li_Plantype,
	:li_Plankind,
	:ll_Plankind_relbillid,
	:ll_Plankind_relprintid,
	:ll_scid
	FROM u_mtrlware_assign_plan
	Where planid = :arg_planid using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询库存分配计划资料失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ld_planassignqty - ld_assignqty < arg_qty THEN
	arg_msg = '库存分配计划未完成数只有:'+String(ld_planassignqty - ld_assignqty,'#,##0.##########') + ',不能完成数量:'+String(arg_qty,'#,##0.##########')
	rslt = 0
	GOTO ext
END IF

UPDATE u_mtrlware_assign_plan
	SET assignqty = assignqty + :arg_qty
	Where planid = :arg_planid using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '更新库存分配计划已完成数失败,' + commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF arg_qty > 0 THEN
	ll_planmxid = f_sys_scidentity(0,"u_mtrlware_assign_plan_assignmx","planmxid",arg_msg,True,id_sqlca)
	IF ll_planmxid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	INSERT INTO u_mtrlware_assign_plan_assignmx
		(planmxid,
		planid,
		inwarecode,
		inprintid,
		qty)
		VALUES
		(:ll_planmxid,
		:arg_planid,
		:arg_inwarecode,
		:arg_inprintid,
		:arg_qty) using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '建立库存分配计划分配明细失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
ELSE
	DELETE FROM u_mtrlware_assign_plan_assignmx
		WHERE planid = :arg_planid
		AND inwarecode = :arg_inwarecode
		And inprintid = :arg_inprintid using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '删除库存分配计划进仓分配明细失败,' + commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

IF li_Plantype = 1 THEN
	IF li_Plankind = 0 THEN
		arg_msg = '错误的分配计划类型,请检查(0-无,1-指令单分配,2-采购订单分配,3-外协订单分配)'
		rslt = 0
		GOTO ext
	END IF
	
	//检查分计划来源
	CHOOSE CASE li_Plankind
		CASE 1
			SELECT u_order_ml.ordercode,
				u_order_ml.fpqty - u_order_ml.ffpqty
				INTO :ls_plankind_relbillcode,:ld_ffpqty_not
				FROM u_order_ml
				WHERE u_order_ml.scid = :ll_scid
				And u_order_ml.orderid = :ll_Plankind_relbillid using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询分配计划所属指令单资料失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF arg_qty > ld_ffpqty_not THEN
				arg_msg = '指令单:'+ls_plankind_relbillcode+'分配计划未完成数只有:'+String(ld_ffpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_qty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
			
			UPDATE u_order_ml
				SET u_order_ml.ffpqty = u_order_ml.ffpqty + :arg_qty
				WHERE u_order_ml.scid = :ll_scid
				And u_order_ml.orderid = :ll_Plankind_relbillid using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '更新指令单:'+ls_plankind_relbillcode+'分配计划完成数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		CASE 2
			SELECT u_buytask.taskcode,
				u_buytaskmx.fpqty - u_buytaskmx.ffpqty
				INTO :ls_plankind_relbillcode,:ld_ffpqty_not
				FROM u_buytask,u_buytaskmx
				WHERE u_buytask.scid = u_buytaskmx.scid
				AND u_buytask.taskid = u_buytaskmx.taskid
				AND u_buytaskmx.scid = :ll_scid
				AND u_buytaskmx.taskid = :ll_Plankind_relbillid
				And u_buytaskmx.printid = :ll_Plankind_relprintid using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询分配计划所属采购订单资料失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF arg_qty > ld_ffpqty_not THEN
				arg_msg = '采购订单:'+ls_plankind_relbillcode+'分配计划未完成数只有:'+String(ld_ffpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_qty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
			
			UPDATE u_buytaskmx
				SET u_buytaskmx.ffpqty = u_buytaskmx.ffpqty + :arg_qty
				WHERE u_buytaskmx.scid = :ll_scid
				AND u_buytaskmx.taskid = :ll_Plankind_relbillid
				And u_buytaskmx.printid = :ll_Plankind_relprintid using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '更新采购订单:'+ls_plankind_relbillcode+'分配计划完成数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		CASE 3
			SELECT u_order_wfjg.taskcode,
				u_order_wfjgmx.fpqty - u_order_wfjgmx.ffpqty
				INTO :ls_plankind_relbillcode,:ld_ffpqty_not
				FROM u_order_wfjg,u_order_wfjgmx
				WHERE u_order_wfjg.scid = u_order_wfjgmx.scid
				AND u_order_wfjg.wfjgid = u_order_wfjgmx.wfjgid
				AND u_order_wfjgmx.scid = :ll_scid
				AND u_order_wfjgmx.wfjgid = :ll_Plankind_relbillid
				And u_order_wfjgmx.printid = :ll_Plankind_relprintid using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询分配计划所属外协订单资料失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF arg_qty > ld_ffpqty_not THEN
				arg_msg = '外协订单:'+ls_plankind_relbillcode+'分配计划未完成数只有:'+String(ld_ffpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_qty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
			
			UPDATE u_order_wfjgmx
				SET u_order_wfjgmx.ffpqty = u_order_wfjgmx.ffpqty + :arg_qty
				WHERE u_order_wfjgmx.scid = :ll_scid
				AND u_order_wfjgmx.wfjgid = :ll_Plankind_relbillid
				And u_order_wfjgmx.printid = :ll_Plankind_relprintid using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '更新外协订单:'+ls_plankind_relbillcode+'分配计划完成数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
	END CHOOSE
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_assign_add (long arg_scid, long arg_mtrlwareid, integer arg_assigntype, long arg_relbillid, long arg_relprintid, decimal arg_assignqty, decimal arg_cost, string arg_dscrp, string arg_mtrlcuscode, string arg_inwarecode, long arg_inprintid, integer arg_fpgrade, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_assignid,ll_mtrlid,ll_mtrlid_task,ll_cusid,ll_storageid,ll_sptid
String ls_relbillcode
Decimal ld_assignqty_all,ld_assignqty,ld_fpqty,ld_assignqty_old_task
Decimal ld_wareamt,ld_noallocqty,ld_allocqty
Int li_ifpack,li_ifpackpro,li_ifpackpro_mtrlware
Decimal ld_Sonscale,ld_Sonscale_fm
String ls_plancode,ls_status,ls_woodcode,ls_pcode,ls_mtrlcuscode,ls_mtrlcuscode_fp,ls_mtrlcuscode_fp_array[]
String ls_mtrlcuscode_fp_str
Long ll_array_mtrlcuscode,k,ll_cnt_notsame
String ls_mtrlcode
String ls_status_task,ls_woodcode_task,ls_pcode_task

Long i,ll_mtrlid_son,j

//销售订单包件产品加0库存用
Int li_ref_ifadd
String ls_mtrlcode_task
Long ll_assignid_task
Long ll_mtrlwareid_task
String ls_plancode_task,ls_location_task,arg_lsg
Decimal ld_taskqty,ld_assignqty_mtrlcuscode,ld_fpqty_mtrlcuscode
Decimal ld_ref_qty,ld_ref_pack_min_nofpqty,ld_ref_noauditingqty_ifpackpro
Decimal lde_fpqty_task,ld_ref_fpqty
Decimal ld_assignqty_fp,ld_sumfpqty
s_cmplpackpro_ref_mtrlwareid_array s_mtrlwareid_array_rst


//指令分配用
Long ll_orderid_zl,ll_wrkgrpid_zl,ll_produce_wrkgrpid,ll_wrkgrpid_order
Decimal ld_fpqty_zl,ld_fpqty_order,ld_assignqty_update,ld_assignqty_order
String ls_ordercode_zl
Int li_plantype


If uo_option_packpro2_not_use_pack1 = -1000 Then
	rslt = 0
	arg_msg = '选项:[289]个性包件产品不考虑通用包件,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_iffp_recmpl_canuseqty = -1000 Then
	rslt = 0
	arg_msg = '选项:[290]库存分配是否重算库存可装数、未分配可装数、未开单可装数,读取初始默认值失败,操作取消!'
	Goto ext
End If

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

datastore ds_cmpl_pack_saletask
ds_cmpl_pack_saletask = Create datastore
ds_cmpl_pack_saletask.DataObject = 'ds_uo_mtrlware_assign_saletask_pack'
ds_cmpl_pack_saletask.SetTransObject(commit_transaction)

datastore ds_orderrqmtrl_fp_2_zl
ds_orderrqmtrl_fp_2_zl = Create datastore
ds_orderrqmtrl_fp_2_zl.DataObject = 'ds_order_mtrl_fp_to_zl'
ds_orderrqmtrl_fp_2_zl.SetTransObject(commit_transaction)

datastore ds_orderrqmtrl_fp
ds_orderrqmtrl_fp = Create datastore
ds_orderrqmtrl_fp.DataObject = 'ds_order_mtrl_fp'
ds_orderrqmtrl_fp.SetTransObject(commit_transaction)

uo_cmpl_packpro uo_cmpl_p
uo_cmpl_p = Create uo_cmpl_packpro
uo_cmpl_p.commit_transaction = commit_transaction

If IsNull(arg_scid) Then arg_scid = 0
If IsNull(arg_mtrlwareid) Then arg_mtrlwareid = 0
If IsNull(arg_assigntype) Then arg_assigntype = 0
If IsNull(arg_Relbillid) Then arg_Relbillid = 0
If IsNull(arg_relprintid) Then arg_relprintid = 0
If IsNull(arg_assignqty) Then arg_assignqty = 0
If IsNull(arg_cost) Then arg_cost = 0
If IsNull(arg_mtrlcuscode) Then arg_mtrlcuscode = ''
If IsNull(arg_inwarecode) Then arg_inwarecode = ''
If IsNull(arg_inprintid) Then arg_inprintid = 0
If IsNull(arg_opemp) Then arg_opemp = ''
If IsNull(arg_dscrp) Then arg_dscrp = ''

If arg_mtrlwareid = 0 Then
	arg_msg = '非法的库存id'
	rslt = 0
	Goto ext
End If

If arg_assignqty <= 0 Then
	arg_msg = '错误的分配数量'
	rslt = 0
	Goto ext
End If

ld_wareamt = Round(arg_assignqty * arg_cost,2)

Select u_mtrlware.mtrlid,
	u_mtrlware.noallocqty,
	u_mtrlware.allocqty,
	u_mtrldef.ifpack,
	u_mtrldef.ifpackpro,
	u_mtrlware.status,
	u_mtrlware.woodcode,
	u_mtrlware.pcode,
	u_mtrldef.mtrlcode,
	u_mtrlware.mtrlcuscode,
	u_mtrlware.storageid,
	u_mtrlware.sptid,
	u_mtrlware.plancode
	Into :ll_mtrlid,
	:ld_noallocqty,
	:ld_allocqty,
	:li_ifpack,
	:li_ifpackpro_mtrlware,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:ls_mtrlcode,
	:ls_mtrlcuscode,
	:ll_storageid,
	:ll_sptid,
	:ls_plancode
	From u_mtrlware,u_mtrldef
	Where u_mtrlware.scid = :arg_scid
	And u_mtrlware.mtrlwareid = :arg_mtrlwareid
	And u_mtrlware.mtrlid = u_mtrldef.mtrlid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	arg_msg = '查询库存物料资料失败,库存id:'+String(arg_mtrlwareid)+','+commit_transaction.SQLErrText
	rslt = 0
	Goto ext
End If

If ld_noallocqty < ld_allocqty + arg_assignqty Then
	arg_msg = '物料:'+ls_mtrlcode+'产品批号:'+ls_mtrlcuscode+',库存id:'+String(arg_mtrlwareid)+',库存总数:'+String(ld_noallocqty,'#,##0.##########')+',已分配数:'+String(ld_allocqty,'#,##0.##########')+',不能再分配:'+String(arg_assignqty,'#,##0.##########')
	rslt = 0
	Goto ext
End If

If arg_assigntype = 0 Then
	If arg_Relbillid = 0 Then
		arg_msg = '非法的生产计划id'
		rslt = 0
		Goto ext
	End If
	
	Select ordercode Into :ls_relbillcode
		From u_order_ml
		Where scid = :arg_scid
		And orderid = :arg_Relbillid Using commit_transaction;
	If commit_transaction.SQLCode <> 0 Then
		arg_msg = '查询计划资料失败,'+commit_transaction.SQLErrText
		rslt = 0
		Goto ext
	End If
	
	Select isnull(sum(u_OrderRqMtrl.RqQty),0),
		isnull(sum(u_OrderRqMtrl.fpqty),0)
		Into :ld_assignqty_all,
		:ld_assignqty
		From u_OrderRqMtrl
		Where u_OrderRqMtrl.scid = :arg_scid
		And u_OrderRqMtrl.orderid = :arg_relbillid
		And u_OrderRqMtrl.mtrlid = :ll_mtrlid
		And u_OrderRqMtrl.status = :ls_status
		And u_OrderRqMtrl.woodcode = :ls_woodcode
		And u_OrderRqMtrl.pcode = :ls_pcode Using commit_transaction;
	If commit_transaction.SQLCode <> 0 Then
		arg_msg = '计划:'+ls_relbillcode+',物料:'+ls_mtrlcode+',查询物料计划领用需求总数及已库存分配数失败,'+commit_transaction.SQLErrText
		rslt = 0
		Goto ext
	End If
	
	If ld_assignqty_all < ld_assignqty + arg_assignqty Then
		arg_msg = '计划:'+ls_relbillcode+',物料:'+ls_mtrlcode+',计划需求数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',不能再库存分配:'+String(arg_assignqty,'#,##0.##########')
		rslt = 0
		Goto ext
	End If
	
	ds_orderrqmtrl_fp.Retrieve(arg_scid,arg_Relbillid,ll_mtrlid,ls_status,ls_woodcode,ls_pcode)
	
	ld_assignqty_order = arg_assignqty
	For j = 1 To ds_orderrqmtrl_fp.RowCount()
		If ld_assignqty_order > 0 Then
			ld_fpqty_order = ds_orderrqmtrl_fp.Object.notfpqty[j]
			ll_produce_wrkgrpid = ds_orderrqmtrl_fp.Object.produce_wrkgrpid[j]
			li_plantype = ds_orderrqmtrl_fp.Object.plantype[j]
			ll_wrkgrpid_order = ds_orderrqmtrl_fp.Object.wrkgrpid[j]
			
			If ld_fpqty_order > ld_assignqty_order Then
				ld_assignqty_update = ld_assignqty_order
				ld_assignqty_order = 0
			Else
				ld_assignqty_update = ld_fpqty_order
				ld_assignqty_order = ld_assignqty_order - ld_fpqty_order
			End If
			
			//更新已分配数
			Update u_OrderRqMtrl
				Set u_OrderRqMtrl.fpqty = u_OrderRqMtrl.fpqty + :ld_assignqty_update
				Where u_OrderRqMtrl.scid = :arg_scid
				And u_OrderRqMtrl.orderid = :arg_relbillid
				And u_OrderRqMtrl.mtrlid = :ll_mtrlid
				And u_OrderRqMtrl.status = :ls_status
				And u_OrderRqMtrl.woodcode = :ls_woodcode
				And u_OrderRqMtrl.pcode = :ls_pcode
				And u_OrderRqMtrl.plantype = :li_plantype
				And u_OrderRqMtrl.produce_wrkgrpid = :ll_produce_wrkgrpid
				And u_OrderRqMtrl.wrkgrpid = :ll_wrkgrpid_order Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '计划:'+ls_relbillcode+',物料:'+ls_mtrlcode+',更新物料需求已分配数失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
		End If
	Next
	
	//自动分到指令单	
	ds_orderrqmtrl_fp_2_zl.Retrieve(arg_scid,arg_Relbillid,ll_mtrlid,ls_status,ls_woodcode,ls_pcode)
	ld_assignqty_order = arg_assignqty
	
	For i = 1 To ds_orderrqmtrl_fp_2_zl.RowCount()
		
		If ld_assignqty_order > 0 Then
			ll_orderid_zl = ds_orderrqmtrl_fp_2_zl.Object.u_orderrqmtrl_scll_orderid[i]
			ls_ordercode_zl = ds_orderrqmtrl_fp_2_zl.Object.u_order_ml_ordercode[i]
			ll_wrkgrpid_zl = ds_orderrqmtrl_fp_2_zl.Object.u_orderrqmtrl_scll_wrkgrpid[i]
			ld_fpqty_zl = ds_orderrqmtrl_fp_2_zl.Object.notfpqty[i]
			
			If ld_fpqty_zl > ld_assignqty_order Then
				ld_assignqty_update = ld_assignqty_order
				ld_assignqty_order = 0
			Else
				ld_assignqty_update = ld_fpqty_zl
				ld_assignqty_order = ld_assignqty_order - ld_fpqty_zl
			End If
			
			If uof_assign_add_to_zl_scll(arg_scid,ll_orderid_zl,ll_mtrlid,&
				ll_wrkgrpid_zl,ls_status,ls_woodcode,ls_pcode,ld_assignqty_update,&
				0,0,0,arg_msg,False) = 0 Then
				arg_msg = '计划:'+ls_relbillcode+',物料:'+ls_mtrlcode+',更新相关指令单:'+ls_ordercode_zl+',物料已分配数失败,'+arg_msg
				rslt = 0
				Goto ext
			End If
		End If
	Next
Else
	If arg_Relbillid = 0 Then
		arg_msg = '非法的销售订单id'
		rslt = 0
		Goto ext
	End If
	
	Select u_saletask.taskcode,
		u_saletaskmx.saleqty,
		u_mtrldef.ifpackpro,
		u_saletaskmx.mtrlid,
		u_saletask.cusid,
		u_saletaskmx.status,
		u_saletaskmx.woodcode,
		u_saletaskmx.pcode,
		u_saletaskmx.mtrlcuscode,
		u_mtrldef.mtrlcode
		Into :ls_relbillcode,
		:ld_assignqty_all,
		:li_ifpackpro,
		:ll_mtrlid_task,
		:ll_cusid,
		:ls_status_task,
		:ls_woodcode_task,
		:ls_pcode_task,
		:ls_plancode_task,
		:ls_mtrlcode_task
		From u_saletask,u_saletaskmx,u_mtrldef
		Where u_saletask.scid = u_saletaskmx.scid
		And u_saletask.taskid = u_saletaskmx.taskid
		And u_saletaskmx.mtrlid = u_mtrldef.mtrlid
		And u_saletaskmx.scid = :arg_scid
		And u_saletaskmx.taskid = :arg_relbillid
		And u_saletaskmx.printid = :arg_relprintid Using commit_transaction;
	If commit_transaction.SQLCode <> 0 Then
		arg_msg = '查询订单资料失败,'+commit_transaction.SQLErrText
		rslt = 0
		Goto ext
	End If
	
	//yyx20120712
	//包件检查订单包件产品是否有0库存,如果无则加0库存并计算可装数	
	ld_taskqty = ld_assignqty_all
	If li_ifpackpro = 2 And li_ifpack = 2 Or &
		li_ifpackpro = 4 And (Pos(ls_status_task,'+') > 0 Or Pos(ls_status_task,'*') > 0) Or &
		li_ifpackpro = 1 And li_ifpack = 1 Then
		If f_insert_0_mtrlware_2(ll_mtrlwareid_task,ll_mtrlid_task,ls_mtrlcode_task,ll_storageid,&
			ll_sptid,ls_status_task,ls_woodcode_task,ls_pcode_task,ls_plancode_task,ls_mtrlcuscode,&
			'',0,li_ref_ifadd,arg_msg,False) = 0 Then
			arg_msg = '订单产品:'+ls_mtrlcode_task+',查询包件产品0库存信息记录失败,'+arg_msg
			rslt = 0
			Goto ext
		End If
		
		If li_ref_ifadd = 1 Then
			If f_cmp_di_qty_fpqty(ll_mtrlid_task,ll_storageid,ls_status_task,ls_woodcode_task,ls_pcode_task,ls_plancode_task,ls_mtrlcuscode,ld_ref_qty,ld_ref_pack_min_nofpqty,ld_ref_noauditingqty_ifpackpro,ld_ref_fpqty,arg_lsg,arg_msg) = 0 Then
				arg_msg = '物料:'+ls_mtrlcode_task+',计算可装数失败,'+arg_msg
				rslt = 0
				Goto ext
			End If
			
			If uo_cmpl_p.uof_update_canuseqty(arg_scid,ll_mtrlwareid_task,ld_ref_qty,ld_ref_pack_min_nofpqty,ld_ref_noauditingqty_ifpackpro,ld_ref_fpqty,arg_msg,False) = 0 Then
				arg_msg = '物料:'+ls_mtrlcode_task+',更新可装数失败,'+arg_msg
				rslt = 0
				Goto ext
			End If
		End If
	End If
	//yyx20120712_end
	
	//yyx20120706
	If li_ifpack = 2 And li_ifpackpro = 2 Or li_ifpackpro = 4 Then
		Declare cur_mtrlcuscode Cursor For
			Select distinct u_mtrlware.mtrlcuscode
			From u_mtrlware_assign,u_mtrlware,u_mtrldef
			Where u_mtrlware_assign.scid = u_mtrlware.scid
			And u_mtrlware_assign.mtrlwareid = u_mtrlware.mtrlwareid
			And u_mtrldef.mtrlid = u_mtrlware.mtrlid
			And u_mtrlware_assign.scid = :arg_scid
			And u_mtrlware_assign.relbillid = :arg_relbillid
			And u_mtrlware_assign.relprintid = :arg_relprintid
			And u_mtrlware_assign.assigntype = 1
			And u_mtrlware_assign.assignqty > 0
			And ( :li_ifpackpro = 2 And u_mtrldef.ifpack = 2 Or :li_ifpackpro = 4 )
			Using commit_transaction;
		Open cur_mtrlcuscode;
		Fetch cur_mtrlcuscode Into :ls_mtrlcuscode_fp;
		Do While commit_transaction.SQLCode = 0
			ll_array_mtrlcuscode++
			ls_mtrlcuscode_fp_array[ll_array_mtrlcuscode] = ls_mtrlcuscode_fp
			ls_mtrlcuscode_fp_str += ls_mtrlcuscode_fp+','
			Fetch cur_mtrlcuscode Into :ls_mtrlcuscode_fp;
		Loop
		Close cur_mtrlcuscode;
		
		If ll_array_mtrlcuscode > ld_assignqty_all Then
			arg_msg = '订单:'+ls_relbillcode+',明细已分配产品批号次数:'+String(ll_array_mtrlcuscode)+',大于订货数量'+String(ld_assignqty_all,'##0.##########')+',已分配批次:'+ls_mtrlcuscode_fp_str+'操作取消'
			rslt = 0
			Goto ext
		End If
		
		If ll_array_mtrlcuscode = ld_assignqty_all Then
			For k = 1 To ll_array_mtrlcuscode
				If ls_mtrlcuscode_fp_array[k] <> ls_mtrlcuscode Then
					ll_cnt_notsame++
				End If
			Next
			If ll_cnt_notsame = ll_array_mtrlcuscode Then
				arg_msg = '订单:'+ls_relbillcode+',明细已分配产品批号次数:'+String(ll_array_mtrlcuscode)+',如果分配本次产品批号,分配次数就会大于订货数量'+String(ld_assignqty_all,'##0.##########')+',已分配批次:'+ls_mtrlcuscode_fp_str+',本次分配批次:'+ls_mtrlcuscode+',操作取消'
				rslt = 0
				Goto ext
			End If
		End If
	End If
	//yyx20120706_end
	
	If (li_ifpackpro  = 1 Or li_ifpackpro = 2) And li_ifpack = 0 Then
		arg_msg = '订单:'+ls_relbillcode+',明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',当前库存分配的订单为包件产品,但对应分配的库存不是包件,请检查资料'
		rslt = 0
		Goto ext
	ElseIf (li_ifpackpro  = 1 Or li_ifpackpro = 2)  And li_ifpack > 0 Then
		Long ll_saletaskmx_pf_ch
		
		ll_saletaskmx_pf_ch = 0
		If li_ifpackpro = 1 Then
			ll_saletaskmx_pf_ch = 0
		Else
			Select count(*)
				Into :ll_saletaskmx_pf_ch
				From u_SaleTaskMx_pf
				Where u_SaleTaskMx_pf.scid = :arg_scid
				And u_SaleTaskMx_pf.taskid = :arg_relbillid
				And u_SaleTaskMx_pf.printid = :arg_relprintid Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '订单:'+ls_relbillcode+',明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询是否有换包件失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
		End If
		
		If ll_saletaskmx_pf_ch > 0 Then
			Select u_SaleTaskMx_pf.Sonscale,
				u_SaleTaskMx_pf.Sonscale_fm
				Into :ld_Sonscale,:ld_Sonscale_fm
				From u_SaleTaskMx_pf
				Where u_SaleTaskMx_pf.scid = :arg_scid
				And u_SaleTaskMx_pf.taskid = :arg_relbillid
				And u_SaleTaskMx_pf.printid = :arg_relprintid
				And u_SaleTaskMx_pf.sonmtrlid = :ll_mtrlid Using commit_transaction;
			If commit_transaction.SQLCode = -1 Then
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询当前库存分配的订单包件产品物料清单是否包含有对应分配的库存包件失败,请检查清单资料,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			ElseIf commit_transaction.SQLCode = 100 Then
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',当前库存分配的订单包件产品物料清单不包含有对应分配的库存包件,请检查清单资料'
				rslt = 0
				Goto ext
			End If
		Else
			Select u_prdpf.Sonscale,1
				Into :ld_Sonscale,:ld_Sonscale_fm
				From u_saletaskmx,u_mtrl_pf,u_prdpf,u_mtrldef
				Where u_saletaskmx.mtrlid = u_mtrl_pf.mtrlid
				And u_saletaskmx.scid = :arg_scid
				And u_saletaskmx.taskid = :arg_relbillid
				And u_saletaskmx.printid = :arg_relprintid
				And u_mtrl_pf.mtrlid = u_prdpf.mtrlid
				And u_mtrl_pf.pfcode = u_prdpf.pfcode
				And ( u_mtrl_pf.ifdi = 0 And u_mtrl_pf.ifdft = 1 )
				And u_PrdPF.SonMtrlid = :ll_mtrlid
				And u_prdpf.sonmtrlid = u_mtrldef.mtrlid
				And u_mtrldef.ifpack > 0 Using commit_transaction;
			If commit_transaction.SQLCode = -1 Then
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询当前库存分配的订单包件产品物料清单是否包含有对应分配的库存包件失败,请检查清单资料,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			ElseIf commit_transaction.SQLCode = 100 Then
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',当前库存分配的订单包件产品物料清单不包含有对应分配的库存包件,请检查清单资料'
				rslt = 0
				Goto ext
			End If
		End If
		
		ld_assignqty_all = ld_assignqty_all * ld_Sonscale/ld_Sonscale_fm
		
		Select isnull(sum(assignqty),0),
			isnull(sum(case when u_mtrldef.ifpack = 1 Or u_mtrldef.ifpack = 2 And u_mtrlware_assign.mtrlcuscode = :ls_mtrlcuscode then assignqty else 0 End ),0)
			Into :ld_assignqty,:ld_assignqty_mtrlcuscode
			From u_mtrlware_assign Inner join u_mtrldef on
			u_mtrlware_assign.mtrlid = u_mtrldef.mtrlid
			Where u_mtrlware_assign.scid = :arg_scid
			And u_mtrlware_assign.relbillid = :arg_relbillid
			And u_mtrlware_assign.relprintid = :arg_relprintid
			And u_mtrlware_assign.mtrlid = :ll_mtrlid
			And u_mtrlware_assign.assigntype = 1 Using commit_transaction;
		If commit_transaction.SQLCode <> 0 Then
			arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询订单包件已分配数失败,'+commit_transaction.SQLErrText
			rslt = 0
			Goto ext
		End If
		
		If ld_assignqty_all < ld_assignqty + arg_assignqty Then
			If ib_ifnotcheck_qty Then
				rslt = 1
				Goto ext
			Else
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',订单订货数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',不能再分配:'+String(arg_assignqty,'#,##0.##########')
				rslt = 0
				Goto ext
			End If
		End If
		
		//如果使用通用包件占用,检查通用包件的被占用数
		If uo_option_canpack_ifzanyong = 1 And li_ifpackpro = 1 And li_ifpack = 1 Then
			
			//得到该包件库存分配给这种订单产品的总数量
			Select sum(u_mtrlware_assign.assignqty - u_mtrlware_assign.Outqty)
				Into :ld_assignqty_fp
				From u_mtrlware_assign Inner JOIN
				u_SaleTaskMx ON u_mtrlware_assign.Scid = u_SaleTaskMx.scid And
				u_mtrlware_assign.Relbillid = u_SaleTaskMx.TaskID And
				u_mtrlware_assign.Relprintid = u_SaleTaskMx.printid
				Where u_SaleTaskMx.MtrlID = :ll_mtrlid_task
				and u_SaleTaskMx.status = :ls_status_task
				and u_SaleTaskMx.woodcode = :ls_woodcode_task
				and u_SaleTaskMx.pcode = :ls_pcode_task
				And u_mtrlware_assign.Scid = :arg_scid
				And u_mtrlware_assign.mtrlwareid = :arg_mtrlwareid Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询订单包件已分配给对应包件产品的数量失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			//得到该包件库存被这种订单产品占用的数量
			Select sum(u_mtrlware_pack_fp.qty - u_mtrlware_pack_fp.outqty)
				Into :ld_sumfpqty
			FROM u_mtrlware_pack_fp INNER JOIN
      u_mtrlware u_mtrlware_cp ON u_mtrlware_pack_fp.scid = u_mtrlware_cp.scid AND 
      u_mtrlware_pack_fp.cpmtrlwareid = u_mtrlware_cp.mtrlwareid
				Where u_mtrlware_pack_fp.scid = :arg_scid
				And u_mtrlware_pack_fp.mtrlwareid = :arg_mtrlwareid
				And u_mtrlware_pack_fp.cpmtrlid = :ll_mtrlid_task
				and u_mtrlware_cp.status = :ls_status_task
				and u_mtrlware_cp.woodcode = :ls_woodcode_task
				and u_mtrlware_cp.pcode = :ls_pcode_task
				Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询订单包件库存被对应包件产品占用数失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			if isnull(ld_assignqty_fp) then ld_assignqty_fp = 0 
			if isnull(ld_sumfpqty) then ld_sumfpqty = 0 
			
			//限制先有占用数才能进行库存分配
			If arg_assignqty + ld_assignqty_fp > ld_sumfpqty Then
				rslt = 0
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+','+'包件被包件产品占用数量为:'+String(ld_sumfpqty,'#,##0.##########')+',库存已分配数量:'+String(ld_assignqty_fp,'#,##0.##########')+',不能再分配:'+String(arg_assignqty,'#,##0.##########')
				Goto ext
			End If
			
		End If
		
		
		//计算配套数
		
		If Not ( uo_option_packpro2_not_use_pack1 = 1 And li_ifpackpro = 2 And li_ifpack = 1 ) Then
			ld_fpqty = (arg_assignqty + ld_assignqty)/(ld_Sonscale/ld_Sonscale_fm)
			ld_fpqty_mtrlcuscode = (arg_assignqty + ld_assignqty_mtrlcuscode)/(ld_Sonscale/ld_Sonscale_fm)
			
			If ll_saletaskmx_pf_ch > 0 Then
				ds_cmpl_pack_saletask.DataObject = 'ds_uo_mtrlware_assign_saletask_pack2'
				ds_cmpl_pack_saletask.SetTransObject(commit_transaction)
				ds_cmpl_pack_saletask.Retrieve(arg_scid,arg_Relbillid,arg_relprintid,ll_mtrlid)
			Else
				ds_cmpl_pack_saletask.Retrieve(ll_mtrlid_task,ll_mtrlid)
			End If
			
			For i = 1 To ds_cmpl_pack_saletask.RowCount()
				
				If uo_option_packpro2_not_use_pack1 = 1 Then
					If li_ifpackpro = 2 And ds_cmpl_pack_saletask.Object.u_mtrldef_ifpack[i] = 1 Then
						Continue
					End If
				End If
				
				ll_mtrlid_son = ds_cmpl_pack_saletask.Object.u_prdpf_sonmtrlid[i]
				ld_Sonscale = ds_cmpl_pack_saletask.Object.u_prdpf_sonscale[i]
				ld_Sonscale_fm = ds_cmpl_pack_saletask.Object.u_prdpf_sonscale_fm[i]
				
				Select isnull(sum(assignqty),0),
					isnull(sum(case when u_mtrldef.ifpack = 1 Or u_mtrldef.ifpack = 2 And u_mtrlware_assign.mtrlcuscode = :ls_mtrlcuscode then assignqty else 0 End ),0)
					Into :ld_assignqty,:ld_assignqty_mtrlcuscode
					From u_mtrlware_assign Inner join u_mtrldef on
					u_mtrlware_assign.mtrlid = u_mtrldef.mtrlid
					Where u_mtrlware_assign.scid = :arg_scid
					And u_mtrlware_assign.relbillid = :arg_relbillid
					And u_mtrlware_assign.relprintid = :arg_relprintid
					And u_mtrlware_assign.mtrlid = :ll_mtrlid_son
					And u_mtrlware_assign.assigntype = 1 Using commit_transaction;
				If commit_transaction.SQLCode <> 0 Then
					arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(arg_relprintid)+',查询订单其它包件已分配数失败,'+commit_transaction.SQLErrText
					rslt = 0
					Goto ext
				End If
				ld_fpqty = Min(ld_fpqty,ld_assignqty/(ld_Sonscale/ld_Sonscale_fm))
				ld_fpqty_mtrlcuscode = Min(ld_fpqty_mtrlcuscode,ld_assignqty_mtrlcuscode/(ld_Sonscale/ld_Sonscale_fm))
			Next
		End If
	ElseIf li_ifpackpro = 3 Or li_ifpackpro = 4 Then //组合配置包件产品
		s_mtrlcfg_expr s_pz[]
		Long ll_array,ll_l
		Decimal ld_pf_Sonscale[]
		String ls_pf_status[],ls_pf_woodcode[],ls_pf_pcode[]
		
		f_checkpz(ls_status_task,s_pz[])
		ll_array = UpperBound(s_pz)
		If ll_array = 0 Then
			arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(arg_relprintid)+',拆分子件错误,请检查组合配置'
			rslt = 0
			Goto ext
		End If
		
		For ll_l = 1 To ll_array
			ls_pf_status[ll_l] = s_pz[ll_l].cfgname
			ls_pf_woodcode[ll_l] = ls_woodcode_task
			ls_pf_pcode[ll_l] = ls_pcode_task
			ld_pf_Sonscale[ll_l] = Dec(s_pz[ll_l].qty)
		Next
		
		For ll_l = 1 To ll_array
			If ll_l > 1 And ld_fpqty = 0 Then Exit //最少配套数为0,不用计算其它子件
			
			Select isnull(sum(u_mtrlware_assign.assignqty),0),
				isnull(sum(case u_mtrlware_assign.mtrlcuscode when :ls_mtrlcuscode then u_mtrlware_assign.assignqty else 0 End ),0)
				Into :ld_assignqty,:ld_assignqty_mtrlcuscode
				From u_mtrlware_assign,u_mtrlware
				Where u_mtrlware_assign.scid = u_mtrlware.scid
				And u_mtrlware_assign.mtrlwareid = u_mtrlware.mtrlwareid
				And u_mtrlware_assign.scid = :arg_scid
				And u_mtrlware_assign.relbillid = :arg_relbillid
				And u_mtrlware_assign.relprintid = :arg_relprintid
				And u_mtrlware_assign.mtrlid = :ll_mtrlid
				And u_mtrlware_assign.assigntype = 1
				And u_mtrlware.status = :ls_pf_status[ll_l]
				And u_mtrlware.woodcode = :ls_pf_woodcode[ll_l]
				And u_mtrlware.pcode = :ls_pf_pcode[ll_l] Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(arg_relprintid)+',查询订单包件已分配数失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			If ls_status = ls_pf_status[ll_l] And ls_woodcode = ls_pf_woodcode[ll_l] And ls_pcode = ls_pf_pcode[ll_l] Then
				ld_assignqty = ld_assignqty + arg_assignqty
				ld_assignqty_mtrlcuscode = ld_assignqty_mtrlcuscode + arg_assignqty
			End If
			
			If ll_l = 1 Then
				ld_fpqty = ld_assignqty/ld_pf_Sonscale[ll_l]
				ld_fpqty_mtrlcuscode = ld_assignqty_mtrlcuscode/ld_pf_Sonscale[ll_l]
			Else
				ld_fpqty = Min(ld_fpqty,ld_assignqty/ld_pf_Sonscale[ll_l])
				ld_fpqty_mtrlcuscode = Min(ld_fpqty_mtrlcuscode,ld_assignqty_mtrlcuscode/ld_pf_Sonscale[ll_l])
			End If
		Next
	Else
		Select isnull(sum(assignqty),0) Into :ld_assignqty
			From u_mtrlware_assign
			Where u_mtrlware_assign.scid = :arg_scid
			And u_mtrlware_assign.relbillid = :arg_relbillid
			And u_mtrlware_assign.relprintid = :arg_relprintid
			And u_mtrlware_assign.assigntype = 1 Using commit_transaction;
		If commit_transaction.SQLCode <> 0 Then
			arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询订单已分配数失败,'+commit_transaction.SQLErrText
			rslt = 0
			Goto ext
		End If
		
		
		If ld_assignqty_all < ld_assignqty + arg_assignqty Then
			If ib_ifnotcheck_qty Then
				rslt = 1
				Goto ext
			Else
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',订单订货数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',不能再分配:'+String(arg_assignqty,'#,##0.##########')
				rslt = 0
				Goto ext
			End If
		End If
		
		ld_fpqty = arg_assignqty + ld_assignqty
		ld_fpqty_mtrlcuscode = 0
	End If
	
	If Not ( uo_option_packpro2_not_use_pack1 = 1 And li_ifpackpro = 2 And li_ifpack = 1 ) Then
		Update u_saletaskmx
			Set u_saletaskmx.fpqty = :ld_fpqty
			Where u_saletaskmx.scid = :arg_scid
			And u_saletaskmx.taskid = :arg_relbillid
			And u_saletaskmx.printid = :arg_relprintid Using commit_transaction;
		If commit_transaction.SQLCode <> 0 Then
			arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',更新订单明细已分配数失败,'+commit_transaction.SQLErrText
			rslt = 0
			Goto ext
		End If
	End If
End If

ll_assignid = f_sys_scidentity(0,"u_mtrlware_assign","assignid",arg_msg,True,id_sqlca)
If ll_assignid <= 0 Then
	rslt = 0
	Goto ext
End If

Insert Into u_mtrlware_assign
	(assignid,
	assigntype,
	scid,
	mtrlwareid,
	mtrlid,
	Relbillid,
	relprintid,
	relbillcode,
	assignqty,
	cost,
	wareamt,
	dscrp,
	mtrlcuscode,
	inwarecode,
	inprintid,
	cusid,
	fpgrade,
	waredate,
	opdate,
	opemp,
	storageid,
	pdbdate)
	Values
	(:ll_assignid,
	:arg_assigntype,
	:arg_scid,
	:arg_mtrlwareid,
	:ll_mtrlid,
	:arg_Relbillid,
	:arg_relprintid,
	:ls_relbillcode,
	:arg_assignqty,
	:arg_cost,
	:ld_wareamt,
	:arg_dscrp,
	:ls_mtrlcuscode,
	:arg_inwarecode,
	:arg_inprintid,
	:ll_cusid,
	:arg_fpgrade,
	getdate(),
	getdate(),
	:arg_opemp,
	:uo_fp_storageid,
	:uo_fp_pdbdate) Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	arg_msg = '分配库存失败,'+commit_transaction.SQLErrText
	rslt = 0
	Goto ext
End If

Update u_mtrlware
	Set allocqty = allocqty + :arg_assignqty
	Where mtrlwareid = :arg_mtrlwareid
	And scid = :arg_scid Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	arg_msg = '更新库存已分配数量失败,'+commit_transaction.SQLErrText
	rslt = 0
	Goto ext
End If

If arg_assigntype = 1 Then
	//yyx20120712
	//检查包件产品订单同批号的可装数，更新到包件产品库存分配明细
	If li_ifpackpro = 2 And li_ifpack = 2 Or &
		li_ifpackpro = 4 And (Pos(ls_status_task,'+') > 0 Or Pos(ls_status_task,'*') > 0) Or &
		li_ifpackpro = 1 And li_ifpack = 1 Then
		Select assignqty
			Into :ld_assignqty_old_task
			From u_mtrlware_assign
			Where u_mtrlware_assign.scid = :arg_scid
			And u_mtrlware_assign.mtrlwareid = :ll_mtrlwareid_task
			And u_mtrlware_assign.relbillid = :arg_relbillid
			And u_mtrlware_assign.relprintid = :arg_relprintid
			And u_mtrlware_assign.mtrlid = :ll_mtrlid_task
			And u_mtrlware_assign.assigntype = 1 Using commit_transaction;
		If commit_transaction.SQLCode = -1 Then
			arg_msg = '查询包件产品原库存分配数量失败,'+commit_transaction.SQLErrText
			rslt = 0
			Goto ext
		ElseIf commit_transaction.SQLCode = 100 Then
			ld_assignqty_old_task = 0
		End If
		
		ld_fpqty_mtrlcuscode = ld_fpqty_mtrlcuscode - ld_assignqty_old_task
		
		If uof_assign_add_packpro_to_saletask(arg_scid,ll_mtrlwareid_task,&
			ll_cusid,ll_mtrlid_task,ld_fpqty_mtrlcuscode,&
			arg_Relbillid,arg_relprintid,ls_relbillcode,&
			arg_cost,arg_dscrp,ls_mtrlcuscode,&
			arg_fpgrade,arg_opemp,arg_msg,False) = 0 Then
			rslt = 0
			Goto ext
		End If
	End If
	//yyx20120712_end
	
	//yyx2012-9-29
	If Not ib_ifinware_audit_do And uo_option_iffp_recmpl_canuseqty = 1 Then
		//yyx2012-9-29返回计算可装数库存id数组
		If ( li_ifpack = 1 Or li_ifpack = 2 Or li_ifpackpro_mtrlware = 3 Or li_ifpackpro_mtrlware = 4 ) Then
			If uo_cmpl_p.uof_ref_mtrlwarid_array(ll_mtrlid,ls_plancode,ls_mtrlcuscode,ll_storageid,s_mtrlwareid_array_rst,arg_msg) = 0 Then
				rslt = 0
				Goto ext
			End If
		End If
		
		If UpperBound(s_mtrlwareid_array_rst.mtrlwareid) > 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
End If

uo_assignid = ll_assignid

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

Destroy ds_cmpl_pack_saletask
Destroy ds_orderrqmtrl_fp_2_zl
Destroy ds_orderrqmtrl_fp
Destroy uo_cmpl_p

Return rslt




















end function

public function integer uof_plan_add (long arg_scid, long arg_mtrlwareid, integer arg_assigntype, long arg_relbillid, long arg_relprintid, decimal arg_planqty, string arg_dscrp, string arg_opemp, integer arg_plantype, integer arg_plankind, long arg_plankind_relbillid, long arg_plankind_relprintid, integer arg_fpgrade, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_planid,ll_mtrlid,ll_cusid
String ls_relbillcode,ls_plankind_relbillcode
String ls_aps_plancode
Decimal ld_assignqty_all,ld_assignqty,ld_assignqty_plan,ld_assignqty_plan_mtrlware
String ls_status,ls_woodcode,ls_pcode,ls_mtrlcode
String ls_status_task,ls_woodcode_task,ls_pcode_task
Decimal ld_fpqty_not
Decimal ld_noallocqty
Decimal ld_Sonscale,ld_fpqty_buytask_update,ld_fpqty_buytask_plan,ld_buytask_qty
Int li_mtrldef_ifpackpro,li_mtrldef_ifpack,li_mtrldef_outtype
Long i,ll_i,ll_sonmtrlid

//aps_plancode
Long j
Decimal ld_fpplanqty,ld_planqty
String ls_Plankind_aps_plancode

datastore ds_pfpack
ds_pfpack = Create datastore
ds_pfpack.DataObject = 'ds_pf_pack'
ds_pfpack.SetTransObject(commit_transaction)

datastore ds_order_inplanmx
ds_order_inplanmx = Create datastore
ds_order_inplanmx.DataObject = 'ds_aps_order_plancode'
ds_order_inplanmx.SetTransObject(commit_transaction)

s_mtrlcfg_expr s_pz_buytask[]

IF IsNull(arg_scid) THEN arg_scid = 0
IF IsNull(arg_mtrlwareid) THEN arg_mtrlwareid = 0
IF IsNull(arg_assigntype) THEN arg_assigntype = 0
IF IsNull(arg_Relbillid) THEN arg_Relbillid = 0
IF IsNull(arg_relprintid) THEN arg_relprintid = 0
IF IsNull(arg_planqty) THEN arg_planqty = 0
IF IsNull(arg_Plantype) THEN arg_Plantype = 0
IF IsNull(arg_Plankind) THEN arg_Plankind = 0
IF IsNull(arg_Plankind_relbillid) THEN arg_Plankind_relbillid = 0
IF IsNull(arg_Plankind_relprintid) THEN arg_Plankind_relprintid = 0
IF IsNull(arg_opemp) THEN arg_opemp = ''
IF IsNull(arg_dscrp) THEN arg_dscrp = ''

IF arg_planqty <= 0 THEN
	arg_msg = '错误的计划分配数量'
	rslt = 0
	GOTO ext
END IF

IF arg_Plantype = 0 THEN //库存分配
	IF arg_mtrlwareid = 0 THEN
		arg_msg = '非法的库存id'
		rslt = 0
		GOTO ext
	END IF
	
	SELECT u_mtrlware.mtrlid,
		u_mtrlware.status,
		u_mtrlware.woodcode,
		u_mtrlware.pcode,
		u_mtrldef.ifpack,
		u_mtrldef.mtrlcode,
		u_mtrlware.noallocqty - u_mtrlware.allocqty
		INTO :ll_mtrlid,
		:ls_status,
		:ls_woodcode,
		:ls_pcode,
		:li_mtrldef_ifpack,
		:ls_mtrlcode,
		:ld_noallocqty
		FROM u_mtrlware,u_mtrldef
		WHERE u_mtrlware.mtrlid = u_mtrldef.mtrlid
		AND u_mtrlware.scid = :arg_scid
		And u_mtrlware.mtrlwareid = :arg_mtrlwareid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '查询库存物料资料失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF ll_mtrlid <> arg_mtrlid THEN
		arg_msg = '传入分配计划物料id与库存对应物料id不相符,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	arg_status = ls_status
	arg_woodcode = ls_woodcode
	arg_pcode = ls_pcode
	
	
	IF ld_noallocqty < arg_planqty THEN
		arg_msg = '库存未分配数不足,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF arg_assigntype = 0 THEN //计划分配
		IF arg_Relbillid = 0 THEN
			arg_msg = '非法的生产计划id'
			rslt = 0
			GOTO ext
		END IF
		
		SELECT ordercode INTO :ls_relbillcode
			FROM u_order_ml
			WHERE scid = :arg_scid
			And orderid = :arg_Relbillid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '查询计划资料失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		SELECT isnull(sum(u_OrderRqMtrl.RqQty),0),
			isnull(sum(u_OrderRqMtrl.fpqty),0),
			isnull(sum(u_OrderRqMtrl.fpplanqty),0)
			INTO :ld_assignqty_all,
			:ld_assignqty,
			:ld_assignqty_plan
			FROM u_OrderRqMtrl
			WHERE u_OrderRqMtrl.scid = :arg_scid
			AND u_OrderRqMtrl.orderid = :arg_relbillid
			AND u_OrderRqMtrl.mtrlid = :ll_mtrlid
			AND u_OrderRqMtrl.status = :ls_status
			AND u_OrderRqMtrl.woodcode = :ls_woodcode
			And u_OrderRqMtrl.pcode = :ls_pcode Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '查询物料计划领用需求总数及已库存分配数失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF ld_assignqty >= ld_assignqty_plan THEN
			IF ld_assignqty_all < ld_assignqty + arg_planqty THEN
				arg_msg = '计划需求数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',不能再库存分配:'+String(arg_planqty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
		ELSE
			IF ld_assignqty_all < ld_assignqty_plan + arg_planqty THEN
				arg_msg = '计划需求数:'+String(ld_assignqty_all,'#,##0.##########')+',已安排分配计划数:'+String(ld_assignqty_plan,'#,##0.##########')+',不能再库存分配:'+String(arg_planqty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
		END IF
		
		//更新已分配数
		UPDATE u_OrderRqMtrl
			SET u_OrderRqMtrl.fpplanqty = u_OrderRqMtrl.fpplanqty + :arg_planqty
			WHERE u_OrderRqMtrl.scid = :arg_scid
			AND u_OrderRqMtrl.orderid = :arg_relbillid
			AND u_OrderRqMtrl.mtrlid = :ll_mtrlid
			AND u_OrderRqMtrl.status = :ls_status
			AND u_OrderRqMtrl.woodcode = :ls_woodcode
			And u_OrderRqMtrl.pcode = :ls_pcode Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '更新物料需求已安排分配计划数失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	ELSE //订单分配
		IF arg_Relbillid = 0 THEN
			arg_msg = '非法的销售订单id'
			rslt = 0
			GOTO ext
		END IF
		
		SELECT u_saletask.taskcode,
			u_saletask.cusid,
			u_saletaskmx.saleqty,
			u_mtrldef.ifpackpro,
			u_mtrldef.outtype,
			u_saletaskmx.status,
			u_saletaskmx.woodcode,
			u_saletaskmx.pcode
			INTO :ls_relbillcode,
			:ll_cusid,
			:ld_assignqty_all,
			:li_mtrldef_ifpackpro,
			:li_mtrldef_outtype,
			:ls_status_task,
			:ls_woodcode_task,
			:ls_pcode_task
			FROM u_saletask,u_saletaskmx,u_mtrldef
			WHERE u_saletaskmx.mtrlid = u_mtrldef.mtrlid
			AND u_saletask.scid = u_saletaskmx.scid
			AND u_saletask.taskid = u_saletaskmx.taskid
			AND u_saletaskmx.scid = :arg_scid
			AND u_saletaskmx.taskid = :arg_relbillid
			And u_saletaskmx.printid = :arg_relprintid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '查询订单资料失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		If (li_mtrldef_ifpackpro  = 1 Or li_mtrldef_ifpackpro = 2) And li_mtrldef_ifpack = 0 THEN
			arg_msg = '订单:'+ls_relbillcode+',明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',当前库存分配计划的订单为包件产品,但对应分配的库存不是包件,请检查资料'
			rslt = 0
			GOTO ext
		ElseIf (li_mtrldef_ifpackpro  = 1 Or li_mtrldef_ifpackpro = 2)  And li_mtrldef_ifpack > 0 THEN
			Long ll_saletaskmx_pf_ch
			
			ll_saletaskmx_pf_ch = 0
			IF li_mtrldef_ifpackpro = 1 THEN
				ll_saletaskmx_pf_ch = 0
			ELSE
				SELECT count(*)
					INTO :ll_saletaskmx_pf_ch
					FROM u_SaleTaskMx_pf
					WHERE u_SaleTaskMx_pf.scid = :arg_scid
					AND u_SaleTaskMx_pf.taskid = :arg_relbillid
					And u_SaleTaskMx_pf.printid = :arg_relprintid Using commit_transaction;
				IF commit_transaction.SQLCode <> 0 THEN
					arg_msg = '订单:'+ls_relbillcode+',明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询是否有换包件失败,'+commit_transaction.SQLErrText
					rslt = 0
					GOTO ext
				END IF
			END IF
			
			IF ll_saletaskmx_pf_ch > 0 THEN
				SELECT u_SaleTaskMx_pf.Sonscale
					INTO :ld_Sonscale
					FROM u_SaleTaskMx_pf
					WHERE u_SaleTaskMx_pf.scid = :arg_scid
					AND u_SaleTaskMx_pf.taskid = :arg_relbillid
					AND u_SaleTaskMx_pf.printid = :arg_relprintid
					And u_SaleTaskMx_pf.sonmtrlid = :ll_mtrlid Using commit_transaction;
				IF commit_transaction.SQLCode = -1 THEN
					arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询当前库存分配的订单包件产品物料清单是否包含有对应分配的库存包件失败,请检查清单资料,'+commit_transaction.SQLErrText
					rslt = 0
					GOTO ext
				ELSEIF commit_transaction.SQLCode = 100 THEN
					arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',当前库存分配的订单包件产品物料清单不包含有对应分配的库存包件,请检查清单资料'
					rslt = 0
					GOTO ext
				END IF
			ELSE
				SELECT u_prdpf.Sonscale
					INTO :ld_Sonscale
					FROM u_saletaskmx,u_mtrl_pf,u_prdpf,u_mtrldef
					WHERE u_saletaskmx.mtrlid = u_mtrl_pf.mtrlid
					AND u_saletaskmx.scid = :arg_scid
					AND u_saletaskmx.taskid = :arg_relbillid
					AND u_saletaskmx.printid = :arg_relprintid
					AND u_mtrl_pf.mtrlid = u_prdpf.mtrlid
					AND u_mtrl_pf.pfcode = u_prdpf.pfcode
					AND ( u_mtrl_pf.ifdi = 0 AND u_mtrl_pf.ifdft = 1 )
					AND u_PrdPF.SonMtrlid = :ll_mtrlid
					AND u_prdpf.sonmtrlid = u_mtrldef.mtrlid
					And u_mtrldef.ifpack > 0 Using commit_transaction;
				IF commit_transaction.SQLCode = -1 THEN
					arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询当前库存分配的订单包件产品物料清单是否包含有对应分配的库存包件失败,请检查清单资料,'+commit_transaction.SQLErrText
					rslt = 0
					GOTO ext
				ELSEIF commit_transaction.SQLCode = 100 THEN
					arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',当前库存分配的订单包件产品物料清单不包含有对应分配的库存包件,请检查清单资料'
					rslt = 0
					GOTO ext
				END IF
			END IF
			
			IF ld_Sonscale = 0 THEN
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',错误的包件组成数,请检查清单资料'
				rslt = 0
				GOTO ext
			END IF
			
			ld_assignqty_all = ld_assignqty_all * ld_Sonscale
			
			SELECT isnull(sum(assignqty),0)
				INTO :ld_assignqty
				FROM u_mtrlware_assign
				WHERE u_mtrlware_assign.scid = :arg_scid
				AND u_mtrlware_assign.relbillid = :arg_relbillid
				AND u_mtrlware_assign.relprintid = :arg_relprintid
				AND u_mtrlware_assign.mtrlid = :ll_mtrlid
				And u_mtrlware_assign.assigntype = 1 Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询订单包件已分配数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			SELECT isnull(sum(planassignqty),0)
				INTO :ld_assignqty_plan_mtrlware
				FROM u_mtrlware_assign_plan
				WHERE u_mtrlware_assign_plan.scid = :arg_scid
				AND u_mtrlware_assign_plan.relbillid = :arg_relbillid
				AND u_mtrlware_assign_plan.relprintid = :arg_relprintid
				AND u_mtrlware_assign_plan.assigntype = 1
				And u_mtrlware_assign_plan.mtrlid = :ll_mtrlid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询订单已分配计划数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF ld_assignqty_all < ld_assignqty + arg_planqty + ld_assignqty_plan_mtrlware THEN
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',订单订货数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',已分配计划数:'+String(ld_assignqty_plan_mtrlware,'#,##0.##########')+',不能再分配:'+String(arg_planqty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
		ELSEIF li_mtrldef_ifpackpro = 3 Or li_mtrldef_ifpackpro = 4 THEN //组合配置包件产品			
			s_mtrlcfg_expr s_pz[]
			Long ll_array,ll_l
			
			f_checkpz(ls_status_task,s_pz[])
			ll_array = UpperBound(s_pz)
			IF ll_array = 0 THEN
				arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(arg_relprintid)+',拆分子件错误,请检查组合配置'
				rslt = 0
				GOTO ext
			END IF
			
			FOR ll_l = 1 To ll_array
				IF s_pz[ll_l].cfgname = ls_status THEN
					ld_Sonscale = Dec(s_pz[ll_l].qty)
					EXIT
				END IF
			NEXT
			
			IF ld_Sonscale = 0 THEN
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',错误的包件组成数,请检查清单资料'
				rslt = 0
				GOTO ext
			END IF
			
			ld_assignqty_all = ld_assignqty_all * ld_Sonscale
			
			SELECT isnull(sum(assignqty),0) INTO :ld_assignqty
				FROM u_mtrlware_assign,u_mtrlware
				WHERE u_mtrlware_assign.scid = u_mtrlware.scid
				AND u_mtrlware_assign.mtrlwareid = u_mtrlware.mtrlwareid
				AND u_mtrlware_assign.scid = :arg_scid
				AND u_mtrlware_assign.relbillid = :arg_relbillid
				AND u_mtrlware_assign.relprintid = :arg_relprintid
				AND u_mtrlware_assign.mtrlid = :ll_mtrlid
				AND u_mtrlware_assign.assigntype = 1
				AND u_mtrlware.status = :ls_status
				AND u_mtrlware.woodcode = :ls_woodcode
				And u_mtrlware.pcode = :ls_pcode Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(arg_relprintid)+',查询订单包件已分配数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			SELECT isnull(sum(planassignqty),0)
				INTO :ld_assignqty_plan_mtrlware
				FROM u_mtrlware_assign_plan
				WHERE u_mtrlware_assign_plan.scid = :arg_scid
				AND u_mtrlware_assign_plan.relbillid = :arg_relbillid
				AND u_mtrlware_assign_plan.relprintid = :arg_relprintid
				AND u_mtrlware_assign_plan.assigntype = 1
				And u_mtrlware_assign_plan.mtrlid = :ll_mtrlid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询订单已分配计划数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF ld_assignqty_all < ld_assignqty + arg_planqty + ld_assignqty_plan_mtrlware THEN
				arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',订单订货数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',已分配计划数:'+String(ld_assignqty_plan_mtrlware,'#,##0.##########')+',不能再分配:'+String(arg_planqty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
		ELSE //非包件产品			
			SELECT isnull(sum(assignqty),0) INTO :ld_assignqty
				FROM u_mtrlware_assign
				WHERE u_mtrlware_assign.scid = :arg_scid
				AND u_mtrlware_assign.relbillid = :arg_relbillid
				AND u_mtrlware_assign.relprintid = :arg_relprintid
				And u_mtrlware_assign.assigntype = 1 Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询订单已分配数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			SELECT isnull(sum(planassignqty),0) INTO :ld_assignqty_plan_mtrlware
				FROM u_mtrlware_assign_plan
				WHERE u_mtrlware_assign_plan.scid = :arg_scid
				AND u_mtrlware_assign_plan.relbillid = :arg_relbillid
				AND u_mtrlware_assign_plan.relprintid = :arg_relprintid
				And u_mtrlware_assign_plan.assigntype = 1 Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询订单已分配计划数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF ld_assignqty_all < ld_assignqty + arg_planqty + ld_assignqty_plan_mtrlware THEN
				arg_msg = '订单订货数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',已分配计划数:'+String(ld_assignqty_plan_mtrlware,'#,##0.##########')+',不能再库存分配:'+String(arg_planqty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
		END IF
	END IF
ELSE //计划分配
	IF arg_Plankind = 0 THEN
		rslt = 0
		arg_msg = '错误的分配计划类型,请检查(0-无,1-指令单分配,2-采购订单分配,3-外协订单分配)'
		GOTO ext
	END IF
	
	//检查分计划来源
	CHOOSE CASE arg_Plankind
		CASE 1
			SELECT u_order_ml.ordercode,
				u_order_ml.orderqty - u_order_ml.fpqty,
				u_order_ml.mtrlid,
				u_order_ml.status_mode,
				u_order_ml.woodcode,
				u_order_ml.pcode
				INTO :ls_plankind_relbillcode,:ld_fpqty_not,
				:ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode
				FROM u_order_ml
				WHERE u_order_ml.scid = :arg_scid
				And u_order_ml.orderid = :arg_Plankind_relbillid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询分配计划所属指令单资料失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF ll_mtrlid <> arg_mtrlid THEN
				arg_msg = '传入分配计划物料id与指令对应物料id不相符,请检查'
				rslt = 0
				GOTO ext
			END IF
			
			arg_status = ls_status
			arg_woodcode = ls_woodcode
			arg_pcode = ls_pcode
			
			IF arg_planqty > ld_fpqty_not THEN
				arg_msg = '指令单:'+ls_plankind_relbillcode+'分配计划未占用数只有:'+String(ld_fpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_planqty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
			
			UPDATE u_order_ml
				SET u_order_ml.fpqty = u_order_ml.fpqty + :arg_planqty
				WHERE u_order_ml.scid = :arg_scid
				And u_order_ml.orderid = :arg_Plankind_relbillid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '更新指令单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		CASE 2
			SELECT u_buytask.taskcode,
				u_buytaskmx.qty - u_buytaskmx.fpqty,
				u_buytaskmx.qty,
				u_buytaskmx.mtrlid,
				u_buytaskmx.status,
				u_buytaskmx.woodcode,
				u_buytaskmx.pcode,
				u_mtrldef.outtype,
				u_mtrldef.ifpackpro
				INTO :ls_plankind_relbillcode,
				:ld_fpqty_not,
				:ld_buytask_qty,
				:ll_mtrlid,
				:ls_status,
				:ls_woodcode,
				:ls_pcode,
				:li_mtrldef_outtype,
				:li_mtrldef_ifpackpro
				FROM u_buytask,u_buytaskmx,u_mtrldef
				WHERE u_buytask.scid = u_buytaskmx.scid
				AND u_buytask.taskid = u_buytaskmx.taskid
				AND u_mtrldef.mtrlid = u_buytaskmx.mtrlid
				AND u_buytaskmx.scid = :arg_scid
				AND u_buytaskmx.taskid = :arg_Plankind_relbillid
				And u_buytaskmx.printid = :arg_Plankind_relprintid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询分配计划所属采购订单资料失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF li_mtrldef_outtype = 0 THEN
				IF ll_mtrlid <> arg_mtrlid THEN
					arg_msg = '传入分配计划物料id与采购订单对应物料id不相符,请检查'
					rslt = 0
					GOTO ext
				END IF
				
				IF arg_planqty > ld_fpqty_not THEN
					arg_msg = '采购订单:'+ls_plankind_relbillcode+'分配计划未占用数只有:'+String(ld_fpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_planqty,'#,##0.##########')
					rslt = 0
					GOTO ext
				END IF
				
				UPDATE u_buytaskmx
					SET u_buytaskmx.fpqty = u_buytaskmx.fpqty + :arg_planqty
					WHERE u_buytaskmx.scid = :arg_scid
					AND u_buytaskmx.taskid = :arg_Plankind_relbillid
					And u_buytaskmx.printid = :arg_Plankind_relprintid Using commit_transaction;
				IF commit_transaction.SQLCode <> 0 THEN
					arg_msg = '更新采购订单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText
					rslt = 0
					GOTO ext
				END IF
			ELSE
				CHOOSE CASE li_mtrldef_ifpackpro
					CASE 0
						IF ll_mtrlid <> arg_mtrlid THEN
							arg_msg = '传入分配计划物料id与采购订单对应物料id不相符,请检查'
							rslt = 0
							GOTO ext
						END IF
						
						IF arg_planqty > ld_fpqty_not THEN
							arg_msg = '采购订单:'+ls_plankind_relbillcode+'分配计划未占用数只有:'+String(ld_fpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_planqty,'#,##0.##########')
							rslt = 0
							GOTO ext
						END IF
						
						UPDATE u_buytaskmx
							SET u_buytaskmx.fpqty = u_buytaskmx.fpqty + :arg_planqty
							WHERE u_buytaskmx.scid = :arg_scid
							AND u_buytaskmx.taskid = :arg_Plankind_relbillid
							And u_buytaskmx.printid = :arg_Plankind_relprintid Using commit_transaction;
						IF commit_transaction.SQLCode <> 0 THEN
							arg_msg = '更新采购订单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText
							rslt = 0
							GOTO ext
						END IF
					CASE 1,2
						ds_pfpack.Retrieve(ll_mtrlid)
						IF ds_pfpack.RowCount() = 0 THEN
							arg_msg = '采购订单:'+ls_plankind_relbillcode+",物料清单找不到包件明细,请检查"
							rslt = 0
							GOTO ext
						END IF
						
						ld_fpqty_buytask_update = 0
						FOR ll_i = 1 To ds_pfpack.RowCount()
							ld_fpqty_buytask_plan = 0
							ll_sonmtrlid = ds_pfpack.Object.u_prdpf_sonmtrlid[ll_i]
							
							SELECT isnull(sum(u_mtrlware_assign_plan.planassingqty),0)
								INTO :ld_fpqty_buytask_plan
								FROM u_mtrlware_assign_plan
								WHERE u_mtrlware_assign_plan.scid = :arg_scid
								AND u_mtrlware_assign_plan.assigntype = :arg_assigntype
								AND u_mtrlware_assign_plan.plantype = :arg_plantype
								AND u_mtrlware_assign_plan.plankind = :arg_plankind
								AND u_mtrlware_assign_plan.plankind_relbillid = :arg_plankind_relbillid
								AND u_mtrlware_assign_plan.plankind_relprintid = :arg_plankind_relprintid
								And u_mtrlware_assign_plan.mtrlid = :ll_sonmtrlid Using commit_transaction;
							IF commit_transaction.SQLCode <> 0 THEN
								arg_msg = '采购订单:'+ls_plankind_relbillcode+",包件明细查询已安排分配计划数失败,"+commit_transaction.SQLErrText
								rslt = 0
								GOTO ext
							END IF
							
							IF ll_sonmtrlid = arg_mtrlid THEN
								ld_fpqty_buytask_plan += arg_planqty
							END IF
							ld_fpqty_buytask_update = Max(ld_fpqty_buytask_update,ld_fpqty_buytask_plan/ds_pfpack.Object.u_prdpf_sonscale[ll_i])
						NEXT
						
						IF ld_fpqty_buytask_update > ld_buytask_qty THEN
							arg_msg = '采购订单:'+ls_plankind_relbillcode+'数量只有:'+String(ld_buytask_qty,'#,##0.##########')+',不能分配:'+String(ld_fpqty_buytask_update,'#,##0.##########')
							rslt = 0
							GOTO ext
						END IF
						
						UPDATE u_buytaskmx
							SET u_buytaskmx.fpqty = ld_fpqty_buytask_update
							WHERE u_buytaskmx.scid = :arg_scid
							AND u_buytaskmx.taskid = :arg_Plankind_relbillid
							And u_buytaskmx.printid = :arg_Plankind_relprintid Using commit_transaction;
						IF commit_transaction.SQLCode <> 0 THEN
							arg_msg = '更新采购订单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText
							rslt = 0
							GOTO ext
						END IF
					CASE 3,4
						f_checkpz(ls_status,s_pz_buytask[])
						
						IF UpperBound(s_pz) = 0 THEN
							arg_msg = '采购订单:'+ls_plankind_relbillcode+',拆分子件错误,请检查组合配置'
							rslt = 0
							GOTO ext
						END IF
						
						ld_fpqty_buytask_update = 0
						FOR ll_i = 1 To UpperBound(s_pz_buytask)
							ld_fpqty_buytask_plan = 0
							
							SELECT isnull(sum(u_mtrlware_assign_plan.planassingqty),0)
								INTO :ld_fpqty_buytask_plan
								FROM u_mtrlware_assign_plan
								WHERE u_mtrlware_assign_plan.scid = :arg_scid
								AND u_mtrlware_assign_plan.assigntype = :arg_assigntype
								AND u_mtrlware_assign_plan.plantype = :arg_plantype
								AND u_mtrlware_assign_plan.plankind = :arg_plankind
								AND u_mtrlware_assign_plan.plankind_relbillid = :arg_plankind_relbillid
								AND u_mtrlware_assign_plan.plankind_relprintid = :arg_plankind_relprintid
								AND u_mtrlware_assign_plan.mtrlid = :arg_mtrlid
								And u_mtrlware_assign_plan.status = :s_pz_buytask[ll_i].cfgname Using commit_transaction;
							IF commit_transaction.SQLCode <> 0 THEN
								arg_msg = '采购订单:'+ls_plankind_relbillcode+",子件明细查询已安排分配计划数失败,"+commit_transaction.SQLErrText
								rslt = 0
								GOTO ext
							END IF
							
							IF arg_status = s_pz_buytask[ll_i].cfgname THEN
								ld_fpqty_buytask_plan += arg_planqty
							END IF
							ld_fpqty_buytask_update = Max(ld_fpqty_buytask_update,ld_fpqty_buytask_plan/Dec(s_pz_buytask[ll_i].qty))
						NEXT
						
						IF ld_fpqty_buytask_update > ld_buytask_qty THEN
							arg_msg = '采购订单:'+ls_plankind_relbillcode+'数量只有:'+String(ld_buytask_qty,'#,##0.##########')+',不能分配:'+String(ld_fpqty_buytask_update,'#,##0.##########')
							rslt = 0
							GOTO ext
						END IF
						
						UPDATE u_buytaskmx
							SET u_buytaskmx.fpqty = ld_fpqty_buytask_update
							WHERE u_buytaskmx.scid = :arg_scid
							AND u_buytaskmx.taskid = :arg_Plankind_relbillid
							And u_buytaskmx.printid = :arg_Plankind_relprintid Using commit_transaction;
						IF commit_transaction.SQLCode <> 0 THEN
							arg_msg = '更新采购订单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText
							rslt = 0
							GOTO ext
						END IF
				END CHOOSE
			END IF
		CASE 3
			SELECT u_order_wfjg.taskcode,
				u_order_wfjgmx.qty - u_order_wfjgmx.fpqty,
				u_order_wfjgmx.mtrlid,
				u_order_wfjgmx.status,
				u_order_wfjgmx.woodcode,
				u_order_wfjgmx.pcode
				INTO :ls_plankind_relbillcode,
				:ld_fpqty_not,
				:ll_mtrlid,
				:ls_status,
				:ls_woodcode,
				:ls_pcode
				FROM u_order_wfjg,u_order_wfjgmx
				WHERE u_order_wfjg.scid = u_order_wfjgmx.scid
				AND u_order_wfjg.wfjgid = u_order_wfjgmx.wfjgid
				AND u_order_wfjgmx.scid = :arg_scid
				AND u_order_wfjgmx.wfjgid = :arg_Plankind_relbillid
				And u_order_wfjgmx.printid = :arg_Plankind_relprintid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '查询分配计划所属外协订单资料失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF ll_mtrlid <> arg_mtrlid THEN
				arg_msg = '传入分配计划物料id与外协订单对应物料id不相符,请检查'
				rslt = 0
				GOTO ext
			END IF
			
			arg_status = ls_status
			arg_woodcode = ls_woodcode
			arg_pcode = ls_pcode
			
			IF arg_planqty > ld_fpqty_not THEN
				arg_msg = '外协订单:'+ls_plankind_relbillcode+'分配计划未占用数只有:'+String(ld_fpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_planqty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
			
			UPDATE u_order_wfjgmx
				SET u_order_wfjgmx.fpqty = u_order_wfjgmx.fpqty + :arg_planqty
				WHERE u_order_wfjgmx.scid = :arg_scid
				AND u_order_wfjgmx.wfjgid = :arg_Plankind_relbillid
				And u_order_wfjgmx.printid = :arg_Plankind_relprintid Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '更新外协订单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
	END CHOOSE
	
	
	//检查是否超已分配数
	IF arg_assigntype = 0 THEN
		IF arg_Relbillid = 0 THEN
			arg_msg = '非法的生产计划id'
			rslt = 0
			GOTO ext
		END IF
		
		SELECT ordercode INTO :ls_relbillcode
			FROM u_order_ml
			WHERE scid = :arg_scid
			And orderid = :arg_Relbillid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '查询计划资料失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		SELECT isnull(sum(u_OrderRqMtrl.RqQty),0),
			isnull(sum(u_OrderRqMtrl.fpqty),0),
			isnull(sum(u_OrderRqMtrl.fpplanqty),0)
			INTO :ld_assignqty_all,
			:ld_assignqty,
			:ld_assignqty_plan
			FROM u_OrderRqMtrl
			WHERE u_OrderRqMtrl.scid = :arg_scid
			AND u_OrderRqMtrl.orderid = :arg_relbillid
			AND u_OrderRqMtrl.mtrlid = :ll_mtrlid
			AND u_OrderRqMtrl.status = :ls_status
			AND u_OrderRqMtrl.woodcode = :ls_woodcode
			And u_OrderRqMtrl.pcode = :ls_pcode Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '查询物料计划领用需求总数及已安排分配计划数失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF ld_assignqty >= ld_assignqty_plan THEN
			IF ld_assignqty_all < ld_assignqty + arg_planqty THEN
				arg_msg = '计划需求数:'+String(ld_assignqty_all,'#,##0.##########')+',已库存分配数:'+String(ld_assignqty,'#,##0.##########')+',不能再计划分配:'+String(arg_planqty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
		ELSE
			IF ld_assignqty_all < ld_assignqty_plan + arg_planqty THEN
				arg_msg = '计划需求数:'+String(ld_assignqty_all,'#,##0.##########')+',已安排分配计划数:'+String(ld_assignqty_plan,'#,##0.##########')+',不能再计划分配:'+String(arg_planqty,'#,##0.##########')
				rslt = 0
				GOTO ext
			END IF
		END IF
		
		//更新已分配数
		UPDATE u_OrderRqMtrl
			SET u_OrderRqMtrl.fpplanqty = u_OrderRqMtrl.fpplanqty + :arg_planqty
			WHERE u_OrderRqMtrl.scid = :arg_scid
			AND u_OrderRqMtrl.orderid = :arg_relbillid
			AND u_OrderRqMtrl.mtrlid = :ll_mtrlid
			AND u_OrderRqMtrl.status = :ls_status
			AND u_OrderRqMtrl.woodcode = :ls_woodcode
			And u_OrderRqMtrl.pcode = :ls_pcode Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '更新物料需求已安排分配计划数失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	ELSE
		IF arg_Relbillid = 0 THEN
			arg_msg = '非法的销售订单id'
			rslt = 0
			GOTO ext
		END IF
		
		SELECT u_saletask.taskcode,
			u_saletask.cusid,
			u_saletaskmx.saleqty
			INTO :ls_relbillcode,
			:ll_cusid,
			:ld_assignqty_all
			FROM u_saletask,u_saletaskmx
			WHERE u_saletask.scid = u_saletaskmx.scid
			AND u_saletask.taskid = u_saletaskmx.taskid
			AND u_saletaskmx.scid = :arg_scid
			AND u_saletaskmx.taskid = :arg_relbillid
			And u_saletaskmx.printid = :arg_relprintid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '查询订单资料失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		SELECT isnull(sum(assignqty),0) INTO :ld_assignqty_plan
			FROM u_mtrlware_assign
			WHERE u_mtrlware_assign.scid = :arg_scid
			AND u_mtrlware_assign.relbillid = :arg_relbillid
			AND u_mtrlware_assign.relprintid = :arg_relprintid
			AND u_mtrlware_assign.assigntype = 1
			And u_mtrlware_assign.plantype = 1 Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '查询订单已安排分配计划数失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF ld_assignqty_all < ld_assignqty_plan + arg_planqty THEN
			arg_msg = '订单订货数:'+String(ld_assignqty_all,'#,##0.##########')+',已安排分配计划数:'+String(ld_assignqty_plan,'#,##0.##########')+',不能再计划分配:'+String(arg_planqty,'#,##0.##########')
			rslt = 0
			GOTO ext
		END IF
	END IF
END IF

IF arg_Plantype = 1 And arg_Plankind = 1 THEN
	ds_order_inplanmx.Retrieve(arg_scid,arg_Plankind_relbillid)
	ld_planqty = arg_planqty
	IF ds_order_inplanmx.RowCount() = 0 THEN
		arg_msg = '指令单没有排程批次,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	FOR j = 1 To ds_order_inplanmx.RowCount()
		IF ld_planqty = 0 THEN EXIT
		IF ld_planqty > ds_order_inplanmx.Object.notfpplanqty[j] THEN
			ld_fpplanqty = ds_order_inplanmx.Object.notfpplanqty[j]
			ld_planqty = ld_planqty - ds_order_inplanmx.Object.notfpplanqty[j]
		ELSE
			ld_fpplanqty = ld_planqty
			ld_planqty = 0
		END IF
		
		ls_Plankind_aps_plancode = ds_order_inplanmx.Object.aps_plancode[j]
		
		ll_planid = f_sys_scidentity(0,"u_mtrlware_assign_plan","planid",arg_msg,True,id_sqlca)
		IF ll_planid <= 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		INSERT INTO u_mtrlware_assign_plan
			(planid,
			assigntype,
			scid,
			mtrlwareid,
			Relbillid,
			relprintid,
			relbillcode,
			planassignqty,
			cusid,
			dscrp,
			opdate,
			opemp,
			plantype,
			plankind,
			plankind_relbillid,
			plankind_relprintid,
			fpgrade,
			mtrlid,
			status,
			woodcode,
			pcode,
			Plankind_aps_plancode)
			VALUES
			(:ll_planid,
			:arg_assigntype,
			:arg_scid,
			:arg_mtrlwareid,
			:arg_Relbillid,
			:arg_relprintid,
			:ls_relbillcode,
			:ld_fpplanqty,
			:ll_cusid,
			:arg_dscrp,
			getdate(),
			:arg_opemp,
			:arg_plantype,
			:arg_plankind,
			:arg_plankind_relbillid,
			:arg_Plankind_relprintid,
			:arg_fpgrade,
			:arg_mtrlid,
			:arg_status,
			:arg_woodcode,
			:arg_pcode,
			:ls_Plankind_aps_plancode) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '指令单建立分配计划失败(按排程批),'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		UPDATE u_order_zl_planmx
			SET u_order_zl_planmx.fpplanqty = u_order_zl_planmx.fpplanqty + :ld_fpplanqty
			WHERE u_order_zl_planmx.scid = :arg_scid
			AND u_order_zl_planmx.orderid = :arg_Plankind_relbillid
			And u_order_zl_planmx.aps_plancode = :ls_Plankind_aps_plancode Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '更新指令单:'+ls_plankind_relbillcode+',排程批:'+ls_Plankind_aps_plancode+',分配计划占用数失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	NEXT
	
	IF ld_planqty > 0 THEN
		arg_msg = '排程批有余数,不能建立分配计划,请检查'
		rslt = 0
		GOTO ext
	END IF
ELSE
	ll_planid = f_sys_scidentity(0,"u_mtrlware_assign_plan","planid",arg_msg,True,id_sqlca)
	IF ll_planid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	INSERT INTO u_mtrlware_assign_plan
		(planid,
		assigntype,
		scid,
		mtrlwareid,
		Relbillid,
		relprintid,
		relbillcode,
		planassignqty,
		cusid,
		dscrp,
		opdate,
		opemp,
		plantype,
		plankind,
		plankind_relbillid,
		plankind_relprintid,
		fpgrade,
		mtrlid,
		status,
		woodcode,
		pcode,
		Plankind_aps_plancode)
		VALUES
		(:ll_planid,
		:arg_assigntype,
		:arg_scid,
		:arg_mtrlwareid,
		:arg_Relbillid,
		:arg_relprintid,
		:ls_relbillcode,
		:arg_planqty,
		:ll_cusid,
		:arg_dscrp,
		getdate(),
		:arg_opemp,
		:arg_plantype,
		:arg_plankind,
		:arg_plankind_relbillid,
		:arg_Plankind_relprintid,
		:arg_fpgrade,
		:arg_mtrlid,
		:arg_status,
		:arg_woodcode,
		:arg_pcode,
		'') Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '建立分配计划失败,'+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

Destroy ds_pfpack
Destroy ds_order_inplanmx

RETURN rslt
end function

public function integer uof_assign_add_to_zl_scll (long arg_scid, long arg_orderid, long arg_mtrlid, long arg_wrkgrpid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_fpqty, long arg_from_p_orderid, integer arg_from_plantype, integer arg_from_produce_wrkgrpid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Decimal ld_fpqty,ld_trueRqqty,ld_notfpqty
String ls_mtrlcode,ls_ordercode
Long ll_orderid_p,i
Long ll_ifenouth
Decimal ld_notfpqty_zl,ld_notfpqty_zl_update,ld_notfpqty_zl_check

datastore ds_update_orderrqmtrl_fp
ds_update_orderrqmtrl_fp = Create datastore

SELECT mtrlcode INTO :ls_mtrlcode
	From u_mtrldef Where mtrlid = :arg_mtrlid using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询指令单领料明细物料编码失败,id:'+String(arg_mtrlid)+','+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

SELECT ordercode,porderid INTO :ls_ordercode,:ll_orderid_p
	From u_order_ml Where orderid = :arg_orderid using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询指令单编号失败,id:'+String(arg_orderid)+','+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

//合并排产主计划指令
IF ll_orderid_p = 0 THEN ll_orderid_p = arg_orderid

SELECT u_OrderRqMtrl_scll.trueRqqty,
	u_OrderRqMtrl_scll.fpqty
	INTO :ld_trueRqqty,
	:ld_fpqty
	FROM u_OrderRqMtrl_scll
	WHERE u_OrderRqMtrl_scll.scid = :arg_scid
	AND u_OrderRqMtrl_scll.orderid = :arg_orderid
	AND u_OrderRqMtrl_scll.mtrlid = :arg_mtrlid
	AND u_OrderRqMtrl_scll.wrkgrpid = :arg_wrkgrpid
	AND u_OrderRqMtrl_scll.status = :arg_status
	AND u_OrderRqMtrl_scll.woodcode = :arg_woodcode
	And u_OrderRqMtrl_scll.pcode = :arg_pcode using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',查询指令单用料数及已分配数失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF arg_fpqty > 0 THEN
	IF ld_trueRqqty < ld_fpqty + arg_fpqty THEN
		arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',指令单物料未分配数只有:'+String(ld_trueRqqty - ld_fpqty,'#,#0.#########')+',不能再分配:'+String(arg_fpqty,'#,#0.#########')
		rslt = 0
		GOTO ext
	END IF
ELSE
	IF ld_fpqty < Abs(arg_fpqty) THEN
		arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',指令单物料已分配数只有:'+String(ld_fpqty,'#,#0.#########')+',不能取消分配:'+String(arg_fpqty,'#,#0.#########')
		rslt = 0
		GOTO ext
	END IF
END IF

UPDATE u_OrderRqMtrl_scll
	SET u_OrderRqMtrl_scll.fpqty = u_OrderRqMtrl_scll.fpqty + :arg_fpqty
	WHERE u_OrderRqMtrl_scll.scid = :arg_scid
	AND u_OrderRqMtrl_scll.orderid = :arg_orderid
	AND u_OrderRqMtrl_scll.mtrlid = :arg_mtrlid
	AND u_OrderRqMtrl_scll.wrkgrpid = :arg_wrkgrpid
	AND u_OrderRqMtrl_scll.status = :arg_status
	AND u_OrderRqMtrl_scll.woodcode = :arg_woodcode
	And u_OrderRqMtrl_scll.pcode = :arg_pcode using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',更新指令单用料数及已分配数失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

//更新计划分配占用数
IF arg_from_p_orderid = 0 THEN
	IF arg_fpqty > 0 THEN
		ds_update_orderrqmtrl_fp.DataObject = 'ds_zlscllfp_update_order_fp'
		ds_update_orderrqmtrl_fp.SetTransObject(commit_transaction)
		ds_update_orderrqmtrl_fp.Retrieve(arg_scid,ll_orderid_p,arg_wrkgrpid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode)
		
		ld_notfpqty_zl_check = arg_fpqty
		
		FOR i = 1 To ds_update_orderrqmtrl_fp.RowCount()
			
			IF ld_notfpqty_zl_check = 0 THEN EXIT
			arg_from_p_orderid = ds_update_orderrqmtrl_fp.Object.orderid[i]
			arg_from_plantype = ds_update_orderrqmtrl_fp.Object.plantype[i]
			arg_from_produce_wrkGrpid = ds_update_orderrqmtrl_fp.Object.produce_wrkgrpid[i]
			ld_notfpqty_zl = ds_update_orderrqmtrl_fp.Object.notfpqty[i]
			
			IF ld_notfpqty_zl_check > ld_notfpqty_zl THEN
				ld_notfpqty_zl_update = ld_notfpqty_zl
				ld_notfpqty_zl_check = ld_notfpqty_zl_check - ld_notfpqty_zl
			ELSE
				ld_notfpqty_zl_update = ld_notfpqty_zl_check
				ld_notfpqty_zl_check = 0
			END IF
			
			UPDATE u_OrderRqMtrl
				SET u_OrderRqMtrl.fpqty_zl = u_OrderRqMtrl.fpqty_zl + :ld_notfpqty_zl_update
				WHERE u_OrderRqMtrl.scid = :arg_scid
				AND u_OrderRqMtrl.orderid = :arg_from_p_orderid
				AND u_OrderRqMtrl.plantype = :arg_from_plantype
				AND u_OrderRqMtrl.produce_wrkGrpid = :arg_from_produce_wrkGrpid
				AND u_OrderRqMtrl.mtrlid = :arg_mtrlid
				AND u_OrderRqMtrl.wrkgrpid = :arg_wrkgrpid
				AND u_OrderRqMtrl.status = :arg_status
				AND u_OrderRqMtrl.woodcode = :arg_woodcode
				And u_OrderRqMtrl.pcode = :arg_pcode using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',更新相关主生产计划指令单占用分配数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		NEXT
		
		IF ld_notfpqty_zl_check > 0 THEN
			arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',更新相关主生产计划指令单占用分配数有余数:'+String(ld_notfpqty_zl_check,'#,##0.##########')+',操作取消'
			rslt = 0
			GOTO ext
		END IF
	ELSE
		ds_update_orderrqmtrl_fp.DataObject = 'ds_zlscllfp_update_order_fp_cancel'
		ds_update_orderrqmtrl_fp.SetTransObject(commit_transaction)
		ds_update_orderrqmtrl_fp.Retrieve(arg_scid,ll_orderid_p,arg_wrkgrpid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode)
		
		ld_notfpqty_zl_check = Abs(arg_fpqty)
		
		FOR i = 1 To ds_update_orderrqmtrl_fp.RowCount()
			
			IF ld_notfpqty_zl_check = 0 THEN EXIT
			arg_from_p_orderid = ds_update_orderrqmtrl_fp.Object.orderid[i]
			arg_from_plantype = ds_update_orderrqmtrl_fp.Object.plantype[i]
			arg_from_produce_wrkGrpid = ds_update_orderrqmtrl_fp.Object.produce_wrkgrpid[i]
			ld_notfpqty_zl = ds_update_orderrqmtrl_fp.Object.fpqty_zl[i]
			
			IF ld_notfpqty_zl_check > ld_notfpqty_zl THEN
				ld_notfpqty_zl_update = ld_notfpqty_zl
				ld_notfpqty_zl_check = ld_notfpqty_zl_check - ld_notfpqty_zl
			ELSE
				ld_notfpqty_zl_update = ld_notfpqty_zl_check
				ld_notfpqty_zl_check = 0
			END IF
			
			UPDATE u_OrderRqMtrl
				SET u_OrderRqMtrl.fpqty_zl = u_OrderRqMtrl.fpqty_zl - :ld_notfpqty_zl_update
				WHERE u_OrderRqMtrl.scid = :arg_scid
				AND u_OrderRqMtrl.orderid = :arg_from_p_orderid
				AND u_OrderRqMtrl.plantype = :arg_from_plantype
				AND u_OrderRqMtrl.produce_wrkGrpid = :arg_from_produce_wrkGrpid
				AND u_OrderRqMtrl.mtrlid = :arg_mtrlid
				AND u_OrderRqMtrl.wrkgrpid = :arg_wrkgrpid
				AND u_OrderRqMtrl.status = :arg_status
				AND u_OrderRqMtrl.woodcode = :arg_woodcode
				And u_OrderRqMtrl.pcode = :arg_pcode using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',更新相关主生产计划指令单占用分配数失败,'+commit_transaction.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		NEXT
		
		IF ld_notfpqty_zl_check > 0 THEN
			arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',更新相关主生产计划指令单占用分配数有余数,操作取消'
			rslt = 0
			GOTO ext
		END IF
	END IF
ELSE
	UPDATE u_OrderRqMtrl
		SET u_OrderRqMtrl.fpqty_zl = u_OrderRqMtrl.fpqty_zl + :arg_fpqty
		WHERE u_OrderRqMtrl.scid = :arg_scid
		AND u_OrderRqMtrl.orderid = :arg_from_p_orderid
		AND u_OrderRqMtrl.plantype = :arg_from_plantype
		AND u_OrderRqMtrl.produce_wrkGrpid = :arg_from_produce_wrkGrpid
		AND u_OrderRqMtrl.mtrlid = :arg_mtrlid
		AND u_OrderRqMtrl.wrkgrpid = :arg_wrkgrpid
		AND u_OrderRqMtrl.status = :arg_status
		AND u_OrderRqMtrl.woodcode = :arg_woodcode
		And u_OrderRqMtrl.pcode = :arg_pcode using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',更新相关主生产计划指令单占用分配数失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF


//更新足料标记
SELECT isnull(sum(isnull(u_OrderRqMtrl_scll.trueRqqty - u_OrderRqMtrl_scll.fpqty,0)),0)
	INTO :ld_notfpqty
	FROM u_OrderRqMtrl_scll,u_mtrldef
	WHERE u_OrderRqMtrl_scll.scid = :arg_scid
	AND u_OrderRqMtrl_scll.orderid = :arg_orderid
	AND u_OrderRqMtrl_scll.wrkgrpid = :arg_wrkgrpid
	AND u_OrderRqMtrl_scll.mtrlid = u_mtrldef.mtrlid
	And u_mtrldef.iffp = 1 using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '检查指令单:'+ls_ordercode + '工组是否足料失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ld_notfpqty > 0 THEN
	ll_ifenouth = 1
ELSE
	ll_ifenouth = 0
END IF

UPDATE u_ordermtrl_wrk_mtrl
	SET u_ordermtrl_wrk_mtrl.ifenouth = :ll_ifenouth
	WHERE u_ordermtrl_wrk_mtrl.scid = :arg_scid
	AND u_ordermtrl_wrk_mtrl.orderid = :arg_orderid
	And u_ordermtrl_wrk_mtrl.wrkgrpid = :arg_wrkgrpid using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '指令单:'+ls_ordercode + ',更新足料标记失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

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

Destroy ds_update_orderrqmtrl_fp

RETURN rslt

end function

public function integer uof_assign_del_order (long arr_scid[], long arr_orderid[], ref string arg_msg, boolean if_commit);Int rslt = 1
Long ll_scid, ll_orderid
Long ll_assignid, arr_assignid[]
Decimal ld_qty, arr_qty[]
Long ll_cnt2 = 0, ll_cnt
Long ll_i
ll_cnt = UpperBound(arr_scid)

FOR ll_i = 1 To ll_cnt
	ll_scid = arr_scid[ll_i]
	ll_orderid = arr_orderid[ll_i]
	
	DECLARE cur1 CURSOR FOR
		SELECT u_mtrlware_assign.Assignid, u_mtrlware_assign.assignqty - u_mtrlware_assign.Outqty AS Expr1
		FROM u_mtrlware_assign INNER JOIN
		u_mtrlware ON u_mtrlware_assign.Mtrlwareid = u_mtrlware.mtrlwareid AND u_mtrlware_assign.Scid = u_mtrlware.scid INNER JOIN
		u_storage ON u_mtrlware.storageid = u_storage.storageid INNER JOIN
		u_mtrldef ON u_mtrlware.mtrlid = u_mtrldef.mtrlid
		WHERE (u_mtrlware_assign.assignqty > u_mtrlware_assign.Outqty) AND (u_mtrlware_assign.assigntype = 0) AND (u_mtrldef.iffp = 1) AND
		(u_storage.storagetype = 1) And (u_mtrlware.Scid = :ll_scid) And (u_mtrlware_assign.Relbillid = :ll_orderid) using commit_transaction;
	OPEN cur1;
	FETCH cur1 Into :ll_assignid, :ld_qty;
	DO WHILE commit_transaction.SQLCode = 0
		ll_cnt2++
		arr_assignid[ll_cnt2] = ll_assignid
		arr_qty[ll_cnt2] = ld_qty
		FETCH cur1 Into :ll_assignid, :ld_qty;
	LOOP
	CLOSE cur1;
	
NEXT

FOR ll_i = 1 To ll_cnt2
	IF uof_assign_del(arr_assignid[ll_i], arr_qty[ll_i], Ref arg_msg, False) <> 1 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

ext:
IF if_commit THEN
	IF rslt = 1 THEN
		COMMIT using commit_transaction;
	ELSE
		ROLLBACK using commit_transaction;
	END IF
END IF
RETURN rslt

end function

public function integer uof_assign_add_order (long arg_scid[], long arg_orderid[], ref string arg_msg, boolean if_commit);Int rslt = 1

Long ll_cnt = 0, ll_cnt2 = 0
Long ll_scid, arr_scid[], ll_orderid, arr_orderid[], ll_mtrlid, arr_mtrlid[]
String ls_status, arr_status[], ls_woodcode, arr_woodcode[], ls_pcode, arr_pcode[]
Decimal ld_qty, arr_qty[]
Long ll_mtrlwareid, arr_mtrlwareid[]
Decimal ld_notfpqty, arr_notfpqty[]
Decimal ld_fpreal
Long ll_i, ll_j

String ls_sql = ''
ls_sql = ls_sql + " SELECT u_OrderRqMtrl.scid, u_OrderRqMtrl.OrderID, u_OrderRqMtrl.MtrlID, u_OrderRqMtrl.status, u_OrderRqMtrl.woodcode, u_OrderRqMtrl.pcode,  "
ls_sql = ls_sql + " u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty AS RqQty, u_OrderRqMtrl.RqDate "
ls_sql = ls_sql + " INTO [#tmp_OrderRqMtrl] "
ls_sql = ls_sql + " FROM u_OrderRqMtrl INNER JOIN "
ls_sql = ls_sql + " u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid "
ls_sql = ls_sql + " WHERE (u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty > 0) AND (u_mtrldef.iffp = 1) AND (u_OrderRqMtrl.scid = ?) AND  "
ls_sql = ls_sql + " (u_OrderRqMtrl.OrderID = ?) "
String ls_sql2 = ''
ls_sql2 = ls_sql2 + " INSERT INTO [#tmp_OrderRqMtrl] "
ls_sql2 = ls_sql2 + " SELECT u_OrderRqMtrl.scid, u_OrderRqMtrl.OrderID, u_OrderRqMtrl.MtrlID, u_OrderRqMtrl.status, u_OrderRqMtrl.woodcode, u_OrderRqMtrl.pcode,  "
ls_sql2 = ls_sql2 + " u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty AS RqQty, u_OrderRqMtrl.RqDate "
ls_sql2 = ls_sql2 + " FROM u_OrderRqMtrl INNER JOIN "
ls_sql2 = ls_sql2 + " u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid "
ls_sql2 = ls_sql2 + " WHERE (u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty > 0) AND (u_mtrldef.iffp = 1) AND (u_OrderRqMtrl.scid = ?) AND  "
ls_sql2 = ls_sql2 + " (u_OrderRqMtrl.OrderID = ?) "



FOR ll_i = 1 To UpperBound(arg_scid)
	IF ll_i = 1 THEN
		PREPARE SQLSA From :ls_sql using commit_transaction;
	ELSE
		PREPARE SQLSA From :ls_sql2 using commit_transaction;
	END IF
	
	EXECUTE SQLSA Using :arg_scid[ll_i],:arg_orderid[ll_i];
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询主计划物料需求失败,' + commit_transaction.SQLErrText
		GOTO ext
	END IF
NEXT

ls_sql = "SELECT scid, orderid, mtrlid, status, woodcode, pcode, rqqty From [#tmp_OrderRqMtrl] Order By rqdate"
PREPARE SQLSA From :ls_sql using commit_transaction;
DECLARE cur1 Dynamic Cursor FOR SQLSA;
OPEN Dynamic cur1;
FETCH cur1 Into :ll_scid, :ll_orderid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ld_qty;
DO WHILE commit_transaction.SQLCode = 0
	ll_cnt++
	arr_scid[ll_cnt] = ll_scid
	arr_orderid[ll_cnt] = ll_orderid
	arr_mtrlid[ll_cnt] = ll_mtrlid
	arr_status[ll_cnt] = ls_status
	arr_woodcode[ll_cnt] = ls_woodcode
	arr_pcode[ll_cnt] = ls_pcode
	arr_qty[ll_cnt] = ld_qty
	FETCH cur1 Into :ll_scid, :ll_orderid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ld_qty;
LOOP
CLOSE cur1;

IF commit_transaction.SQLErrText <> '' AND ll_cnt = 0 THEN
	rslt = 0
	arg_msg = commit_transaction.SQLErrText
	GOTO ext
END IF

FOR ll_i = 1 To ll_cnt
	ll_scid = arr_scid[ll_i]
	ll_orderid = arr_orderid[ll_i]
	ll_mtrlid = arr_mtrlid[ll_i]
	ls_status = arr_status[ll_i]
	ls_woodcode = arr_woodcode[ll_i]
	ls_pcode = arr_pcode[ll_i]
	ld_qty = arr_qty[ll_i]
	
	ll_cnt2 = 0
	DECLARE cur2 CURSOR FOR
		SELECT u_mtrlware.mtrlwareid, u_mtrlware.noallocqty - u_mtrlware.allocqty AS Expr1
		FROM u_mtrlware INNER JOIN
		u_storage ON u_mtrlware.storageid = u_storage.storageid
		WHERE (u_mtrlware.scid = :ll_scid) AND (u_mtrlware.mtrlid = :ll_mtrlid) AND (u_mtrlware.Status = :ls_status) AND (u_mtrlware.woodcode = :ls_woodcode)
		And (u_mtrlware.pcode = :ls_pcode) And (u_mtrlware.noallocqty > u_mtrlware.allocqty) And (u_storage.inuse = 1) And (u_storage.storagetype = 1) using commit_transaction;
	OPEN cur2;
	FETCH cur2 Into :ll_mtrlwareid, :ld_notfpqty;
	DO WHILE commit_transaction.SQLCode = 0
		ll_cnt2++
		arr_mtrlwareid[ll_cnt2] = ll_mtrlwareid
		arr_notfpqty[ll_cnt2] = ld_notfpqty
		FETCH cur2 Into :ll_mtrlwareid, :ld_notfpqty;
	LOOP
	CLOSE cur2;
	
	FOR ll_j = 1 To ll_cnt2
		IF ld_qty = 0 THEN EXIT
		ll_mtrlwareid = arr_mtrlwareid[ll_j]
		ld_notfpqty = arr_notfpqty[ll_j]
		IF ld_qty > ld_notfpqty THEN
			ld_fpreal = ld_notfpqty
		ELSE
			ld_fpreal = ld_qty
		END IF
		IF uof_assign_add_to_order(ll_scid, ll_mtrlwareid, ll_orderid, ld_fpreal, 2, Ref arg_msg, False) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
		ld_qty = ld_qty - ld_fpreal
	NEXT
	
NEXT

ext:
ls_sql = "drop table [#tmp_OrderRqMtrl]"
EXECUTE Immediate :ls_sql using commit_transaction;
IF if_commit THEN
	IF rslt = 1 THEN
		COMMIT using commit_transaction;
	ELSE
		ROLLBACK using commit_transaction;
	END IF
END IF
RETURN rslt

















end function

public function integer uof_assign_add_to_order (long arg_scid, long arg_mtrlwareid, long arg_orderid, decimal arg_qty, long arg_fpgrade, ref string arg_msg, boolean if_commit);Int rslt = 1

Decimal ld_cost
String ls_dscrp
String ls_mtrlcuscode

ls_dscrp = ''

SELECT cost , mtrlcuscode
	INTO :ld_cost, :ls_mtrlcuscode
	FROM u_mtrlware
	Where scid = :arg_scid And mtrlwareid = :arg_mtrlwareid using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	ld_cost = 0
	ls_mtrlcuscode = ''
END IF

RETURN uof_assign_add(arg_scid, arg_mtrlwareid, 0, arg_orderid, 0, arg_qty, ld_cost, ls_dscrp, ls_mtrlcuscode, '', 0, arg_fpgrade, publ_operator, Ref arg_msg, if_commit)

RETURN rslt

end function

public function integer uof_assign_del_all_order (ref string arg_msg, boolean if_commit);Int rslt = 1

Long ll_assignid, arr_assignids[]
Decimal ld_qty, arr_qtys[]

Long ll_cnt = 0

DECLARE cur1 CURSOR FOR
	SELECT u_mtrlware_assign.Assignid, u_mtrlware_assign.assignqty - u_mtrlware_assign.Outqty AS Expr1
	FROM u_mtrlware_assign INNER JOIN
	u_mtrlware ON u_mtrlware_assign.Mtrlwareid = u_mtrlware.mtrlwareid AND u_mtrlware_assign.Scid = u_mtrlware.scid INNER JOIN
	u_storage ON u_mtrlware.storageid = u_storage.storageid INNER JOIN
	u_mtrldef ON u_mtrlware.mtrlid = u_mtrldef.mtrlid
	WHERE (u_mtrlware_assign.assignqty > u_mtrlware_assign.Outqty) AND (u_mtrlware_assign.assigntype = 0) AND (u_mtrldef.iffp = 1) AND
	(u_storage.storagetype = 1) using commit_transaction;
OPEN cur1;
FETCH cur1 Into :ll_assignid, :ld_qty;
DO WHILE commit_transaction.SQLCode = 0
	ll_cnt ++
	arr_assignids[ll_cnt] = ll_assignid
	arr_qtys[ll_cnt] = ld_qty
	FETCH cur1 Into :ll_assignid, :ld_qty;
LOOP
CLOSE cur1;

Long ll_i
FOR ll_i = 1 To ll_cnt
	IF uof_assign_del(arr_assignids[ll_i], arr_qtys[ll_i], Ref arg_msg, False) <> 1 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

ext:
IF if_commit THEN
	IF rslt = 1 THEN
		COMMIT using commit_transaction;
	ELSE
		ROLLBACK using commit_transaction;
	END IF
END IF
RETURN rslt




end function

public function integer uof_assign_del_order_by_mtrlid (long arg_mtrlid, ref string arg_msg, boolean if_commit);Int rslt = 1

Long ll_assignid, arr_assignids[]
Decimal ld_qty, arr_qtys[]

Long ll_cnt = 0

DECLARE cur1 CURSOR FOR
	SELECT u_mtrlware_assign.Assignid, u_mtrlware_assign.assignqty - u_mtrlware_assign.Outqty AS Expr1
	FROM u_mtrlware_assign INNER JOIN
	u_mtrlware ON u_mtrlware_assign.Mtrlwareid = u_mtrlware.mtrlwareid AND u_mtrlware_assign.Scid = u_mtrlware.scid INNER JOIN
	u_storage ON u_mtrlware.storageid = u_storage.storageid INNER JOIN
	u_mtrldef ON u_mtrlware.mtrlid = u_mtrldef.mtrlid
	WHERE (u_mtrlware_assign.assignqty > u_mtrlware_assign.Outqty) AND (u_mtrlware_assign.assigntype = 0) AND (u_mtrldef.iffp = 1) AND
	(u_storage.storagetype = 1) AND u_mtrlware.mtrlid = :arg_mtrlid using commit_transaction;
OPEN cur1;
FETCH cur1 Into :ll_assignid, :ld_qty;
DO WHILE commit_transaction.SQLCode = 0
	ll_cnt ++
	arr_assignids[ll_cnt] = ll_assignid
	arr_qtys[ll_cnt] = ld_qty
	FETCH cur1 Into :ll_assignid, :ld_qty;
LOOP
CLOSE cur1;

Long ll_i
FOR ll_i = 1 To ll_cnt
	IF uof_assign_del(arr_assignids[ll_i], arr_qtys[ll_i], Ref arg_msg, False) <> 1 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

ext:
IF if_commit THEN
	IF rslt = 1 THEN
		COMMIT using commit_transaction;
	ELSE
		ROLLBACK using commit_transaction;
	END IF
END IF
RETURN rslt




end function

public function integer uof_assign_add_to_order_auto (ref string arg_msg, boolean if_commit);Int rslt = 1

Long ll_cnt = 0, ll_cnt2 = 0
Long ll_scid, arr_scid[], ll_orderid, arr_orderid[], ll_mtrlid, arr_mtrlid[]
String ls_status, arr_status[], ls_woodcode, arr_woodcode[], ls_pcode, arr_pcode[]
Decimal ld_qty, arr_qty[]
Long ll_mtrlwareid, arr_mtrlwareid[]
Decimal ld_notfpqty, arr_notfpqty[]
Decimal ld_fpreal

DECLARE cur1 CURSOR FOR
	SELECT u_OrderRqMtrl.scid, u_OrderRqMtrl.OrderID, u_OrderRqMtrl.MtrlID, u_OrderRqMtrl.status, u_OrderRqMtrl.woodcode, u_OrderRqMtrl.pcode,
	u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty AS Expr1
	FROM u_OrderRqMtrl INNER JOIN
	u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid
	WHERE (u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty > 0) AND (u_mtrldef.iffp = 1)
	Order By u_OrderRqMtrl.RqDate using commit_transaction;
OPEN cur1;
FETCH cur1 Into :ll_scid, :ll_orderid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ld_qty;
DO WHILE commit_transaction.SQLCode = 0
	ll_cnt++
	arr_scid[ll_cnt] = ll_scid
	arr_orderid[ll_cnt] = ll_orderid
	arr_mtrlid[ll_cnt] = ll_mtrlid
	arr_status[ll_cnt] = ls_status
	arr_woodcode[ll_cnt] = ls_woodcode
	arr_pcode[ll_cnt] = ls_pcode
	arr_qty[ll_cnt] = ld_qty
	FETCH cur1 Into :ll_scid, :ll_orderid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ld_qty;
LOOP
CLOSE cur1;

Long ll_i, ll_j
FOR ll_i = 1 To ll_cnt
	ll_scid = arr_scid[ll_i]
	ll_orderid = arr_orderid[ll_i]
	ll_mtrlid = arr_mtrlid[ll_i]
	ls_status = arr_status[ll_i]
	ls_woodcode = arr_woodcode[ll_i]
	ls_pcode = arr_pcode[ll_i]
	ld_qty = arr_qty[ll_i]
	
	ll_cnt2 = 0
	DECLARE cur2 CURSOR FOR
		SELECT u_mtrlware.mtrlwareid, u_mtrlware.noallocqty - u_mtrlware.allocqty AS Expr1
		FROM u_mtrlware INNER JOIN
		u_storage ON u_mtrlware.storageid = u_storage.storageid
		WHERE (u_mtrlware.scid = :ll_scid) AND (u_mtrlware.mtrlid = :ll_mtrlid) AND (u_mtrlware.Status = :ls_status) AND (u_mtrlware.woodcode = :ls_woodcode)
		And (u_mtrlware.pcode = :ls_pcode) And (u_mtrlware.noallocqty > u_mtrlware.allocqty) And (u_storage.inuse = 1) And (u_storage.storagetype = 1) using commit_transaction;
	OPEN cur2;
	FETCH cur2 Into :ll_mtrlwareid, :ld_notfpqty;
	DO WHILE commit_transaction.SQLCode = 0
		ll_cnt2++
		arr_mtrlwareid[ll_cnt2] = ll_mtrlwareid
		arr_notfpqty[ll_cnt2] = ld_notfpqty
		FETCH cur2 Into :ll_mtrlwareid, :ld_notfpqty;
	LOOP
	CLOSE cur2;
	
	FOR ll_j = 1 To ll_cnt2
		IF ld_qty = 0 THEN EXIT
		ll_mtrlwareid = arr_mtrlwareid[ll_j]
		ld_notfpqty = arr_notfpqty[ll_j]
		IF ld_qty > ld_notfpqty THEN
			ld_fpreal = ld_notfpqty
		ELSE
			ld_fpreal = ld_qty
		END IF
		IF uof_assign_add_to_order(ll_scid, ll_mtrlwareid, ll_orderid, ld_fpreal, 2, Ref arg_msg, False) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
		ld_qty = ld_qty - ld_fpreal
	NEXT
	
NEXT

ext:
IF if_commit THEN
	IF rslt = 1 THEN
		COMMIT using commit_transaction;
	ELSE
		ROLLBACK using commit_transaction;
	END IF
END IF
RETURN rslt











end function

public function integer uof_assign_add_to_order_by_mtrlid (long arg_mtrlid, ref string arg_msg, boolean if_commit);Int rslt = 1

Long ll_cnt = 0, ll_cnt2 = 0
Long ll_scid, arr_scid[], ll_orderid, arr_orderid[], ll_mtrlid, arr_mtrlid[]
String ls_status, arr_status[], ls_woodcode, arr_woodcode[], ls_pcode, arr_pcode[]
Decimal ld_qty, arr_qty[]
Long ll_mtrlwareid, arr_mtrlwareid[]
Decimal ld_notfpqty, arr_notfpqty[]
Decimal ld_fpreal

DECLARE cur1 CURSOR FOR
	SELECT u_OrderRqMtrl.scid, u_OrderRqMtrl.OrderID, u_OrderRqMtrl.MtrlID, u_OrderRqMtrl.status, u_OrderRqMtrl.woodcode, u_OrderRqMtrl.pcode,
	u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty AS Expr1
	FROM u_OrderRqMtrl INNER JOIN
	u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid
	WHERE (u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty > 0) AND (u_mtrldef.iffp = 1) AND u_OrderRqMtrl.MtrlID = :arg_mtrlid
	Order By u_OrderRqMtrl.RqDate using commit_transaction;
OPEN cur1;
FETCH cur1 Into :ll_scid, :ll_orderid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ld_qty;
DO WHILE commit_transaction.SQLCode = 0
	ll_cnt++
	arr_scid[ll_cnt] = ll_scid
	arr_orderid[ll_cnt] = ll_orderid
	arr_mtrlid[ll_cnt] = ll_mtrlid
	arr_status[ll_cnt] = ls_status
	arr_woodcode[ll_cnt] = ls_woodcode
	arr_pcode[ll_cnt] = ls_pcode
	arr_qty[ll_cnt] = ld_qty
	FETCH cur1 Into :ll_scid, :ll_orderid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ld_qty;
LOOP
CLOSE cur1;

Long ll_i, ll_j
FOR ll_i = 1 To ll_cnt
	ll_scid = arr_scid[ll_i]
	ll_orderid = arr_orderid[ll_i]
	ll_mtrlid = arr_mtrlid[ll_i]
	ls_status = arr_status[ll_i]
	ls_woodcode = arr_woodcode[ll_i]
	ls_pcode = arr_pcode[ll_i]
	ld_qty = arr_qty[ll_i]
	
	ll_cnt2 = 0
	DECLARE cur2 CURSOR FOR
		SELECT u_mtrlware.mtrlwareid, u_mtrlware.noallocqty - u_mtrlware.allocqty AS Expr1
		FROM u_mtrlware INNER JOIN
		u_storage ON u_mtrlware.storageid = u_storage.storageid
		WHERE (u_mtrlware.scid = :ll_scid) AND (u_mtrlware.mtrlid = :ll_mtrlid) AND (u_mtrlware.Status = :ls_status) AND (u_mtrlware.woodcode = :ls_woodcode)
		And (u_mtrlware.pcode = :ls_pcode) And (u_mtrlware.noallocqty > u_mtrlware.allocqty) And (u_storage.inuse = 1) And (u_storage.storagetype = 1) using commit_transaction;
	OPEN cur2;
	FETCH cur2 Into :ll_mtrlwareid, :ld_notfpqty;
	DO WHILE commit_transaction.SQLCode = 0
		ll_cnt2++
		arr_mtrlwareid[ll_cnt2] = ll_mtrlwareid
		arr_notfpqty[ll_cnt2] = ld_notfpqty
		FETCH cur2 Into :ll_mtrlwareid, :ld_notfpqty;
	LOOP
	CLOSE cur2;
	
	FOR ll_j = 1 To ll_cnt2
		IF ld_qty = 0 THEN EXIT
		ll_mtrlwareid = arr_mtrlwareid[ll_j]
		ld_notfpqty = arr_notfpqty[ll_j]
		IF ld_qty > ld_notfpqty THEN
			ld_fpreal = ld_notfpqty
		ELSE
			ld_fpreal = ld_qty
		END IF
		IF uof_assign_add_to_order(ll_scid, ll_mtrlwareid, ll_orderid, ld_fpreal, 2, Ref arg_msg, False) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
		ld_qty = ld_qty - ld_fpreal
	NEXT
	
NEXT

ext:
IF if_commit THEN
	IF rslt = 1 THEN
		COMMIT using commit_transaction;
	ELSE
		ROLLBACK using commit_transaction;
	END IF
END IF
RETURN rslt











end function

public function integer uof_adjust_order_by_mtrlid (long arg_mtrlid, long arg_fpgrade, ref string arg_msg);Int rslt = 1

Long ll_cnt = 0
Long ll_cnt2 = 0
Long ll_cnt3 = 0

Long ll_scid, arr_scid[]
Long ll_OrderID, arr_OrderID[]
Long ll_MtrlID, arr_MtrlID[]
String ls_status, arr_status[]
String ls_woodcode, arr_woodcode[]
String ls_pcode, arr_pcode[]
Decimal ld_notfpqty, arr_notfpqty[]
Decimal ld_fpqty, arr_fpqty[]

Long ll_mtrlwareid, arr_mtrlwareid[]
Decimal ld_noallocqty, arr_noallocqty[]

Decimal ld_fpreal


Long ll_assignid,arr_assignid[]
Decimal ld_assignqty, arr_assignqty[]
Long ll_assignwareid, arr_assignwareid[]

DECLARE cur1 CURSOR FOR
	SELECT u_OrderRqMtrl.scid, u_OrderRqMtrl.OrderID, u_OrderRqMtrl.MtrlID, u_OrderRqMtrl.status, u_OrderRqMtrl.woodcode, u_OrderRqMtrl.pcode,
	u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty AS Expr1, u_OrderRqMtrl.fpqty
	FROM u_OrderRqMtrl INNER JOIN
	u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid
	WHERE ((u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty > 0) OR (u_OrderRqMtrl.fpqty > 0)) AND (u_mtrldef.iffp = 1) AND u_OrderRqMtrl.MtrlID = :arg_mtrlid
	Order By u_OrderRqMtrl.RqDate Using commit_transaction;
OPEN cur1;
FETCH cur1 INTO :ll_scid,
	:ll_OrderID,
	:ll_MtrlID,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:ld_notfpqty,
	:ld_fpqty;
DO WHILE commit_transaction.SQLCode = 0
	ll_cnt++
	arr_scid[ll_cnt] = ll_scid
	arr_OrderID[ll_cnt] = ll_OrderID
	arr_MtrlID[ll_cnt] = ll_MtrlID
	arr_status[ll_cnt] = ls_status
	arr_woodcode[ll_cnt] = ls_woodcode
	arr_pcode[ll_cnt] = ls_pcode
	arr_notfpqty[ll_cnt] = ld_notfpqty
	arr_fpqty[ll_cnt] = ld_fpqty
	FETCH cur1 INTO :ll_scid,
		:ll_OrderID,
		:ll_MtrlID,
		:ls_status,
		:ls_woodcode,
		:ls_pcode,
		:ld_notfpqty,
		:ld_fpqty;
LOOP
CLOSE cur1;


Long ll_i, ll_j
FOR ll_i = 1 To ll_cnt
	ll_scid = arr_scid[ll_i]
	ll_OrderID = arr_OrderID[ll_i]
	ll_MtrlID = arr_MtrlID[ll_i]
	ls_status = arr_status[ll_i]
	ls_woodcode = arr_woodcode[ll_i]
	ls_pcode = arr_pcode[ll_i]
	ld_notfpqty = arr_notfpqty[ll_i]
	
	IF ld_notfpqty <= 0 THEN CONTINUE
	
	ll_cnt2 = 0
	DECLARE cur2 CURSOR FOR
		SELECT u_mtrlware.mtrlwareid, u_mtrlware.noallocqty - u_mtrlware.allocqty AS Expr1
		FROM u_mtrlware INNER JOIN
		u_storage ON u_mtrlware.storageid = u_storage.storageid
		WHERE (u_mtrlware.scid = :ll_scid) AND (u_mtrlware.mtrlid = :ll_mtrlid) AND (u_mtrlware.Status = :ls_status) AND (u_mtrlware.woodcode = :ls_woodcode)
		And (u_mtrlware.pcode = :ls_pcode) And (u_mtrlware.noallocqty > u_mtrlware.allocqty) And (u_storage.inuse = 1) And (u_storage.storagetype = 1) Using commit_transaction;
	OPEN cur2;
	FETCH cur2 INTO :ll_mtrlwareid,
		:ld_noallocqty;
	DO WHILE commit_transaction.SQLCode = 0
		ll_cnt2++
		arr_mtrlwareid[ll_cnt2] = ll_mtrlwareid
		arr_noallocqty[ll_cnt2] = ld_noallocqty
		FETCH cur2 INTO :ll_mtrlwareid,
			:ld_noallocqty;
	LOOP
	CLOSE cur2;
	
	FOR ll_j = 1 To ll_cnt2
		IF ld_notfpqty = 0 THEN EXIT
		ll_mtrlwareid = arr_mtrlwareid[ll_j]
		ld_noallocqty = arr_noallocqty[ll_j]
		IF ld_notfpqty > ld_noallocqty THEN
			ld_fpreal = ld_noallocqty
		ELSE
			ld_fpreal = ld_notfpqty
		END IF
		IF uof_assign_add_to_order(ll_scid, ll_mtrlwareid, ll_OrderID, ld_fpreal, arg_fpgrade, Ref arg_msg, False) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
		ld_notfpqty = ld_notfpqty - ld_fpreal
	NEXT
	
	IF ld_notfpqty <= 0 THEN CONTINUE
	
	FOR ll_j = ll_cnt To ll_i + 1 Step -1
		IF arr_fpqty[ll_j] <= 0 THEN CONTINUE
		
		IF arr_scid[ll_j] <> ll_scid Or arr_MtrlID[ll_j] <> ll_MtrlID &
			Or arr_status[ll_j] <> ls_status Or arr_woodcode[ll_j] <> ls_woodcode &
			Or arr_pcode[ll_j] <> ls_pcode THEN
			CONTINUE
		END IF
		
		ll_cnt3 = 0
		DECLARE cur3 CURSOR FOR
			SELECT u_mtrlware_assign.Assignid, u_mtrlware_assign.assignqty - u_mtrlware_assign.Outqty AS Expr1, u_mtrlware_assign.Mtrlwareid
			FROM u_mtrlware_assign INNER JOIN
			u_mtrlware ON u_mtrlware_assign.Mtrlwareid = u_mtrlware.mtrlwareid AND u_mtrlware_assign.Scid = u_mtrlware.scid
			WHERE (u_mtrlware_assign.Scid = :arr_scid[ll_j]) AND (u_mtrlware_assign.assigntype = 0) AND (u_mtrlware.mtrlid = :arr_MtrlID[ll_j]) AND (u_mtrlware.Status = :arr_status[ll_j]) AND
			(u_mtrlware.woodcode = :arr_woodcode[ll_j]) AND (u_mtrlware.pcode = :arr_pcode[ll_j]) AND (u_mtrlware_assign.Relbillid = :arr_OrderID[ll_j]) AND (u_mtrlware_assign.assignqty - u_mtrlware_assign.Outqty > 0)
			AND (u_mtrlware_assign.fpgrade < :arg_fpgrade)
			Order By u_mtrlware_assign.Assignid Desc Using commit_transaction;
		OPEN cur3;
		FETCH cur3 Into :ll_assignid, :ld_assignqty, :ll_assignwareid;
		DO WHILE commit_transaction.SQLCode = 0
			ll_cnt3++
			arr_assignid[ll_cnt3] = ll_assignid
			arr_assignqty[ll_cnt3] = ld_assignqty
			arr_assignwareid[ll_cnt3] = ll_assignwareid
			FETCH cur3 Into :ll_assignid, :ld_assignqty, :ll_assignwareid;
		LOOP
		CLOSE cur3;
	NEXT
	
	FOR ll_j = 1 To ll_cnt3
		IF ld_notfpqty = 0 THEN EXIT
		ll_assignid = arr_assignid[ll_j]
		ld_assignqty = arr_assignqty[ll_j]
		ll_assignwareid = arr_assignwareid[ll_j]
		
		IF ld_notfpqty > ld_assignqty THEN
			ld_fpreal = ld_assignqty
		ELSE
			ld_fpreal = ld_notfpqty
		END IF
		
		IF uof_assign_del(ll_assignid, ld_fpreal, Ref arg_msg, False) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
		
		IF uof_assign_add_to_order(ll_scid, ll_mtrlwareid, ll_OrderID, ld_fpreal, arg_fpgrade, Ref arg_msg, False) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
		ld_notfpqty = ld_notfpqty - ld_fpreal
	NEXT
	
	
NEXT

ext:
RETURN rslt












end function

public function integer uof_assign_add_packpro_to_saletask (long arg_scid, long arg_mtrlwareid_task, long arg_cusid_task, long arg_mtrlid_task, decimal arg_fpqty, long arg_relbillid, long arg_relprintid, string arg_relbillcode, decimal arg_cost, string arg_dscrp, string arg_mtrlcuscode, integer arg_fpgrade, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_assignid

IF IsNull(arg_scid) THEN arg_scid = 0
IF IsNull(arg_mtrlwareid_task) THEN arg_mtrlwareid_task = 0
IF IsNull(arg_cusid_task) THEN arg_cusid_task = 0
IF IsNull(arg_mtrlid_task) THEN arg_mtrlid_task = 0
IF IsNull(arg_Relbillid) THEN arg_Relbillid = 0
IF IsNull(arg_relprintid) THEN arg_relprintid = 0
IF IsNull(arg_cost) THEN arg_cost = 0
IF IsNull(arg_mtrlcuscode) THEN arg_mtrlcuscode = ''
IF IsNull(arg_opemp) THEN arg_opemp = ''
IF IsNull(arg_dscrp) THEN arg_dscrp = ''

UPDATE u_mtrlware_assign
	SET assignqty = assignqty + :arg_fpqty
	WHERE u_mtrlware_assign.scid = :arg_scid
	AND u_mtrlware_assign.mtrlwareid = :arg_mtrlwareid_task
	AND u_mtrlware_assign.relbillid = :arg_relbillid
	AND u_mtrlware_assign.relprintid = :arg_relprintid
	AND u_mtrlware_assign.mtrlid = :arg_mtrlid_task
	And u_mtrlware_assign.assigntype = 1 Using commit_transaction;
IF commit_transaction.SQLCode = 0 THEN
	IF commit_transaction.SQLNRows = 0 THEN
		//插入内容
		ll_assignid = f_sys_scidentity(0,"u_mtrlware_assign","assignid",arg_msg,True,id_sqlca)
		IF ll_assignid <= 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		INSERT INTO u_mtrlware_assign
			(assignid,
			assigntype,
			scid,
			mtrlwareid,
			mtrlid,
			Relbillid,
			relprintid,
			relbillcode,
			assignqty,
			cost,
			wareamt,
			dscrp,
			mtrlcuscode,
			inwarecode,
			inprintid,
			cusid,
			fpgrade,
			waredate,
			opdate,
			opemp)
			VALUES
			(:ll_assignid,
			1,
			:arg_scid,
			:arg_mtrlwareid_task,
			:arg_mtrlid_task,
			:arg_Relbillid,
			:arg_relprintid,
			:arg_relbillcode,
			:arg_fpqty,
			:arg_cost,
			:arg_fpqty * :arg_cost,
			:arg_dscrp,
			:arg_mtrlcuscode,
			'',
			0,
			:arg_cusid_task,
			:arg_fpgrade,
			getdate(),
			getdate(),
			:arg_opemp)  Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '分配库存失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	END IF	
ELSE
	arg_msg = '订单:'+arg_relbillcode+',明细行:'+String(arg_relprintid)+'更新订单包件产品已分配数失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

UPDATE u_mtrlware
	SET u_mtrlware.allocqty = u_mtrlware.allocqty + :arg_fpqty
	WHERE u_mtrlware.mtrlwareid = :arg_mtrlwareid_task
	And u_mtrlware.scid = :arg_scid  Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '更新包件产品库存已分配数量失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF


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

RETURN rslt


end function

public function integer uof_clear_barcodefp (ref string arg_barcode, string arg_msg, boolean arg_ifcommit);Int rslt = 1

UPDATE u_mtrlware_mx
	SET relbillid = 0,
	relprintid = 0,
	relbillcode = ''
	WHERE u_mtrlware_mx.barcode = :arg_barcode
	Using commit_transaction;
IF commit_transaction.SQLCode = 100 THEN
	arg_msg = '取消条码:'+arg_barcode+',订单分配信息失败,'+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

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

RETURN rslt



end function

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

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

event constructor;commit_transaction = sqlca

String str_optionvalue,arg_msg

f_get_sys_option_value('289',str_optionvalue,arg_msg)
uo_option_packpro2_not_use_pack1 = Long(str_optionvalue)

f_get_sys_option_value('290',str_optionvalue,arg_msg)
uo_option_iffp_recmpl_canuseqty = Long(str_optionvalue)

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


end event