FXApp/ws_objects/ljerp1_mrp_uo.pbl.src/uo_order_ml_mrp.sru

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

global type uo_order_ml_mrp from nonvisualobject
end type
global uo_order_ml_mrp uo_order_ml_mrp

type variables
Long deep,deep_scll
Boolean ifzl_mtrl_not_useqty,ifzl_mtrl_pwx_not_useqty,ifwx_mtrl_not_useqty,if_pqty_not_zl,ifpack_mtrl_not_useqty
Boolean if_rqwfjg_useqty,if_rqbuy_useqty
Boolean if_qty_dscrp = False
Boolean if_uof_add_rqmtrl_del_old = True
Int if_otherrq_mrpaudit = 1

Int uo_option_packpro2_pf_pack2_useifover
Int uo_option_ifpackpro2_if_no_pack2
Int uo_option_produce_dec
Long ins_produce_wrkgrpid_bj,ins_wrkGrpid_scll_bj


int uo_option_scll_ifchanged



end variables

forward prototypes
public function integer uof_add_rqmtrl_scll (s_order_ml_rqmtrl arg_s_mtrl, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_add_rqmtrl (s_order_ml_rqmtrl arg_s_mtrl, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_check_dstrqty (long arg_scid, long arg_orderid, ref string arg_msg)
public function integer uof_add_rqmtrl_tree (s_order_ml_rqmtrl arg_s_mtrl, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_get_qty (integer arg_type, integer arg_ifdate, datetime arg_enddate, long arg_scid, long arg_orderid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_ref_qty, ref string arg_msg)
public function integer uof_del_rqmtrl_scll (long arg_scid, long arg_orderid, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_get_other_rqqty (long arg_scid, long arg_orderid, long arg_mtrlid, integer arg_plantype, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_ref_qty, integer arg_ifdate, datetime arg_date, ref string arg_msg)
public function integer uof_get_rqmtrl (long arg_scid, long arg_orderid, long arg_porderid, ref s_order_ml_rqmtrl arg_ref_s_rqmtrl, ref string arg_msg)
public function integer uof_pfcode_check (long arg_mtrlid, string arg_mtrlcode, string arg_pfcode, ref string arg_msg)
private function integer uof_get_max_advancetime (long arg_mtrlid, string arg_pfcode, ref decimal arg_ref_advancetime, ref string arg_msg)
public function integer uof_get_prdpf_dytype (long arg_mtrlid, string arg_pfcode, string arg_pfgroup, long arg_sonmtrlid, long arg_wrkgrpid, string arg_sonpfcode, ref integer arg_ref_dytype, ref string arg_msg)
public function integer uof_get_prdpf_replace (long arg_mtrlid, string arg_pfcode, string arg_pfgroup, long arg_sonmtrlid, long arg_wrkgrpid, string arg_sonpfcode, ref s_prdpf_replace arg_ref_s_replace, ref string arg_msg)
public subroutine uof_cmpl_rqmtrl_dy_mx (long arg_begin_i, integer arg_dy, ref s_order_ml_rqmtrl arg_s_mtrl, s_prdpf_replace arg_pf_dy)
public function integer uof_cmpl_rqmtrl_change (long arg_scid, long arg_pmtrlid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, string arg_pfcode, decimal arg_qty, long arg_wrkgrpid_scll, datetime arg_rqdate, string arg_gydscrp, string arg_pfklmode, string arg_pfgroup, string arg_pfgroupmode, decimal arg_advancetime, decimal arg_sonloss, decimal arg_sondecloss, ref s_order_ml_rqmtrl arg_s_mtrl, ref string arg_msg)
public function integer uof_get_prdpf_sonloss (string arg_sonlossstr, decimal arg_qty, ref decimal arg_sonloss)
public function integer uof_get_qty_dscrp (integer arg_type, integer arg_ifdate, datetime arg_enddate, long arg_scid, long arg_orderid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref string arg_ref_dscrp, ref string arg_msg)
private function integer uof_get_max_advancetime2 (long arg_mtrlid, string arg_status, ref decimal arg_ref_advancetime, ref string arg_msg)
public function integer uof_cmpl_rqmtrl_fp (long arg_scid, long arg_orderid, integer arg_if_allowuse, integer arg_ifdate, datetime arg_enddate, s_order_ml_rqmtrl arg_s_mtrl, ref s_mtrlware_assign_plan arg_ref_s_assign_plan, ref string arg_msg)
public function integer uof_cmpl_rqmtrl_dy (integer arg_ifdate, ref s_order_ml_rqmtrl arg_s_mtrl, ref string arg_msg)
public function integer uof_aps_update_date (long arg_scid, long arg_orderid, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_cmpl_rqmtrl (long arg_lp, s_mrp_arg arg_s_mrp, ref s_order_ml_rqmtrl arg_s_mtrl, ref string arg_msg)
public function integer uof_cmpl_rqmtrl_re (long arg_lp, integer arg_plantype, s_mrp_arg arg_s_mrp, ref s_order_ml_rqmtrl arg_s_mtrl, ref string arg_msg)
public function integer uof_saletaskmx_pf_add (s_saletaskmx_pf arg_s_stpf, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_saletaskmx_pf_del (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_add_rqmtrl_scll_find (long arg_p, long arg_p_mtrlid, integer arg_ifpackpro, string arg_status, string arg_woodcode, string arg_pcode, s_order_ml_rqmtrl arg_s_mtrl, ref s_order_ml_rqmtrl_scll arg_s_mtrl_scll, long arg_e, ref string arg_msg)
end prototypes

public function integer uof_add_rqmtrl_scll (s_order_ml_rqmtrl arg_s_mtrl, boolean arg_ifcommit, ref string arg_msg);//保存领料明细

Int rslt = 1

Long ll_i,cnt,i
Long ll_mtrlid,ll_porderid,ll_mxid,ll_mtrlid_p
Long ll_scid,ll_orderid
String ls_mtrlcode
Decimal ld_orderqty_zl,ld_orderqty_p
Int li_ordertype,li_ifpackpro,li_ifpack,li_ordertype_mtrldef,li_mtrlorigin_mtrldef,li_ifselforder_mtrldef
Decimal ld_rate,ld_zlmxqty,ld_rqmxqty
Int li_outscllflag,li_iffp
String ls_status,ls_woodcode,ls_pcode
Decimal ld_assignqty_order,ld_fpqty_zl,ld_assignqty_update
Int li_iffg,li_ifauto

s_order_ml_rqmtrl_scll arg_s_mtrl_scll

ll_scid = arg_s_mtrl.scid[1]
ll_orderid = arg_s_mtrl.orderid[1]


uo_mtrlware_assign uo_scll_fp
uo_scll_fp = Create uo_mtrlware_assign
uo_scll_fp.commit_transaction = sqlca

datastore ds_order_mtrl_fp_2_zl
ds_order_mtrl_fp_2_zl = Create datastore
ds_order_mtrl_fp_2_zl.DataObject = 'ds_zl_scllqty_from_orderrqmtrl_fp'
ds_order_mtrl_fp_2_zl.SetTransObject(sqlca)

SELECT u_order_ml.mtrlid,
	u_order_ml.orderqty,
	u_order_ml.ordertype,
	u_order_ml.outscllflag,
	u_mtrldef.ifpackpro,
	u_mtrldef.mtrlorigin,
	u_mtrldef.ordertype,
	u_order_ml.status_mode,
	u_order_ml.woodcode,
	u_order_ml.pcode,
	u_order_ml.iffg,
	u_order_ml.ifauto,
	u_mtrldef.ifselforder
	INTO :ll_mtrlid,
	:ld_orderqty_zl,
	:li_ordertype,
	:li_outscllflag,
	:li_ifpackpro,
	:li_mtrlorigin_mtrldef,
	:li_ordertype_mtrldef,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:li_iffg,
	:li_ifauto,
	:li_ifselforder_mtrldef
	FROM u_order_ml,u_mtrldef
	WHERE u_order_ml.mtrlid = u_mtrldef.mtrlid
	AND u_order_ml.orderid = :ll_orderid
	And u_order_ml.scid = :ll_scid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询生产计划资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE FROM u_ordermtrl_wrk_mtrl
	Where scid = :ll_scid And orderid = :ll_orderid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除指令工组足料提示表工组资料失败,操作取消'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

//不是领料
IF li_outscllflag = 0 THEN
	rslt = 1
	GOTO ext
END IF

//非包件产品,指令单分离的主生产计划
//IF li_ifpackpro = 0 And li_ordertype_mtrldef = 1 And li_ordertype <> 4 THEN
//	rslt = 1
//	GOTO ext
//END IF

//包件产品,不使用包件清单的主生产计划
//IF li_ifpackpro = 1 And li_ifmrppackpf = 0 And li_ordertype <> 4 THEN
//	rslt = 1
//	GOTO ext
//END IF

IF li_mtrlorigin_mtrldef = 2 THEN
	arg_s_mtrl_scll.mtrlid[1] = ll_mtrlid
	arg_s_mtrl_scll.wrkgrpid[1] = ins_wrkGrpid_scll_bj
	arg_s_mtrl_scll.status[1] = ls_status
	arg_s_mtrl_scll.woodcode[1] = ls_woodcode
	arg_s_mtrl_scll.pcode[1] = ls_pcode
	arg_s_mtrl_scll.truerqqty[1] = ld_orderqty_zl
ELSE
	IF uof_add_rqmtrl_scll_find(1,ll_mtrlid,li_ifpackpro,ls_status,ls_woodcode,ls_pcode,arg_s_mtrl,arg_s_mtrl_scll,UpperBound(arg_s_mtrl.mtrlid),arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF
//yyx 090409 指令分数量排产
IF li_ordertype = 4 And Not (li_iffg = 1 And li_ifauto = 1 ) THEN
	
	ll_porderid = arg_s_mtrl.porderid[1]
	
	SELECT qty,taskmxid
		INTO :ld_zlmxqty,:ll_mxid
		FROM u_order_ml_mx
		WHERE scid = :ll_scid
		AND orderid = :ll_orderid
		And taskid = :ll_porderid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询指令明细排产数量失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF ld_zlmxqty = 0 THEN
		arg_msg = '错误的指令明细排产数'
		rslt = 0
		GOTO ext
	END IF
	
	SELECT mtrlid,orderqty
		INTO :ll_mtrlid_p,:ld_orderqty_p
		FROM u_order_ml
		WHERE scid = :ll_scid
		And orderid = :ll_porderid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询指令所属主生产计划物料id失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	SELECT truerqqty INTO :ld_rqmxqty
		FROM u_orderrqmtrl
		WHERE scid = :ll_scid
		And mxpkid = :ll_mxid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询上级计划需求明细需求数量失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF ld_rqmxqty = 0 THEN
		arg_msg = '错误的上级计划需求明细需求数'
		rslt = 0
		GOTO ext
	END IF
	
	IF li_ordertype_mtrldef = 1 And ll_mtrlid_p = ll_mtrlid THEN
		ld_rate = Round(ld_orderqty_zl/ld_orderqty_p,10)
	ELSE
		ld_rate = Round(ld_zlmxqty/ld_rqmxqty,10)
	END IF
ELSE
	ld_rate = 1
END IF
//yyx 090409

FOR ll_i = 1 To UpperBound(arg_s_mtrl_scll.mtrlid)
	
	IF arg_s_mtrl_scll.truerqqty[ll_i] = 0 THEN CONTINUE
	
	SELECT mtrlcode,ifpack,iffp
		INTO :ls_mtrlcode,:li_ifpack,:li_iffp
		FROM u_mtrldef
		Where mtrlid = :arg_s_mtrl_scll.mtrlid[ll_i];
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询物料资料失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF li_ifpackpro = 1 And li_ifpack = 1 THEN CONTINUE
	IF li_ifpackpro = 2 And li_ifselforder_mtrldef = 3 THEN CONTINUE
	
	UPDATE u_OrderRqMtrl_scll
		SET truerqqty = truerqqty + round(:arg_s_mtrl_scll.truerqqty[ll_i] * :ld_rate,:uo_option_produce_dec)
		WHERE orderid = :ll_orderid
		AND scid = :ll_scid
		AND mtrlid = :arg_s_mtrl_scll.mtrlid[ll_i]
		AND status = :arg_s_mtrl_scll.status[ll_i]
		AND woodcode = :arg_s_mtrl_scll.woodcode[ll_i]
		AND pcode = :arg_s_mtrl_scll.pcode[ll_i]
		And wrkgrpid = :arg_s_mtrl_scll.wrkgrpid[ll_i];
	IF sqlca.SQLCode = 0 THEN
		IF sqlca.SQLNRows = 0 THEN
			INSERT INTO u_OrderRqMtrl_scll
				(scid,
				orderid,
				mtrlid,
				status,
				woodcode,
				pcode,
				truerqqty,
				DstrQty,
				wrkGrpid)
				VALUES
				(:ll_scid,
				:ll_orderid,
				:arg_s_mtrl_scll.mtrlid[ll_i],
				:arg_s_mtrl_scll.status[ll_i],
				:arg_s_mtrl_scll.woodcode[ll_i],
				:arg_s_mtrl_scll.pcode[ll_i],
				round(:arg_s_mtrl_scll.truerqqty[ll_i] * :ld_rate,:sys_option_produce_dec),
				0,
				:arg_s_mtrl_scll.wrkgrpid[ll_i]);
			IF sqlca.SQLCode <> 0 THEN
				arg_msg = '物料:'+ls_mtrlcode+',建立生产计划物料领料明细失败,'+sqlca.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		END IF
	ELSE
		arg_msg = '物料:'+ls_mtrlcode+',更新物料用料明细表失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	//工组是否足料表
	cnt = 0
	SELECT count(*) INTO :cnt
		FROM u_ordermtrl_wrk_mtrl
		WHERE scid = :ll_scid
		AND orderid = :ll_orderid
		And wrkgrpid = :arg_s_mtrl_scll.wrkgrpid[ll_i];
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询指令工组足料提示表是否存在工组id:'+String(arg_s_mtrl_scll.wrkgrpid[ll_i])+' 失败,操作取消'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF cnt = 0 THEN
		INSERT INTO u_ordermtrl_wrk_mtrl(scid,orderid,wrkGrpid)
			Values(:ll_scid,:ll_orderid,:arg_s_mtrl_scll.wrkgrpid[ll_i]);
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '增加指令工组足料提示表工组id:'+String(arg_s_mtrl_scll.wrkgrpid[ll_i])+' 失败,操作取消'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	//分配
	IF ll_porderid > 0 And li_iffp = 1 THEN
		ds_order_mtrl_fp_2_zl.Retrieve(ll_scid,ll_porderid,arg_s_mtrl_scll.mtrlid[ll_i],arg_s_mtrl_scll.status[ll_i],arg_s_mtrl_scll.woodcode[ll_i],arg_s_mtrl_scll.pcode[ll_i],arg_s_mtrl_scll.wrkgrpid[ll_i])
		ld_assignqty_order = arg_s_mtrl_scll.truerqqty[ll_i] * ld_rate
		
		FOR i = 1 To ds_order_mtrl_fp_2_zl.RowCount()
			
			IF ld_assignqty_order > 0 THEN
				ld_fpqty_zl = ds_order_mtrl_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 uo_scll_fp.uof_assign_add_to_zl_scll(ll_scid,ll_orderid,arg_s_mtrl_scll.mtrlid[ll_i],&
					arg_s_mtrl_scll.wrkgrpid[ll_i],arg_s_mtrl_scll.status[ll_i],arg_s_mtrl_scll.woodcode[ll_i],&
					arg_s_mtrl_scll.pcode[ll_i],ld_assignqty_update,&
					0,0,0,arg_msg,False) = 0 THEN
					arg_msg = '物料:'+ls_mtrlcode+',建立指令单用料分配数失败,'+arg_msg
					rslt = 0
					GOTO ext
				END IF
			END IF
		NEXT
	END IF
NEXT

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

Destroy uo_scll_fp
Destroy ds_order_mtrl_fp_2_zl

RETURN rslt








end function

public function integer uof_add_rqmtrl (s_order_ml_rqmtrl arg_s_mtrl, boolean arg_ifcommit, ref string arg_msg);//保存需求明细

Int rslt = 1
Long ll_i,ll_mtrlid_order
Int li_ordertype_order_ml,li_ifwforder
Int li_ordertype

String ls_mtrlcode
Long cnt
Int li_ifselforder,li_statusflag,li_mtrlorigin

IF if_uof_add_rqmtrl_del_old THEN
	DELETE FROM u_orderRqMtrl
		WHERE orderid = :arg_s_mtrl.orderid[1]
		And scid = :arg_s_mtrl.scid[1];
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '删除原用料失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

SELECT mtrlid INTO :ll_mtrlid_order
	FROM u_order_ml
	WHERE orderid = :arg_s_mtrl.orderid[1]
	And scid = :arg_s_mtrl.scid[1];
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除主生产计划物料id失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


FOR ll_i = 1 To UpperBound(arg_s_mtrl.mtrlid)
	
	SELECT mtrlcode,ifselforder,statusflag,ordertype,mtrlorigin
		INTO :ls_mtrlcode,:li_ifselforder,:li_statusflag,:li_ordertype,:li_mtrlorigin
		FROM u_mtrldef
		Where mtrlid = :arg_s_mtrl.mtrlid[ll_i];
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',查询物料资料失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	//个性包件不加入需求表
	IF arg_s_mtrl.ifpack[ll_i] = 2 And arg_s_mtrl.mtrlid[ll_i] <> ll_mtrlid_order THEN CONTINUE
	
	//检查组合配置包件产品
	IF arg_s_mtrl.ifcfg[ll_i] = 1 THEN //子件
		IF arg_s_mtrl.ifpackpro[ll_i] <> 3 THEN CONTINUE
	END IF
	
	IF arg_s_mtrl.ifcfg[ll_i] = 0 THEN
		IF arg_s_mtrl.ifpackpro[ll_i] = 3 THEN	CONTINUE
	END IF
	
	IF arg_s_mtrl.ifmainmtrlid[ll_i] = 1 THEN
		//更新计划开始日期
		IF sys_option_ifuse_ordersdate = 1 THEN
			UPDATE u_order_ml
				SET orderdate = :arg_s_mtrl.edate[1]
				WHERE orderid = :arg_s_mtrl.orderid[1]
				And scid = :arg_s_mtrl.scid[1];
			IF sqlca.SQLCode <> 0 THEN
				arg_msg = '更新主生产计划的计划开始日期失败,'+sqlca.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		END IF
		
		IF arg_s_mtrl.ifpackpro[ll_i] = 1 And li_ordertype = 0 THEN CONTINUE //通用包件产品指令单合并
		IF arg_s_mtrl.ifpackpro[ll_i] = 2 And li_ordertype = 0 THEN CONTINUE //个性包件产品指令单合并
		IF arg_s_mtrl.ifmainmtrlid[ll_i] = 0 And arg_s_mtrl.ifpack[ll_i] = 2 THEN CONTINUE //个性包件
		
		//yyx20101012 --外协计划
		SELECT ordertype,ifwforder INTO :li_ordertype_order_ml,:li_ifwforder
			FROM u_order_ml
			WHERE orderid = :arg_s_mtrl.orderid[ll_i]
			And scid = :arg_s_mtrl.scid[ll_i];
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',查询计划类型失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF li_ordertype = 0 And not (li_ordertype_order_ml = 3 or li_ifwforder = 1) THEN CONTINUE
			
		//	
		
		
	END IF
	
	cnt = 0
	SELECT count(*) INTO :cnt
		FROM u_scdef
		Where scid = :arg_s_mtrl.produce_scid[ll_i];
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',查询清单物料生产分部资料失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF cnt = 0 THEN
		arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',清单物料生产分部未定义,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF arg_s_mtrl.plantype[ll_i] = 0 THEN
		
		IF li_ifselforder = 0 And arg_s_mtrl.ifpackpro[ll_i] <> 3 And arg_s_mtrl.ifpackpro[ll_i] <> 4 and ll_i <> 1 THEN CONTINUE
		
		IF arg_s_mtrl.scid[ll_i] = arg_s_mtrl.produce_scid[ll_i] And &
			arg_s_mtrl.produce_wrkgrpid[ll_i] = 0 THEN
			arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',物料:'+ls_mtrlcode+' 请选择生产车间'
			rslt = 0
			GOTO ext
		END IF
		
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM u_sc_wkp
			Where wrkgrpid = :arg_s_mtrl.produce_wrkgrpid[ll_i];
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',查询车间资料失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF cnt <> 1 THEN
			arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',车间资料不存在或重复'
			rslt = 0
			GOTO ext
		END IF
		
		
		IF arg_s_mtrl.ifmainmtrlid[ll_i] = 1 And li_statusflag = 2 THEN
		ELSE
			IF arg_s_mtrl.pfcode[ll_i] = '' THEN
				arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',物料:'+ls_mtrlcode+' 请选择物料清单'
				rslt = 0
				GOTO ext
			END IF
			
			cnt = 0
			SELECT count(*) INTO :cnt
				FROM u_mtrl_pf
				WHERE mtrlid = :arg_s_mtrl.mtrlid[ll_i]
				And pfcode = :arg_s_mtrl.pfcode[ll_i];
			IF sqlca.SQLCode <> 0 THEN
				arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',查询物料:'+ls_mtrlcode+' 物料清单失败,'+sqlca.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			IF cnt <> 1 THEN
				arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',查询物料:'+ls_mtrlcode+' 物料清单不存在或重复'
				rslt = 0
				GOTO ext
			END IF
		END IF
	ELSE
		arg_s_mtrl.produce_wrkgrpid[ll_i] = 0
		
		IF arg_s_mtrl.plantype[ll_i] = 2 Or arg_s_mtrl.plantype[ll_i] = 6  THEN
			IF arg_s_mtrl.scid[ll_i] <> arg_s_mtrl.produce_scid[ll_i] THEN
				arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',物料:'+ls_mtrlcode+' 请选择正确的分部'
				rslt = 0
				GOTO ext
			END IF
		END IF
	END IF
	
	Decimal ld_RqQty,ld_truerqqty,ld_scllqty
	
	ld_truerqqty = arg_s_mtrl.cmplqty[ll_i]
	ld_scllqty = arg_s_mtrl.scllqty[ll_i]
	
	IF arg_s_mtrl.ifmainmtrlid[ll_i] = 1 THEN
		IF li_ordertype = 1 Or li_ordertype_order_ml = 3 or li_ifwforder = 1 THEN
			ld_RqQty = 0
		ELSE
			ld_RqQty = arg_s_mtrl.qty[ll_i]
		END IF
	ELSE
		ld_RqQty = arg_s_mtrl.qty[ll_i]
	END IF
	
	UPDATE u_orderRqMtrl
		SET RqQty = RqQty + :ld_RqQty,
		truerqqty = truerqqty + :ld_truerqqty,
		scllqty = scllqty + :ld_scllqty
		WHERE scid = :arg_s_mtrl.scid[ll_i]
		AND OrderID = :arg_s_mtrl.OrderID[ll_i]
		AND MtrlID = :arg_s_mtrl.MtrlID[ll_i]
		AND wrkGrpid = :arg_s_mtrl.wrkgrpid_scll[ll_i]
		AND status = :arg_s_mtrl.status[ll_i]
		AND woodcode = :arg_s_mtrl.woodcode[ll_i]
		AND pcode = :arg_s_mtrl.pcode[ll_i]
		AND plantype = :arg_s_mtrl.plantype[ll_i]
		And produce_wrkgrpid = :arg_s_mtrl.produce_wrkgrpid[ll_i];
	IF sqlca.SQLCode = 0 THEN
		IF sqlca.SQLNRows = 0 THEN
			
			Long ll_mxpkid
			
			IF arg_s_mtrl.plantype[ll_i] = 0 THEN
				ll_mxpkid = f_sys_scidentity(arg_s_mtrl.scid[ll_i],"u_OrderRqMtrl","mxpkid",arg_msg,True,id_sqlca)
				IF ll_mxpkid <= 0 THEN
					arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',取id失败,'+arg_msg
					rslt = 0
					GOTO ext
				END IF
			ELSE
				ll_mxpkid = 0
			END IF
			
			INSERT INTO u_orderRqMtrl
				(scid,
				orderid,
				mtrlid,
				rqqty,
				truerqqty,
				plantype,
				mqty,
				wmqty,
				bqty,
				wqty,
				pqty,
				pqty2,
				rqwfjgqty,
				rqbuyqty2,
				otherrqqty,
				otherrqqty_wx,
				otherrqqty_sale,
				rqdate,
				edate,
				wrkgrpid,
				produce_scid,
				produce_wrkgrpid,
				pfcode,
				status,
				woodcode,
				pcode,
				gydscrp,
				pfklmode,
				mxpkid,
				scllqty)
				VALUES
				(:arg_s_mtrl.scid[ll_i],
				:arg_s_mtrl.orderid[ll_i],
				:arg_s_mtrl.mtrlid[ll_i],
				:ld_RqQty,
				:ld_truerqqty,
				:arg_s_mtrl.plantype[ll_i],
				:arg_s_mtrl.mqty[ll_i],
				:arg_s_mtrl.wmqty[ll_i],
				:arg_s_mtrl.bqty[ll_i],
				:arg_s_mtrl.wqty[ll_i],
				:arg_s_mtrl.pqty[ll_i],
				:arg_s_mtrl.pqty2[ll_i],
				:arg_s_mtrl.rqwfjgqty[ll_i],
				:arg_s_mtrl.rqbuyqty[ll_i],
				:arg_s_mtrl.otherrqqty[ll_i],
				:arg_s_mtrl.otherrqqty_wx[ll_i],
				:arg_s_mtrl.otherrqqty_sale[ll_i],
				:arg_s_mtrl.sdate[ll_i],
				:arg_s_mtrl.edate[ll_i],
				:arg_s_mtrl.wrkgrpid_scll[ll_i],
				:arg_s_mtrl.produce_scid[ll_i],
				:arg_s_mtrl.produce_wrkgrpid[ll_i],
				:arg_s_mtrl.pfcode[ll_i],
				:arg_s_mtrl.status[ll_i],
				:arg_s_mtrl.woodcode[ll_i],
				:arg_s_mtrl.pcode[ll_i],
				:arg_s_mtrl.gydscrp[ll_i],
				:arg_s_mtrl.pfklmode[ll_i],
				:ll_mxpkid,
				:arg_s_mtrl.scllqty[ll_i]);
			IF sqlca.SQLCode <> 0 THEN
				arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',建立物料需求表失败,'+sqlca.SQLErrText
				rslt = 0
				GOTO ext
			END IF
		END IF
	ELSE
		arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',更新物料需求表失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
NEXT

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

RETURN rslt



end function

public function integer uof_check_dstrqty (long arg_scid, long arg_orderid, ref string arg_msg);//检查已领数

Int rslt = 1
Int li_status,li_scllflag,li_scllsecflag

SELECT status,scllflag,scllsecflag
	INTO :li_status,:li_scllflag,:li_scllsecflag
	FROM u_order_ml
	WHERE scid = :arg_scid
	AND orderid = :arg_orderid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询生产计划状态失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF li_status <> 1 THEN
	arg_msg = '生产计划不是在进行状态,不能计算用料'
	rslt = 0
	GOTO ext
END IF

IF sys_option_order_ml_scll_secaudit = 0 THEN
	IF li_scllflag = 1 THEN
		arg_msg = '生产计划已用料审核,不能计算用料'
		rslt = 0
		GOTO ext
	END IF
ELSE
	IF li_scllsecflag = 1 THEN
		arg_msg = '生产计划已用料终审,不能计算用料'
		rslt = 0
		GOTO ext
	END IF
END IF

//检查已领料数
Decimal ld_DstrQty
SELECT sum(DstrQty) INTO :ld_DstrQty
	FROM u_OrderRqMtrl
	WHERE u_orderrqmtrl.orderid = :arg_orderid
	AND u_OrderRqMtrl.scid = :arg_scid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询计划已领料数失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ld_DstrQty > 0 THEN
	arg_msg = '计划已有领料数,不能计算'
	rslt = 0
	GOTO ext
END IF

ext:
RETURN rslt




end function

public function integer uof_add_rqmtrl_tree (s_order_ml_rqmtrl arg_s_mtrl, boolean arg_ifcommit, ref string arg_msg);//保存运算结果树

Int rslt = 1
Long ll_i

DELETE FROM u_orderRqMtrl_tree
	WHERE orderid = :arg_s_mtrl.orderid[1]
	AND scid = :arg_s_mtrl.scid[1];
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除物料需求结构失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

FOR ll_i = 1 TO UpperBound(arg_s_mtrl.mtrlid)
	
	IF arg_s_mtrl.qty[ll_i] = 0 AND arg_s_mtrl.cmplqty[ll_i] <> 0 THEN
		arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',物料有需求数,无领料数,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF ll_i > 1 AND arg_s_mtrl.wrkgrpid_scll[ll_i] = 0 AND arg_s_mtrl.ifpack[ll_i] = 0 THEN
		arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',物料没有领用工组,请检查相关物料清单'
		rslt = 0
		GOTO ext
	END IF
	
	//if isnull(arg_s_mtrl.addcmplqty[ll_i]) then arg_s_mtrl.addcmplqty[ll_i] = 0
	
	//standardrqqty 作为对上一级该生产的标准领料数记录, 即和毛需求数（rqqty）、原毛需求数（rqqty_ori）同义  lhd 20140919
	//替换为:  arg_s_mtrl.standardrqqty[ll_i] = arg_s_mtrl.qty[ll_i]
	arg_s_mtrl.standardrqqty[ll_i] = arg_s_mtrl.qty[ll_i]
	
	INSERT INTO u_orderRqMtrl_tree
		(scid,
		orderid,
		mtrlid,
		rqqty,
		truerqqty,
		plantype,
		mqty,
		wmqty,
		bqty,
		wqty,
		pqty,
		pqty2,
		rqwfjgqty,
		rqbuyqty,
		otherrqqty,
		otherrqqty_wx,
		otherrqqty_sale,
		ckwareqty,
		rqdate,
		edate,
		wrkgrpid,
		produce_scid,
		produce_wrkgrpid,
		pfcode,
		lp,
		printid,
		status,
		woodcode,
		pcode,
		ifmainmtrlid,
		samerqqty,
		ifchanged,
		pmtrlid,
		gydscrp,
		pfklmode,
		pfgroup,
		pfgroupmode,
		ifcfg,
		standardrqqty,
		sonloss,
		sondecloss,
		scllloss,
		sclldecloss,
		scllqtytype,
		scllqty,
		if_follow,
		lasthour,
		Sonscale,
		pdscrp,
		addcmplqty)
		VALUES
		(:arg_s_mtrl.scid[ll_i],
		:arg_s_mtrl.orderid[ll_i],
		:arg_s_mtrl.mtrlid[ll_i],
		:arg_s_mtrl.qty[ll_i],
		:arg_s_mtrl.cmplqty[ll_i],
		:arg_s_mtrl.plantype[ll_i],
		:arg_s_mtrl.mqty[ll_i],
		:arg_s_mtrl.wmqty[ll_i],
		:arg_s_mtrl.bqty[ll_i],
		:arg_s_mtrl.wqty[ll_i],
		:arg_s_mtrl.pqty[ll_i],
		:arg_s_mtrl.pqty2[ll_i],
		:arg_s_mtrl.rqwfjgqty[ll_i],
		:arg_s_mtrl.rqbuyqty[ll_i],
		:arg_s_mtrl.otherrqqty[ll_i],
		:arg_s_mtrl.otherrqqty_wx[ll_i],
		:arg_s_mtrl.otherrqqty_sale[ll_i],
		:arg_s_mtrl.ckwareqty[ll_i],		
		:arg_s_mtrl.sdate[ll_i],
		:arg_s_mtrl.edate[ll_i],
		:arg_s_mtrl.wrkgrpid_scll[ll_i],
		:arg_s_mtrl.produce_scid[ll_i],
		:arg_s_mtrl.produce_wrkgrpid[ll_i],
		:arg_s_mtrl.pfcode[ll_i],
		:arg_s_mtrl.lp[ll_i],
		:arg_s_mtrl.printid[ll_i],
		:arg_s_mtrl.status[ll_i],
		:arg_s_mtrl.woodcode[ll_i],
		:arg_s_mtrl.pcode[ll_i],
		:arg_s_mtrl.ifmainmtrlid[ll_i],
		:arg_s_mtrl.samerqqty[ll_i],
		:arg_s_mtrl.ifchanged[ll_i],
		:arg_s_mtrl.pmtrlid[ll_i],
		:arg_s_mtrl.gydscrp[ll_i],
		:arg_s_mtrl.pfklmode[ll_i],
		:arg_s_mtrl.pfgroup[ll_i],
		:arg_s_mtrl.pfgroupmode[ll_i],
		:arg_s_mtrl.ifcfg[ll_i],
		:arg_s_mtrl.standardrqqty[ll_i],
		:arg_s_mtrl.sonloss[ll_i],
		:arg_s_mtrl.sondecloss[ll_i],
		:arg_s_mtrl.scllloss[ll_i],
		:arg_s_mtrl.sclldecloss[ll_i],
		:arg_s_mtrl.scllqtytype[ll_i],
		:arg_s_mtrl.scllqty[ll_i],
		:arg_s_mtrl.if_follow[ll_i],
		:arg_s_mtrl.lasthour[ll_i],
		:arg_s_mtrl.Sonscale[ll_i],
		:arg_s_mtrl.pdscrp[ll_i],
		:arg_s_mtrl.addcmplqty[ll_i]);
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '行:'+String(arg_s_mtrl.printid[ll_i])+',建立物料需求结构表失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
NEXT

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

RETURN rslt

end function

public function integer uof_get_qty (integer arg_type, integer arg_ifdate, datetime arg_enddate, long arg_scid, long arg_orderid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_ref_qty, ref string arg_msg);//取相关数量

Int rslt = 1
Decimal ld_qty
String ls_mtrlcode
Int li_ordertype
Int li_iffp
//int li_mrparg

//SELECT mtrlcode,ordertype,mrparg
//	INTO :ls_mtrlcode,:li_ordertype,:li_mrparg
//	FROM u_mtrldef
//	Where mtrlid = :arg_mtrlid;
//IF sqlca.SQLCode <> 0 THEN
//	arg_msg = '查询物料编码失败,'+sqlca.SQLErrText
//	rslt = 0
//	GOTO ext
//END IF

CHOOSE CASE arg_type
	CASE 1 //采购未进仓数
		SELECT isnull(sum(case when u_mtrldef.iffp = 0
			then u_buytaskmx.qty - round(u_buytaskmx.consignedqty * u_buytaskmx.rate,u_mtrldef.mrparg)
			else case when (u_buytaskmx.qty - round(u_buytaskmx.consignedqty * u_buytaskmx.rate,u_mtrldef.mrparg)) <= u_buytaskmx.qty - u_buytaskmx.fpqty
			then u_buytaskmx.qty - round(u_buytaskmx.consignedqty * u_buytaskmx.rate,u_mtrldef.mrparg)
			else u_buytaskmx.qty - u_buytaskmx.fpqty END END),0)
			INTO :ld_qty
			FROM u_buytaskmx,u_buytask,u_mtrldef
			WHERE u_buytaskmx.mtrlid = u_mtrldef.mtrlid
			AND u_buytaskmx.scid = :arg_scid
			AND u_buytaskmx.mtrlid = :arg_mtrlid
			AND u_buytaskmx.status = :arg_status
			AND u_buytaskmx.woodcode = :arg_woodcode
			AND u_buytaskmx.pcode = :arg_pcode
			AND u_buytaskmx.scid = u_buytask.scid
			AND u_buytaskmx.taskid = u_buytask.taskid
			AND u_buytaskmx.stopflag = 0
			AND u_buytask.status = 1
			AND ( :arg_ifdate = 0 OR :arg_ifdate = 1 AND u_buytaskmx.requiredate <= :arg_enddate )
			AND ( case when u_mtrldef.iffp = 0
			then u_buytaskmx.qty - round(u_buytaskmx.consignedqty * u_buytaskmx.rate,u_mtrldef.mrparg)
			else case when (u_buytaskmx.qty - round(u_buytaskmx.consignedqty * u_buytaskmx.rate,u_mtrldef.mrparg)) <= u_buytaskmx.qty - u_buytaskmx.fpqty
			then u_buytaskmx.qty - round(u_buytaskmx.consignedqty * u_buytaskmx.rate,u_mtrldef.mrparg)
			ELSE u_buytaskmx.qty - u_buytaskmx.fpqty END END ) > 0;
		IF sqlca.SQLCode = -1 THEN
			arg_msg = '查询物料:'+ls_mtrlcode+' 采购未进仓数失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	CASE 2 //生产未进仓数
		SELECT isnull(sum(case when u_mtrldef.iffp = 0
			then u_Order_ml.orderqty - u_Order_ml.acmpqty
			else case when (u_Order_ml.orderqty - u_Order_ml.acmpqty) <= u_Order_ml.orderqty - u_Order_ml.fpqty
			then u_Order_ml.orderqty - u_Order_ml.acmpqty
			else u_Order_ml.orderqty - u_Order_ml.fpqty END END ),0)
			INTO :ld_qty
			FROM u_Order_ml,u_mtrldef
			WHERE u_Order_ml.mtrlid = u_mtrldef.mtrlid
			AND u_Order_ml.mtrlid = :arg_mtrlid
			AND u_Order_ml.scid = :arg_scid
			AND u_Order_ml.status_mode = :arg_status
			AND u_Order_ml.woodcode = :arg_woodcode
			AND u_Order_ml.pcode = :arg_pcode
			AND u_Order_ml.status = 1
			AND u_Order_ml.orderid <> :arg_orderid
			and u_Order_ml.inwareflag = 1
//			AND ( u_mtrldef.ordertype = 0 OR u_mtrldef.ordertype = 1 AND u_Order_ml.ordertype = 4 )
			AND ( :arg_ifdate = 0 OR :arg_ifdate = 1 AND u_Order_ml.requiredate <= :arg_enddate )
			AND (case when u_mtrldef.iffp = 0
			then u_Order_ml.orderqty - u_Order_ml.acmpqty
			else case when (u_Order_ml.orderqty - u_Order_ml.acmpqty) <= u_Order_ml.orderqty - u_Order_ml.fpqty
			then u_Order_ml.orderqty - u_Order_ml.acmpqty
			ELSE u_Order_ml.orderqty - u_Order_ml.fpqty END END ) > 0;
		IF sqlca.SQLCode = -1 THEN
			arg_msg = '查询物料:'+ls_mtrlcode+' 生产计划未进仓数失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	CASE 3 //外协未进仓数
		SELECT isnull(sum(case when u_mtrldef.iffp = 0
			then u_order_wfjgMx.qty - round(u_order_wfjgMx.consignedqty * u_order_wfjgMx.rate,u_mtrldef.mrparg)
			else case when (u_order_wfjgMx.qty - round(u_order_wfjgMx.consignedqty * u_order_wfjgMx.rate,u_mtrldef.mrparg)) <= u_order_wfjgMx.qty - u_order_wfjgMx.fpqty
			then u_order_wfjgMx.qty - round(u_order_wfjgMx.consignedqty * u_order_wfjgMx.rate,u_mtrldef.mrparg)
			else u_order_wfjgMx.qty - u_order_wfjgMx.fpqty END END ),0)
			INTO :ld_qty
			FROM u_order_wfjgMx,u_order_wfjg,u_mtrldef
			WHERE u_order_wfjgMx.mtrlid = u_mtrldef.mtrlid
			AND u_order_wfjgMx.scid = :arg_scid
			AND u_order_wfjgMx.mtrlid = :arg_mtrlid
			AND u_order_wfjgMx.status = :arg_status
			AND u_order_wfjgMx.woodcode = :arg_woodcode
			AND u_order_wfjgMx.pcode = :arg_pcode
			AND u_order_wfjgMx.scid = u_order_wfjg.scid
			AND u_order_wfjgMx.wfjgID = u_order_wfjg.wfjgID
			AND u_order_wfjg.status = 1
			AND ( :arg_ifdate = 0 OR :arg_ifdate = 1 AND u_order_wfjgMx.requiredate <= :arg_enddate )
			AND (case when u_mtrldef.iffp = 0
			then u_order_wfjgMx.qty - round(u_order_wfjgMx.consignedqty * u_order_wfjgMx.rate,u_mtrldef.mrparg)
			else case when (u_order_wfjgMx.qty - round(u_order_wfjgMx.consignedqty * u_order_wfjgMx.rate,u_mtrldef.mrparg)) <= u_order_wfjgMx.qty - u_order_wfjgMx.fpqty
			then u_order_wfjgMx.qty - round(u_order_wfjgMx.consignedqty * u_order_wfjgMx.rate,u_mtrldef.mrparg)
			ELSE u_order_wfjgMx.qty - u_order_wfjgMx.fpqty END END ) > 0;
		IF sqlca.SQLCode = -1 THEN
			arg_msg = '查询物料:'+ls_mtrlcode+' 外协未进仓数失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	CASE 4 //库存数
		SELECT isnull(sum(u_Mtrlware.noallocqty - case when u_mtrldef.iffp = 1 then u_Mtrlware.allocqty * u_mtrldef.iffp else u_Mtrlware.noauditingqty end),0)
			INTO :ld_qty
			FROM u_Mtrlware,u_storage,u_mtrldef
			WHERE u_Mtrlware.storageid = u_storage.storageid
			AND u_Mtrlware.mtrlid = u_mtrldef.mtrlid
			AND u_storage.ifmrp = 1
			AND u_Mtrlware.scid = :arg_scid
			AND u_Mtrlware.mtrlid = :arg_mtrlid
			AND u_Mtrlware.status = :arg_status
			AND u_Mtrlware.woodcode = :arg_woodcode
			And u_Mtrlware.pcode = :arg_pcode;
		IF sqlca.SQLCode = -1 THEN
			arg_msg = '查询物料:'+ls_mtrlcode+' 库存数失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	CASE 5 //生产计划未排指令当生产未进仓数
		SELECT isnull(sum(u_OrderRqMtrl.truerqqty - u_OrderRqMtrl.consignedqty),0)
			INTO :ld_qty
			FROM u_Order_ml,u_OrderRqMtrl
			WHERE u_Order_ml.scid = u_OrderRqMtrl.scid
			AND u_Order_ml.orderid = u_OrderRqMtrl.orderid
			AND u_OrderRqMtrl.mtrlid = :arg_mtrlid
			AND u_OrderRqMtrl.scid = :arg_scid
			AND u_OrderRqMtrl.status = :arg_status
			AND u_OrderRqMtrl.woodcode = :arg_woodcode
			AND u_OrderRqMtrl.pcode = :arg_pcode
			AND u_OrderRqMtrl.plantype = 0
			AND u_Order_ml.status = 1
			AND u_Order_ml.orderid <> :arg_orderid
			AND ( u_Order_ml.ordertype <> 4 )
			And ( :arg_ifdate = 0 Or :arg_ifdate = 1 And u_OrderRqMtrl.rqdate <= :arg_enddate );
		IF sqlca.SQLCode = -1 THEN
			arg_msg = '查询物料:'+ls_mtrlcode+' 生产计划未排指令当生产未进仓数失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	CASE 6 //外协库存数
		SELECT isnull(sum(ow_wfjgware.noallocqty),0)
			INTO :ld_qty
			FROM ow_wfjgware
			WHERE ow_wfjgware.scid = :arg_scid
			AND ow_wfjgware.mtrlid = :arg_mtrlid
			AND ow_wfjgware.status = :arg_status
			AND ow_wfjgware.woodcode = :arg_woodcode
			And ow_wfjgware.pcode = :arg_pcode;
		IF sqlca.SQLCode = -1 THEN
			arg_msg = '查询物料:'+ls_mtrlcode+' 外协库存数失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	CASE 7 //外协需求数
		SELECT isnull(sum(u_order_wfjgMx_out.qty - u_order_wfjgMx_out.DstrQty),0)
			INTO :ld_qty
			FROM u_order_wfjgMx_out,u_order_wfjg
			WHERE u_order_wfjgMx_out.wfjgID = u_order_wfjg.wfjgID
			AND u_order_wfjgMx_out.scid = u_order_wfjg.scid
			AND u_order_wfjg.status = 1
			AND u_order_wfjgMx_out.scid = :arg_scid
			AND u_order_wfjgMx_out.mtrlid = :arg_mtrlid
			AND u_order_wfjgMx_out.status = :arg_status
			AND u_order_wfjgMx_out.woodcode = :arg_woodcode
			AND u_order_wfjgMx_out.pcode = :arg_pcode
			And  u_order_wfjgMx_out.qty - u_order_wfjgMx_out.DstrQty > 0;
		IF sqlca.SQLCode = -1 THEN
			arg_msg = '查询物料:'+ls_mtrlcode+' 外协需求数失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
END CHOOSE

IF IsNull(ld_qty) THEN ld_qty = 0

ext:

arg_ref_qty = ld_qty

RETURN rslt


end function

public function integer uof_del_rqmtrl_scll (long arg_scid, long arg_orderid, boolean arg_ifcommit, ref string arg_msg);//删除领料明细

Int rslt = 1
Long i,cnt
Long ll_scid,ll_orderid,ll_mtrlid,ll_wrkgrpid
String ls_status,ls_woodcode,ls_pcode
Decimal ld_fpqty

uo_mtrlware_assign uo_scll_del_cancel_fp
uo_scll_del_cancel_fp = Create uo_mtrlware_assign
uo_scll_del_cancel_fp.commit_transaction = sqlca

datastore ds_zl_fp_del
ds_zl_fp_del = Create datastore
ds_zl_fp_del.DataObject = 'ds_zl_scllqty_from_orderrqmtrl_fp_cancel'
ds_zl_fp_del.SetTransObject(sqlca)

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_OrderRqMtrl_scll,u_mtrldef
	WHERE ( u_OrderRqMtrl_scll.mtrlid = u_mtrldef.mtrlid ) and
	( u_OrderRqMtrl_scll.scid = :arg_scid ) AND
	( u_OrderRqMtrl_scll.OrderID = :arg_orderid ) AND
	( u_OrderRqMtrl_scll.fpqty > 0 ) AND
	( u_mtrldef.iffp = 1 );
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询指令领料明细是否有已分配数失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

//取消分配
IF cnt > 0 THEN	
	ds_zl_fp_del.Retrieve(arg_scid,arg_orderid)
	FOR i = 1  To ds_zl_fp_del.RowCount()
		ll_scid = ds_zl_fp_del.Object.scid[i]
		ll_orderid = ds_zl_fp_del.Object.OrderID[i]
		ll_mtrlid = ds_zl_fp_del.Object.mtrlid[i]
		ll_wrkgrpid = ds_zl_fp_del.Object.wrkgrpid[i]
		ls_status = ds_zl_fp_del.Object.status[i]
		ls_woodcode = ds_zl_fp_del.Object.woodcode[i]
		ls_pcode = ds_zl_fp_del.Object.pcode[i]
		ld_fpqty = ds_zl_fp_del.Object.fpqty[i]
		
		IF uo_scll_del_cancel_fp.uof_assign_add_to_zl_scll(ll_scid,ll_orderid,ll_mtrlid,ll_wrkgrpid,&
			ls_status,ls_woodcode,ls_pcode,0 - ld_fpqty,0,0,0,arg_msg,False) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

DELETE FROM u_OrderRqMtrl_scll
	WHERE orderid = :arg_orderid
	And scid = :arg_scid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除原领料明细失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

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

Destroy uo_scll_del_cancel_fp
Destroy ds_zl_fp_del

RETURN rslt


end function

public function integer uof_get_other_rqqty (long arg_scid, long arg_orderid, long arg_mtrlid, integer arg_plantype, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_ref_qty, integer arg_ifdate, datetime arg_date, ref string arg_msg);//取其它计划需求数

Int rslt = 1
Decimal ld_qty
String ls_mtrlcode

//SELECT mtrlcode INTO :ls_mtrlcode
//	FROM u_mtrldef
//	Where mtrlid = :arg_mtrlid;
//IF sqlca.SQLCode <> 0 THEN
//	arg_msg = '查询物料编码失败,'+sqlca.SQLErrText
//	rslt = 0
//	GOTO ext
//END IF

SELECT isnull(sum(case when u_mtrldef.iffp = 0
	then u_OrderRqMtrl.Rqqty - u_OrderRqMtrl.DstrQty
	else u_OrderRqMtrl.Rqqty - u_OrderRqMtrl.fpqty END ),0)
	INTO :ld_qty
	FROM u_OrderRqMtrl,u_order_ml,u_mtrldef
	WHERE u_OrderRqMtrl.orderid = u_order_ml.orderid
	AND u_OrderRqMtrl.scid = u_order_ml.scid
	AND u_OrderRqMtrl.mtrlid = u_mtrldef.mtrlid
	AND u_order_ml.status = 1
	AND (:if_otherrq_mrpaudit = 1 AND (:arg_plantype = 0 AND u_order_ml.scllflag = 1
	OR :arg_plantype <> 0 AND u_order_ml.scllsecflag = 1) OR :if_otherrq_mrpaudit = 0 )
	AND u_OrderRqMtrl.scid = :arg_scid
	AND u_OrderRqMtrl.orderid <> :arg_orderid
	AND u_OrderRqMtrl.mtrlid = :arg_mtrlid
	AND u_OrderRqMtrl.status = :arg_status
	AND u_OrderRqMtrl.woodcode = :arg_woodcode
	AND u_OrderRqMtrl.pcode = :arg_pcode
	AND  (case when u_mtrldef.iffp = 0
	then u_OrderRqMtrl.Rqqty - u_OrderRqMtrl.DstrQty
	else u_OrderRqMtrl.Rqqty - u_OrderRqMtrl.fpqty END ) > 0 ;
//	and ( :arg_ifdate = 0 or :arg_ifdate = 1 and u_OrderRqMtrl.rqdate <= :arg_date );
IF sqlca.SQLCode = -1 THEN
	arg_msg = '查询物料:'+ls_mtrlcode+' 其它计划需求数失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


IF IsNull(ld_qty) THEN ld_qty = 0

ext:

arg_ref_qty = ld_qty

RETURN rslt


end function

public function integer uof_get_rqmtrl (long arg_scid, long arg_orderid, long arg_porderid, ref s_order_ml_rqmtrl arg_ref_s_rqmtrl, ref string arg_msg);//重新读取运算明细

Int rslt = 1
Long cnt
Long ll_mtrlid,ll_wrkgrpid,ll_pmtrlid
String ls_status,ls_woodcode,ls_pcode
Decimal ld_rqqty,ld_cmplqty,ld_scllqty
Int li_ifcfg,li_ifpackpro,li_ifpack
Int li_ifselforder,li_mtrlorigin
String ls_mtrlcode

Long ll_lp

IF uo_option_scll_ifchanged = -1000 THEN
	arg_msg = '选项:[356]车间指令单领料明细带出运算结果中"修改"的用料,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF


DECLARE cur_ml CURSOR FOR
	SELECT u_orderrqmtrl_tree.mtrlid,
	u_orderrqmtrl_tree.wrkgrpid,
	u_orderrqmtrl_tree.status,
	u_orderrqmtrl_tree.woodcode,
	u_orderrqmtrl_tree.pcode,
	u_orderrqmtrl_tree.rqqty,
	u_orderrqmtrl_tree.truerqqty,
	u_orderrqmtrl_tree.scllqty,
	u_orderrqmtrl_tree.pmtrlid,
	u_orderrqmtrl_tree.ifcfg,
	u_orderrqmtrl_tree.lp,
	u_mtrldef.ifpackpro,
	u_mtrldef.ifpack,
	u_mtrldef.mtrlcode,
	u_mtrldef.ifselforder,
	u_mtrldef.mtrlorigin
	FROM u_orderrqmtrl_tree INNER join u_mtrldef on
	u_orderrqmtrl_tree.mtrlid = u_mtrldef.mtrlid
	WHERE u_orderrqmtrl_tree.scid = :arg_scid
	AND u_orderrqmtrl_tree.orderid = :arg_porderid
	AND (u_orderrqmtrl_tree.ifchanged = 0 OR :uo_option_scll_ifchanged = 1)
	Order By u_orderrqmtrl_tree.printid;
OPEN cur_ml;
FETCH cur_ml INTO :ll_mtrlid,:ll_wrkgrpid,
	:ls_status,:ls_woodcode,:ls_pcode,:ld_rqqty,
	:ld_cmplqty,:ld_scllqty,:ll_pmtrlid,:li_ifcfg,
	:ll_lp,:li_ifpackpro,:li_ifpack,:ls_mtrlcode,:li_ifselforder,:li_mtrlorigin;
	
DO WHILE sqlca.SQLCode = 0
	IF ld_rqqty > 0 THEN
		cnt++
		arg_ref_s_rqmtrl.scid[cnt] = arg_scid
		arg_ref_s_rqmtrl.orderid[cnt] = arg_orderid
		arg_ref_s_rqmtrl.porderid[cnt] = arg_porderid
		arg_ref_s_rqmtrl.mtrlid[cnt] = ll_mtrlid
		arg_ref_s_rqmtrl.wrkgrpid_scll[cnt] = ll_wrkgrpid
		arg_ref_s_rqmtrl.status[cnt] = ls_status
		arg_ref_s_rqmtrl.woodcode[cnt] = ls_woodcode
		arg_ref_s_rqmtrl.pcode[cnt] = ls_pcode
		arg_ref_s_rqmtrl.qty[cnt] = ld_rqqty
		arg_ref_s_rqmtrl.scllqty[cnt] = ld_scllqty
		arg_ref_s_rqmtrl.cmplqty[cnt] = ld_cmplqty
		arg_ref_s_rqmtrl.pmtrlid[cnt] = ll_pmtrlid
		arg_ref_s_rqmtrl.ifcfg[cnt] = li_ifcfg
		arg_ref_s_rqmtrl.lp[cnt] = ll_lp
		arg_ref_s_rqmtrl.ifpackpro[cnt] = li_ifpackpro
		arg_ref_s_rqmtrl.ifpack[cnt] = li_ifpack
		arg_ref_s_rqmtrl.mtrlcode[cnt] = ls_mtrlcode
		arg_ref_s_rqmtrl.ifselforder[cnt] = li_ifselforder
		arg_ref_s_rqmtrl.mtrlorigin[cnt] = li_mtrlorigin
	END IF
	
	FETCH cur_ml INTO :ll_mtrlid,:ll_wrkgrpid,
		:ls_status,:ls_woodcode,:ls_pcode,:ld_rqqty,
		:ld_cmplqty,:ld_scllqty,:ll_pmtrlid,:li_ifcfg,
		:ll_lp,:li_ifpackpro,:li_ifpack,:ls_mtrlcode,:li_ifselforder,:li_mtrlorigin;
LOOP

CLOSE cur_ml;

IF cnt = 0 THEN
	arg_msg = '查询上级计划需求明细失败,上级计划可能没有运算结果,请检查'
	rslt = 0
	GOTO ext
END IF

ext:
RETURN rslt


end function

public function integer uof_pfcode_check (long arg_mtrlid, string arg_mtrlcode, string arg_pfcode, ref string arg_msg);//检查清单审核标记

Int rslt = 1
Int li_pfflag

SELECT flag INTO :li_pfflag
	FROM u_mtrl_pf
	WHERE mtrlid = :arg_mtrlid
	AND pfcode = :arg_pfcode;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询物料:'+arg_mtrlcode+'物料清单:'+arg_pfcode+' 审核标记失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF li_pfflag = 0 THEN
	arg_msg = '物料:'+arg_mtrlcode+'物料清单:'+arg_pfcode+' 未审核,不能计算'
	rslt = 0
	GOTO ext
END IF

ext:
RETURN rslt



end function

private function integer uof_get_max_advancetime (long arg_mtrlid, string arg_pfcode, ref decimal arg_ref_advancetime, ref string arg_msg);//取下级最大提前期

Int rslt = 1
Long cnt

SELECT count(*) INTO :cnt
	FROM u_prdpf
	WHERE mtrlid = :arg_mtrlid
	AND pfcode = :arg_pfcode;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询物料是否已设置下级用料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF cnt = 0 THEN
	arg_ref_advancetime = 0
ELSE
	
	SELECT max(advancetime) INTO :arg_ref_advancetime
		FROM u_prdpf
		WHERE mtrlid = :arg_mtrlid
		AND pfcode = :arg_pfcode;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询物料下级用料最大提前期失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

ext:
RETURN rslt





end function

public function integer uof_get_prdpf_dytype (long arg_mtrlid, string arg_pfcode, string arg_pfgroup, long arg_sonmtrlid, long arg_wrkgrpid, string arg_sonpfcode, ref integer arg_ref_dytype, ref string arg_msg);//查询代用类型

Int rslt = 1

SELECT dytype INTO :arg_ref_dytype
	FROM u_prdpf
	WHERE mtrlid = :arg_mtrlid
	AND pfcode = :arg_pfcode
	AND pfgroup = :arg_pfgroup
	AND SonMtrlid = :arg_SonMtrlid
	AND wrkgrpid = :arg_wrkgrpid
	And sonpfcode = :arg_sonpfcode;
IF sqlca.SQLCode = -1 THEN
	arg_msg = '查询物料代用标记失败,上级清单:'+arg_pfcode+',部件名称:'+arg_pfgroup+',下级清单:'+arg_sonpfcode+','+String(sqlca.SQLCode)+','+sqlca.SQLErrText
	rslt = 0
	GOTO ext
ELSEIF sqlca.SQLCode = 100 THEN
	arg_ref_dytype = 0
END IF

ext:
RETURN rslt


end function

public function integer uof_get_prdpf_replace (long arg_mtrlid, string arg_pfcode, string arg_pfgroup, long arg_sonmtrlid, long arg_wrkgrpid, string arg_sonpfcode, ref s_prdpf_replace arg_ref_s_replace, ref string arg_msg);//取代用明细

Int rslt = 1
Long m

Long ll_dymtrlid
Decimal ld_sonscale,ld_sonloss,ld_scllloss
String ls_dscrp,ls_status,ls_woodcode,ls_pcode
String ls_mtrlcode,ls_mtrlname,ls_mtrlmode,ls_unit,ls_mtrltype
Int li_mtrlorigin,li_mtrlprp,li_ifselforder,li_ifpack,li_ifpackpro
Int li_ordertype,li_ifpackpz
Long ll_produce_scid,ll_produce_wrkgrpid

DECLARE cur_dy CURSOR FOR
	SELECT u_prdpf_dymx.dymtrlid,
	u_prdpf_dymx.sonscale,
	u_prdpf_dymx.sonloss,
	u_prdpf_dymx.scllloss,
	u_prdpf_dymx.dscrp,
	u_prdpf_dymx.status,
	u_prdpf_dymx.woodcode,
	u_prdpf_dymx.pcode,
	u_mtrldef.mtrlcode,
	u_mtrldef.mtrlname,
	u_mtrldef.mtrlmode,
	u_mtrldef.unit,
	u_mtrldef.mtrltype,
	u_mtrldef.mtrlorigin,
	u_mtrldef.mtrlprp,
	u_mtrldef.ifselforder,
	u_mtrldef.ifpack,
	u_mtrldef.ifpackpro,
	u_mtrldef.ordertype,
	u_mtrldef.ifpackpz,
	u_mtrldef.scid,
	u_mtrldef.dftwrkgrpid
	FROM u_prdpf_dymx,u_mtrldef
	WHERE u_prdpf_dymx.dymtrlid = u_mtrldef.mtrlid
	AND u_prdpf_dymx.mtrlid = :arg_mtrlid
	AND u_prdpf_dymx.pfcode = :arg_pfcode
	AND u_prdpf_dymx.pfgroup = :arg_pfgroup
	AND u_prdpf_dymx.SonMtrlid = :arg_SonMtrlid
	AND u_prdpf_dymx.wrkgrpid = :arg_wrkgrpid
	AND u_prdpf_dymx.sonpfcode = :arg_sonpfcode
	Order By printid;
	
OPEN cur_dy;

FETCH cur_dy INTO :ll_dymtrlid,
	:ld_sonscale,:ld_sonloss,:ld_scllloss,
	:ls_dscrp,:ls_status,:ls_woodcode,:ls_pcode,
	:ls_mtrlcode,:ls_mtrlname,:ls_mtrlmode,:ls_unit,:ls_mtrltype,
	:li_mtrlorigin,:li_mtrlprp,:li_ifselforder,:li_ifpack,:li_ifpackpro,
	:li_ordertype,:li_ifpackpz,:ll_produce_scid,:ll_produce_wrkgrpid;
	
DO WHILE sqlca.SQLCode = 0
	m++
	arg_ref_s_replace.dymtrlid[m] = ll_dymtrlid
	arg_ref_s_replace.sonscale[m] = ld_sonscale
	arg_ref_s_replace.sonloss[m] = ld_sonloss
	arg_ref_s_replace.scllloss[m] = ld_scllloss
	arg_ref_s_replace.dscrp[m] = ls_dscrp
	arg_ref_s_replace.status[m] = ls_status
	arg_ref_s_replace.woodcode[m] = ls_woodcode
	arg_ref_s_replace.pcode[m] = ls_pcode
	
	
	arg_ref_s_replace.mtrlcode[m] = ls_mtrlcode
	arg_ref_s_replace.mtrlname[m] = ls_mtrlname
	arg_ref_s_replace.mtrlmode[m] = ls_mtrlmode
	arg_ref_s_replace.unit[m] = ls_unit
	arg_ref_s_replace.mtrlorigin[m] = li_mtrlorigin
	arg_ref_s_replace.mtrltype[m] = ls_mtrltype
	arg_ref_s_replace.mtrlprp[m] = li_mtrlprp
	arg_ref_s_replace.ifselforder[m] = li_ifselforder
	arg_ref_s_replace.ifpack[m] = li_ifpack
	arg_ref_s_replace.ifpackpro[m] = li_ifpackpro
	arg_ref_s_replace.ordertype[m] = li_ordertype
	arg_ref_s_replace.ifpackpz[m] = li_ifpackpz
	arg_ref_s_replace.produce_scid[m] = ll_produce_scid
	arg_ref_s_replace.produce_wrkgrpid[m] = ll_produce_wrkgrpid
	
	FETCH cur_dy INTO :ll_dymtrlid,
		:ld_sonscale,:ld_sonloss,:ld_scllloss,
		:ls_dscrp,:ls_status,:ls_woodcode,:ls_pcode,
		:ls_mtrlcode,:ls_mtrlname,:ls_mtrlmode,:ls_unit,:ls_mtrltype,
		:li_mtrlorigin,:li_mtrlprp,:li_ifselforder,:li_ifpack,:li_ifpackpro,
		:li_ordertype,:li_ifpackpz,:ll_produce_scid,:ll_produce_wrkgrpid;
LOOP

CLOSE cur_dy;

RETURN rslt






end function

public subroutine uof_cmpl_rqmtrl_dy_mx (long arg_begin_i, integer arg_dy, ref s_order_ml_rqmtrl arg_s_mtrl, s_prdpf_replace arg_pf_dy);//加代用明细入数组

Long ll_arr_dy,ll_arr_rq
Long ll_arr_add,ll_arr_max
Long i,k

ll_arr_dy = UpperBound(arg_pf_dy.dymtrlid)
ll_arr_rq = UpperBound(arg_s_mtrl.mtrlid)

IF arg_dy = 0 THEN
	ll_arr_add = ll_arr_dy - 1
ELSE
	ll_arr_add = ll_arr_dy
END IF

ll_arr_max = ll_arr_rq + ll_arr_add

FOR i = ll_arr_max TO arg_begin_i + 1 STEP -1
	
	IF i > arg_begin_i + 1  THEN
		arg_s_mtrl.scid[i] = arg_s_mtrl.scid[i - ll_arr_add]
		arg_s_mtrl.orderid[i] = arg_s_mtrl.orderid[i - ll_arr_add]
		arg_s_mtrl.mtrlid[i] = arg_s_mtrl.mtrlid[i - ll_arr_add]
		arg_s_mtrl.status[i] = arg_s_mtrl.status[i - ll_arr_add]
		arg_s_mtrl.woodcode[i] = arg_s_mtrl.woodcode[i - ll_arr_add]
		arg_s_mtrl.pcode[i] = arg_s_mtrl.pcode[i - ll_arr_add]
		arg_s_mtrl.pfcode[i] = arg_s_mtrl.pfcode[i - ll_arr_add]
		arg_s_mtrl.qty[i] = arg_s_mtrl.qty[i - ll_arr_add]
		arg_s_mtrl.cmplqty[i] = arg_s_mtrl.cmplqty[i - ll_arr_add]
		arg_s_mtrl.plantype[i] = arg_s_mtrl.plantype[i - ll_arr_add]
		arg_s_mtrl.mqty[i] = arg_s_mtrl.mqty[i - ll_arr_add]
		arg_s_mtrl.bqty[i] = arg_s_mtrl.bqty[i - ll_arr_add]
		arg_s_mtrl.wqty[i] = arg_s_mtrl.wqty[i - ll_arr_add]
		arg_s_mtrl.pqty[i] = arg_s_mtrl.pqty[i - ll_arr_add]
		arg_s_mtrl.otherrqqty[i] = arg_s_mtrl.otherrqqty[i - ll_arr_add]
		arg_s_mtrl.samerqqty[i] = arg_s_mtrl.samerqqty[i - ll_arr_add]
		arg_s_mtrl.sdate[i] = arg_s_mtrl.sdate[i - ll_arr_add]
		arg_s_mtrl.edate[i] = arg_s_mtrl.edate[i - ll_arr_add]
		
		arg_s_mtrl.mtrlcode[i] = arg_s_mtrl.mtrlcode[i - ll_arr_add]
		arg_s_mtrl.mtrlname[i] = arg_s_mtrl.mtrlname[i - ll_arr_add]
		arg_s_mtrl.mtrlmode[i] = arg_s_mtrl.mtrlmode[i - ll_arr_add]
		arg_s_mtrl.mtrltype[i] = arg_s_mtrl.mtrltype[i - ll_arr_add]
		arg_s_mtrl.unit[i] = arg_s_mtrl.unit[i - ll_arr_add]
		arg_s_mtrl.Mtrlorigin[i] = arg_s_mtrl.Mtrlorigin[i - ll_arr_add]
		arg_s_mtrl.mtrlprp[i] = arg_s_mtrl.mtrlprp[i - ll_arr_add]
		arg_s_mtrl.ifselforder[i] = arg_s_mtrl.ifselforder[i - ll_arr_add]
		arg_s_mtrl.gydscrp[i] = arg_s_mtrl.gydscrp[i - ll_arr_add]
		arg_s_mtrl.pfklmode[i] = arg_s_mtrl.pfklmode[i - ll_arr_add]
		arg_s_mtrl.pfgroup[i] = arg_s_mtrl.pfgroup[i - ll_arr_add]
		arg_s_mtrl.pfgroupmode[i] = arg_s_mtrl.pfgroupmode[i - ll_arr_add]
		arg_s_mtrl.ifcfg[i] = arg_s_mtrl.ifcfg[i - ll_arr_add]
		arg_s_mtrl.ifpack[i] = arg_s_mtrl.ifpack[i - ll_arr_add]
		arg_s_mtrl.ifpackpro[i] = arg_s_mtrl.ifpackpro[i - ll_arr_add]
		arg_s_mtrl.mtrlordertype[i] = arg_s_mtrl.mtrlordertype[i - ll_arr_add]
		arg_s_mtrl.ifpackpz[i] = arg_s_mtrl.ifpackpz[i - ll_arr_add]
		
		arg_s_mtrl.dytype[i] = arg_s_mtrl.dytype[i - ll_arr_add]
		arg_s_mtrl.ppfcode[i] = arg_s_mtrl.ppfcode[i - ll_arr_add]
		arg_s_mtrl.pcmplqty[i] = arg_s_mtrl.pcmplqty[i - ll_arr_add]
		arg_s_mtrl.produce_scid[i] = arg_s_mtrl.produce_scid[i - ll_arr_add]
		
		arg_s_mtrl.produce_wrkgrpid[i] = arg_s_mtrl.produce_wrkgrpid[i - ll_arr_add]
		arg_s_mtrl.wrkGrpid_scll[i] = arg_s_mtrl.wrkGrpid_scll[i - ll_arr_add]
		arg_s_mtrl.lp[i] = arg_s_mtrl.lp[i - ll_arr_add]
		
		arg_s_mtrl.ifmainmtrlid[i] = arg_s_mtrl.ifmainmtrlid[i - ll_arr_add]
		arg_s_mtrl.pmtrlid[i] = arg_s_mtrl.pmtrlid[i - ll_arr_add]
		arg_s_mtrl.ifchanged[i] = arg_s_mtrl.ifchanged[i - ll_arr_add]
	ELSE
		arg_s_mtrl.scid[i] = arg_s_mtrl.scid[arg_begin_i]
		arg_s_mtrl.orderid[i] = arg_s_mtrl.orderid[arg_begin_i]
		arg_s_mtrl.mtrlid[i] = arg_s_mtrl.mtrlid[arg_begin_i]
		arg_s_mtrl.status[i] = arg_s_mtrl.status[arg_begin_i]
		arg_s_mtrl.woodcode[i] = arg_s_mtrl.woodcode[arg_begin_i]
		arg_s_mtrl.pcode[i] = arg_s_mtrl.pcode[arg_begin_i]
		arg_s_mtrl.pfcode[i] = arg_s_mtrl.pfcode[arg_begin_i]
		arg_s_mtrl.qty[i] = arg_s_mtrl.qty[arg_begin_i]
		arg_s_mtrl.cmplqty[i] = arg_s_mtrl.cmplqty[arg_begin_i]
		arg_s_mtrl.plantype[i] = arg_s_mtrl.plantype[arg_begin_i]
		arg_s_mtrl.mqty[i] = arg_s_mtrl.mqty[arg_begin_i]
		arg_s_mtrl.bqty[i] = arg_s_mtrl.bqty[arg_begin_i]
		arg_s_mtrl.wqty[i] = arg_s_mtrl.wqty[arg_begin_i]
		arg_s_mtrl.pqty[i] = arg_s_mtrl.pqty[arg_begin_i]
		arg_s_mtrl.otherrqqty[i] = arg_s_mtrl.otherrqqty[arg_begin_i]
		arg_s_mtrl.samerqqty[i] = arg_s_mtrl.samerqqty[arg_begin_i]
		arg_s_mtrl.sdate[i] = arg_s_mtrl.sdate[arg_begin_i]
		arg_s_mtrl.edate[i] = arg_s_mtrl.edate[arg_begin_i]
		
		arg_s_mtrl.mtrlcode[i] = arg_s_mtrl.mtrlcode[arg_begin_i]
		arg_s_mtrl.mtrlname[i] = arg_s_mtrl.mtrlname[arg_begin_i]
		arg_s_mtrl.mtrlmode[i] = arg_s_mtrl.mtrlmode[arg_begin_i]
		arg_s_mtrl.mtrltype[i] = arg_s_mtrl.mtrltype[arg_begin_i]
		arg_s_mtrl.unit[i] = arg_s_mtrl.unit[arg_begin_i]
		arg_s_mtrl.Mtrlorigin[i] = arg_s_mtrl.Mtrlorigin[arg_begin_i]
		arg_s_mtrl.mtrlprp[i] = arg_s_mtrl.mtrlprp[arg_begin_i]
		arg_s_mtrl.ifselforder[i] = arg_s_mtrl.ifselforder[arg_begin_i]
		arg_s_mtrl.gydscrp[i] = arg_s_mtrl.gydscrp[arg_begin_i]
		arg_s_mtrl.pfklmode[i] = arg_s_mtrl.pfklmode[arg_begin_i]
		arg_s_mtrl.pfgroup[i] = arg_s_mtrl.pfgroup[arg_begin_i]
		arg_s_mtrl.pfgroupmode[i] = arg_s_mtrl.pfgroupmode[arg_begin_i]
		arg_s_mtrl.ifcfg[i] = arg_s_mtrl.ifcfg[arg_begin_i]
		arg_s_mtrl.ifpack[i] = arg_s_mtrl.ifpack[arg_begin_i]
		arg_s_mtrl.ifpackpro[i] = arg_s_mtrl.ifpackpro[arg_begin_i]
		arg_s_mtrl.mtrlordertype[i] = arg_s_mtrl.mtrlordertype[arg_begin_i]
		arg_s_mtrl.ifpackpz[i] = arg_s_mtrl.ifpackpz[arg_begin_i]
		
		arg_s_mtrl.dytype[i] = arg_s_mtrl.dytype[arg_begin_i]
		arg_s_mtrl.ppfcode[i] = arg_s_mtrl.ppfcode[arg_begin_i]
		arg_s_mtrl.pcmplqty[i] = arg_s_mtrl.pcmplqty[arg_begin_i]
		arg_s_mtrl.produce_scid[i] = arg_s_mtrl.produce_scid[arg_begin_i]
		
		arg_s_mtrl.produce_wrkgrpid[i] = arg_s_mtrl.produce_wrkgrpid[arg_begin_i]
		arg_s_mtrl.wrkGrpid_scll[i] = arg_s_mtrl.wrkGrpid_scll[arg_begin_i]
		arg_s_mtrl.lp[i] = arg_s_mtrl.lp[arg_begin_i]
		
		arg_s_mtrl.ifmainmtrlid[i] = arg_s_mtrl.ifmainmtrlid[arg_begin_i]
		arg_s_mtrl.pmtrlid[i] = arg_s_mtrl.pmtrlid[arg_begin_i]
		arg_s_mtrl.ifchanged[i] = arg_s_mtrl.ifchanged[arg_begin_i]
	END IF
NEXT

FOR i = arg_begin_i TO arg_begin_i + ll_arr_add
	
	IF i = arg_begin_i AND arg_dy = 1 THEN
		arg_s_mtrl.qty[i] = arg_s_mtrl.qty[i] - arg_s_mtrl.cmplqty[i]
		arg_s_mtrl.cmplqty[i] = 0
	ELSE
		k++
		arg_s_mtrl.mtrlid[i] = arg_pf_dy.dymtrlid[k]
		arg_s_mtrl.status[i] = arg_pf_dy.status[k]
		arg_s_mtrl.woodcode[i] = arg_pf_dy.woodcode[k]
		arg_s_mtrl.pcode[i] = arg_pf_dy.pcode[k]		
		
		arg_s_mtrl.mtrlcode[i] = arg_pf_dy.mtrlcode[k]
		arg_s_mtrl.mtrlname[i] = arg_pf_dy.mtrlname[k]
		arg_s_mtrl.mtrlmode[i] = arg_pf_dy.mtrlmode[k]
		arg_s_mtrl.unit[i] = arg_pf_dy.unit[k]
		arg_s_mtrl.Mtrlorigin[i] = arg_pf_dy.Mtrlorigin[k]
		arg_s_mtrl.mtrltype[i] = arg_pf_dy.mtrltype[k]
		arg_s_mtrl.mtrlprp[i] = arg_pf_dy.mtrlprp[k]
		arg_s_mtrl.ifselforder[i] = arg_pf_dy.ifselforder[k]
		arg_s_mtrl.ifpack[i] = arg_pf_dy.ifpack[k]
		arg_s_mtrl.ifpackpro[i] = arg_pf_dy.ifpackpro[k]
		arg_s_mtrl.mtrlordertype[i] = arg_pf_dy.ordertype[k]
		arg_s_mtrl.ifpackpz[i] = arg_pf_dy.ifpackpz[k]
		arg_s_mtrl.produce_scid[i] = arg_pf_dy.produce_scid[k]
		arg_s_mtrl.produce_wrkgrpid[i] = arg_pf_dy.produce_wrkgrpid[k]		
		
		arg_s_mtrl.qty[i] = arg_pf_dy.dyqty[k]
		arg_s_mtrl.cmplqty[i] = 0
		
		arg_s_mtrl.mqty[i] = arg_pf_dy.mqty[k]
		arg_s_mtrl.bqty[i] = arg_pf_dy.bqty[k]
		arg_s_mtrl.wqty[i] = arg_pf_dy.wqty[k]
		arg_s_mtrl.pqty[i] = arg_pf_dy.pqty[k]
		arg_s_mtrl.otherrqqty[i] = arg_pf_dy.otherrqqty[k]
		arg_s_mtrl.samerqqty[i] = arg_pf_dy.samerqqty[k]
	END IF
NEXT
end subroutine

public function integer uof_cmpl_rqmtrl_change (long arg_scid, long arg_pmtrlid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, string arg_pfcode, decimal arg_qty, long arg_wrkgrpid_scll, datetime arg_rqdate, string arg_gydscrp, string arg_pfklmode, string arg_pfgroup, string arg_pfgroupmode, decimal arg_advancetime, decimal arg_sonloss, decimal arg_sondecloss, ref s_order_ml_rqmtrl arg_s_mtrl, ref string arg_msg);//解锁修改数量

Int rslt = 1
Int li_pfflag
Long li_mxt
Long ll_i

String ls_mtrlcode,ls_mtrlname,ls_mtrlmode
String ls_unit,ls_mtrltype
Int li_mtrlorigin,li_ifselforder,li_mtrlprp
Long ll_scid_mtrl,ll_wrkgrpid_mtrl
Decimal ld_buydays,ld_orderdays,ld_wfjgdays,ld_aheaddays
Date ld_sdate,ld_edate,ld_rqdate
DateTime ldt_sdate,ldt_edate
Decimal ld_cmpqty
String ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode

deep++
If deep > 2000 Then
	arg_msg = '递归太深'+String(deep)
	rslt = 0
	Goto ext
End If

Select mtrlcode,
	mtrlname,
	mtrlmode,
	mtrltype,
	unit,
	Mtrlorigin,
	scid,
	dftwrkgrpid,
	buydays,
	orderdays,
	wfjgdays,
	aheaddays,
	ifselforder,
	mtrlprp,
	cmpqty,
	mtrlsectype,
	zxmtrlmode,
	usermtrlmode
	Into :ls_mtrlcode,
	:ls_mtrlname,
	:ls_mtrlmode,
	:ls_mtrltype,
	:ls_unit,
	:li_mtrlorigin,
	:ll_scid_mtrl,
	:ll_wrkgrpid_mtrl,
	:ld_buydays,
	:ld_orderdays,
	:ld_wfjgdays,
	:ld_aheaddays,
	:li_ifselforder,
	:li_mtrlprp,
	:ld_cmpqty,
	:ls_mtrlsectype,
	:ls_zxmtrlmode,
	:ls_usermtrlmode
	From u_mtrldef
	Where mtrlid = :arg_mtrlid;
If sqlca.SQLCode <> 0 Then
	arg_msg = '查询物料资失败,'+sqlca.SQLErrText
	rslt = 0
	Goto ext
End If

If ld_cmpqty = 0 Then ld_cmpqty = 1

If uof_pfcode_check(arg_mtrlid,ls_mtrlcode,arg_pfcode,arg_msg) = 0 Then
	rslt = 0
	Goto ext
End If

Decimal ld_advancetime_max_next //自制下级最大提前期

//计算需求日期
ld_rqdate = Date(String(arg_rqdate,'yyyy-mm-dd'))

If li_mtrlorigin = 0 Then
	
	ld_edate = RelativeDate( ld_rqdate,0 - ld_orderdays - arg_advancetime  )
	
	//取下级最大提前期
	If uof_get_max_advancetime(arg_mtrlid,arg_pfcode,ld_advancetime_max_next,arg_msg) = 0 Then
		arg_msg = ls_mtrlcode + arg_msg
		rslt = 0
		Goto ext
	End If
	
	ld_sdate = RelativeDate( ld_edate, 0 - ld_advancetime_max_next )
ElseIf li_mtrlorigin = 2 Then
	ld_edate = RelativeDate( ld_rqdate,0 - arg_advancetime )
	ld_sdate = RelativeDate ( ld_rqdate, 0 - ld_buydays - arg_advancetime )
ElseIf li_mtrlorigin = 3 Then
	ld_edate = RelativeDate( ld_rqdate,0 - arg_advancetime )
	ld_sdate = RelativeDate ( ld_rqdate, 0 - ld_wfjgdays - arg_advancetime )
ElseIf li_mtrlorigin = 6 Then
	ld_edate = RelativeDate( ld_rqdate,0 - arg_advancetime )
	ld_sdate = RelativeDate ( ld_edate, 0 - ld_aheaddays - arg_advancetime )
End If

ldt_sdate = DateTime(ld_sdate,Time(0))
ldt_edate = DateTime(ld_edate,Time(0))
//

If deep > 1 Then
	li_mxt = UpperBound(arg_s_mtrl.mtrlid)
	li_mxt++
	arg_s_mtrl.mtrlid[li_mxt] = arg_mtrlid
	arg_s_mtrl.pfcode[li_mxt] = arg_pfcode
	arg_s_mtrl.qty[li_mxt] = arg_qty
	arg_s_mtrl.status[li_mxt] = arg_status
	arg_s_mtrl.woodcode[li_mxt] = arg_woodcode
	arg_s_mtrl.pcode[li_mxt] = arg_pcode
	arg_s_mtrl.cmplqty[li_mxt] = arg_qty
	arg_s_mtrl.plantype[li_mxt] = li_mtrlorigin
	arg_s_mtrl.sdate[li_mxt] = ldt_sdate
	arg_s_mtrl.edate[li_mxt] = ldt_edate
	
	arg_s_mtrl.mtrlcode[li_mxt] = ls_mtrlcode
	arg_s_mtrl.mtrlname[li_mxt] = ls_mtrlname
	arg_s_mtrl.mtrlmode[li_mxt] = ls_mtrlmode
	arg_s_mtrl.mtrltype[li_mxt] = ls_mtrltype
	arg_s_mtrl.unit[li_mxt] = ls_unit
	arg_s_mtrl.Mtrlorigin[li_mxt] = li_mtrlorigin
	arg_s_mtrl.produce_scid[li_mxt] = ll_scid_mtrl
	arg_s_mtrl.produce_wrkgrpid[li_mxt] = ll_wrkgrpid_mtrl
	arg_s_mtrl.wrkGrpid_scll[li_mxt] = arg_wrkGrpid_scll
	
	arg_s_mtrl.mtrlsectype[li_mxt] = ls_mtrlsectype
	arg_s_mtrl.zxmtrlmode[li_mxt] = ls_zxmtrlmode
	arg_s_mtrl.usermtrlmode[li_mxt] = ls_usermtrlmode
	
	
	arg_s_mtrl.gydscrp[li_mxt] = arg_gydscrp
	arg_s_mtrl.pfklmode[li_mxt] = arg_pfklmode
	arg_s_mtrl.pfgroup[li_mxt] = arg_pfgroup
	arg_s_mtrl.pfgroupmode[li_mxt] = arg_pfgroupmode
	
	arg_s_mtrl.pmtrlid[li_mxt] = arg_pmtrlid
	
	arg_s_mtrl.sonloss[li_mxt] = arg_sonloss
	arg_s_mtrl.sondecloss[li_mxt] = arg_sondecloss
	arg_s_mtrl.standardrqqty[li_mxt] = Round((arg_qty - arg_sondecloss) * (1 - arg_sonloss),uo_option_produce_dec)
	
End If

Choose Case li_mtrlorigin
	Case 2
		rslt = 1
		Goto ext
	Case 6
		If li_mtrlprp = 2 Or li_mtrlprp = 8 Then
			rslt = 1
			Goto ext
		End If
	Case 0
		If ll_scid_mtrl <> arg_scid Then
			rslt = 1
			Goto ext
		Else
			If li_ifselforder = 1 Then
				rslt = 1
				Goto ext
			End If
		End If
	Case 3
		If ll_scid_mtrl <> arg_scid Then
			rslt = 1
			Goto ext
		Else
			If li_ifselforder = 1 Then
				rslt = 1
				Goto ext
			End If
		End If
End Choose

Long count,ll_j
Decimal cmpl_qty
s_pfmx ls_s_pfmx[]

count = 0

Declare pf_cur Cursor For
	Select u_PrdPF.Sonscale,
	u_PrdPF.SonLoss,
	u_PrdPF.SonDECLosS,
	u_PrdPF.SonMtrlid,
	u_PrdPF.sonpfcode,
	u_PrdPF.status,
	u_PrdPF.woodcode,
	u_PrdPF.pcode,
	u_PrdPF.wrkGrpid,
	u_PrdPF.dscrp,
	u_PrdPF.pfklmode,
	u_PrdPF.pfgroup,
	u_PrdPF.pfgroupmode,
	u_PrdPF.advancetime,
	u_PrdPF.baseqty,
	u_PrdPF.buyarg,
	u_mtrldef.mrptype,
	u_mtrldef.mrparg,
	u_prdpf.ifover,
	u_prdpf.dipztype
	From u_PrdPF,u_mtrldef
	Where ( u_PrdPF.mtrlid = :arg_mtrlid )
	And ( u_PrdPF.sonmtrlid = u_mtrldef.mtrlid )
	And ( u_PrdPF.pfcode = :arg_pfcode )
	And ( u_mtrldef.ifmrp = 1 )
	Order By u_PrdPF.printid;
Open pf_cur;
count = 1
Fetch pf_cur Into :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,&
	:ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].SonMtrlid,&
	:ls_s_pfmx[count].sonpfcode,:ls_s_pfmx[count].status,&
	:ls_s_pfmx[count].woodcode,:ls_s_pfmx[count].pcode,&
	:ls_s_pfmx[count].wrkGrpid,:ls_s_pfmx[count].dscrp,&
	:ls_s_pfmx[count].pfklmode,:ls_s_pfmx[count].pfgroup,&
	:ls_s_pfmx[count].pfgroupmode,:ls_s_pfmx[count].advancetime,&
	:ls_s_pfmx[count].baseqty,&
	:ls_s_pfmx[count].buyarg,:ls_s_pfmx[count].u_mtrldef_mrptype,&
	:ls_s_pfmx[count].u_mtrldef_mrparg,&
	:ls_s_pfmx[count].ifover,:ls_s_pfmx[count].dipztype;
Do While sqlca.SQLCode = 0
	count++
	Fetch pf_cur Into :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,&
		:ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].SonMtrlid,&
		:ls_s_pfmx[count].sonpfcode,:ls_s_pfmx[count].status,&
		:ls_s_pfmx[count].woodcode,:ls_s_pfmx[count].pcode,&
		:ls_s_pfmx[count].wrkGrpid,:ls_s_pfmx[count].dscrp,&
		:ls_s_pfmx[count].pfklmode,:ls_s_pfmx[count].pfgroup,&
		:ls_s_pfmx[count].pfgroupmode,:ls_s_pfmx[count].advancetime,&
		:ls_s_pfmx[count].baseqty,&
		:ls_s_pfmx[count].buyarg,:ls_s_pfmx[count].u_mtrldef_mrptype,&
		:ls_s_pfmx[count].u_mtrldef_mrparg,&
		:ls_s_pfmx[count].ifover,:ls_s_pfmx[count].dipztype;
Loop
count = count - 1
Close pf_cur;


If count = 0 Then
	rslt = 1
	Goto ext
End If

String ls_status_son,ls_woodcode_son,ls_pcode_son
Long tem_long
//物料清单基数
arg_qty = arg_qty/ld_cmpqty

For ll_j = 1 To count
	If ls_s_pfmx[ll_j].sonloss <> 1 Then
		If ls_s_pfmx[ll_j].baseqty > 1 Then
			cmpl_qty = Ceiling(Truncate(arg_qty/ls_s_pfmx[ll_j].baseqty * ls_s_pfmx[ll_j].Sonscale/(1 - ls_s_pfmx[ll_j].sonloss)+ls_s_pfmx[ll_j].sondecloss,10))
		Else
			If ls_s_pfmx[ll_j].u_mtrldef_mrptype = 0 Then
				cmpl_qty = Round(arg_qty * ls_s_pfmx[ll_j].Sonscale/(1 - ls_s_pfmx[ll_j].sonloss)+ls_s_pfmx[ll_j].sondecloss,ls_s_pfmx[ll_j].u_mtrldef_mrparg)
			Else
				If ls_s_pfmx[ll_j].u_mtrldef_mrparg = 0 Then
					cmpl_qty = Ceiling(Truncate(arg_qty * ls_s_pfmx[ll_j].Sonscale/(1 - ls_s_pfmx[ll_j].sonloss) + ls_s_pfmx[ll_j].sondecloss,10))
				Else
					tem_long = 10^ls_s_pfmx[ll_j].u_mtrldef_mrparg
					
					cmpl_qty = Ceiling((Truncate(arg_qty * ls_s_pfmx[ll_j].Sonscale/(1 - ls_s_pfmx[ll_j].sonloss) + ls_s_pfmx[ll_j].sondecloss,10)) * tem_long)/tem_long
					cmpl_qty = Round(cmpl_qty , ls_s_pfmx[ll_j].u_mtrldef_mrparg)
					
				End If
			End If
		End If
	Else
		cmpl_qty = 0
	End If
	
	If ls_s_pfmx[ll_j].ifover = 1 Then
		Choose Case ls_s_pfmx[ll_j].dipztype
			Case 0
				ls_status_son = arg_status
				ls_woodcode_son = ''
				ls_pcode_son = ''
			Case 1
				ls_status_son = ''
				ls_woodcode_son = arg_woodcode
				ls_pcode_son = ''
			Case 2
				ls_status_son = ''
				ls_woodcode_son = ''
				ls_pcode_son = arg_pcode
			Case 3
				ls_status_son = arg_status
				ls_woodcode_son = arg_woodcode
				ls_pcode_son = ''
			Case 4
				ls_status_son = ''
				ls_woodcode_son = arg_woodcode
				ls_pcode_son = arg_pcode
			Case 5
				ls_status_son = arg_status
				ls_woodcode_son = ''
				ls_pcode_son = arg_pcode
			Case 6
				ls_status_son = arg_status
				ls_woodcode_son = arg_woodcode
				ls_pcode_son = arg_pcode
		End Choose
	Else
		ls_status_son = ls_s_pfmx[ll_j].status
		ls_woodcode_son = ls_s_pfmx[ll_j].woodcode
		ls_pcode_son = ls_s_pfmx[ll_j].pcode
	End If
	
	rslt = uof_cmpl_rqmtrl_change(arg_scid,arg_mtrlid,ls_s_pfmx[ll_j].SonMtrlid,&
		ls_status_son,ls_woodcode_son,ls_pcode_son,&
		ls_s_pfmx[ll_j].sonpfcode,&
		cmpl_qty,ls_s_pfmx[ll_j].wrkGrpid,ldt_edate,ls_s_pfmx[ll_j].dscrp,&
		ls_s_pfmx[ll_j].pfklmode,ls_s_pfmx[ll_j].pfgroup,&
		ls_s_pfmx[ll_j].pfgroupmode,ls_s_pfmx[ll_j].advancetime,&
		ls_s_pfmx[ll_j].sonloss,ls_s_pfmx[ll_j].sondecloss,&
		arg_s_mtrl,arg_msg) //递归处理下级
	If rslt = 0 Then
		Goto ext
	End If
Next

ext:
Return rslt











end function

public function integer uof_get_prdpf_sonloss (string arg_sonlossstr, decimal arg_qty, ref decimal arg_sonloss);//查询损耗率

Int rslt = 1
Int ll_rst
Long i,ll_pos,ll_row
String ls_conditionstr,ls_conditionstr_l,ls_conditionstr_r
String ls_modstr,ls_sonloss
Boolean lb_f = FALSE
s_pf_sonlossstr_array arg_s_sonlossstr_array

datastore ds_cmpl
ds_cmpl = CREATE datastore

IF Trim(arg_sonlossstr) = '' THEN
	rslt = 0
	GOTO ext
END IF

f_pf_sonlossstr(arg_sonlossstr,arg_s_sonlossstr_array)

FOR i = 1 TO UpperBound(arg_s_sonlossstr_array.conditionstr)
	ll_pos = Pos(arg_s_sonlossstr_array.conditionstr[i],',')
	
	IF ll_pos > 0 THEN
		ls_conditionstr_l = Left( arg_s_sonlossstr_array.conditionstr[i], ll_pos - 1)
		ls_conditionstr_r = Right( arg_s_sonlossstr_array.conditionstr[i],Len(arg_s_sonlossstr_array.conditionstr[i]) - ll_pos )
		ls_modstr = String(arg_qty,'###0.##########') + ls_conditionstr_l + ' and ' + String(arg_qty,'###0.##########') + ls_conditionstr_r
	ELSE
		ls_modstr = String(arg_qty,'###0.##########') + arg_s_sonlossstr_array.conditionstr[i]
	END IF
	
	ds_cmpl.DataObject = 'ds_pf_sonlossstr_cmpl'
	ll_row = ds_cmpl.InsertRow(0)
	ls_modstr = 'if('+ls_modstr+',1,0)'
//	messagebox('',ls_modstr)
	ds_cmpl.Modify("cmpl.expression='"+ls_modstr+"'")
	ll_rst = ds_cmpl.Object.cmpl[ll_row]
	
	ds_cmpl.Reset()
	
	IF ll_rst = 0 THEN CONTINUE
	
	ls_sonloss = arg_s_sonlossstr_array.sonlossstr[i]
	
	IF Pos(ls_sonloss,'数量') > 0 THEN
		ll_row = ds_cmpl.InsertRow(0)
		ls_modstr = Replace ( ls_sonloss, Pos(ls_sonloss,'数量'), 4, String(arg_qty,'#,##0.0#########') )
		ds_cmpl.Modify("cmpl.expression='"+ls_modstr+"'")
		arg_sonloss = ds_cmpl.Object.cmpl[ll_row]
		ds_cmpl.Reset()
	ELSE
		arg_sonloss = Dec(ls_sonloss)
	END IF
	lb_f = TRUE
	EXIT
NEXT

IF NOT lb_f THEN rslt = 0

ext:
RETURN rslt















end function

public function integer uof_get_qty_dscrp (integer arg_type, integer arg_ifdate, datetime arg_enddate, long arg_scid, long arg_orderid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref string arg_ref_dscrp, ref string arg_msg);//取相关数量

Int rslt = 1
Decimal ld_qty
String ls_mtrlcode,ls_ordercode
Int li_ordertype

SELECT mtrlcode,ordertype
	INTO :ls_mtrlcode,:li_ordertype
	FROM u_mtrldef
	Where mtrlid = :arg_mtrlid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询物料编码失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

CHOOSE CASE arg_type
	CASE 1 //采购未进仓数
		//		SELECT sum(u_buytaskmx.qty - u_buytaskmx.consignedqty)
		//			INTO :ld_qty
		//			FROM u_buytaskmx,u_buytask
		//			WHERE u_buytaskmx.scid = :arg_scid
		//			AND u_buytaskmx.mtrlid = :arg_mtrlid
		//			AND u_buytaskmx.status = :arg_status
		//			AND u_buytaskmx.woodcode = :arg_woodcode
		//			AND u_buytaskmx.pcode = :arg_pcode
		//			AND u_buytaskmx.scid = u_buytask.scid
		//			AND u_buytaskmx.taskid = u_buytask.taskid
		//			AND u_buytaskmx.stopflag = 0
		//			AND u_buytask.status = 1
		//			AND ( :arg_ifdate = 0 OR :arg_ifdate = 1 AND u_buytaskmx.requiredate <= :arg_enddate );
		//		IF sqlca.SQLCode = -1 THEN
		//			arg_msg = '查询物料:'+ls_mtrlcode+' 采购未进仓数失败,'+sqlca.SQLErrText
		//			rslt = 0
		//			GOTO ext
		//		END IF
	CASE 2 //生产未进仓数
		DECLARE cur_pqty_dscrp CURSOR FOR
			SELECT u_Order_ml.orderqty - u_Order_ml.acmpqty,
			u_Order_ml.ordercode
			FROM u_Order_ml
			WHERE u_Order_ml.mtrlid = :arg_mtrlid
			AND u_Order_ml.scid = :arg_scid
			AND u_Order_ml.status_mode = :arg_status
			AND u_Order_ml.woodcode = :arg_woodcode
			AND u_Order_ml.pcode = :arg_pcode
			AND u_Order_ml.status = 1
			AND u_Order_ml.orderid <> :arg_orderid
			AND ( :li_ordertype = 0 OR :li_ordertype = 1 AND u_Order_ml.ordertype = 4 )
			AND ( :arg_ifdate = 0 OR :arg_ifdate = 1 AND u_Order_ml.requiredate <= :arg_enddate )
			AND u_Order_ml.orderqty - u_Order_ml.acmpqty > 0;
		OPEN cur_pqty_dscrp;
		FETCH cur_pqty_dscrp INTO :ld_qty,:ls_ordercode;
		DO WHILE sqlca.SQLCode = 0
			arg_ref_dscrp += ls_ordercode + ':'+String(ld_qty,'#,0.##########') + '｜'
			FETCH cur_pqty_dscrp INTO :ld_qty,:ls_ordercode;
		LOOP
		CLOSE cur_pqty_dscrp;
		
		IF Len(arg_ref_dscrp) = 0 THEN
			arg_msg = '查询物料:'+ls_mtrlcode+' 指令未进仓数失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	CASE 3 //外协未进仓数
		//		SELECT sum(u_order_wfjgMx.qty - u_order_wfjgMx.consignedqty - u_order_wfjgMx.wasteqty)
		//			INTO :ld_qty
		//			FROM u_order_wfjgMx,u_order_wfjg
		//			WHERE u_order_wfjgMx.scid = :arg_scid
		//			AND u_order_wfjgMx.mtrlid = :arg_mtrlid
		//			AND u_order_wfjgMx.status = :arg_status
		//			AND u_order_wfjgMx.woodcode = :arg_woodcode
		//			AND u_order_wfjgMx.pcode = :arg_pcode
		//			AND u_order_wfjgMx.scid = u_order_wfjg.scid
		//			AND u_order_wfjgMx.wfjgID = u_order_wfjg.wfjgID
		//			AND u_order_wfjg.status = 1
		//			AND ( :arg_ifdate = 0 OR :arg_ifdate = 1 AND u_order_wfjgMx.requiredate <= :arg_enddate );
		//		IF sqlca.SQLCode = -1 THEN
		//			arg_msg = '查询物料:'+ls_mtrlcode+' 外协未进仓数失败,'+sqlca.SQLErrText
		//			rslt = 0
		//			GOTO ext
		//		END IF
	CASE 5 //生产计划未排指令当生产未进仓数
		//		SELECT isnull(sum(u_OrderRqMtrl.truerqqty - u_OrderRqMtrl.consignedqty),0)
		//			INTO :ld_qty
		//			FROM u_Order_ml,u_OrderRqMtrl
		//			WHERE u_Order_ml.scid = u_OrderRqMtrl.scid
		//			AND u_Order_ml.orderid = u_OrderRqMtrl.orderid
		//			AND u_OrderRqMtrl.mtrlid = :arg_mtrlid
		//			AND u_OrderRqMtrl.scid = :arg_scid
		//			AND u_OrderRqMtrl.status = :arg_status
		//			AND u_OrderRqMtrl.woodcode = :arg_woodcode
		//			AND u_OrderRqMtrl.pcode = :arg_pcode
		//			AND u_Order_ml.status = 1
		//			AND u_Order_ml.orderid <> :arg_orderid
		//			AND ( u_Order_ml.ordertype <> 4 )
		//			AND ( :arg_ifdate = 0 OR :arg_ifdate = 1 AND u_OrderRqMtrl.rqdate <= :arg_enddate );
		//		IF sqlca.SQLCode = -1 THEN
		//			arg_msg = '查询物料:'+ls_mtrlcode+' 生产计划未排指令当生产未进仓数失败,'+sqlca.SQLErrText
		//			rslt = 0
		//			GOTO ext
		//		END IF
END CHOOSE

IF Len(arg_ref_dscrp) > 0 THEN
	arg_ref_dscrp = Left(arg_ref_dscrp,Len(arg_ref_dscrp) - 1)
END IF

ext:

RETURN rslt














end function

private function integer uof_get_max_advancetime2 (long arg_mtrlid, string arg_status, ref decimal arg_ref_advancetime, ref string arg_msg);//取下级最大提前期(组合配置)

Int rslt = 1
Long cnt,i
s_mtrlcfg_expr s_mtrlcfg[]
Long ll_cnt_s_mtrlcfg
Decimal ld_advancetime

IF arg_status = '' THEN
	arg_msg = '计划产品设置为使用组合配置属性,但计划配置内容非法,请检查'
	rslt = 0
	GOTO ext
END IF

//分解配置
f_checkpz(arg_status,s_mtrlcfg)
//

ll_cnt_s_mtrlcfg = UpperBound(s_mtrlcfg)

IF ll_cnt_s_mtrlcfg = 0 THEN
	arg_msg = '产品分拆配置失败'
	rslt = 0
	GOTO ext
END IF

FOR i = 1 To ll_cnt_s_mtrlcfg
	SELECT count(*) INTO :cnt
		FROM u_prdpf
		WHERE mtrlid = :arg_mtrlid
		And pfcode = :s_mtrlcfg[i].cfgname;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询产品子件清单是否已设置下级用料失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF cnt = 0 THEN
		arg_ref_advancetime = 0
		//		rslt = 0
		//		arg_msg = '产品子件清单没有设置下级用料,请检查'
		//		GOTO ext
	ELSE		
		SELECT max(advancetime) INTO :ld_advancetime
			FROM u_prdpf
			WHERE mtrlid = :arg_mtrlid
			And pfcode = :s_mtrlcfg[i].cfgname;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '查询物料下级用料最大提前期失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	END IF
	IF ld_advancetime > arg_ref_advancetime THEN
		arg_ref_advancetime = ld_advancetime
	END IF
NEXT

ext:
RETURN rslt

end function

public function integer uof_cmpl_rqmtrl_fp (long arg_scid, long arg_orderid, integer arg_if_allowuse, integer arg_ifdate, datetime arg_enddate, s_order_ml_rqmtrl arg_s_mtrl, ref s_mtrlware_assign_plan arg_ref_s_assign_plan, ref string arg_msg);Int rslt = 1
Long ll_fp_array,ll_hz_array
s_order_ml_rqmtrl l_s_rqmtrl_hz
Long i,j,ll_f,k
Decimal ld_fpqty_need
Decimal ld_fpqty_m,ld_fpqty_b,ld_fpqty_p,ld_fpqty_w

Long ll_m,ll_b,ll_p,ll_w
datastore ds_plan_m,ds_plan_b,ds_plan_p,ds_plan_w

ds_plan_m = Create datastore
ds_plan_m.DataObject = 'ds_mtrlware_assign_plan_m'
ds_plan_m.SetTransObject(sqlca)

ds_plan_b = Create datastore
ds_plan_b.DataObject = 'ds_mtrlware_assign_plan_b'
ds_plan_b.SetTransObject(sqlca)

ds_plan_p = Create datastore
ds_plan_p.DataObject = 'ds_mtrlware_assign_plan_p'
ds_plan_p.SetTransObject(sqlca)

ds_plan_w = Create datastore
ds_plan_w.DataObject = 'ds_mtrlware_assign_plan_w'
ds_plan_w.SetTransObject(sqlca)

IF arg_if_allowuse = 0 THEN
	rslt = 1
	GOTO ext
END IF

FOR i = 1 To UpperBound(arg_s_mtrl.mtrlid)
	ll_f = 0
	
	//过滤
	IF arg_s_mtrl.iffp[i] = 0 THEN CONTINUE
	//只处理自制yyx20120824
	//	If ( arg_s_mtrl.ifselforder[i] > 0 And arg_s_mtrl.mtrlorigin[i] = 0 Or arg_s_mtrl.mtrlorigin[i] > 0 ) THEN
	If ( arg_s_mtrl.ifselforder[i] > 0 And arg_s_mtrl.mtrlorigin[i] = 0 ) THEN
		IF ifzl_mtrl_not_useqty Or ifwx_mtrl_not_useqty THEN
			IF arg_s_mtrl.mtrlorigin[i] = 0 THEN
				IF arg_s_mtrl.ifselforder[i] = 2 THEN
					IF ifzl_mtrl_not_useqty THEN
						CONTINUE
					END IF
				END IF
			ELSEIF arg_s_mtrl.mtrlorigin[i] = 3 THEN
				IF ifwx_mtrl_not_useqty THEN
					CONTINUE
				END IF
			END IF
		END IF
		
		
		IF arg_s_mtrl.otherrqqty[i] >= arg_s_mtrl.mqty[i] + arg_s_mtrl.bqty[i] + arg_s_mtrl.wqty[i] + arg_s_mtrl.pqty[i] + arg_s_mtrl.pqty2[i] THEN
			CONTINUE
		ELSE
			ll_f = 0
			FOR j = 1 To ll_hz_array
				IF arg_s_mtrl.mtrlid[i] = l_s_rqmtrl_hz.mtrlid[j] And &
					arg_s_mtrl.status[i] = l_s_rqmtrl_hz.status[j] And &
					arg_s_mtrl.woodcode[i] = l_s_rqmtrl_hz.woodcode[j] And &
					arg_s_mtrl.pcode[i] = l_s_rqmtrl_hz.pcode[j] THEN
					ll_f = j
					EXIT
				END IF
			NEXT
			
			IF ll_f = 0 THEN
				ll_hz_array++
				l_s_rqmtrl_hz.mtrlid[ll_hz_array] = arg_s_mtrl.mtrlid[i]
				l_s_rqmtrl_hz.status[ll_hz_array] = arg_s_mtrl.status[i]
				l_s_rqmtrl_hz.woodcode[ll_hz_array]  = arg_s_mtrl.woodcode[i]
				l_s_rqmtrl_hz.pcode[ll_hz_array] = arg_s_mtrl.pcode[i]
				l_s_rqmtrl_hz.mtrlorigin[ll_hz_array] = arg_s_mtrl.mtrlorigin[i]
				l_s_rqmtrl_hz.ifselforder[ll_hz_array] = arg_s_mtrl.ifselforder[i]
				
				l_s_rqmtrl_hz.qty[ll_hz_array] = arg_s_mtrl.qty[i]
				l_s_rqmtrl_hz.mqty[ll_hz_array] = arg_s_mtrl.mqty[i]
				l_s_rqmtrl_hz.bqty[ll_hz_array] = arg_s_mtrl.bqty[i]
				l_s_rqmtrl_hz.pqty[ll_hz_array] = arg_s_mtrl.pqty[i]
				l_s_rqmtrl_hz.pqty2[ll_hz_array] = arg_s_mtrl.pqty2[i]
				l_s_rqmtrl_hz.wqty[ll_hz_array] = arg_s_mtrl.wqty[i]
				l_s_rqmtrl_hz.otherrqqty[ll_hz_array] = arg_s_mtrl.otherrqqty[i]
			ELSE
				l_s_rqmtrl_hz.qty[ll_f] += arg_s_mtrl.qty[i]
			END IF
		END IF
	ELSE
		CONTINUE
	END IF
	//过滤完毕
NEXT


//计算分配类型
FOR k = 1 To ll_hz_array
	ld_fpqty_m = 0
	ld_fpqty_b = 0
	ld_fpqty_p = 0
	ld_fpqty_w = 0
	
	ld_fpqty_need = l_s_rqmtrl_hz.qty[k]
	
	IF l_s_rqmtrl_hz.mtrlorigin[k] = 0 THEN
		IF if_pqty_not_zl THEN
			IF l_s_rqmtrl_hz.pqty2[k] >= l_s_rqmtrl_hz.otherrqqty[k] THEN
				l_s_rqmtrl_hz.otherrqqty[k] = 0
			ELSE
				l_s_rqmtrl_hz.otherrqqty[k] = l_s_rqmtrl_hz.otherrqqty[k] - l_s_rqmtrl_hz.pqty2[k]
			END IF
		END IF
	END IF
	
	IF l_s_rqmtrl_hz.mqty[k] > l_s_rqmtrl_hz.otherrqqty[k] THEN
		IF l_s_rqmtrl_hz.mqty[k] - l_s_rqmtrl_hz.otherrqqty[k] >= ld_fpqty_need THEN
			ld_fpqty_m = ld_fpqty_need
			ld_fpqty_b = 0
			ld_fpqty_p = 0
			ld_fpqty_w = 0
		ELSE
			ld_fpqty_m = l_s_rqmtrl_hz.mqty[k] - l_s_rqmtrl_hz.otherrqqty[k]
			
			ld_fpqty_need = ld_fpqty_need - (l_s_rqmtrl_hz.mqty[k] - l_s_rqmtrl_hz.otherrqqty[k])
			
			IF l_s_rqmtrl_hz.bqty[k] > 0 And ld_fpqty_need > 0 THEN
				IF l_s_rqmtrl_hz.bqty[k] >= ld_fpqty_need THEN
					ld_fpqty_b = ld_fpqty_need
					ld_fpqty_p = 0
					ld_fpqty_w = 0
				ELSE
					ld_fpqty_b = l_s_rqmtrl_hz.bqty[k]
					ld_fpqty_need = ld_fpqty_need - l_s_rqmtrl_hz.bqty[k]
				END IF
			END IF
			
			IF l_s_rqmtrl_hz.pqty[k] > 0 And ld_fpqty_need > 0 THEN
				IF l_s_rqmtrl_hz.pqty[k] >= ld_fpqty_need THEN
					ld_fpqty_p = ld_fpqty_need
					ld_fpqty_w = 0
				ELSE
					ld_fpqty_p = l_s_rqmtrl_hz.pqty[k]
					ld_fpqty_need = ld_fpqty_need - l_s_rqmtrl_hz.pqty[k]
				END IF
			END IF
			
			IF l_s_rqmtrl_hz.wqty[k] > 0 And ld_fpqty_need > 0 THEN
				IF l_s_rqmtrl_hz.wqty[k] >= ld_fpqty_need THEN
					ld_fpqty_w = ld_fpqty_need
				ELSE
					ld_fpqty_w = l_s_rqmtrl_hz.wqty[k]
					ld_fpqty_need = ld_fpqty_need - l_s_rqmtrl_hz.wqty[k]
				END IF
			END IF
		END IF
	ELSEIF l_s_rqmtrl_hz.mqty[k] + l_s_rqmtrl_hz.bqty[k] > l_s_rqmtrl_hz.otherrqqty[k] THEN
		
		ld_fpqty_m = 0
		IF l_s_rqmtrl_hz.mqty[k] + l_s_rqmtrl_hz.bqty[k] - l_s_rqmtrl_hz.otherrqqty[k] >= ld_fpqty_need THEN
			ld_fpqty_b = ld_fpqty_need
			ld_fpqty_p = 0
			ld_fpqty_w = 0
		ELSE
			ld_fpqty_b = l_s_rqmtrl_hz.mqty[k] + l_s_rqmtrl_hz.bqty[k] - l_s_rqmtrl_hz.otherrqqty[k]
			ld_fpqty_need = ld_fpqty_need - (l_s_rqmtrl_hz.mqty[k] + l_s_rqmtrl_hz.bqty[k] - l_s_rqmtrl_hz.otherrqqty[k])
			
			IF l_s_rqmtrl_hz.pqty[k] > 0 And ld_fpqty_need > 0 THEN
				IF l_s_rqmtrl_hz.pqty[k] >= ld_fpqty_need THEN
					ld_fpqty_p = ld_fpqty_need
					ld_fpqty_w = 0
				ELSE
					ld_fpqty_p = l_s_rqmtrl_hz.pqty[k]
					ld_fpqty_need = ld_fpqty_need - l_s_rqmtrl_hz.pqty[k]
				END IF
			END IF
			
			IF l_s_rqmtrl_hz.wqty[k] > 0 And ld_fpqty_need > 0 THEN
				IF l_s_rqmtrl_hz.wqty[k] >= ld_fpqty_need THEN
					ld_fpqty_w = ld_fpqty_need
				ELSE
					ld_fpqty_w = l_s_rqmtrl_hz.wqty[k]
					ld_fpqty_need = ld_fpqty_need - l_s_rqmtrl_hz.wqty[k]
				END IF
			END IF
		END IF
	ELSEIF l_s_rqmtrl_hz.mqty[k] + l_s_rqmtrl_hz.bqty[k] + l_s_rqmtrl_hz.pqty[k] >= l_s_rqmtrl_hz.otherrqqty[k] THEN
		ld_fpqty_m = 0
		ld_fpqty_b = 0
		IF l_s_rqmtrl_hz.mqty[k] + l_s_rqmtrl_hz.bqty[k] + l_s_rqmtrl_hz.pqty[k] - l_s_rqmtrl_hz.otherrqqty[k] >= ld_fpqty_need THEN
			ld_fpqty_p = ld_fpqty_need
			ld_fpqty_w = 0
		ELSE
			ld_fpqty_p = l_s_rqmtrl_hz.mqty[k] + l_s_rqmtrl_hz.bqty[k] + l_s_rqmtrl_hz.pqty[k] - l_s_rqmtrl_hz.otherrqqty[k]
			ld_fpqty_need = ld_fpqty_need - (l_s_rqmtrl_hz.mqty[k] + l_s_rqmtrl_hz.bqty[k] + l_s_rqmtrl_hz.pqty[k] - l_s_rqmtrl_hz.otherrqqty[k])
			
			IF l_s_rqmtrl_hz.wqty[k] > 0 And ld_fpqty_need > 0 THEN
				IF l_s_rqmtrl_hz.wqty[k] >= ld_fpqty_need THEN
					ld_fpqty_w = ld_fpqty_need
				ELSE
					ld_fpqty_w = l_s_rqmtrl_hz.wqty[k]
					ld_fpqty_need = ld_fpqty_need - l_s_rqmtrl_hz.wqty[k]
				END IF
			END IF
		END IF
	ELSEIF l_s_rqmtrl_hz.mqty[k] + l_s_rqmtrl_hz.bqty[k] + l_s_rqmtrl_hz.pqty[k] + l_s_rqmtrl_hz.wqty[k] >= l_s_rqmtrl_hz.otherrqqty[k] THEN
		ld_fpqty_m = 0
		ld_fpqty_b = 0
		ld_fpqty_p = 0
		IF l_s_rqmtrl_hz.mqty[k] + l_s_rqmtrl_hz.bqty[k] + l_s_rqmtrl_hz.pqty[k] + l_s_rqmtrl_hz.wqty[k] - l_s_rqmtrl_hz.otherrqqty[k] >= ld_fpqty_need THEN
			ld_fpqty_w = ld_fpqty_need
		ELSE
			ld_fpqty_w = l_s_rqmtrl_hz.mqty[k] + l_s_rqmtrl_hz.bqty[k] + l_s_rqmtrl_hz.pqty[k] + l_s_rqmtrl_hz.wqty[k] - l_s_rqmtrl_hz.otherrqqty[k]
			ld_fpqty_need = ld_fpqty_need - (l_s_rqmtrl_hz.mqty[k] + l_s_rqmtrl_hz.bqty[k] + l_s_rqmtrl_hz.pqty[k] + l_s_rqmtrl_hz.wqty[k] - l_s_rqmtrl_hz.otherrqqty[k])
		END IF
	END IF
	
	//库存分配
	
	IF ld_fpqty_m > 0 THEN
		ds_plan_m.Retrieve(arg_scid,l_s_rqmtrl_hz.mtrlid[k],l_s_rqmtrl_hz.status[k],l_s_rqmtrl_hz.woodcode[k],l_s_rqmtrl_hz.pcode[k])
		ds_plan_m.AcceptText()
		FOR ll_m = 1 To ds_plan_m.RowCount()
			IF ld_fpqty_m = 0 THEN EXIT
			IF ld_fpqty_m <= ds_plan_m.Object.notfpqty[ll_m] THEN
				ll_fp_array++
				arg_ref_s_assign_plan.planid[ll_fp_array] = 0
				arg_ref_s_assign_plan.assigntype[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plantype[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plankind[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plankind_relbillid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plankind_relprintid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Scid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Mtrlwareid[ll_fp_array] = ds_plan_m.Object.u_mtrlware_mtrlwareid[ll_m]
				arg_ref_s_assign_plan.Relbillid[ll_fp_array] = arg_orderid
				arg_ref_s_assign_plan.Relprintid[ll_fp_array] = 0
				arg_ref_s_assign_plan.planassignqty[ll_fp_array] = ld_fpqty_m
				
				arg_ref_s_assign_plan.mtrlid[ll_fp_array] = l_s_rqmtrl_hz.mtrlid[k]
				arg_ref_s_assign_plan.status[ll_fp_array] = l_s_rqmtrl_hz.status[k]
				arg_ref_s_assign_plan.woodcode[ll_fp_array] = l_s_rqmtrl_hz.woodcode[k]
				arg_ref_s_assign_plan.pcode[ll_fp_array] = l_s_rqmtrl_hz.pcode[k]
				
				ld_fpqty_m = 0
			ELSE
				ll_fp_array++
				arg_ref_s_assign_plan.planid[ll_fp_array] = 0
				arg_ref_s_assign_plan.assigntype[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plantype[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plankind[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plankind_relbillid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plankind_relprintid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Scid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Mtrlwareid[ll_fp_array] = ds_plan_m.Object.u_mtrlware_mtrlwareid[ll_m]
				arg_ref_s_assign_plan.Relbillid[ll_fp_array] = arg_orderid
				arg_ref_s_assign_plan.Relprintid[ll_fp_array] = 0
				arg_ref_s_assign_plan.planassignqty[ll_fp_array] = ds_plan_m.Object.notfpqty[ll_m]
				
				ld_fpqty_m = ld_fpqty_m - ds_plan_m.Object.notfpqty[ll_m]
				
				arg_ref_s_assign_plan.mtrlid[ll_fp_array] = l_s_rqmtrl_hz.mtrlid[k]
				arg_ref_s_assign_plan.status[ll_fp_array] = l_s_rqmtrl_hz.status[k]
				arg_ref_s_assign_plan.woodcode[ll_fp_array] = l_s_rqmtrl_hz.woodcode[k]
				arg_ref_s_assign_plan.pcode[ll_fp_array] = l_s_rqmtrl_hz.pcode[k]
			END IF
		NEXT
		
		IF ld_fpqty_m > 0 THEN
			arg_msg = '库存分配数错误,运'
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	//采购订单分配
	IF ld_fpqty_b > 0 THEN
		ds_plan_b.Retrieve(arg_scid,l_s_rqmtrl_hz.mtrlid[k],l_s_rqmtrl_hz.status[k],l_s_rqmtrl_hz.woodcode[k],l_s_rqmtrl_hz.pcode[k],arg_ifdate,arg_enddate)
		ds_plan_b.AcceptText()
		
		FOR ll_b = 1 To ds_plan_b.RowCount()
			IF ld_fpqty_b = 0 THEN EXIT
			IF ld_fpqty_b <= ds_plan_b.Object.notfpqty[ll_b] THEN
				ll_fp_array++
				arg_ref_s_assign_plan.planid[ll_fp_array] = 0
				arg_ref_s_assign_plan.assigntype[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plantype[ll_fp_array] = 1
				arg_ref_s_assign_plan.Plankind[ll_fp_array] = 2
				arg_ref_s_assign_plan.Plankind_relbillid[ll_fp_array] = ds_plan_b.Object.u_buytaskmx_taskid[ll_b]
				arg_ref_s_assign_plan.Plankind_relprintid[ll_fp_array] = ds_plan_b.Object.u_buytaskmx_printid[ll_b]
				arg_ref_s_assign_plan.Scid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Mtrlwareid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Relbillid[ll_fp_array] = arg_orderid
				arg_ref_s_assign_plan.Relprintid[ll_fp_array] = 0
				arg_ref_s_assign_plan.planassignqty[ll_fp_array] = ld_fpqty_b
				
				arg_ref_s_assign_plan.mtrlid[ll_fp_array] = l_s_rqmtrl_hz.mtrlid[k]
				arg_ref_s_assign_plan.status[ll_fp_array] = l_s_rqmtrl_hz.status[k]
				arg_ref_s_assign_plan.woodcode[ll_fp_array] = l_s_rqmtrl_hz.woodcode[k]
				arg_ref_s_assign_plan.pcode[ll_fp_array] = l_s_rqmtrl_hz.pcode[k]
				
				ld_fpqty_b = 0
			ELSE
				ll_fp_array++
				arg_ref_s_assign_plan.planid[ll_fp_array] = 0
				arg_ref_s_assign_plan.assigntype[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plantype[ll_fp_array] = 1
				arg_ref_s_assign_plan.Plankind[ll_fp_array] = 2
				arg_ref_s_assign_plan.Plankind_relbillid[ll_fp_array] = ds_plan_b.Object.u_buytaskmx_taskid[ll_b]
				arg_ref_s_assign_plan.Plankind_relprintid[ll_fp_array] = ds_plan_b.Object.u_buytaskmx_printid[ll_b]
				arg_ref_s_assign_plan.Scid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Mtrlwareid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Relbillid[ll_fp_array] = arg_orderid
				arg_ref_s_assign_plan.Relprintid[ll_fp_array] = 0
				arg_ref_s_assign_plan.planassignqty[ll_fp_array] = ds_plan_b.Object.notfpqty[ll_b]
				
				ld_fpqty_b = ld_fpqty_b - ds_plan_b.Object.notfpqty[ll_b]
				
				arg_ref_s_assign_plan.mtrlid[ll_fp_array] = l_s_rqmtrl_hz.mtrlid[k]
				arg_ref_s_assign_plan.status[ll_fp_array] = l_s_rqmtrl_hz.status[k]
				arg_ref_s_assign_plan.woodcode[ll_fp_array] = l_s_rqmtrl_hz.woodcode[k]
				arg_ref_s_assign_plan.pcode[ll_fp_array] = l_s_rqmtrl_hz.pcode[k]
			END IF
		NEXT
		
		IF ld_fpqty_b > 0 THEN
			arg_msg = '采购分配计划数错误'
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	//指令单分配
	IF ld_fpqty_p > 0 THEN
		ds_plan_p.Retrieve(arg_scid,l_s_rqmtrl_hz.mtrlid[k],l_s_rqmtrl_hz.status[k],l_s_rqmtrl_hz.woodcode[k],l_s_rqmtrl_hz.pcode[k],arg_ifdate,arg_enddate)
		ds_plan_p.AcceptText()
		FOR ll_p = 1 To ds_plan_p.RowCount()
			IF ld_fpqty_p = 0 THEN EXIT
			IF ld_fpqty_p <= ds_plan_p.Object.notfpqty[ll_p] THEN
				ll_fp_array++
				arg_ref_s_assign_plan.planid[ll_fp_array] = 0
				arg_ref_s_assign_plan.assigntype[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plantype[ll_fp_array] = 1
				arg_ref_s_assign_plan.Plankind[ll_fp_array] = 1
				arg_ref_s_assign_plan.Plankind_relbillid[ll_fp_array] = ds_plan_p.Object.u_order_ml_orderid[ll_p]
				arg_ref_s_assign_plan.Plankind_relprintid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Scid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Mtrlwareid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Relbillid[ll_fp_array] = arg_orderid
				arg_ref_s_assign_plan.Relprintid[ll_fp_array] = 0
				arg_ref_s_assign_plan.planassignqty[ll_fp_array] = ld_fpqty_p
				
				arg_ref_s_assign_plan.mtrlid[ll_fp_array] = l_s_rqmtrl_hz.mtrlid[k]
				arg_ref_s_assign_plan.status[ll_fp_array] = l_s_rqmtrl_hz.status[k]
				arg_ref_s_assign_plan.woodcode[ll_fp_array] = l_s_rqmtrl_hz.woodcode[k]
				arg_ref_s_assign_plan.pcode[ll_fp_array] = l_s_rqmtrl_hz.pcode[k]
				
				
				ld_fpqty_p = 0
			ELSE
				ll_fp_array++
				arg_ref_s_assign_plan.planid[ll_fp_array] = 0
				arg_ref_s_assign_plan.assigntype[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plantype[ll_fp_array] = 1
				arg_ref_s_assign_plan.Plankind[ll_fp_array] = 1
				arg_ref_s_assign_plan.Plankind_relbillid[ll_fp_array] = ds_plan_p.Object.u_order_ml_orderid[ll_p]
				arg_ref_s_assign_plan.Plankind_relprintid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Scid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Mtrlwareid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Relbillid[ll_fp_array] = arg_orderid
				arg_ref_s_assign_plan.Relprintid[ll_fp_array] = 0
				arg_ref_s_assign_plan.planassignqty[ll_fp_array] = ds_plan_p.Object.notfpqty[ll_p]
				
				ld_fpqty_p = ld_fpqty_p - ds_plan_p.Object.notfpqty[ll_p]
				
				arg_ref_s_assign_plan.mtrlid[ll_fp_array] = l_s_rqmtrl_hz.mtrlid[k]
				arg_ref_s_assign_plan.status[ll_fp_array] = l_s_rqmtrl_hz.status[k]
				arg_ref_s_assign_plan.woodcode[ll_fp_array] = l_s_rqmtrl_hz.woodcode[k]
				arg_ref_s_assign_plan.pcode[ll_fp_array] = l_s_rqmtrl_hz.pcode[k]
			END IF
		NEXT
		
		IF ld_fpqty_p > 0 THEN
			arg_msg = '指令分配计划数错误'
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	//外协单分配
	IF ld_fpqty_w > 0 THEN
		ds_plan_w.Retrieve(arg_scid,l_s_rqmtrl_hz.mtrlid[k],l_s_rqmtrl_hz.status[k],l_s_rqmtrl_hz.woodcode[k],l_s_rqmtrl_hz.pcode[k],arg_ifdate,arg_enddate)
		ds_plan_w.AcceptText()
		FOR ll_w = 1 To ds_plan_w.RowCount()
			IF ld_fpqty_w = 0 THEN EXIT
			IF ld_fpqty_w <= ds_plan_w.Object.notfpqty[ll_w] THEN
				ll_fp_array++
				arg_ref_s_assign_plan.planid[ll_fp_array] = 0
				arg_ref_s_assign_plan.assigntype[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plantype[ll_fp_array] = 1
				arg_ref_s_assign_plan.Plankind[ll_fp_array] = 3
				arg_ref_s_assign_plan.Plankind_relbillid[ll_fp_array] = ds_plan_w.Object.u_order_wfjgmx_orderid[ll_w]
				arg_ref_s_assign_plan.Plankind_relprintid[ll_fp_array] = ds_plan_w.Object.u_order_wfjgmx_printid[ll_w]
				arg_ref_s_assign_plan.Scid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Mtrlwareid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Relbillid[ll_fp_array] = arg_orderid
				arg_ref_s_assign_plan.Relprintid[ll_fp_array] = 0
				arg_ref_s_assign_plan.planassignqty[ll_fp_array] = ld_fpqty_w
				
				arg_ref_s_assign_plan.mtrlid[ll_fp_array] = l_s_rqmtrl_hz.mtrlid[k]
				arg_ref_s_assign_plan.status[ll_fp_array] = l_s_rqmtrl_hz.status[k]
				arg_ref_s_assign_plan.woodcode[ll_fp_array] = l_s_rqmtrl_hz.woodcode[k]
				arg_ref_s_assign_plan.pcode[ll_fp_array] = l_s_rqmtrl_hz.pcode[k]
				
				ld_fpqty_w = 0
			ELSE
				ll_fp_array++
				arg_ref_s_assign_plan.planid[ll_fp_array] = 0
				arg_ref_s_assign_plan.assigntype[ll_fp_array] = 0
				arg_ref_s_assign_plan.Plantype[ll_fp_array] = 1
				arg_ref_s_assign_plan.Plankind[ll_fp_array] = 3
				arg_ref_s_assign_plan.Plankind_relbillid[ll_fp_array] = ds_plan_w.Object.u_order_wfjgmx_orderid[ll_w]
				arg_ref_s_assign_plan.Plankind_relprintid[ll_fp_array] = ds_plan_w.Object.u_order_wfjgmx_printid[ll_w]
				arg_ref_s_assign_plan.Scid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Mtrlwareid[ll_fp_array] = 0
				arg_ref_s_assign_plan.Relbillid[ll_fp_array] = arg_orderid
				arg_ref_s_assign_plan.Relprintid[ll_fp_array] = 0
				arg_ref_s_assign_plan.planassignqty[ll_fp_array] = ds_plan_w.Object.notfpqty[ll_w]
				
				ld_fpqty_w = ld_fpqty_w - ds_plan_w.Object.notfpqty[ll_w]
				
				arg_ref_s_assign_plan.mtrlid[ll_fp_array] = l_s_rqmtrl_hz.mtrlid[k]
				arg_ref_s_assign_plan.status[ll_fp_array] = l_s_rqmtrl_hz.status[k]
				arg_ref_s_assign_plan.woodcode[ll_fp_array] = l_s_rqmtrl_hz.woodcode[k]
				arg_ref_s_assign_plan.pcode[ll_fp_array] = l_s_rqmtrl_hz.pcode[k]
			END IF
		NEXT
		
		IF ld_fpqty_w > 0 THEN
			arg_msg = '外协分配计划数错误'
			rslt = 0
			GOTO ext
		END IF
	END IF
NEXT

ext:

Destroy ds_plan_m
Destroy ds_plan_b
Destroy ds_plan_p
Destroy ds_plan_w

RETURN rslt





end function

public function integer uof_cmpl_rqmtrl_dy (integer arg_ifdate, ref s_order_ml_rqmtrl arg_s_mtrl, ref string arg_msg);Int rslt = 1
Long i,ch,l,arr_mxt,j,ll_dycnt,dy_arr_mxt
Long ll_begin_i
Decimal ld_pcmplqty,ld_cmplqty,ld_rate,ld_cqty,ld_cmplqty_old
Decimal ld_dyqty
Decimal ld_mqty
Decimal ld_bqty
Decimal ld_wqty
Decimal ld_pqty
Decimal ld_otherrqqty,ld_samerqqty

s_prdpf_replace arg_pf_dy,arg_pf_dy_t,arg_pf_dy_tmp

FOR i = 1 TO UpperBound(arg_s_mtrl.mtrlid)
	IF arg_s_mtrl.dytype[i] > 0 THEN
		ch++
	END IF
NEXT

IF ch = 0 THEN
	rslt = 1
	GOTO ext
END IF

ll_begin_i = 1

re_for:

FOR i = ll_begin_i TO UpperBound(arg_s_mtrl.mtrlid)
	
	arg_pf_dy = arg_pf_dy_tmp
	arg_pf_dy_t = arg_pf_dy_tmp
	ll_dycnt = 0
	dy_arr_mxt = 0
	
	IF arg_s_mtrl.dytype[i] = 0 THEN CONTINUE
	IF NOT arg_s_mtrl.cmplqty[i] > 0 THEN CONTINUE
	
	ld_pcmplqty = arg_s_mtrl.pcmplqty[i]
	
	IF uof_get_prdpf_replace(arg_s_mtrl.pmtrlid[i],&
		arg_s_mtrl.ppfcode[i],&
		arg_s_mtrl.pfgroup[i],&
		arg_s_mtrl.mtrlid[i],&
		arg_s_mtrl.wrkgrpid_scll[i],&
		arg_s_mtrl.pfcode[i],&
		arg_pf_dy,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	IF arg_s_mtrl.dytype[i] = 1 THEN
		
		ld_cqty = 0
		ld_cqty = arg_s_mtrl.cmplqty[i]
		
		FOR l = 1 TO UpperBound(arg_pf_dy.dymtrlid)
			
			ld_mqty = 0
			ld_bqty = 0
			ld_wqty = 0
			ld_pqty = 0
			ld_otherrqqty = 0
			ld_samerqqty = 0
			ld_dyqty = 0
			
			IF ld_cqty = 0 THEN EXIT
			IF arg_pf_dy.SonLoss[l] = 1 THEN CONTINUE
			
			
			ld_cmplqty = 0
			ld_cmplqty = Round(ld_pcmplqty * arg_pf_dy.Sonscale[l]/(1 - arg_pf_dy.SonLoss[l]),uo_option_produce_dec)
			ld_rate = Round(ld_cmplqty/arg_s_mtrl.qty[i],2)
			
			ld_cqty = ld_cqty * ld_rate
			
			IF uof_get_qty(1,arg_ifdate,arg_s_mtrl.edate[i],arg_s_mtrl.scid[i],&
				arg_s_mtrl.orderid[i],arg_pf_dy.dymtrlid[l],&
				arg_pf_dy.status[l],arg_pf_dy.woodcode[l],&
				arg_pf_dy.pcode[l],ld_bqty,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			IF uof_get_qty(2,arg_ifdate,arg_s_mtrl.edate[i],arg_s_mtrl.scid[i],&
				arg_s_mtrl.orderid[i],arg_pf_dy.dymtrlid[l],&
				arg_pf_dy.status[l],arg_pf_dy.woodcode[l],&
				arg_pf_dy.pcode[l],ld_pqty,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			IF uof_get_qty(3,arg_ifdate,arg_s_mtrl.edate[i],arg_s_mtrl.scid[i],&
				arg_s_mtrl.orderid[i],arg_pf_dy.dymtrlid[l],&
				arg_pf_dy.status[l],arg_pf_dy.woodcode[l],&
				arg_pf_dy.pcode[l],ld_wqty,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			IF uof_get_qty(4,arg_ifdate,arg_s_mtrl.edate[i],arg_s_mtrl.scid[i],&
				arg_s_mtrl.orderid[i],arg_pf_dy.dymtrlid[l],&
				arg_pf_dy.status[l],arg_pf_dy.woodcode[l],&
				arg_pf_dy.pcode[l],ld_mqty,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			IF uof_get_other_rqqty(arg_s_mtrl.scid[i],arg_s_mtrl.orderid[i],&
				arg_pf_dy.dymtrlid[l],arg_s_mtrl.mtrlorigin[i],arg_pf_dy.status[l],&
				arg_pf_dy.woodcode[l],arg_pf_dy.pcode[l],ld_otherrqqty,&
				arg_ifdate,arg_s_mtrl.edate[i],arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			arr_mxt = UpperBound(arg_s_mtrl.mtrlid)
			
			IF arr_mxt = 0 THEN
				ld_samerqqty = 0
			ELSE
				FOR j = 1 TO arr_mxt
					IF arg_s_mtrl.scid[j] = arg_s_mtrl.scid[i] AND &
						arg_s_mtrl.orderid[j] = arg_s_mtrl.orderid[i] AND &
						arg_s_mtrl.mtrlid[j] = arg_pf_dy.dymtrlid[l] AND &
						arg_s_mtrl.sdate[j] = arg_s_mtrl.sdate[i] AND &
						arg_s_mtrl.edate[j] = arg_s_mtrl.edate[i] AND &
						arg_s_mtrl.status[j] = arg_pf_dy.status[l] AND &
						arg_s_mtrl.woodcode[j] = arg_pf_dy.woodcode[l] AND &
						arg_s_mtrl.pcode[j] = arg_pf_dy.pcode[l] AND &
						arg_s_mtrl.wrkgrpid_scll[j] = arg_s_mtrl.wrkgrpid_scll[i] THEN
						ld_samerqqty = ld_samerqqty + arg_s_mtrl.qty[j]
					END IF
				NEXT
			END IF
			
			IF ( ld_samerqqty + ld_otherrqqty ) >= ( ld_mqty + ld_bqty + ld_wqty + ld_pqty ) THEN
				CONTINUE
			END IF
			
			IF ld_cqty > ld_mqty + ld_bqty + ld_wqty + ld_pqty - ( ld_samerqqty + ld_otherrqqty ) THEN
				ld_dyqty = ld_mqty + ld_bqty + ld_wqty + ld_pqty - ( ld_samerqqty + ld_otherrqqty )
				ld_cqty = ld_cqty - ( ld_mqty + ld_bqty + ld_wqty + ld_pqty - ( ld_samerqqty + ld_otherrqqty ) )
				ld_cqty = Round(ld_cqty/ld_rate,2)
			ELSE
				ld_dyqty = ld_cqty
				ld_cqty = 0
			END IF
						
			dy_arr_mxt++
			arg_pf_dy_t.dymtrlid[dy_arr_mxt] = arg_pf_dy.dymtrlid[l]
			arg_pf_dy_t.Sonscale[dy_arr_mxt] = arg_pf_dy.Sonscale[l]
			arg_pf_dy_t.SonLoss[dy_arr_mxt] = arg_pf_dy.SonLoss[l]
			arg_pf_dy_t.scllloss[dy_arr_mxt] = arg_pf_dy.scllloss[l]
			arg_pf_dy_t.dscrp[dy_arr_mxt] = arg_pf_dy.dscrp[l]
			arg_pf_dy_t.status[dy_arr_mxt] = arg_pf_dy.status[l]
			arg_pf_dy_t.woodcode[dy_arr_mxt] = arg_pf_dy.woodcode[l]
			arg_pf_dy_t.pcode[dy_arr_mxt] = arg_pf_dy.pcode[l]
			arg_pf_dy_t.mtrlcode[dy_arr_mxt] = arg_pf_dy.mtrlcode[l]
			arg_pf_dy_t.mtrlname[dy_arr_mxt] = arg_pf_dy.mtrlname[l]
			arg_pf_dy_t.mtrlmode[dy_arr_mxt] = arg_pf_dy.mtrlmode[l]
			arg_pf_dy_t.unit[dy_arr_mxt] = arg_pf_dy.unit[l]
			arg_pf_dy_t.mtrlorigin[dy_arr_mxt] = arg_pf_dy.mtrlorigin[l]
			arg_pf_dy_t.mtrltype[dy_arr_mxt] = arg_pf_dy.mtrltype[l]
			arg_pf_dy_t.mtrlprp[dy_arr_mxt] = arg_pf_dy.mtrlprp[l]
			arg_pf_dy_t.ifselforder[dy_arr_mxt] = arg_pf_dy.ifselforder[l]
			arg_pf_dy_t.ifpack[dy_arr_mxt] = arg_pf_dy.ifpack[l]
			arg_pf_dy_t.ifpackpro[dy_arr_mxt] = arg_pf_dy.ifpackpro[l]
			arg_pf_dy_t.produce_scid[dy_arr_mxt] = arg_pf_dy.produce_scid[l]
			arg_pf_dy_t.produce_wrkgrpid[dy_arr_mxt] = arg_pf_dy.produce_wrkgrpid[l]
			arg_pf_dy_t.ordertype[dy_arr_mxt] = arg_pf_dy.ordertype[l]
			arg_pf_dy_t.ifpackpz[dy_arr_mxt] = arg_pf_dy.ifpackpz[l]
			
			arg_pf_dy_t.dyqty[dy_arr_mxt] = ld_dyqty
			arg_pf_dy_t.mqty[dy_arr_mxt] = ld_mqty
			arg_pf_dy_t.bqty[dy_arr_mxt] = ld_bqty
			arg_pf_dy_t.wqty[dy_arr_mxt] = ld_wqty
			arg_pf_dy_t.pqty[dy_arr_mxt] = ld_pqty
			arg_pf_dy_t.otherrqqty[dy_arr_mxt] = ld_otherrqqty
			arg_pf_dy_t.samerqqty[dy_arr_mxt] = ld_samerqqty
		NEXT
		
		ll_dycnt = UpperBound(arg_pf_dy_t.dymtrlid)
		
		//代用
		IF ll_dycnt > 0 and ld_cqty = 0 THEN			
			IF arg_s_mtrl.qty[i] > arg_s_mtrl.cmplqty[i] THEN
				uof_cmpl_rqmtrl_dy_mx(i,1,arg_s_mtrl,arg_pf_dy_t)
				ll_begin_i = i + ll_dycnt
			ELSEIF arg_s_mtrl.qty[i] = arg_s_mtrl.cmplqty[i] THEN
				uof_cmpl_rqmtrl_dy_mx(i,0,arg_s_mtrl,arg_pf_dy_t)
				ll_begin_i = i + ll_dycnt - 1
			END IF
			ll_begin_i = ll_begin_i + 1
			GOTO re_for
		END IF
	ELSEIF arg_s_mtrl.dytype[i] = 2 THEN
		FOR l = 1 TO UpperBound(arg_pf_dy.dymtrlid)
			
			IF arg_pf_dy.SonLoss[l] = 1 THEN CONTINUE
			
			ld_cmplqty = 0
			ld_cmplqty = Round(ld_pcmplqty * arg_pf_dy.Sonscale[l]/(1 - arg_pf_dy.SonLoss[l]),uo_option_produce_dec)
			
			IF uof_get_qty(1,arg_ifdate,arg_s_mtrl.edate[i],arg_s_mtrl.scid[i],&
				arg_s_mtrl.orderid[i],arg_pf_dy.dymtrlid[l],&
				arg_pf_dy.status[l],arg_pf_dy.woodcode[l],&
				arg_pf_dy.pcode[l],ld_bqty,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			IF uof_get_qty(2,arg_ifdate,arg_s_mtrl.edate[i],arg_s_mtrl.scid[i],&
				arg_s_mtrl.orderid[i],arg_pf_dy.dymtrlid[l],&
				arg_pf_dy.status[l],arg_pf_dy.woodcode[l],&
				arg_pf_dy.pcode[l],ld_pqty,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			IF uof_get_qty(3,arg_ifdate,arg_s_mtrl.edate[i],arg_s_mtrl.scid[i],&
				arg_s_mtrl.orderid[i],arg_pf_dy.dymtrlid[l],&
				arg_pf_dy.status[l],arg_pf_dy.woodcode[l],&
				arg_pf_dy.pcode[l],ld_wqty,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			IF uof_get_qty(4,arg_ifdate,arg_s_mtrl.edate[i],arg_s_mtrl.scid[i],&
				arg_s_mtrl.orderid[i],arg_pf_dy.dymtrlid[l],&
				arg_pf_dy.status[l],arg_pf_dy.woodcode[l],&
				arg_pf_dy.pcode[l],ld_mqty,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			IF uof_get_other_rqqty(arg_s_mtrl.scid[i],arg_s_mtrl.orderid[i],&
				arg_pf_dy.dymtrlid[l],arg_s_mtrl.mtrlorigin[i],arg_pf_dy.status[l],&
				arg_pf_dy.woodcode[l],arg_pf_dy.pcode[l],ld_otherrqqty,&
				arg_ifdate,arg_s_mtrl.edate[i],arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			arr_mxt = UpperBound(arg_s_mtrl.mtrlid)
			
			IF arr_mxt = 0 THEN
				ld_samerqqty = 0
			ELSE
				FOR j = 1 TO arr_mxt
					IF arg_s_mtrl.scid[j] = arg_s_mtrl.scid[i] AND &
						arg_s_mtrl.orderid[j] = arg_s_mtrl.orderid[i] AND &
						arg_s_mtrl.mtrlid[j] = arg_pf_dy.dymtrlid[l] AND &
						arg_s_mtrl.sdate[j] = arg_s_mtrl.sdate[i] AND &
						arg_s_mtrl.edate[j] = arg_s_mtrl.edate[i] AND &
						arg_s_mtrl.status[j] = arg_pf_dy.status[l] AND &
						arg_s_mtrl.woodcode[j] = arg_pf_dy.woodcode[l] AND &
						arg_s_mtrl.pcode[j] = arg_pf_dy.pcode[l] AND &
						arg_s_mtrl.wrkgrpid_scll[j] = arg_s_mtrl.wrkgrpid_scll[i] THEN
						ld_samerqqty = ld_samerqqty + arg_s_mtrl.qty[j]
					END IF
				NEXT
			END IF
			
			IF ld_cmplqty < ld_mqty + ld_bqty + ld_wqty + ld_pqty - ld_otherrqqty - ld_samerqqty THEN
				
				arg_s_mtrl.mtrlid[i] = arg_pf_dy.dymtrlid[l]
				arg_s_mtrl.status[i] = arg_pf_dy.status[l]
				arg_s_mtrl.woodcode[i] = arg_pf_dy.woodcode[l]
				arg_s_mtrl.pcode[i] = arg_pf_dy.pcode[l]
								
				arg_s_mtrl.mtrlcode[i] = arg_pf_dy.mtrlcode[l]
				arg_s_mtrl.mtrlname[i] = arg_pf_dy.mtrlname[l]
				arg_s_mtrl.mtrlmode[i] = arg_pf_dy.mtrlmode[l]
				arg_s_mtrl.unit[i] = arg_pf_dy.unit[l]
				arg_s_mtrl.mtrlorigin[i] = arg_pf_dy.mtrlorigin[l]
				arg_s_mtrl.mtrltype[i] = arg_pf_dy.mtrltype[l]
				arg_s_mtrl.mtrlprp[i] = arg_pf_dy.mtrlprp[l]
				arg_s_mtrl.ifselforder[i] = arg_pf_dy.ifselforder[l]
				arg_s_mtrl.ifpack[i] = arg_pf_dy.ifpack[l]
				arg_s_mtrl.ifpackpro[i] = arg_pf_dy.ifpackpro[l]
				arg_s_mtrl.mtrlordertype[i] = arg_pf_dy.ordertype[l]
				arg_s_mtrl.ifpackpz[i] = arg_pf_dy.ifpackpz[l]
				arg_s_mtrl.produce_scid[i] = arg_pf_dy.produce_scid[l]
				arg_s_mtrl.produce_wrkgrpid[i] = arg_pf_dy.produce_wrkgrpid[l]
				
				arg_s_mtrl.qty[i] = ld_cmplqty
				arg_s_mtrl.cmplqty[i] = 0
				
				arg_s_mtrl.mqty[i] = ld_mqty
				arg_s_mtrl.bqty[i] = ld_bqty
				arg_s_mtrl.wqty[i] = ld_wqty
				arg_s_mtrl.pqty[i] = ld_pqty
				arg_s_mtrl.otherrqqty[i] = ld_otherrqqty
				arg_s_mtrl.samerqqty[i] = ld_samerqqty
				
				EXIT
			END IF
		NEXT
	END IF
NEXT


ext:
RETURN rslt
end function

public function integer uof_aps_update_date (long arg_scid, long arg_orderid, boolean arg_ifcommit, ref string arg_msg);Int rslt = 1
Int li_flag

SELECT plan_flag INTO :li_flag
	FROM u_order_ml
	WHERE scid = :arg_scid
	And orderid = :arg_orderid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询生产计划排程标记失败,'+sqlca.SQLErrText
	GOTO ext
END IF

IF li_flag = 0 THEN
	rslt = 1
	GOTO ext
END IF

UPDATE u_OrderRqMtrl
	SET u_OrderRqMtrl.RqDate = v_update_rqmtrl.new_rqdate,
	u_OrderRqMtrl.edate = v_update_rqmtrl.new_edate
	FROM u_OrderRqMtrl INNER JOIN
	(SELECT v_workgroup.mindate AS new_rqdate, DATEADD(dd, DATEDIFF(dd,
	u_OrderRqMtrl.RqDate, v_workgroup.mindate), u_OrderRqMtrl.edate)
	AS new_edate, u_OrderRqMtrl.scid, u_OrderRqMtrl.OrderID,
	u_OrderRqMtrl.MtrlID, u_OrderRqMtrl.wrkGrpid, u_OrderRqMtrl.status,
	u_OrderRqMtrl.woodcode, u_OrderRqMtrl.pcode, u_OrderRqMtrl.plantype,
	u_OrderRqMtrl.produce_wrkGrpid
	FROM u_OrderRqMtrl INNER JOIN
	(SELECT wrkGrpid, MIN(begindate) AS mindate, scid, orderid
	FROM u_OrderMtrl_workgroup
	WHERE (begindate IS NOT NULL)
	GROUP BY wrkGrpid, scid, orderid) v_workgroup ON
	u_OrderRqMtrl.scid = v_workgroup.scid AND
	u_OrderRqMtrl.OrderID = v_workgroup.orderid AND
	u_OrderRqMtrl.wrkGrpid = v_workgroup.wrkGrpid) v_update_rqmtrl ON
	u_OrderRqMtrl.scid = v_update_rqmtrl.scid AND
	u_OrderRqMtrl.OrderID = v_update_rqmtrl.OrderID AND
	u_OrderRqMtrl.MtrlID = v_update_rqmtrl.MtrlID AND
	u_OrderRqMtrl.wrkGrpid = v_update_rqmtrl.wrkGrpid AND
	u_OrderRqMtrl.status = v_update_rqmtrl.status COLLATE Chinese_PRC_CI_AS AND
	u_OrderRqMtrl.woodcode = v_update_rqmtrl.woodcode COLLATE Chinese_PRC_CI_AS AND
	u_OrderRqMtrl.pcode = v_update_rqmtrl.pcode COLLATE Chinese_PRC_CI_AS AND
	u_OrderRqMtrl.plantype = v_update_rqmtrl.plantype AND
	u_OrderRqMtrl.produce_wrkGrpid = v_update_rqmtrl.produce_wrkGrpid
	WHERE u_OrderRqMtrl.scid = :arg_scid
	And u_OrderRqMtrl.orderid = :arg_orderid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新用料需求日期失败,'+sqlca.SQLErrText
	GOTO ext
END IF

UPDATE u_OrderRqMtrl_tree
SET u_OrderRqMtrl_tree.RqDate = v_updaet_date.new_rqdate, 
      u_OrderRqMtrl_tree.edate = v_updaet_date.new_edate
FROM u_OrderRqMtrl_tree INNER JOIN
          (SELECT u_OrderRqMtrl_tree.scid, u_OrderRqMtrl_tree.OrderID, 
               u_OrderRqMtrl_tree.printid, v_workgroup.mindate AS new_rqdate, 
               DATEADD(dd, DATEDIFF(dd, u_OrderRqMtrl_tree.RqDate, 
               v_workgroup.mindate), u_OrderRqMtrl_tree.edate) AS new_edate
         FROM u_OrderRqMtrl_tree INNER JOIN
                   (SELECT wrkGrpid, MIN(begindate) AS mindate, scid, orderid
                  FROM u_OrderMtrl_workgroup
                  WHERE (begindate IS NOT NULL)
                  GROUP BY wrkGrpid, scid, orderid) v_workgroup ON 
               u_OrderRqMtrl_tree.scid = v_workgroup.scid AND 
               u_OrderRqMtrl_tree.OrderID = v_workgroup.orderid AND 
               u_OrderRqMtrl_tree.wrkGrpid = v_workgroup.wrkGrpid) v_updaet_date ON 
      u_OrderRqMtrl_tree.scid = v_updaet_date.scid AND 
      u_OrderRqMtrl_tree.OrderID = v_updaet_date.OrderID AND 
      u_OrderRqMtrl_tree.printid = v_updaet_date.printid
	WHERE u_OrderRqMtrl_tree.scid = :arg_scid
	And u_OrderRqMtrl_tree.orderid = :arg_orderid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新物料需求结构表日期失败,'+sqlca.SQLErrText
	GOTO ext
END IF
ext:
RETURN rslt

end function

public function integer uof_cmpl_rqmtrl (long arg_lp, s_mrp_arg arg_s_mrp, ref s_order_ml_rqmtrl arg_s_mtrl, ref string arg_msg);//主MRP运算

Int rslt = 1
Int li_pfflag
Long ll_mtrlid_order,ll_ordertype_order,ll_saletaskmx_pf_cnt
Long ll_taskid_order,ll_taskmxid_order
DateTime ldt_orderdate,ldt_orderrqdate
Int li_order_ifpackpro
Int li_ifmainmtrlid
Long arr_mxt
Long ll_i,cnt
Boolean if_special_notuse = False
Int li_ifpzpf
Long ll_pzpfcnt
String ls_pfcode_local
Long ll_ifbj_task
int li_multtype
decimal lde_eoq, lde_maxqty, lde_minqty
decimal lde_addcmplqty, lde_sameaddcmplqty
string ls_pdscrp

If uo_option_packpro2_pf_pack2_useifover = -1000 Then
	rslt = 0
	arg_msg = '选项:[274]个性包件产品清单明细个性包件必须使用按配置拆装,读取初始默认值失败,操作取消!'
	Goto ext
End If

If uo_option_ifpackpro2_if_no_pack2 = -1000 Then
	rslt = 0
	arg_msg = '选项:[340]个性包件产品物料清单允许没有个性包件,读取初始默认值失败,操作取消!'
	Goto ext
End If

deep++
If deep > 1000 Then
	arg_msg = '递归太深'+String(deep)
	rslt = 0
	Goto ext
End If

ls_pfcode_local = arg_s_mrp.arg_pfcode

If arg_s_mrp.arg_orderid <> -1 Then
	Select u_order_ml.mtrlid,
		u_order_ml.orderdate,
		u_order_ml.requiredate,
		u_mtrldef.ifpackpro,
		u_order_ml.ordertype,
		u_order_ml.taskid,
		u_order_ml.taskmxid
		Into :ll_mtrlid_order,
		:ldt_orderdate,
		:ldt_orderrqdate,
		:li_order_ifpackpro,
		:ll_ordertype_order,
		:ll_taskid_order,
		:ll_taskmxid_order
		From u_order_ml Inner join u_mtrldef on u_order_ml.mtrlid = u_mtrldef.mtrlid
		Where u_order_ml.orderid = :arg_s_mrp.arg_orderid
		And u_order_ml.scid = :arg_s_mrp.arg_scid;
	If sqlca.SQLCode <> 0 Then
		arg_msg = '查询生产计划生产物料操作失败,'+sqlca.SQLErrText
		rslt = 0
		Goto ext
	End If
	
	Select u_saletype.ifbj
		Into :ll_ifbj_task
		From u_SaleTask Inner JOIN
		u_saletype ON u_SaleTask.typeid = u_saletype.typeid
		Where u_SaleTask.scid = :arg_s_mrp.arg_scid
		And u_SaleTask.taskid = :ll_taskid_order;
	If sqlca.SQLCode <> 0 Then
		ll_ifbj_task = 0
	End If
	
	
Else
	If deep = 1 Then
		ll_mtrlid_order = arg_s_mrp.arg_mtrlid
	Else
		ll_mtrlid_order = -1
	End If
End If

String ls_mtrlcode,ls_mtrlname,ls_mtrlmode
String ls_unit,ls_mtrltype
Int li_mtrlorigin,li_ifselforder,li_mtrlprp,li_statusflag,li_mtrlorigin_p
Long ll_scid_mtrl,ll_wrkgrpid_mtrl
Decimal ld_buydays,ld_orderdays,ld_wfjgdays,ld_aheaddays
Date ld_sdate,ld_edate,ld_rqdate,ld_up_sdate
DateTime ldt_sdate,ldt_edate
Int li_ifpack,li_ifpackpro,li_ordertype,li_ifpackpz,li_iffp
Decimal ld_cmpqty
String ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode

Select u_mtrldef.mtrlcode,
	u_mtrldef.mtrlname,
	u_mtrldef.mtrlmode,
	u_mtrldef.mtrltype,
	u_mtrldef.unit,
	u_mtrldef.Mtrlorigin,
	u_mtrldef.scid,
	u_mtrldef.dftwrkgrpid,
	u_mtrldef.buydays,
	u_mtrldef.orderdays,
	u_mtrldef.wfjgdays,
	u_mtrldef.aheaddays,
	u_mtrldef.ifselforder,
	u_mtrldef.mtrlprp,
	u_mtrldef.statusflag,
	u_mtrldef.ifpack,
	u_mtrldef.ifpackpro,
	u_mtrldef.ordertype,
	u_mtrldef.ifpackpz,
	u_mtrldef.cmpqty,
	u_mtrldef.mtrlsectype,
	u_mtrldef.zxmtrlmode,
	u_mtrldef.usermtrlmode,
	u_mtrldef.iffp,
	u_mtrldef.multtype,
	u_mtrldef.eoq,
	u_mtrldef.maxqty,
	u_mtrldef.minqty
	Into :ls_mtrlcode,
	:ls_mtrlname,
	:ls_mtrlmode,
	:ls_mtrltype,
	:ls_unit,
	:li_mtrlorigin,
	:ll_scid_mtrl,
	:ll_wrkgrpid_mtrl,
	:ld_buydays,
	:ld_orderdays,
	:ld_wfjgdays,
	:ld_aheaddays,
	:li_ifselforder,
	:li_mtrlprp,
	:li_statusflag,
	:li_ifpack,
	:li_ifpackpro,
	:li_ordertype,
	:li_ifpackpz,
	:ld_cmpqty,
	:ls_mtrlsectype,
	:ls_zxmtrlmode,
	:ls_usermtrlmode,
	:li_iffp,
	:li_multtype,
	:lde_eoq,
	:lde_maxqty,
	:lde_minqty
	From u_mtrldef
	Where mtrlid = :arg_s_mrp.arg_mtrlid;
If sqlca.SQLCode <> 0 Then
	arg_msg = '查询物料资料失败,'+sqlca.SQLErrText
	rslt = 0
	Goto ext
End If

//yyx20120523
If deep = 1 Then
	If li_ifpackpro = 1 Then
		cnt = 0
		Select count(*) Into :cnt
			From u_PrdPF,u_mtrldef,u_mtrl_pf
			Where ( u_PrdPF.mtrlid = u_mtrl_pf.mtrlid )
			And ( u_mtrl_pf.ifdi = 0 )
			And ( u_mtrl_pf.ifdft = 1 )
			And ( u_PrdPF.pfcode = u_mtrl_pf.pfcode )
			And ( u_PrdPF.mtrlid = :arg_s_mrp.arg_mtrlid )
			And ( u_PrdPF.sonmtrlid = u_mtrldef.mtrlid )
			And ( u_mtrldef.ifpack = 2 );
		If sqlca.SQLCode <> 0 Then
			arg_msg = '查询通用包件产品下级是否存在个性包件失败,'+sqlca.SQLErrText
			rslt = 0
			Goto ext
		End If
		
		If cnt > 0 Then
			arg_msg = '通用包件产品下级有个性包件,操作取消,请检查物料清单'
			rslt = 0
			Goto ext
		End If
	End If
	
	If li_ifpackpro = 2 Then
		If uo_option_ifpackpro2_if_no_pack2 = 0 Then
			cnt = 0
			Select count(*) Into :cnt
				From u_PrdPF,u_mtrldef,u_mtrl_pf
				Where ( u_PrdPF.mtrlid = u_mtrl_pf.mtrlid )
				And ( u_mtrl_pf.ifdi = 0 )
				And ( u_mtrl_pf.ifdft = 1 )
				And ( u_PrdPF.pfcode = u_mtrl_pf.pfcode )
				And ( u_PrdPF.mtrlid = :arg_s_mrp.arg_mtrlid )
				And ( u_PrdPF.sonmtrlid = u_mtrldef.mtrlid )
				And ( u_mtrldef.ifpack = 2 );
			If sqlca.SQLCode <> 0 Then
				arg_msg = '查询个性包件产品下级是否存在个性包件失败,'+sqlca.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			If cnt = 0 Then
				arg_msg = '个性包件产品下级没有个性包件,操作取消,请检查物料清单'
				rslt = 0
				Goto ext
			End If
		End If
		
		//检查订单生产计划相关订单明细是否设置了个性清单yyx120823
		If ll_ordertype_order = 1 And ll_taskid_order > 0 Then
			Select count(*)
				Into :ll_saletaskmx_pf_cnt
				From u_saletaskmx_pf
				Where u_saletaskmx_pf.scid = :arg_s_mrp.arg_scid
				And u_saletaskmx_pf.taskid = :ll_taskid_order
				And u_saletaskmx_pf.printid = :ll_taskmxid_order;
			If sqlca.SQLCode <> 0 Then
				arg_msg = '查询主计划产品对应销售订单明细是否设置了个性清单失败,'+sqlca.SQLErrText
				rslt = 0
				Goto ext
			End If
		End If
		//
	End If
	
	If uo_option_packpro2_pf_pack2_useifover = 1 Then
		If li_ifpackpro = 2 Then
			cnt = 0
			Select count(*) Into :cnt
				From u_PrdPF,u_mtrldef,u_mtrl_pf
				Where ( u_PrdPF.mtrlid = u_mtrl_pf.mtrlid )
				And ( u_mtrl_pf.ifdi = 0 )
				And ( u_mtrl_pf.ifdft = 1 )
				And ( u_PrdPF.pfcode = u_mtrl_pf.pfcode )
				And ( u_PrdPF.mtrlid = :arg_s_mrp.arg_mtrlid )
				And ( u_PrdPF.sonmtrlid = u_mtrldef.mtrlid )
				And ( u_PrdPF.ifover = 0 )
				And ( u_mtrldef.ifpack = 2 );
			If sqlca.SQLCode <> 0 Then
				arg_msg = '查询个性包件产品下级个性包件清单明细是否有未设<按配置拆装>属性失败,'+sqlca.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			If cnt > 0 Then
				arg_msg = '个性包件产品下级个性包件清单明细有未设<按配置拆装>属性,操作取消,请检查物料清单'
				rslt = 0
				Goto ext
			End If
		End If
	End If
	
	cnt = 0
	Select count(*) Into :cnt
		From u_PrdPF,u_mtrldef,u_mtrl_pf
		Where ( u_PrdPF.mtrlid = u_mtrl_pf.mtrlid )
		And ( u_mtrl_pf.ifdi = 0 )
		And ( u_mtrl_pf.ifdft = 1 )
		And ( u_PrdPF.pfcode = u_mtrl_pf.pfcode )
		And ( u_PrdPF.mtrlid = :arg_s_mrp.arg_mtrlid )
		And ( u_PrdPF.sonmtrlid = u_mtrldef.mtrlid )
		And ( u_PrdPF.ifover = 1 )
		And ( u_PrdPF.dipztype = -1 );
	If sqlca.SQLCode <> 0 Then
		arg_msg = '查询产品下级清单明细是否有未设<配置拆装类型>属性失败,'+sqlca.SQLErrText
		rslt = 0
		Goto ext
	End If
	
	If cnt > 0 Then
		arg_msg = '产品下级清单明细有未设<配置拆装类型>属性,操作取消,请检查物料清单'
		rslt = 0
		Goto ext
	End If
End If
//

If arg_s_mrp.arg_pmtrlid > 0 Then
	Select mtrlorigin Into :li_mtrlorigin_p
		From u_mtrldef
		Where mtrlid = :arg_s_mrp.arg_pmtrlid;
	If sqlca.SQLCode <> 0 Then
		arg_msg = '查询上级物料资料失败,'+sqlca.SQLErrText
		rslt = 0
		Goto ext
	End If
End If

If ld_cmpqty = 0 Then ld_cmpqty = 1

//检查组合配置是否使用组合配置清单
If li_statusflag = 2 And arg_s_mrp.arg_ifcfg = 0 Then
	If arg_s_mrp.arg_status = '' Then
		arg_msg = '计划产品设置为使用组合配置属性,但计划配置内容非法,请检查'
		rslt = 0
		Goto ext
	End If
	
	arg_s_mrp.arg_pfcode = arg_s_mrp.arg_status
	
	ll_pzpfcnt = 0
	Select count(*) Into :ll_pzpfcnt
		From u_mtrl_pf
		Where mtrlid = :arg_s_mrp.arg_mtrlid
		And pfcode = :arg_s_mrp.arg_pfcode
		And ifpzpf = 1;
	If sqlca.SQLCode <> 0 Then
		arg_msg = '查询物料是否启用组合配置清单失败,'+sqlca.SQLErrText
		rslt = 0
		Goto ext
	End If
	
	If ll_pzpfcnt > 0 Then
		li_ifpzpf = 1
		If uof_pfcode_check(arg_s_mrp.arg_mtrlid,ls_mtrlcode,arg_s_mrp.arg_pfcode,arg_msg) = 0 Then
			rslt = 0
			Goto ext
		End If
	Else
		li_ifpzpf = 0
	End If
Else
	li_ifpzpf = 0
End If


//如果不是组合配置或则检查物料清单审核标记
If li_statusflag <> 2 Or arg_s_mrp.arg_ifcfg = 1 Then
	If uof_pfcode_check(arg_s_mrp.arg_mtrlid,ls_mtrlcode,arg_s_mrp.arg_pfcode,arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
End If

Decimal ld_cmplqty
Decimal ld_mqty
Decimal ld_wmqty
Decimal ld_bqty
Decimal ld_wqty
Decimal ld_pqty
Decimal ld_ckwareqty, ld_ckwareqty_af
Decimal ld_pqty2,ld_pqty2_cmpl
Decimal ld_rqwfjgqty,ld_rqwfjgqty_cmpl
Decimal ld_rqbuyqty,ld_rqbuyqty_cmpl
Decimal ld_otherrqqty,ld_otherrqqty_wx,ld_otherrqqty_sale,ld_samerqqty
Decimal ld_advancetime_max_next //自制下级最大提前期
Int li_dytype
String ld_qty_dscrp //未进仓明细摘要

//计算需求日期
ld_rqdate = Date(String(arg_s_mrp.arg_up_rqdate,'yyyy-mm-dd'))
ld_up_sdate = Date(String(arg_s_mrp.arg_up_sdate,'yyyy-mm-dd'))

If li_mtrlorigin = 0 Then
	If deep = 1 Then
		ld_edate = ld_rqdate
		
		If li_ifpackpro > 0 Then
			If sys_option_ifuse_ordersdate = 0 Then
				ld_sdate = Date(ldt_orderdate)
			Else
				If uof_get_max_advancetime(arg_s_mrp.arg_mtrlid,arg_s_mrp.arg_pfcode,ld_advancetime_max_next,arg_msg) = 0 Then
					arg_msg = ls_mtrlcode + arg_msg
					rslt = 0
					Goto ext
				End If
				
				ld_sdate = RelativeDate( ld_edate, 0 - ld_advancetime_max_next )
			End If
		Else
			If li_ordertype = 0 Then
				If sys_option_ifuse_ordersdate = 0 Then
					ld_sdate = Date(ldt_orderdate)
				Else
					If uof_get_max_advancetime(arg_s_mrp.arg_mtrlid,arg_s_mrp.arg_pfcode,ld_advancetime_max_next,arg_msg) = 0 Then
						arg_msg = ls_mtrlcode + arg_msg
						rslt = 0
						Goto ext
					End If
					
					ld_sdate = RelativeDate( ld_edate, 0 - ld_advancetime_max_next )
				End If
			Else
				If li_statusflag = 2 And li_ifpzpf = 0 Then
					If sys_option_ifuse_ordersdate = 0 Then
						ld_sdate = Date(ldt_orderdate)
					Else
						If uof_get_max_advancetime2(arg_s_mrp.arg_mtrlid,arg_s_mrp.arg_status,ld_advancetime_max_next,arg_msg) = 0 Then
							arg_msg = ls_mtrlcode + arg_msg
							rslt = 0
							Goto ext
						End If
						ld_sdate = RelativeDate( ld_edate, 0 - ld_advancetime_max_next )
					End If
				Else
					If sys_option_ifuse_ordersdate = 0 Then
						ld_sdate = Date(ldt_orderdate)
					Else
						If uof_get_max_advancetime(arg_s_mrp.arg_mtrlid,arg_s_mrp.arg_pfcode,ld_advancetime_max_next,arg_msg) = 0 Then
							arg_msg = ls_mtrlcode + arg_msg
							rslt = 0
							Goto ext
						End If
						
						ld_sdate = RelativeDate( ld_edate, 0 - ld_advancetime_max_next )
					End If
				End If
			End If
		End If
	Else
		If li_ifpack > 0 And sys_option_ifuse_ordersdate = 0 Then
			ld_edate = Date(ldt_orderrqdate)
			ld_sdate = Date(ldt_orderdate)
		ElseIf (li_ifpackpro = 3 Or li_ifpackpro = 4) And sys_option_ifuse_ordersdate = 0 Then
			ld_edate = Date(ldt_orderrqdate)
			ld_sdate = Date(ldt_orderdate)
		Else
			If li_mtrlorigin_p = 3 Then
				ld_edate = ld_up_sdate
			Else
				ld_edate = RelativeDate( ld_rqdate,0 - ld_orderdays - arg_s_mrp.arg_advancetime  )
			End If
			//取下级最大提前期
			If li_statusflag = 2 And ll_mtrlid_order = arg_s_mrp.arg_mtrlid Then
				If sys_option_ifuse_ordersdate = 0 Then
					ld_sdate = Date(ldt_orderdate)
				Else
					ld_advancetime_max_next = 0
					ld_sdate = RelativeDate( ld_edate, 0 - ld_advancetime_max_next )
				End If
			Else
				If uof_get_max_advancetime(arg_s_mrp.arg_mtrlid,arg_s_mrp.arg_pfcode,ld_advancetime_max_next,arg_msg) = 0 Then
					arg_msg = ls_mtrlcode + arg_msg
					rslt = 0
					Goto ext
				End If
				ld_sdate = RelativeDate( ld_edate, 0 - ld_advancetime_max_next )
			End If
		End If
	End If
ElseIf li_mtrlorigin = 2 Then
	If li_mtrlorigin_p = 3 Then
		ld_edate = ld_up_sdate
	Else
		ld_edate = RelativeDate( ld_rqdate,0 - arg_s_mrp.arg_advancetime )
	End If
	ld_edate = RelativeDate( ld_edate,0 - ld_orderdays )
	ld_sdate = RelativeDate ( ld_edate, 0 - ld_buydays )
ElseIf li_mtrlorigin = 3 Then
	If li_mtrlorigin_p = 3 Then
		ld_edate = ld_up_sdate
	Else
		ld_edate = RelativeDate( ld_rqdate,0 - arg_s_mrp.arg_advancetime )
	End If
	ld_edate = RelativeDate( ld_edate,0 - ld_orderdays )
	ld_sdate = RelativeDate ( ld_edate, 0 - ld_wfjgdays )
ElseIf li_mtrlorigin = 6 Then
	If li_mtrlorigin_p = 3 Then
		ld_edate = ld_up_sdate
	Else
		ld_edate = RelativeDate( ld_rqdate,0 - arg_s_mrp.arg_advancetime )
	End If
	ld_edate = RelativeDate( ld_edate,0 - ld_orderdays )
	ld_sdate = RelativeDate( ld_edate, 0 - ld_aheaddays )
End If

ldt_sdate = DateTime(ld_sdate,Time(0))
ldt_edate = DateTime(ld_edate,Time(0))
//-----------------------------------------


//代用物料
If li_mtrlorigin = 0 Then
	li_dytype = 0
ElseIf li_mtrlorigin = 2 Then
	If arg_s_mrp.arg_if_allowuse = 1 Then
		If uof_get_prdpf_dytype(arg_s_mrp.arg_pmtrlid,arg_s_mrp.arg_ppfcode,arg_s_mrp.arg_pfgroup,arg_s_mrp.arg_mtrlid,arg_s_mrp.arg_wrkgrpid_scll,arg_s_mrp.arg_pfcode,li_dytype,arg_msg) = 0 Then
			arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
			rslt = 0
			Goto ext
		End If
	Else
		li_dytype = 0
	End If
ElseIf li_mtrlorigin = 3 Then
	li_dytype = 0
ElseIf li_mtrlorigin = 6 Then
	li_dytype = 0
End If
//

If arg_s_mrp.arg_ifcfg = 1 Then
	li_ifmainmtrlid = 0
	ld_cmplqty = arg_s_mrp.arg_cmplqty
	arr_mxt = UpperBound(arg_s_mtrl.mtrlid)
	ld_samerqqty = 0
Else
	If arg_s_mrp.arg_mtrlid = ll_mtrlid_order Then
		ld_cmplqty = arg_s_mrp.arg_cmplqty
		li_ifmainmtrlid = 1
	Else
		li_ifmainmtrlid = 0
		If arg_s_mrp.arg_if_allowuse = 1 And ( li_ifselforder > 0 And li_mtrlorigin = 0 Or li_mtrlorigin > 0 ) Then
			//改写存储过程
			If sys_option_if_newmrp = 0 Then
				Declare sp_qty Procedure For sp_order_ml_mrp_qty
					@arg_ifdate = :arg_s_mrp.arg_ifdate,
					@arg_enddate = :ldt_edate,
					@arg_scid = :arg_s_mrp.arg_scid,
					@arg_orderid = :arg_s_mrp.arg_orderid,
					@arg_mtrlid = :arg_s_mrp.arg_mtrlid,
					@arg_status = :arg_s_mrp.arg_status,
					@arg_woodcode = :arg_s_mrp.arg_woodcode,
					@arg_pcode = :arg_s_mrp.arg_pcode,
					@arg_if_otherrq_mrpaudit = :if_otherrq_mrpaudit,
					@arg_if_wqty_norq = :sys_option_if_wqty_norq,
					@arg_plantype = :li_mtrlorigin,
					@arg_ref_bqty = :ld_bqty output,
					@arg_ref_pqty = :ld_pqty output,
					@arg_ref_wqty = :ld_wqty output,
					@arg_ref_mqty = :ld_mqty output,
					@arg_ref_wmqty = :ld_wmqty output,
					@arg_ref_pqty_nozl = :ld_pqty2 output,
					@arg_ref_otherrqqty = :ld_otherrqqty output,
					@arg_ref_rqwfjgqty = :ld_rqwfjgqty output,
					@arg_ref_rqbuyqty = :ld_rqbuyqty output,
					@arg_ref_otherrqqty_wx = :ld_otherrqqty_wx output,
					@arg_ref_otherrqqty_sale = :ld_otherrqqty_sale output;
					
				Execute sp_qty;
				If sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',调用查询数量储存过程失败,'+sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				Fetch sp_qty Into :ld_bqty,:ld_pqty,:ld_wqty,:ld_mqty,:ld_wmqty,:ld_pqty2,:ld_otherrqqty,:ld_rqwfjgqty,:ld_rqbuyqty,:ld_otherrqqty_wx,:ld_otherrqqty_sale;
				If sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',储存过程赋值变量失败,'+sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				Close sp_qty;
				If sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',关闭查询数量储存过程失败,'+sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
			Else
				Declare sp_qty1 Procedure For sp_order_ml_mrp_qty_new
					@arg_ifdate = :arg_s_mrp.arg_ifdate,
					@arg_enddate = :ldt_edate,
					@arg_scid = :arg_s_mrp.arg_scid,
					@arg_mtrlid = :arg_s_mrp.arg_mtrlid,
					@arg_status = :arg_s_mrp.arg_status,
					@arg_woodcode = :arg_s_mrp.arg_woodcode,
					@arg_pcode = :arg_s_mrp.arg_pcode,
					@arg_ref_bqty = :ld_bqty output,
					@arg_ref_pqty = :ld_pqty output,
					@arg_ref_wqty = :ld_wqty output,
					@arg_ref_pqty_nozl = :ld_pqty2 output,
					@arg_ref_otherrqqty = :ld_otherrqqty output,
					@arg_ref_otherrqqty_wx = :ld_otherrqqty_wx output Using mrp_sqlca;
					
				Execute sp_qty1;
				If mrp_sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',调用查询数量储存过程失败,'+mrp_sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				Fetch sp_qty1 Into :ld_bqty,:ld_pqty,:ld_wqty,:ld_pqty2,:ld_otherrqqty,:ld_otherrqqty_wx;
				If mrp_sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',储存过程赋值变量失败,'+mrp_sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				Close sp_qty1;
				If mrp_sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',关闭查询数量储存过程失败,'+mrp_sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				Declare sp_qty2 Procedure For sp_order_ml_mrp_qty_new2
					@arg_scid = :arg_s_mrp.arg_scid,
					@arg_mtrlid = :arg_s_mrp.arg_mtrlid,
					@arg_status = :arg_s_mrp.arg_status,
					@arg_woodcode = :arg_s_mrp.arg_woodcode,
					@arg_pcode = :arg_s_mrp.arg_pcode,
					@arg_ref_mqty = :ld_mqty output,
					@arg_ref_wmqty = :ld_wmqty output;
					
				Execute sp_qty2;
				If sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',调用查询库存数量储存过程失败,'+sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				Fetch sp_qty2 Into :ld_mqty,:ld_wmqty;
				If sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',库存数量储存过程赋值变量失败,'+sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				Close sp_qty2;
				If sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',关闭查询库存数量储存过程失败,'+sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
			End If
			//			IF uof_get_qty(1,arg_ifdate,ldt_edate,arg_scid,arg_orderid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode,ld_bqty,arg_msg) = 0 THEN
			//				arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
			//				rslt = 0
			//				GOTO ext
			//			END IF
			//			
			//			IF uof_get_qty(2,arg_ifdate,ldt_edate,arg_scid,arg_orderid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode,ld_pqty,arg_msg) = 0 THEN
			//				arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
			//				rslt = 0
			//				GOTO ext
			//			END IF
			
			If if_qty_dscrp And ld_pqty > 0 Then //查生产未进仓明细
				If uof_get_qty_dscrp(2,arg_s_mrp.arg_ifdate,ldt_edate,arg_s_mrp.arg_scid,arg_s_mrp.arg_orderid,arg_s_mrp.arg_mtrlid,arg_s_mrp.arg_status,arg_s_mrp.arg_woodcode,arg_s_mrp.arg_pcode,ld_qty_dscrp,arg_msg) = 0 Then
					arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
					rslt = 0
					Goto ext
				End If
			End If
			
			//			IF uof_get_qty(3,arg_ifdate,ldt_edate,arg_scid,arg_orderid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode,ld_wqty,arg_msg) = 0 THEN
			//				arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
			//				rslt = 0
			//				GOTO ext
			//			END IF
			//			
			//			IF uof_get_qty(4,arg_ifdate,ldt_edate,arg_scid,arg_orderid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode,ld_mqty,arg_msg) = 0 THEN
			//				arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
			//				rslt = 0
			//				GOTO ext
			//			END IF
			//			
			//			IF uof_get_other_rqqty(arg_scid,arg_orderid,arg_mtrlid,li_mtrlorigin,arg_status,arg_woodcode,arg_pcode,ld_otherrqqty,arg_ifdate,ldt_edate,arg_msg) = 0 THEN
			//				arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
			//				rslt = 0
			//				GOTO ext
			//			END IF
			
			//			IF if_pqty_not_zl And li_mtrlorigin = 0 THEN
			//				IF uof_get_qty(5,arg_ifdate,ldt_edate,arg_scid,arg_orderid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode,ld_pqty2,arg_msg) = 0 THEN
			//					arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
			//					rslt = 0
			//					GOTO ext
			//				END IF
			//			END IF
		End If
		
		if sys_option_if_mrp_dscrp = 1 then
			Declare sp_pdscrp Procedure For Sp_order_ml_mrp_qty_pdscrp
					@arg_ifdate = :arg_s_mrp.arg_ifdate,
					@arg_enddate = :ldt_edate,
					@arg_scid = :arg_s_mrp.arg_scid,
					@arg_orderid = :arg_s_mrp.arg_orderid,
					@arg_mtrlid = :arg_s_mrp.arg_mtrlid,
					@arg_status = :arg_s_mrp.arg_status,
					@arg_woodcode = :arg_s_mrp.arg_woodcode,
					@arg_pcode = :arg_s_mrp.arg_pcode,
					@arg_pdscrp = :ls_pdscrp output Using mrp_sqlca;
					
				Execute sp_pdscrp;
				If mrp_sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',调用查询数量明细备注储存过程失败,'+mrp_sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				Fetch sp_pdscrp Into :ls_pdscrp;
				If mrp_sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',储存过程赋值变量失败,'+mrp_sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				Close sp_pdscrp;
				If mrp_sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',关闭查询数量明细备注储存过程失败,'+mrp_sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
		end if
		
		arr_mxt = UpperBound(arg_s_mtrl.mtrlid)
		
		If arr_mxt = 0 Then
			ld_samerqqty = 0
			
			lde_sameaddcmplqty = 0
		Else
			For ll_i = 1 To arr_mxt
				//					Date(arg_s_mtrl.sdate[ll_i]) = Date(ldt_sdate) AND &
				//					Date(arg_s_mtrl.edate[ll_i]) = Date(ldt_edate) AND &
				If arg_s_mtrl.scid[ll_i] = arg_s_mrp.arg_scid And &
					arg_s_mtrl.orderid[ll_i] = arg_s_mrp.arg_orderid And &
					arg_s_mtrl.mtrlid[ll_i] = arg_s_mrp.arg_mtrlid And &
					arg_s_mtrl.status[ll_i] = arg_s_mrp.arg_status And &
					arg_s_mtrl.woodcode[ll_i] = arg_s_mrp.arg_woodcode And &
					arg_s_mtrl.pcode[ll_i] = arg_s_mrp.arg_pcode And &
					arg_s_mtrl.wrkGrpid_scll[ll_i] = arg_s_mrp.arg_wrkgrpid_scll Then
					If arg_s_mtrl.ifselforder[ll_i] > 0 And arg_s_mtrl.Mtrlorigin[ll_i] = 0 Or arg_s_mtrl.Mtrlorigin[ll_i] > 0  Then
						
						if  ((li_ifselforder > 0 And li_mtrlorigin = 0) or (sys_option_if_wqty_norq = 1 and li_mtrlorigin = 3) ) and li_multtype > 0 then 
							ld_samerqqty = ld_samerqqty + arg_s_mtrl.qty[ll_i] -  arg_s_mtrl.cmplqty[ll_i]
						else
							ld_samerqqty = ld_samerqqty + arg_s_mtrl.qty[ll_i]
						end if
						
						lde_sameaddcmplqty = lde_sameaddcmplqty + arg_s_mtrl.addcmplqty[ll_i]
					End If
				End If
			Next
		End If
		
		If arg_s_mrp.arg_if_allowuse = 1 And ( li_ifselforder > 0 And li_mtrlorigin = 0 Or li_mtrlorigin > 0 ) Then
			If ifzl_mtrl_not_useqty Or ifzl_mtrl_pwx_not_useqty Or ifwx_mtrl_not_useqty Or ifpack_mtrl_not_useqty Then
				If li_mtrlorigin = 0 Then
					If li_ifpack > 0 Then
						If ifpack_mtrl_not_useqty Then
							ld_cmplqty = arg_s_mrp.arg_cmplqty
							if_special_notuse = True
						End If
					End If
					
					If li_ifselforder = 2 And li_ifpack = 0  Then
						If ifzl_mtrl_not_useqty Then
							ld_cmplqty = arg_s_mrp.arg_cmplqty
							if_special_notuse = True
						End If
					End If
					
					If li_mtrlorigin_p = 3 And ifzl_mtrl_pwx_not_useqty Then
						ld_cmplqty = arg_s_mrp.arg_cmplqty
						if_special_notuse = True
					End If
				ElseIf li_mtrlorigin = 2 Then
					If li_ifpack > 0 Then
						If ifpack_mtrl_not_useqty Then
							ld_cmplqty = arg_s_mrp.arg_cmplqty
							if_special_notuse = True
						End If
					End If
				ElseIf li_mtrlorigin = 3 Then
					If ifwx_mtrl_not_useqty Then
						ld_cmplqty = arg_s_mrp.arg_cmplqty
						if_special_notuse = True
					End If
				End If
			End If
			
			If if_pqty_not_zl Then
				ld_pqty2_cmpl = ld_pqty2
			Else
				ld_pqty2_cmpl = 0
			End If
			
			If if_rqwfjg_useqty Then
				ld_rqwfjgqty_cmpl = ld_rqwfjgqty
			Else
				ld_rqwfjgqty_cmpl = 0
			End If
			
			If if_rqbuy_useqty Then
				ld_rqbuyqty_cmpl = ld_rqbuyqty
			Else
				ld_rqbuyqty_cmpl = 0
			End If
			
			//可用数, 不考虑本次的生产
			//if  li_ifselforder > 0 And li_mtrlorigin = 0 and li_multtype > 0 then  是考虑了本次的生产
			//否则 是不考虑本次生产
			//
			ld_ckwareqty = (ld_mqty + ld_wmqty + ld_bqty + ld_wqty + ld_pqty + ld_pqty2_cmpl + ld_rqwfjgqty_cmpl + ld_rqbuyqty_cmpl) - (ld_otherrqqty + ld_otherrqqty_wx + ld_otherrqqty_sale + ld_samerqqty) 
			
			If Not if_special_notuse Then
				if ld_ckwareqty > 0 then 
					if ld_ckwareqty > arg_s_mrp.arg_cmplqty then
						ld_cmplqty = 0
						ld_ckwareqty_af = ld_ckwareqty - arg_s_mrp.arg_cmplqty
					else
						ld_cmplqty = arg_s_mrp.arg_cmplqty - ld_ckwareqty
						ld_ckwareqty_af = 0
					end if
				else
					ld_cmplqty = arg_s_mrp.arg_cmplqty
					ld_ckwareqty_af = 0
				end if
				
//				If ld_otherrqqty + ld_otherrqqty_wx + ld_otherrqqty_sale >= ld_mqty + ld_wmqty + ld_bqty + ld_wqty + ld_pqty + ld_pqty2_cmpl + ld_rqwfjgqty_cmpl + ld_rqbuyqty_cmpl Then
//					ld_cmplqty = arg_s_mrp.arg_cmplqty
//				Else
//					If ld_mqty + ld_wmqty + ld_bqty + ld_wqty + ld_pqty + ld_pqty2_cmpl + ld_rqwfjgqty_cmpl + ld_rqbuyqty_cmpl - ld_otherrqqty - ld_otherrqqty_wx - ld_otherrqqty_sale - ld_samerqqty > 0 Then
//						If arg_s_mrp.arg_cmplqty  > ld_mqty + ld_wmqty + ld_bqty + ld_wqty + ld_pqty + ld_pqty2_cmpl + ld_rqwfjgqty_cmpl + ld_rqbuyqty_cmpl - ld_otherrqqty - ld_otherrqqty_wx - ld_otherrqqty_sale - ld_samerqqty Then
//							ld_cmplqty = arg_s_mrp.arg_cmplqty - ( ld_mqty + ld_wmqty + ld_bqty + ld_wqty + ld_pqty + ld_pqty2_cmpl + ld_rqwfjgqty_cmpl + ld_rqbuyqty_cmpl -  ld_otherrqqty - ld_otherrqqty_wx - ld_otherrqqty_sale - ld_samerqqty )
//						Else
//							ld_cmplqty = 0
//						End If
//					Else
//						ld_cmplqty = arg_s_mrp.arg_cmplqty
//					End If
//				End If
			End If
			
			
			//如果有设置‘物料运算倍数基数’， 按倍数生产
			//自制需求补足批量模式：
			//0- 不增补
			//1- 补足到最小经济生产批量
			//2- 补足到最小经济生产批量的整倍数
			//3- (现库存减需求后的可用数少于库存下限时)补足到库存上限且不少于最小经济批量
			if (li_ifselforder > 0 And li_mtrlorigin = 0) or (sys_option_if_wqty_norq = 1 and li_mtrlorigin = 3)  then 
				choose case li_multtype
					case 0 
						
					case 1
						if ld_cmplqty > 0 then
							if ld_cmplqty < lde_eoq then 
								lde_addcmplqty = lde_eoq - ld_cmplqty
								ld_cmplqty = lde_eoq
							end if
						end if
					case 2
						if ld_cmplqty > 0 then
							if mod(ld_cmplqty, lde_eoq) > 0 then 
								lde_addcmplqty = lde_eoq - mod(ld_cmplqty, lde_eoq)
								ld_cmplqty = ld_cmplqty + (lde_eoq - mod(ld_cmplqty, lde_eoq))
							end if
						end if
					case 3
						if ld_cmplqty > 0 then
							if ld_ckwareqty_af < lde_minqty then //小于库存下限的才按库存上限生产
								if lde_eoq > lde_maxqty + ld_cmplqty then 
									lde_addcmplqty = lde_eoq - ld_cmplqty
								else
									lde_addcmplqty = lde_maxqty
								end if
							else //不小于的只考虑经济批量
								if lde_eoq >  ld_cmplqty then //不足经济批量的补足
									lde_addcmplqty = lde_eoq - ld_cmplqty
								else
									lde_addcmplqty = 0
								end if
							end if
							ld_cmplqty = ld_cmplqty + lde_addcmplqty
							//ld_cmplqty = max(lde_eoq, lde_maxqty + ld_cmplqty)
						else
							if ld_ckwareqty_af < lde_minqty then //小于库存下限的才按库存上限生产
								if lde_eoq > lde_maxqty  then 
									lde_addcmplqty = lde_eoq 
								else
									lde_addcmplqty = lde_maxqty
								end if
								ld_cmplqty = ld_cmplqty + lde_addcmplqty
							end if
						end if
				end choose
			end if
		Else
			ld_cmplqty = arg_s_mrp.arg_cmplqty
		End If
	End If
End If


//运算结果
arr_mxt++
arg_s_mtrl.scid[arr_mxt] = arg_s_mrp.arg_scid
arg_s_mtrl.orderid[arr_mxt] = arg_s_mrp.arg_orderid
arg_s_mtrl.mtrlid[arr_mxt] = arg_s_mrp.arg_mtrlid
arg_s_mtrl.status[arr_mxt] = arg_s_mrp.arg_status
arg_s_mtrl.woodcode[arr_mxt] = arg_s_mrp.arg_woodcode
arg_s_mtrl.pcode[arr_mxt] = arg_s_mrp.arg_pcode
arg_s_mtrl.pfcode[arr_mxt] = ls_pfcode_local //arg_pfcode
arg_s_mtrl.qty[arr_mxt] = arg_s_mrp.arg_qty
arg_s_mtrl.cmplqty[arr_mxt] = ld_cmplqty
arg_s_mtrl.plantype[arr_mxt] = li_mtrlorigin
arg_s_mtrl.mqty[arr_mxt] = ld_mqty
arg_s_mtrl.wmqty[arr_mxt] = ld_wmqty
arg_s_mtrl.bqty[arr_mxt] = ld_bqty
arg_s_mtrl.wqty[arr_mxt] = ld_wqty
arg_s_mtrl.pqty[arr_mxt] = ld_pqty
arg_s_mtrl.pqty2[arr_mxt] = ld_pqty2
arg_s_mtrl.rqwfjgqty[arr_mxt] = ld_rqwfjgqty
arg_s_mtrl.rqbuyqty[arr_mxt] = ld_rqbuyqty
//arg_s_mtrl.pqtydscrp[arr_mxt] = ld_qty_dscrp
arg_s_mtrl.otherrqqty[arr_mxt] = ld_otherrqqty
arg_s_mtrl.otherrqqty_wx[arr_mxt] = ld_otherrqqty_wx
arg_s_mtrl.otherrqqty_sale[arr_mxt] = ld_otherrqqty_sale
arg_s_mtrl.samerqqty[arr_mxt] = ld_samerqqty
arg_s_mtrl.ckwareqty[arr_mxt] = ld_ckwareqty
arg_s_mtrl.addcmplqty[arr_mxt] = lde_addcmplqty //由补足方式额外增加的数

arg_s_mtrl.pdscrp[arr_mxt] = ls_pdscrp


//有可用数不用计算开始日期
If ld_cmplqty = 0 Then
	arg_s_mtrl.sdate[arr_mxt] = ldt_edate
Else
	arg_s_mtrl.sdate[arr_mxt] = ldt_sdate
End If
arg_s_mtrl.edate[arr_mxt] = ldt_edate



arg_s_mtrl.mtrlcode[arr_mxt] = ls_mtrlcode
arg_s_mtrl.mtrlname[arr_mxt] = ls_mtrlname
arg_s_mtrl.mtrlmode[arr_mxt] = ls_mtrlmode
arg_s_mtrl.mtrltype[arr_mxt] = ls_mtrltype
arg_s_mtrl.unit[arr_mxt] = ls_unit
arg_s_mtrl.Mtrlorigin[arr_mxt] = li_mtrlorigin
arg_s_mtrl.iffp[arr_mxt] = li_iffp
arg_s_mtrl.mtrlprp[arr_mxt] = li_mtrlprp
arg_s_mtrl.ifselforder[arr_mxt] = li_ifselforder
arg_s_mtrl.gydscrp[arr_mxt] = arg_s_mrp.arg_gydscrp
arg_s_mtrl.pfklmode[arr_mxt] = arg_s_mrp.arg_pfklmode
arg_s_mtrl.pfgroup[arr_mxt] = arg_s_mrp.arg_pfgroup
arg_s_mtrl.pfgroupmode[arr_mxt] = arg_s_mrp.arg_pfgroupmode
arg_s_mtrl.ifcfg[arr_mxt] = arg_s_mrp.arg_ifcfg
arg_s_mtrl.ifpack[arr_mxt] = li_ifpack
arg_s_mtrl.ifpackpro[arr_mxt] = li_ifpackpro
arg_s_mtrl.mtrlordertype[arr_mxt] = li_ordertype
arg_s_mtrl.ifpackpz[arr_mxt] = li_ifpackpz
arg_s_mtrl.mtrlsectype[arr_mxt] = ls_mtrlsectype
arg_s_mtrl.zxmtrlmode[arr_mxt] = ls_zxmtrlmode
arg_s_mtrl.usermtrlmode[arr_mxt] = ls_usermtrlmode

arg_s_mtrl.dytype[arr_mxt] = li_dytype
arg_s_mtrl.ppfcode[arr_mxt] = arg_s_mrp.arg_ppfcode
arg_s_mtrl.pcmplqty[arr_mxt] = arg_s_mrp.arg_pqty


arg_s_mtrl.SonLoss[arr_mxt] = arg_s_mrp.arg_SonLoss
arg_s_mtrl.SonDECLoss[arr_mxt] = arg_s_mrp.arg_SonDECLoss
arg_s_mtrl.scllLoss[arr_mxt] = arg_s_mrp.arg_scllLoss
arg_s_mtrl.scllDECLoss[arr_mxt] = arg_s_mrp.arg_scllDECLoss
arg_s_mtrl.scllqtytype[arr_mxt] = arg_s_mrp.arg_scllqtytype
arg_s_mtrl.standardrqqty[arr_mxt] = arg_s_mrp.arg_strandqty
arg_s_mtrl.scllqty[arr_mxt] = arg_s_mrp.arg_scllqty
arg_s_mtrl.if_follow[arr_mxt] = arg_s_mrp.arg_if_follow
arg_s_mtrl.lasthour[arr_mxt] = arg_s_mrp.arg_lasthour

If IsNull(arg_s_mrp.arg_Sonscale) Then arg_s_mrp.arg_Sonscale = 0
arg_s_mtrl.Sonscale[arr_mxt] = arg_s_mrp.arg_Sonscale

If li_mtrlorigin = 2 Or li_mtrlorigin = 6 Then
	arg_s_mtrl.produce_scid[arr_mxt] = arg_s_mrp.arg_scid
Else
	arg_s_mtrl.produce_scid[arr_mxt] = ll_scid_mtrl
End If

If ll_ifbj_task = 0 Then
	arg_s_mtrl.produce_wrkgrpid[arr_mxt] = ll_wrkgrpid_mtrl
	arg_s_mtrl.wrkGrpid_scll[arr_mxt] = arg_s_mrp.arg_wrkgrpid_scll
Else
	If ll_wrkgrpid_mtrl > 0 Then
		arg_s_mtrl.produce_wrkgrpid[arr_mxt] = ins_produce_wrkgrpid_bj
	End If
	
	If li_mtrlorigin = 2 Then
		If deep = 1 Then
			arg_s_mtrl.produce_wrkgrpid[arr_mxt] = ins_produce_wrkgrpid_bj
		Else
			arg_s_mtrl.produce_wrkgrpid[arr_mxt] = 0
		End If
	End If
	arg_s_mtrl.wrkGrpid_scll[arr_mxt] = ins_wrkGrpid_scll_bj
End If


arg_s_mtrl.lp[arr_mxt] = arg_lp

arg_s_mtrl.ifmainmtrlid[arr_mxt] = li_ifmainmtrlid
arg_s_mtrl.pmtrlid[arr_mxt] = arg_s_mrp.arg_pmtrlid
arg_s_mtrl.ifchanged[arr_mxt] = 0


//yyx 20110617
If ld_cmplqty < 0 Then ld_cmplqty = 0

//IF ld_cmplqty <= 0 THEN
//	rslt = 1
//	GOTO ext
//END IF

Choose Case li_mtrlorigin
//采购或客户来料
	Case 2
		rslt = 1
		Goto ext
	Case 6
		If li_mtrlprp = 2 Or li_mtrlprp = 8 Then
			rslt = 1
			Goto ext
		End If
	Case 0
		If ll_scid_mtrl <> arg_s_mrp.arg_scid And ll_ifbj_task = 0 Then
			rslt = 1
			Goto ext
		Else
			If arg_s_mrp.arg_ifcfg = 0 And (li_ifselforder = 1 Or li_ifselforder = 3) And li_ifmainmtrlid = 0 Then
				rslt = 1
				Goto ext
			End If
		End If
	Case 3
		
		If ll_scid_mtrl <> arg_s_mrp.arg_scid And ll_ifbj_task = 0 Then
			rslt = 1
			Goto ext
		Else
			If arg_s_mrp.arg_ifcfg = 0 And li_ifselforder = 1 And li_ifmainmtrlid = 0 Then
				rslt = 1
				Goto ext
			End If
		End If
End Choose

Long count,ll_j
Decimal cmpl_qty,ld_cmpl_qty_p
s_pfmx ls_s_pfmx[]

s_mtrlcfg_expr s_mtrlcfg[]
Long ll_cfg,ll_cnt_s_mtrlcfg

count = 0

//配置运算
If li_statusflag = 2 And arg_s_mrp.arg_ifcfg = 0 And li_ifpzpf = 0 Then
	If arg_s_mrp.arg_status = '' Then
		arg_msg = '计划产品设置为使用组合配置属性,但计划配置内容非法,请检查'
		rslt = 0
		Goto ext
	End If
	
	//分解配置
	f_checkpz_general(arg_s_mrp.arg_mtrlid,arg_s_mrp.arg_status,s_mtrlcfg)
	//		f_checkpz(arg_s_mrp.arg_status,s_mtrlcfg)
	//
	
	ll_cnt_s_mtrlcfg = UpperBound(s_mtrlcfg)
	If ll_cnt_s_mtrlcfg = 0 Then
		count = 0
	Else
		For ll_cfg = 1 To ll_cnt_s_mtrlcfg
			count++
			ls_s_pfmx[count].sonmtrlid = arg_s_mrp.arg_mtrlid
			ls_s_pfmx[count].status = s_mtrlcfg[ll_cfg].cfgname
			ls_s_pfmx[count].woodcode = arg_s_mrp.arg_woodcode
			ls_s_pfmx[count].pcode = arg_s_mrp.arg_pcode
			ls_s_pfmx[count].sonpfcode = s_mtrlcfg[ll_cfg].cfgname
			ls_s_pfmx[count].ifcfg = 1
			ls_s_pfmx[count].wrkGrpid = ll_wrkgrpid_mtrl
			ls_s_pfmx[count].pfklmode = ''
			ls_s_pfmx[count].pfgroup = ''
			ls_s_pfmx[count].pfgroupmode = ''
			ls_s_pfmx[count].Sonscale = Dec(s_mtrlcfg[ll_cfg].qty) * ld_cmplqty
			ls_s_pfmx[count].baseqty = 1
			ls_s_pfmx[count].buyarg = 1
			ls_s_pfmx[count].SonLoss = 0
			ls_s_pfmx[count].ifover = 0
			ls_s_pfmx[count].dipztype = 0
			ls_s_pfmx[count].mrp_unit = 0
			ls_s_pfmx[count].scllLoss = 0
			ls_s_pfmx[count].scllDECLoss = 0
			ls_s_pfmx[count].scllqtytype = 0
			ls_s_pfmx[count].if_follow = 0
			ls_s_pfmx[count].lasthour = 0
		Next
	End If
	
	If count = 0 Then
		arg_msg = '物料分拆配置失败,请检查配置内容'
		rslt = 0
		Goto ext
	End If
	
	//查询附加常规清单
	cnt = 0
	Select count(*) Into :cnt
		From u_mtrl_pf
		Where ( u_mtrl_pf.mtrlid = :arg_s_mrp.arg_mtrlid )
		And ( u_mtrl_pf.ifdi = 0 )
		And ( u_mtrl_pf.ifdft = 1 );
	If sqlca.SQLCode <> 0 Then
		arg_msg = '查询组合配置产品附加默认清单失败,请检查是否已建立默认清单'
		rslt = 0
		Goto ext
	End If
	
	If cnt > 1 Then
		arg_msg = '组合配置产品附加默认清单只能设置1个,请检查资料'
		rslt = 0
		Goto ext
	End If
	
	If cnt = 1 Then
		Declare pf_cur_dft Cursor For
			Select u_PrdPF.Sonscale,
			u_PrdPF.SonLoss,
			u_PrdPF.SonDECLosS,
			u_PrdPF.SonMtrlid,
			u_PrdPF.sonpfcode,
			u_PrdPF.status,
			u_PrdPF.woodcode,
			u_PrdPF.pcode,
			u_PrdPF.wrkGrpid,
			u_PrdPF.dscrp,
			u_PrdPF.pfklmode,
			u_PrdPF.pfgroup,
			u_PrdPF.pfgroupmode,
			0,
			u_PrdPF.advancetime,
			u_PrdPF.baseqty,
			u_PrdPF.buyarg,
			u_mtrldef.mrptype,
			u_mtrldef.mrparg,
			u_PrdPF.sonlossstr,
			u_prdpf.ifover,
			u_prdpf.dipztype,
			u_mtrldef.mrp_unit,
			u_mtrldef.rate_buy,
			u_mtrldef.rate_sale,
			u_mtrldef.rate_scll,
			u_prdpf.scllloss,
			u_prdpf.sclldecloss,
			u_prdpf.scllqtytype,
			u_prdpf.if_follow,
			u_prdpf.lasthour
			From u_PrdPF,u_mtrldef,u_mtrl_pf
			Where ( u_PrdPF.mtrlid = u_mtrl_pf.mtrlid )
			And ( u_mtrl_pf.ifdi = 0 )
			And ( u_mtrl_pf.ifdft = 1 )
			And ( u_PrdPF.pfcode = u_mtrl_pf.pfcode )
			And ( u_PrdPF.mtrlid = :arg_s_mrp.arg_mtrlid )
			And ( u_PrdPF.mtrlid = u_mtrldef.mtrlid ) Order By u_PrdPF.printid;
		Open pf_cur_dft;
		count++
		Fetch pf_cur_dft Into :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,&
			:ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].SonMtrlid,&
			:ls_s_pfmx[count].sonpfcode,:ls_s_pfmx[count].status,&
			:ls_s_pfmx[count].woodcode,:ls_s_pfmx[count].pcode,&
			:ls_s_pfmx[count].wrkGrpid,:ls_s_pfmx[count].dscrp,&
			:ls_s_pfmx[count].pfklmode,:ls_s_pfmx[count].pfgroup,&
			:ls_s_pfmx[count].pfgroupmode,:ls_s_pfmx[count].ifcfg,&
			:ls_s_pfmx[count].advancetime,:ls_s_pfmx[count].baseqty,&
			:ls_s_pfmx[count].buyarg,:ls_s_pfmx[count].u_mtrldef_mrptype,&
			:ls_s_pfmx[count].u_mtrldef_mrparg,:ls_s_pfmx[count].sonlossstr,&
			:ls_s_pfmx[count].ifover,:ls_s_pfmx[count].dipztype,&
			:ls_s_pfmx[count].mrp_unit,:ls_s_pfmx[count].rate_unit_buy,&
			:ls_s_pfmx[count].rate_unit_sale,:ls_s_pfmx[count].rate_unit_scll,&
			:ls_s_pfmx[count].scllloss,:ls_s_pfmx[count].sclldecloss,&
			:ls_s_pfmx[count].scllqtytype,:ls_s_pfmx[count].if_follow,:ls_s_pfmx[count].lasthour;
			
		Do While sqlca.SQLCode = 0
			count++
			Fetch pf_cur_dft Into :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,&
				:ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].SonMtrlid,&
				:ls_s_pfmx[count].sonpfcode,:ls_s_pfmx[count].status,&
				:ls_s_pfmx[count].woodcode,:ls_s_pfmx[count].pcode,&
				:ls_s_pfmx[count].wrkGrpid,:ls_s_pfmx[count].dscrp,&
				:ls_s_pfmx[count].pfklmode,:ls_s_pfmx[count].pfgroup,&
				:ls_s_pfmx[count].pfgroupmode,:ls_s_pfmx[count].ifcfg,&
				:ls_s_pfmx[count].advancetime,:ls_s_pfmx[count].baseqty,&
				:ls_s_pfmx[count].buyarg,:ls_s_pfmx[count].u_mtrldef_mrptype,&
				:ls_s_pfmx[count].u_mtrldef_mrparg,:ls_s_pfmx[count].sonlossstr,&
				:ls_s_pfmx[count].ifover,:ls_s_pfmx[count].dipztype,&
				:ls_s_pfmx[count].mrp_unit,:ls_s_pfmx[count].rate_unit_buy,&
				:ls_s_pfmx[count].rate_unit_sale,:ls_s_pfmx[count].rate_unit_scll,&
				:ls_s_pfmx[count].scllloss,:ls_s_pfmx[count].sclldecloss,&
				:ls_s_pfmx[count].scllqtytype,:ls_s_pfmx[count].if_follow,:ls_s_pfmx[count].lasthour;
		Loop
		count = count - 1
		Close pf_cur_dft;
	End If
Else
	//使用个性清单yyx20120823
	If ll_saletaskmx_pf_cnt > 0 Then
		Declare saletaskmxpf_cur Cursor For
			Select u_saletaskmx_pf.Sonscale/u_saletaskmx_pf.Sonscale_fm,
			0,
			0,
			u_saletaskmx_pf.SonMtrlid,
			isnull(u_mtrl_pf.pfcode,'[常规]'),
			u_saletaskmx_pf.status,
			u_saletaskmx_pf.woodcode,
			u_saletaskmx_pf.pcode,
			0,
			'',
			'',
			'',
			'',
			0,
			0,
			1,
			0,
			u_mtrldef.mrptype,
			u_mtrldef.mrparg,
			'',
			0,
			0,
			u_mtrldef.mrp_unit,
			u_mtrldef.rate_buy,
			u_mtrldef.rate_sale,
			u_mtrldef.rate_scll,
			0,
			0,
			0,
			0,
			0
			From u_saletaskmx_pf left Outer join u_mtrl_pf on u_saletaskmx_pf.sonmtrlid = u_mtrl_pf.mtrlid And
			u_mtrl_pf.ifdft = 1,
			u_mtrldef
			Where ( u_saletaskmx_pf.scid = :arg_s_mrp.arg_scid )
			And ( u_saletaskmx_pf.taskid = :ll_taskid_order )
			And ( u_saletaskmx_pf.printid = :ll_taskmxid_order )
			And ( u_saletaskmx_pf.sonmtrlid = u_mtrldef.mtrlid )
			Order By u_saletaskmx_pf.sonmtrlid;
			
		Open saletaskmxpf_cur;
		count++
		Fetch saletaskmxpf_cur Into :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,&
			:ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].SonMtrlid,&
			:ls_s_pfmx[count].sonpfcode,:ls_s_pfmx[count].status,&
			:ls_s_pfmx[count].woodcode,:ls_s_pfmx[count].pcode,&
			:ls_s_pfmx[count].wrkGrpid,:ls_s_pfmx[count].dscrp,&
			:ls_s_pfmx[count].pfklmode,:ls_s_pfmx[count].pfgroup,&
			:ls_s_pfmx[count].pfgroupmode,:ls_s_pfmx[count].ifcfg,&
			:ls_s_pfmx[count].advancetime,:ls_s_pfmx[count].baseqty,&
			:ls_s_pfmx[count].buyarg,:ls_s_pfmx[count].u_mtrldef_mrptype,&
			:ls_s_pfmx[count].u_mtrldef_mrparg,:ls_s_pfmx[count].sonlossstr,&
			:ls_s_pfmx[count].ifover,:ls_s_pfmx[count].dipztype,&
			:ls_s_pfmx[count].mrp_unit,:ls_s_pfmx[count].rate_unit_buy,&
			:ls_s_pfmx[count].rate_unit_sale,:ls_s_pfmx[count].rate_unit_scll,&
			:ls_s_pfmx[count].scllloss,:ls_s_pfmx[count].sclldecloss,&
			:ls_s_pfmx[count].scllqtytype,:ls_s_pfmx[count].if_follow,:ls_s_pfmx[count].lasthour;
			
		Do While sqlca.SQLCode = 0
			count++
			Fetch saletaskmxpf_cur Into :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,&
				:ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].SonMtrlid,&
				:ls_s_pfmx[count].sonpfcode,:ls_s_pfmx[count].status,&
				:ls_s_pfmx[count].woodcode,:ls_s_pfmx[count].pcode,&
				:ls_s_pfmx[count].wrkGrpid,:ls_s_pfmx[count].dscrp,&
				:ls_s_pfmx[count].pfklmode,:ls_s_pfmx[count].pfgroup,&
				:ls_s_pfmx[count].pfgroupmode,:ls_s_pfmx[count].ifcfg,&
				:ls_s_pfmx[count].advancetime,:ls_s_pfmx[count].baseqty,&
				:ls_s_pfmx[count].buyarg,:ls_s_pfmx[count].u_mtrldef_mrptype,&
				:ls_s_pfmx[count].u_mtrldef_mrparg,:ls_s_pfmx[count].sonlossstr,&
				:ls_s_pfmx[count].ifover,:ls_s_pfmx[count].dipztype,&
				:ls_s_pfmx[count].mrp_unit,:ls_s_pfmx[count].rate_unit_buy,&
				:ls_s_pfmx[count].rate_unit_sale,:ls_s_pfmx[count].rate_unit_scll,&
				:ls_s_pfmx[count].scllloss,:ls_s_pfmx[count].sclldecloss,&
				:ls_s_pfmx[count].scllqtytype,:ls_s_pfmx[count].if_follow,:ls_s_pfmx[count].lasthour;
		Loop
		count = count - 1
		Close saletaskmxpf_cur;
	End If
	
	Declare pf_cur Cursor For
		Select u_PrdPF.Sonscale,
		u_PrdPF.SonLoss,
		u_PrdPF.SonDECLosS,
		u_PrdPF.SonMtrlid,
		u_PrdPF.sonpfcode,
		u_PrdPF.status,
		u_PrdPF.woodcode,
		u_PrdPF.pcode,
		u_PrdPF.wrkGrpid,
		u_PrdPF.dscrp,
		u_PrdPF.pfklmode,
		u_PrdPF.pfgroup,
		u_PrdPF.pfgroupmode,
		0,
		u_PrdPF.advancetime,
		u_PrdPF.baseqty,
		u_PrdPF.buyarg,
		u_mtrldef.mrptype,
		u_mtrldef.mrparg,
		u_PrdPF.sonlossstr,
		u_prdpf.ifover,
		u_prdpf.dipztype,
		u_mtrldef.mrp_unit,
		u_mtrldef.rate_buy,
		u_mtrldef.rate_sale,
		u_mtrldef.rate_scll,
		u_prdpf.scllloss,
		u_prdpf.sclldecloss,
		u_prdpf.scllqtytype,
		u_prdpf.if_follow,
		u_prdpf.lasthour
		From u_PrdPF,u_mtrldef,u_mtrl_pf
		Where ( u_mtrl_pf.pfcode = :arg_s_mrp.arg_pfcode )
		And ( u_mtrl_pf.mtrlid = :arg_s_mrp.arg_mtrlid )
		And ( u_PrdPF.mtrlid = u_mtrl_pf.mtrlid )
		And ( u_PrdPF.pfcode = u_mtrl_pf.pfcode )
		And ( u_PrdPF.sonmtrlid = u_mtrldef.mtrlid )
		And ( u_mtrldef.ifmrp = 1 )
		And ( :ll_saletaskmx_pf_cnt = 0 Or :ll_saletaskmx_pf_cnt > 0 And u_mtrldef.ifpack = 0 )
		Order By u_PrdPF.printid;
		
	Open pf_cur;
	count++
	Fetch pf_cur Into :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,&
		:ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].SonMtrlid,&
		:ls_s_pfmx[count].sonpfcode,:ls_s_pfmx[count].status,&
		:ls_s_pfmx[count].woodcode,:ls_s_pfmx[count].pcode,&
		:ls_s_pfmx[count].wrkGrpid,:ls_s_pfmx[count].dscrp,&
		:ls_s_pfmx[count].pfklmode,:ls_s_pfmx[count].pfgroup,&
		:ls_s_pfmx[count].pfgroupmode,:ls_s_pfmx[count].ifcfg,&
		:ls_s_pfmx[count].advancetime,:ls_s_pfmx[count].baseqty,&
		:ls_s_pfmx[count].buyarg,:ls_s_pfmx[count].u_mtrldef_mrptype,&
		:ls_s_pfmx[count].u_mtrldef_mrparg,:ls_s_pfmx[count].sonlossstr,&
		:ls_s_pfmx[count].ifover,:ls_s_pfmx[count].dipztype,&
		:ls_s_pfmx[count].mrp_unit,:ls_s_pfmx[count].rate_unit_buy,&
		:ls_s_pfmx[count].rate_unit_sale,:ls_s_pfmx[count].rate_unit_scll,&
		:ls_s_pfmx[count].scllloss,:ls_s_pfmx[count].sclldecloss,&
		:ls_s_pfmx[count].scllqtytype,:ls_s_pfmx[count].if_follow,:ls_s_pfmx[count].lasthour;
		
	Do While sqlca.SQLCode = 0
		count++
		Fetch pf_cur Into :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,&
			:ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].SonMtrlid,&
			:ls_s_pfmx[count].sonpfcode,:ls_s_pfmx[count].status,&
			:ls_s_pfmx[count].woodcode,:ls_s_pfmx[count].pcode,&
			:ls_s_pfmx[count].wrkGrpid,:ls_s_pfmx[count].dscrp,&
			:ls_s_pfmx[count].pfklmode,:ls_s_pfmx[count].pfgroup,&
			:ls_s_pfmx[count].pfgroupmode,:ls_s_pfmx[count].ifcfg,&
			:ls_s_pfmx[count].advancetime,:ls_s_pfmx[count].baseqty,&
			:ls_s_pfmx[count].buyarg,:ls_s_pfmx[count].u_mtrldef_mrptype,&
			:ls_s_pfmx[count].u_mtrldef_mrparg,:ls_s_pfmx[count].sonlossstr,&
			:ls_s_pfmx[count].ifover,:ls_s_pfmx[count].dipztype,&
			:ls_s_pfmx[count].mrp_unit,:ls_s_pfmx[count].rate_unit_buy,&
			:ls_s_pfmx[count].rate_unit_sale,:ls_s_pfmx[count].rate_unit_scll,&
			:ls_s_pfmx[count].scllloss,:ls_s_pfmx[count].sclldecloss,&
			:ls_s_pfmx[count].scllqtytype,:ls_s_pfmx[count].if_follow,:ls_s_pfmx[count].lasthour;
	Loop
	count = count - 1
	Close pf_cur;
	
	If count = 0 Then
		rslt = 1
		Goto ext
	End If
End If

Decimal ld_qty_scll,ld_qty_cmpl,ld_qty_standard,ld_qty_cmpl_sonloss
Decimal ld_sonloss
String ls_status_son,ls_woodcode_son,ls_pcode_son
Long tem_long

s_mrp_arg s_mrp_arg1

For ll_j = 1 To count
	
	ld_qty_scll = 0
	ld_qty_cmpl = 0
	ld_sonloss = 0
	ld_qty_standard = 0
	ld_qty_cmpl_sonloss = 0
	
	If ls_s_pfmx[ll_j].ifcfg = 0 Then
		ld_qty_standard = (ld_cmplqty/ld_cmpqty)/ls_s_pfmx[ll_j].baseqty * ls_s_pfmx[ll_j].Sonscale
		ld_qty_cmpl_sonloss = ld_cmplqty //yyx20110802 计算损耗率用上级数量计算
		
		If Trim(ls_s_pfmx[ll_j].sonlossstr) = '' Then
			ld_sonloss = ls_s_pfmx[ll_j].SonLoss
		Else
			If uof_get_prdpf_sonloss(Trim(ls_s_pfmx[ll_j].sonlossstr),ld_qty_cmpl_sonloss,ld_sonloss) = 0 Then
				ld_sonloss = 100 //非法
				rslt = 0
				arg_msg = '非法的损耗率,可能损耗率公式有问题,请检查'
				Goto ext
			End If
			
			If ld_sonloss > 1 Or ld_sonloss < 0 Then
				ld_sonloss = 100 //非法
				rslt = 0
				arg_msg = '非法的损耗率,可能损耗率公式有问题,请检查'
				Goto ext
			End If
		End If
		
		If ld_sonloss < 1 Then
			If ls_s_pfmx[ll_j].baseqty > 1 Then
				ld_qty_scll = Ceiling(Truncate(ld_qty_standard/(1 - ld_sonloss)+ls_s_pfmx[ll_j].SonDECLoss,10))
			Else
				If ls_s_pfmx[ll_j].u_mtrldef_mrptype = 0 Then
					ld_qty_scll = Round(ld_qty_standard/(1 - ld_sonloss)+ls_s_pfmx[ll_j].SonDECLoss,ls_s_pfmx[ll_j].u_mtrldef_mrparg)
				Else
					If ls_s_pfmx[ll_j].u_mtrldef_mrparg = 0 Then
						ld_qty_scll = Ceiling(Truncate(ld_qty_standard/(1 - ld_sonloss)+ls_s_pfmx[ll_j].SonDECLoss,10))
					Else
						tem_long = 10^ls_s_pfmx[ll_j].u_mtrldef_mrparg
						
						ld_qty_scll = Ceiling(Truncate(ld_qty_standard/(1 - ld_sonloss)+ls_s_pfmx[ll_j].SonDECLoss,10) * tem_long)/tem_long
						ld_qty_scll = Round(ld_qty_scll , ls_s_pfmx[ll_j].u_mtrldef_mrparg)
					End If
				End If
			End If
			
			If ls_s_pfmx[ll_j].buyarg = 0  Then ls_s_pfmx[ll_j].buyarg = 1
			ld_qty_cmpl = ld_qty_scll * ls_s_pfmx[ll_j].buyarg
			ld_cmpl_qty_p = ld_cmplqty
			
			//按辅助单位补数
			Choose Case ls_s_pfmx[ll_j].mrp_unit
				Case 1
					If ls_s_pfmx[ll_j].rate_unit_buy > 0 Then
						ld_qty_cmpl = Ceiling(ld_qty_cmpl/ls_s_pfmx[ll_j].rate_unit_buy) * ls_s_pfmx[ll_j].rate_unit_buy
					End If
				Case 2
					If ls_s_pfmx[ll_j].rate_unit_buy > 0 Then
						ld_qty_cmpl = Ceiling(ld_qty_cmpl/ls_s_pfmx[ll_j].rate_unit_scll) * ls_s_pfmx[ll_j].rate_unit_scll
					End If
				Case 3
					If ls_s_pfmx[ll_j].rate_unit_buy > 0 Then
						ld_qty_cmpl = Ceiling(ld_qty_cmpl/ls_s_pfmx[ll_j].rate_unit_sale) * ls_s_pfmx[ll_j].rate_unit_sale
					End If
			End Choose
		Else
			ld_qty_scll = 0
			ld_qty_cmpl = 0
			ld_cmpl_qty_p = 0
			ld_sonloss = 0
		End If
	Else
		ld_qty_scll = ls_s_pfmx[ll_j].Sonscale
		ld_qty_cmpl = ld_qty_scll
		ld_cmpl_qty_p = ld_cmplqty
		ld_sonloss = ls_s_pfmx[ll_j].SonLoss
	End If
	
	Choose Case ls_s_pfmx[ll_j].scllqtytype
		Case 0
			ls_s_pfmx[ll_j].scllqty = ld_qty_scll
		Case 1
			ls_s_pfmx[ll_j].scllqty = ld_qty_standard
		Case 2
			If ls_s_pfmx[ll_j].u_mtrldef_mrptype = 0 Then
				ls_s_pfmx[ll_j].scllqty = Round(ld_qty_standard/(1 - ls_s_pfmx[ll_j].scllLoss)+ls_s_pfmx[ll_j].scllDECLoss,ls_s_pfmx[ll_j].u_mtrldef_mrparg)
			Else
				If ls_s_pfmx[ll_j].u_mtrldef_mrparg = 0 Then
					ls_s_pfmx[ll_j].scllqty = Ceiling(Truncate(ld_qty_standard/(1 - ls_s_pfmx[ll_j].scllLoss)+ls_s_pfmx[ll_j].scllDECLoss,10))
				Else
					tem_long = 10^ls_s_pfmx[ll_j].u_mtrldef_mrparg
					
					ls_s_pfmx[ll_j].scllqty = Ceiling(Truncate(ld_qty_standard/(1 - ls_s_pfmx[ll_j].scllLoss)+ls_s_pfmx[ll_j].scllDECLoss,10) * tem_long)/tem_long
					ls_s_pfmx[ll_j].scllqty = Round(ls_s_pfmx[ll_j].scllqty , ls_s_pfmx[ll_j].u_mtrldef_mrparg)
				End If
			End If
	End Choose
	
	If ls_s_pfmx[ll_j].ifover = 1 Then
		Choose Case ls_s_pfmx[ll_j].dipztype
			Case 0
				ls_status_son = arg_s_mrp.arg_status
				ls_woodcode_son = ''
				ls_pcode_son = ''
			Case 1
				ls_status_son = ''
				ls_woodcode_son = arg_s_mrp.arg_woodcode
				ls_pcode_son = ''
			Case 2
				ls_status_son = ''
				ls_woodcode_son = ''
				ls_pcode_son = arg_s_mrp.arg_pcode
			Case 3
				ls_status_son = arg_s_mrp.arg_status
				ls_woodcode_son = arg_s_mrp.arg_woodcode
				ls_pcode_son = ''
			Case 4
				ls_status_son = ''
				ls_woodcode_son = arg_s_mrp.arg_woodcode
				ls_pcode_son = arg_s_mrp.arg_pcode
			Case 5
				ls_status_son = arg_s_mrp.arg_status
				ls_woodcode_son = ''
				ls_pcode_son = arg_s_mrp.arg_pcode
			Case 6
				ls_status_son = arg_s_mrp.arg_status
				ls_woodcode_son = arg_s_mrp.arg_woodcode
				ls_pcode_son = arg_s_mrp.arg_pcode
		End Choose
	Else
		ls_status_son = ls_s_pfmx[ll_j].status
		ls_woodcode_son = ls_s_pfmx[ll_j].woodcode
		ls_pcode_son = ls_s_pfmx[ll_j].pcode
	End If
	
	s_mrp_arg1.arg_scid = arg_s_mrp.arg_scid
	s_mrp_arg1.arg_orderid = arg_s_mrp.arg_orderid
	s_mrp_arg1.arg_ifdate = arg_s_mrp.arg_ifdate
	s_mrp_arg1.arg_pmtrlid = arg_s_mrp.arg_mtrlid
	s_mrp_arg1.arg_mtrlid = ls_s_pfmx[ll_j].sonmtrlid
	s_mrp_arg1.arg_status = ls_status_son
	s_mrp_arg1.arg_woodcode = ls_woodcode_son
	s_mrp_arg1.arg_pcode = ls_pcode_son
	s_mrp_arg1.arg_pfcode = ls_s_pfmx[ll_j].sonpfcode
	s_mrp_arg1.arg_qty = ld_qty_scll
	s_mrp_arg1.arg_cmplqty = ld_qty_cmpl
	s_mrp_arg1.arg_ppfcode = arg_s_mrp.arg_pfcode
	s_mrp_arg1.arg_pqty = ld_cmpl_qty_p
	s_mrp_arg1.arg_wrkgrpid_scll = ls_s_pfmx[ll_j].wrkGrpid
	s_mrp_arg1.arg_up_sdate = ldt_sdate
	s_mrp_arg1.arg_up_rqdate = ldt_edate
	s_mrp_arg1.arg_if_allowuse = arg_s_mrp.arg_if_allowuse
	s_mrp_arg1.arg_gydscrp = ls_s_pfmx[ll_j].dscrp
	s_mrp_arg1.arg_pfklmode = ls_s_pfmx[ll_j].pfklmode
	s_mrp_arg1.arg_pfgroup = ls_s_pfmx[ll_j].pfgroup
	s_mrp_arg1.arg_pfgroupmode = ls_s_pfmx[ll_j].pfgroupmode
	s_mrp_arg1.arg_ifcfg = ls_s_pfmx[ll_j].ifcfg
	s_mrp_arg1.arg_advancetime = ls_s_pfmx[ll_j].advancetime
	s_mrp_arg1.arg_Sonscale = ls_s_pfmx[ll_j].Sonscale
	s_mrp_arg1.arg_SonLoss = ld_sonloss
	s_mrp_arg1.arg_SonDECLoss = ls_s_pfmx[ll_j].SonDECLoss
	s_mrp_arg1.arg_scllLoss = ls_s_pfmx[ll_j].scllLoss
	s_mrp_arg1.arg_scllDECLoss = ls_s_pfmx[ll_j].scllDECLoss
	s_mrp_arg1.arg_scllqtytype = ls_s_pfmx[ll_j].scllqtytype
	s_mrp_arg1.arg_scllqty = ls_s_pfmx[ll_j].scllqty
	s_mrp_arg1.arg_if_follow = ls_s_pfmx[ll_j].if_follow
	s_mrp_arg1.arg_lasthour = ls_s_pfmx[ll_j].lasthour
	s_mrp_arg1.arg_strandqty = ld_qty_standard
	
	
	
	rslt = uof_cmpl_rqmtrl(arg_lp + 1,s_mrp_arg1,arg_s_mtrl,arg_msg) //递归处理下级
	If rslt = 0 Then
		Goto ext
	End If
Next


ext:

Return rslt







end function

public function integer uof_cmpl_rqmtrl_re (long arg_lp, integer arg_plantype, s_mrp_arg arg_s_mrp, ref s_order_ml_rqmtrl arg_s_mtrl, ref string arg_msg);//解锁修改重算

Int rslt = 1
Int li_pfflag
Long arr_mxt
Long ll_i
Boolean if_special_notuse = False
Int li_ifpzpf
Long ll_pzpfcnt
String ls_pfcode_local
Long ll_ifbj_task
int li_multtype
decimal lde_eoq, lde_maxqty, lde_minqty
decimal lde_addcmplqty, lde_sameaddcmplqty
string ls_pdscrp

deep++
IF deep > 5000 THEN
	arg_msg = '递归太深'+String(deep)
	rslt = 0
	GOTO ext
END IF

String ls_mtrlcode,ls_mtrlname,ls_mtrlmode
String ls_unit,ls_mtrltype
Int li_mtrlorigin,li_ifselforder,li_mtrlprp,li_statusflag,li_mtrlorigin_p
Long ll_scid_mtrl,ll_wrkgrpid_mtrl
Decimal ld_buydays,ld_orderdays,ld_wfjgdays,ld_aheaddays
Date ld_sdate,ld_edate,ld_rqdate,ld_up_sdate
DateTime ldt_sdate,ldt_edate
Int li_ifpack,li_ifpackpro,li_ordertype,li_ifpackpz,li_iffp
Decimal ld_cmpqty
String ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode

Select u_mtrldef.mtrlcode,
	u_mtrldef.mtrlname,
	u_mtrldef.mtrlmode,
	u_mtrldef.mtrltype,
	u_mtrldef.unit,
	u_mtrldef.Mtrlorigin,
	u_mtrldef.scid,
	u_mtrldef.dftwrkgrpid,
	u_mtrldef.buydays,
	u_mtrldef.orderdays,
	u_mtrldef.wfjgdays,
	u_mtrldef.aheaddays,
	u_mtrldef.ifselforder,
	u_mtrldef.mtrlprp,
	u_mtrldef.statusflag,
	u_mtrldef.ifpack,
	u_mtrldef.ifpackpro,
	u_mtrldef.ordertype,
	u_mtrldef.ifpackpz,
	u_mtrldef.cmpqty,
	u_mtrldef.mtrlsectype,
	u_mtrldef.zxmtrlmode,
	u_mtrldef.usermtrlmode,
	u_mtrldef.iffp,
	u_mtrldef.multtype,
	u_mtrldef.eoq,
	u_mtrldef.maxqty,
	u_mtrldef.minqty
	Into :ls_mtrlcode,
	:ls_mtrlname,
	:ls_mtrlmode,
	:ls_mtrltype,
	:ls_unit,
	:li_mtrlorigin,
	:ll_scid_mtrl,
	:ll_wrkgrpid_mtrl,
	:ld_buydays,
	:ld_orderdays,
	:ld_wfjgdays,
	:ld_aheaddays,
	:li_ifselforder,
	:li_mtrlprp,
	:li_statusflag,
	:li_ifpack,
	:li_ifpackpro,
	:li_ordertype,
	:li_ifpackpz,
	:ld_cmpqty,
	:ls_mtrlsectype,
	:ls_zxmtrlmode,
	:ls_usermtrlmode,
	:li_iffp,
	:li_multtype,
	:lde_eoq,
	:lde_maxqty,
	:lde_minqty
	From u_mtrldef
	Where mtrlid = :arg_s_mrp.arg_mtrlid;
If sqlca.SQLCode <> 0 Then
	arg_msg = '查询物料资料失败,'+sqlca.SQLErrText
	rslt = 0
	Goto ext
End If

IF arg_s_mrp.arg_pmtrlid > 0 THEN
	SELECT mtrlorigin INTO :li_mtrlorigin_p
		FROM u_mtrldef
		Where mtrlid = :arg_s_mrp.arg_pmtrlid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询上级物料资料失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF


IF ld_cmpqty = 0 THEN ld_cmpqty = 1

IF uof_pfcode_check(arg_s_mrp.arg_mtrlid,ls_mtrlcode,arg_s_mrp.arg_pfcode,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF


Decimal ld_advancetime_max_next //自制下级最大提前期

//计算需求日期
ld_rqdate = Date(String(arg_s_mrp.arg_up_rqdate,'yyyy-mm-dd'))
ld_up_sdate = Date(String(arg_s_mrp.arg_up_sdate,'yyyy-mm-dd'))

IF arg_plantype = 0 THEN
	IF li_mtrlorigin_p = 3 THEN
		ld_edate = ld_up_sdate
	ELSE
		ld_edate = RelativeDate( ld_rqdate,0 - ld_orderdays - arg_s_mrp.arg_advancetime  )
	END IF
	//取下级最大提前期
	IF uof_get_max_advancetime(arg_s_mrp.arg_mtrlid,arg_s_mrp.arg_pfcode,ld_advancetime_max_next,arg_msg) = 0 THEN
		arg_msg = ls_mtrlcode + arg_msg
		rslt = 0
		GOTO ext
	END IF
	
	ld_sdate = RelativeDate( ld_edate, 0 - ld_advancetime_max_next )
ELSEIF arg_plantype = 2 THEN
	IF li_mtrlorigin_p = 3 THEN
		ld_edate = ld_up_sdate
	ELSE
		ld_edate = RelativeDate( ld_rqdate,0 - arg_s_mrp.arg_advancetime )
	END IF
	ld_edate = RelativeDate( ld_edate,0 - ld_orderdays )
	ld_sdate = RelativeDate ( ld_edate, 0 - ld_buydays )
ELSEIF arg_plantype = 3 THEN
	IF li_mtrlorigin_p = 3 THEN
		ld_edate = ld_up_sdate
	ELSE
		ld_edate = RelativeDate( ld_rqdate,0 - arg_s_mrp.arg_advancetime )
	END IF
	ld_edate = RelativeDate( ld_edate,0 - ld_orderdays )
	ld_sdate = RelativeDate ( ld_edate, 0 - ld_wfjgdays )
ELSEIF arg_plantype = 6 THEN
	IF li_mtrlorigin_p = 3 THEN
		ld_edate = ld_up_sdate
	ELSE
		ld_edate = RelativeDate( ld_rqdate,0 - arg_s_mrp.arg_advancetime )
	END IF
	ld_edate = RelativeDate( ld_edate,0 - ld_orderdays )
	ld_sdate = RelativeDate ( ld_edate, 0 - ld_aheaddays )
END IF

ldt_sdate = DateTime(ld_sdate,Time(0))
ldt_edate = DateTime(ld_edate,Time(0))
//

Decimal ld_cmplqty
Decimal ld_mqty
Decimal ld_wmqty
Decimal ld_bqty
Decimal ld_wqty
Decimal ld_pqty
Decimal ld_ckwareqty, ld_ckwareqty_af
Decimal ld_pqty2,ld_pqty2_cmpl
Decimal ld_rqwfjgqty,ld_rqwfjgqty_cmpl
Decimal ld_rqbuyqty,ld_rqbuyqty_cmpl
Decimal ld_otherrqqty,ld_otherrqqty_wx,ld_otherrqqty_sale,ld_samerqqty

IF arg_s_mrp.arg_if_allowuse = 1 And ( li_ifselforder > 0 And li_mtrlorigin = 0 Or li_mtrlorigin > 0 ) THEN
	//改写存储过程
	IF sys_option_if_newmrp = 0 THEN
		DECLARE sp_qty PROCEDURE FOR sp_order_ml_mrp_qty
			@arg_ifdate = :arg_s_mrp.arg_ifdate,
			@arg_enddate = :ldt_edate,
			@arg_scid = :arg_s_mrp.arg_scid,
			@arg_orderid = :arg_s_mrp.arg_orderid,
			@arg_mtrlid = :arg_s_mrp.arg_mtrlid,
			@arg_status = :arg_s_mrp.arg_status,
			@arg_woodcode = :arg_s_mrp.arg_woodcode,
			@arg_pcode = :arg_s_mrp.arg_pcode,
			@arg_if_otherrq_mrpaudit = :if_otherrq_mrpaudit,
			@arg_if_wqty_norq = :sys_option_if_wqty_norq,
			@arg_plantype = :li_mtrlorigin,
			@arg_ref_bqty = :ld_bqty output,
			@arg_ref_pqty = :ld_pqty output,
			@arg_ref_wqty = :ld_wqty output,
			@arg_ref_mqty = :ld_mqty output,
			@arg_ref_wmqty = :ld_wmqty output,
			@arg_ref_pqty_nozl = :ld_pqty2 output,
			@arg_ref_otherrqqty = :ld_otherrqqty output,
			@arg_ref_rqwfjgqty = :ld_rqwfjgqty output,
			@arg_ref_rqbuyqty = :ld_rqbuyqty output,
			@arg_ref_otherrqqty_wx = :ld_otherrqqty_wx output,
			@arg_ref_otherrqqty_sale = :ld_otherrqqty_sale output;
			
		EXECUTE sp_qty;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '物料:'+ls_mtrlcode+',调用查询数量储存过程失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		FETCH sp_qty Into :ld_bqty,:ld_pqty,:ld_wqty,:ld_mqty,:ld_wmqty,:ld_pqty2,:ld_otherrqqty,:ld_rqwfjgqty,:ld_rqbuyqty,:ld_otherrqqty_wx,:ld_otherrqqty_sale;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '物料:'+ls_mtrlcode+',储存过程赋值变量失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		CLOSE sp_qty;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '物料:'+ls_mtrlcode+',关闭查询数量储存过程失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	ELSE
		DECLARE sp_qty1 PROCEDURE FOR sp_order_ml_mrp_qty_new
			@arg_ifdate = :arg_s_mrp.arg_ifdate,
			@arg_enddate = :ldt_edate,
			@arg_scid = :arg_s_mrp.arg_scid,
			@arg_mtrlid = :arg_s_mrp.arg_mtrlid,
			@arg_status = :arg_s_mrp.arg_status,
			@arg_woodcode = :arg_s_mrp.arg_woodcode,
			@arg_pcode = :arg_s_mrp.arg_pcode,
			@arg_ref_bqty = :ld_bqty output,
			@arg_ref_pqty = :ld_pqty output,
			@arg_ref_wqty = :ld_wqty output,
			@arg_ref_pqty_nozl = :ld_pqty2 output,
			@arg_ref_otherrqqty = :ld_otherrqqty output,
			@arg_ref_otherrqqty_wx = :ld_otherrqqty_wx output Using mrp_sqlca;
			
		EXECUTE sp_qty1;
		IF mrp_sqlca.SQLCode <> 0 THEN
			arg_msg = '物料:'+ls_mtrlcode+',调用查询数量储存过程失败,'+mrp_sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		FETCH sp_qty1 Into :ld_bqty,:ld_pqty,:ld_wqty,:ld_pqty2,:ld_otherrqqty,:ld_otherrqqty_wx;
		IF mrp_sqlca.SQLCode <> 0 THEN
			arg_msg = '物料:'+ls_mtrlcode+',储存过程赋值变量失败,'+mrp_sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		CLOSE sp_qty1;
		IF mrp_sqlca.SQLCode <> 0 THEN
			arg_msg = '物料:'+ls_mtrlcode+',关闭查询数量储存过程失败,'+mrp_sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		DECLARE sp_qty2 PROCEDURE FOR sp_order_ml_mrp_qty_new2
			@arg_scid = :arg_s_mrp.arg_scid,
			@arg_mtrlid = :arg_s_mrp.arg_mtrlid,
			@arg_status = :arg_s_mrp.arg_status,
			@arg_woodcode = :arg_s_mrp.arg_woodcode,
			@arg_pcode = :arg_s_mrp.arg_pcode,
			@arg_ref_mqty = :ld_mqty output,
			@arg_ref_wmqty = :ld_wmqty output;
			
		EXECUTE sp_qty2;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '物料:'+ls_mtrlcode+',调用查询库存数量储存过程失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		FETCH sp_qty2 Into :ld_mqty,:ld_wmqty;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '物料:'+ls_mtrlcode+',库存数量储存过程赋值变量失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		CLOSE sp_qty2;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '物料:'+ls_mtrlcode+',关闭查询库存数量储存过程失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	//	IF uof_get_qty(1,arg_ifdate,arg_rqdate,arg_scid,arg_orderid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode,ld_bqty,arg_msg) = 0 THEN
	//		arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
	//		rslt = 0
	//		GOTO ext
	//	END IF
	//	
	//	IF uof_get_qty(2,arg_ifdate,arg_rqdate,arg_scid,arg_orderid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode,ld_pqty,arg_msg) = 0 THEN
	//		arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
	//		rslt = 0
	//		GOTO ext
	//	END IF
	//	
	//	IF uof_get_qty(3,arg_ifdate,arg_rqdate,arg_scid,arg_orderid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode,ld_wqty,arg_msg) = 0 THEN
	//		arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
	//		rslt = 0
	//		GOTO ext
	//	END IF
	//	
	//	IF uof_get_qty(4,arg_ifdate,arg_rqdate,arg_scid,arg_orderid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode,ld_mqty,arg_msg) = 0 THEN
	//		arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
	//		rslt = 0
	//		GOTO ext
	//	END IF
	//	
	//	IF uof_get_other_rqqty(arg_scid,arg_orderid,arg_mtrlid,li_mtrlorigin,arg_status,arg_woodcode,arg_pcode,ld_otherrqqty,arg_ifdate,ldt_edate,arg_msg) = 0 THEN
	//		arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
	//		rslt = 0
	//		GOTO ext
	//	END IF
	//	
	//	IF if_pqty_not_zl And li_mtrlorigin = 0 THEN
	//		IF uof_get_qty(5,arg_ifdate,arg_rqdate,arg_scid,arg_orderid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode,ld_pqty2,arg_msg) = 0 THEN
	//			arg_msg = '物料:'+ls_mtrlcode + ',' + arg_msg
	//			rslt = 0
	//			GOTO ext
	//		END IF
	//	END IF
	
	if sys_option_if_mrp_dscrp = 1 then
			Declare sp_pdscrp Procedure For Sp_order_ml_mrp_qty_pdscrp
					@arg_ifdate = :arg_s_mrp.arg_ifdate,
					@arg_enddate = :ldt_edate,
					@arg_scid = :arg_s_mrp.arg_scid,
					@arg_orderid = :arg_s_mrp.arg_orderid,
					@arg_mtrlid = :arg_s_mrp.arg_mtrlid,
					@arg_status = :arg_s_mrp.arg_status,
					@arg_woodcode = :arg_s_mrp.arg_woodcode,
					@arg_pcode = :arg_s_mrp.arg_pcode,
					@arg_pdscrp = :ls_pdscrp output Using mrp_sqlca;
					
				Execute sp_pdscrp;
				If mrp_sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',调用查询数量明细备注储存过程失败,'+mrp_sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				Fetch sp_pdscrp Into :ls_pdscrp;
				If mrp_sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',储存过程赋值变量失败,'+mrp_sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
				Close sp_pdscrp;
				If mrp_sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',关闭查询数量明细备注储存过程失败,'+mrp_sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
		end if
END IF

IF deep = 1 THEN
	ld_cmplqty = arg_s_mrp.arg_cmplqty
ELSE
	arr_mxt = UpperBound(arg_s_mtrl.mtrlid)
	IF arr_mxt = 0 THEN
		ld_samerqqty = 0
		lde_sameaddcmplqty = 0
	ELSE
		FOR ll_i = 1 To arr_mxt
			IF arg_s_mtrl.scid[ll_i] = arg_s_mrp.arg_scid And &
				arg_s_mtrl.orderid[ll_i] = arg_s_mrp.arg_orderid And &
				arg_s_mtrl.mtrlid[ll_i] = arg_s_mrp.arg_mtrlid And &
				arg_s_mtrl.status[ll_i] = arg_s_mrp.arg_status And &
				arg_s_mtrl.woodcode[ll_i] = arg_s_mrp.arg_woodcode And &
				arg_s_mtrl.pcode[ll_i] = arg_s_mrp.arg_pcode And &
				arg_s_mtrl.wrkgrpid_scll[ll_i] = arg_s_mrp.arg_wrkgrpid_scll THEN
				IF arg_s_mtrl.ifselforder[ll_i] > 0 And arg_s_mtrl.mtrlorigin[ll_i] = 0 Or arg_s_mtrl.mtrlorigin[ll_i] > 0  THEN
					if  ((li_ifselforder > 0 And li_mtrlorigin = 0) or (sys_option_if_wqty_norq = 1 and li_mtrlorigin = 3) ) and li_multtype > 0 then 
						ld_samerqqty = ld_samerqqty + arg_s_mtrl.qty[ll_i] -  arg_s_mtrl.cmplqty[ll_i]
					else
						ld_samerqqty = ld_samerqqty + arg_s_mtrl.qty[ll_i]
					end if
					lde_sameaddcmplqty = lde_sameaddcmplqty + arg_s_mtrl.addcmplqty[ll_i]
				END IF
			END IF
		NEXT
	END IF
	
	IF arg_s_mrp.arg_if_allowuse = 1 And ( li_ifselforder > 0 And li_mtrlorigin = 0 Or li_mtrlorigin > 0 ) THEN
		IF ifzl_mtrl_not_useqty Or ifzl_mtrl_pwx_not_useqty Or ifwx_mtrl_not_useqty Or ifpack_mtrl_not_useqty THEN
			IF li_mtrlorigin = 0 THEN
				IF li_ifpack > 0 THEN
					IF ifpack_mtrl_not_useqty THEN
						ld_cmplqty = arg_s_mrp.arg_cmplqty
						if_special_notuse = True
					END IF
				END IF
				
				IF li_ifselforder = 2 And li_ifpack = 0 THEN
					IF ifzl_mtrl_not_useqty THEN
						ld_cmplqty = arg_s_mrp.arg_cmplqty
						if_special_notuse = True
					END IF
				END IF
				
				IF li_mtrlorigin_p = 3 And ifzl_mtrl_pwx_not_useqty THEN
					ld_cmplqty = arg_s_mrp.arg_cmplqty
					if_special_notuse = True
				END IF
			ELSEIF li_mtrlorigin = 2 THEN
				IF li_ifpack > 0 THEN
					IF ifpack_mtrl_not_useqty THEN
						ld_cmplqty = arg_s_mrp.arg_cmplqty
						if_special_notuse = True
					END IF
				END IF
				
			ELSEIF li_mtrlorigin = 3 THEN
				IF ifwx_mtrl_not_useqty THEN
					ld_cmplqty = arg_s_mrp.arg_cmplqty
					if_special_notuse = True
				END IF
			END IF
		END IF
		
		IF if_pqty_not_zl THEN
			ld_pqty2_cmpl = ld_pqty2
		ELSE
			ld_pqty2_cmpl = 0
		END IF
		
		
		IF if_rqwfjg_useqty THEN
			ld_rqwfjgqty_cmpl = ld_rqwfjgqty
		ELSE
			ld_rqwfjgqty_cmpl = 0
		END IF
		
		IF if_rqbuy_useqty THEN
			ld_rqbuyqty_cmpl = ld_rqbuyqty
		ELSE
			ld_rqbuyqty_cmpl = 0
		END IF
		
		ld_ckwareqty = (ld_mqty + ld_wmqty + ld_bqty + ld_wqty + ld_pqty + ld_pqty2_cmpl + ld_rqwfjgqty_cmpl + ld_rqbuyqty_cmpl) - (ld_otherrqqty + ld_otherrqqty_wx + ld_otherrqqty_sale + ld_samerqqty)
		
		
		IF Not if_special_notuse THEN
				if ld_ckwareqty > 0 then 
					if ld_ckwareqty > arg_s_mrp.arg_cmplqty then
						ld_cmplqty = 0
						ld_ckwareqty_af = ld_ckwareqty - arg_s_mrp.arg_cmplqty
					else
						ld_cmplqty = arg_s_mrp.arg_cmplqty - ld_ckwareqty
						ld_ckwareqty_af = 0
					end if
				else
					ld_cmplqty = arg_s_mrp.arg_cmplqty
					ld_ckwareqty_af = 0
				end if
				
							//如果有设置‘物料运算倍数基数’， 按倍数生产
			//自制需求补足批量模式：
			//0- 不增补
			//1- 补足到最小经济生产批量
			//2- 补足到最小经济生产批量的整倍数
			//3- (现库存减需求后的可用数少于库存下限时)补足到库存上限且不少于最小经济批量
			if (li_ifselforder > 0 And li_mtrlorigin = 0) or (sys_option_if_wqty_norq = 1 and li_mtrlorigin = 3)  then 
				choose case li_multtype
					case 0 
						
					case 1
						if ld_cmplqty > 0 then
							if ld_cmplqty < lde_eoq then 
								lde_addcmplqty = lde_eoq - ld_cmplqty
								ld_cmplqty = lde_eoq
							end if
						end if
					case 2
						if ld_cmplqty > 0 then
							if mod(ld_cmplqty, lde_eoq) > 0 then 
								lde_addcmplqty = lde_eoq - mod(ld_cmplqty, lde_eoq)
								ld_cmplqty = ld_cmplqty + (lde_eoq - mod(ld_cmplqty, lde_eoq))
							end if
						end if
					case 3
						if ld_cmplqty > 0 then
							if ld_ckwareqty_af < lde_minqty then //小于库存下限的才按库存上限生产
								if lde_eoq > lde_maxqty + ld_cmplqty then 
									lde_addcmplqty = lde_eoq - ld_cmplqty
								else
									lde_addcmplqty = lde_maxqty
								end if
							else //不小于的只考虑经济批量
								if lde_eoq >  ld_cmplqty then //不足经济批量的补足
									lde_addcmplqty = lde_eoq - ld_cmplqty
								else
									lde_addcmplqty = 0
								end if
							end if
							ld_cmplqty = ld_cmplqty + lde_addcmplqty
							//ld_cmplqty = max(lde_eoq, lde_maxqty + ld_cmplqty)
						else
							if ld_ckwareqty_af < lde_minqty then //小于库存下限的才按库存上限生产
								if lde_eoq > lde_maxqty  then 
									lde_addcmplqty = lde_eoq 
								else
									lde_addcmplqty = lde_maxqty
								end if
								ld_cmplqty = ld_cmplqty + lde_addcmplqty
							end if
						end if
				end choose
			end if


//			IF ld_otherrqqty + ld_otherrqqty_wx + ld_otherrqqty_sale >= ld_mqty + ld_wmqty + ld_bqty + ld_wqty + ld_pqty + ld_pqty2_cmpl + ld_rqwfjgqty_cmpl + ld_rqbuyqty_cmpl THEN
//				ld_cmplqty = arg_s_mrp.arg_cmplqty
//			ELSE
//				IF ld_mqty + ld_wmqty + ld_bqty + ld_wqty + ld_pqty + ld_pqty2_cmpl + ld_rqwfjgqty_cmpl + ld_rqbuyqty_cmpl - ld_otherrqqty - ld_otherrqqty_wx - ld_otherrqqty_sale - ld_samerqqty > 0 THEN
//					IF arg_s_mrp.arg_cmplqty  > ld_mqty + ld_wmqty + ld_bqty + ld_wqty + ld_pqty + ld_pqty2_cmpl + ld_rqwfjgqty_cmpl + ld_rqbuyqty_cmpl - ld_otherrqqty - ld_otherrqqty_wx - ld_otherrqqty_sale - ld_samerqqty THEN
//						ld_cmplqty = arg_s_mrp.arg_cmplqty - ( ld_mqty + ld_wmqty + ld_bqty + ld_wqty + ld_pqty + ld_pqty2_cmpl + ld_rqwfjgqty_cmpl + ld_rqbuyqty_cmpl -  ld_otherrqqty - ld_otherrqqty_wx - ld_otherrqqty_sale - ld_samerqqty )
//					ELSE
//						ld_cmplqty = 0
//					END IF
//				ELSE
//					ld_cmplqty = arg_s_mrp.arg_cmplqty
//				END IF
//			END IF
		END IF
	ELSE
		ld_cmplqty = arg_s_mrp.arg_cmplqty
	END IF
	
	arr_mxt++
	arg_s_mtrl.scid[arr_mxt] = arg_s_mrp.arg_scid
	arg_s_mtrl.orderid[arr_mxt] = arg_s_mrp.arg_orderid
	arg_s_mtrl.mtrlid[arr_mxt] = arg_s_mrp.arg_mtrlid
	arg_s_mtrl.status[arr_mxt] = arg_s_mrp.arg_status
	arg_s_mtrl.woodcode[arr_mxt] = arg_s_mrp.arg_woodcode
	arg_s_mtrl.pcode[arr_mxt] = arg_s_mrp.arg_pcode
	arg_s_mtrl.pfcode[arr_mxt] = arg_s_mrp.arg_pfcode
	arg_s_mtrl.qty[arr_mxt] = arg_s_mrp.arg_qty
	arg_s_mtrl.cmplqty[arr_mxt] = ld_cmplqty
	arg_s_mtrl.plantype[arr_mxt] = arg_plantype
	arg_s_mtrl.mqty[arr_mxt] = ld_mqty
	arg_s_mtrl.wmqty[arr_mxt] = ld_wmqty
	arg_s_mtrl.bqty[arr_mxt] = ld_bqty
	arg_s_mtrl.wqty[arr_mxt] = ld_wqty
	arg_s_mtrl.pqty[arr_mxt] = ld_pqty
	arg_s_mtrl.pqty2[arr_mxt] = ld_pqty2
	arg_s_mtrl.rqwfjgqty[arr_mxt] = ld_rqwfjgqty
	arg_s_mtrl.rqbuyqty[arr_mxt] = ld_rqbuyqty
	arg_s_mtrl.otherrqqty[arr_mxt] = ld_otherrqqty
	arg_s_mtrl.otherrqqty_wx[arr_mxt] = ld_otherrqqty_wx
	arg_s_mtrl.otherrqqty_sale[arr_mxt] = ld_otherrqqty_sale
arg_s_mtrl.samerqqty[arr_mxt] = ld_samerqqty
arg_s_mtrl.ckwareqty[arr_mxt] = ld_ckwareqty
arg_s_mtrl.addcmplqty[arr_mxt] = lde_addcmplqty //由补足方式额外增加的数

arg_s_mtrl.pdscrp[arr_mxt] = ls_pdscrp
	
	
	//有可用数不用计算开始日期
	IF ld_cmplqty = 0 THEN
		arg_s_mtrl.sdate[arr_mxt] = ldt_edate
	ELSE
		arg_s_mtrl.sdate[arr_mxt] = ldt_sdate
	END IF
	arg_s_mtrl.edate[arr_mxt] = ldt_edate
	
	arg_s_mtrl.mtrlcode[arr_mxt] = ls_mtrlcode
	arg_s_mtrl.mtrlname[arr_mxt] = ls_mtrlname
	arg_s_mtrl.mtrlmode[arr_mxt] = ls_mtrlmode
	arg_s_mtrl.mtrltype[arr_mxt] = ls_mtrltype
	arg_s_mtrl.unit[arr_mxt] = ls_unit
	arg_s_mtrl.mtrlorigin[arr_mxt] = arg_plantype
	arg_s_mtrl.iffp[arr_mxt] = li_iffp
	arg_s_mtrl.ifselforder[arr_mxt] = li_ifselforder
	arg_s_mtrl.gydscrp[arr_mxt] = arg_s_mrp.arg_gydscrp
	arg_s_mtrl.pfklmode[arr_mxt] = arg_s_mrp.arg_pfklmode
	arg_s_mtrl.pfgroup[arr_mxt] = arg_s_mrp.arg_pfgroup
	arg_s_mtrl.pfgroupmode[arr_mxt] = arg_s_mrp.arg_pfgroupmode
	arg_s_mtrl.ifpack[arr_mxt] = li_ifpack
	arg_s_mtrl.ifpackpro[arr_mxt] = li_ifpackpro
	arg_s_mtrl.produce_scid[arr_mxt] = ll_scid_mtrl
	arg_s_mtrl.produce_wrkgrpid[arr_mxt] = ll_wrkgrpid_mtrl
	arg_s_mtrl.wrkgrpid_scll[arr_mxt] = arg_s_mrp.arg_wrkgrpid_scll
	
	arg_s_mtrl.mtrlsectype[arr_mxt] = ls_mtrlsectype
	arg_s_mtrl.zxmtrlmode[arr_mxt] = ls_zxmtrlmode
	arg_s_mtrl.usermtrlmode[arr_mxt] = ls_usermtrlmode
	
	
	
	arg_s_mtrl.sonloss[arr_mxt] = arg_s_mrp.arg_sonloss
	arg_s_mtrl.sondecloss[arr_mxt] = arg_s_mrp.arg_sondecloss
	arg_s_mtrl.scllloss[arr_mxt] = arg_s_mrp.arg_scllloss
	arg_s_mtrl.sclldecloss[arr_mxt] = arg_s_mrp.arg_sclldecloss
	arg_s_mtrl.scllqtytype[arr_mxt] = arg_s_mrp.arg_scllqtytype
	arg_s_mtrl.standardrqqty[arr_mxt] = arg_s_mrp.arg_strandqty
	arg_s_mtrl.scllqty[arr_mxt] = arg_s_mrp.arg_scllqty
	arg_s_mtrl.if_follow[arr_mxt] = arg_s_mrp.arg_if_follow
	arg_s_mtrl.lasthour[arr_mxt] = arg_s_mrp.arg_lasthour
	if isnull(arg_s_mrp.arg_Sonscale) then arg_s_mrp.arg_Sonscale = 0
	arg_s_mtrl.Sonscale[arr_mxt] = arg_s_mrp.arg_Sonscale
	
	arg_s_mtrl.lp[arr_mxt] = arg_lp
	
	arg_s_mtrl.samerqqty[arr_mxt] = ld_samerqqty
	arg_s_mtrl.ifmainmtrlid[arr_mxt] = 0
	
	arg_s_mtrl.pmtrlid[arr_mxt] = arg_s_mrp.arg_pmtrlid
	arg_s_mtrl.ifchanged[arr_mxt] = 0

	arg_s_mtrl.pdscrp[arr_mxt] = ls_pdscrp
	
	IF arg_plantype = 0 THEN
		IF ll_scid_mtrl <> arg_s_mrp.arg_scid THEN
			rslt = 1
			GOTO ext
		ELSE
			IF li_ifselforder = 1 THEN
				rslt = 1
				GOTO ext
			END IF
		END IF
	END IF
	
	IF arg_plantype = 2 THEN
		rslt = 1
		GOTO ext
	END IF
	
	
	IF arg_plantype = 3 THEN
		IF ll_scid_mtrl <> arg_s_mrp.arg_scid THEN
			rslt = 1
			GOTO ext
		ELSE
			IF li_ifselforder = 1 THEN
				rslt = 1
				GOTO ext
			END IF
		END IF
	END IF
	
	IF arg_plantype = 6 THEN
		IF li_mtrlprp = 2 Or li_mtrlprp = 8 THEN
			rslt = 1
			GOTO ext
		END IF
	END IF
	
END IF

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


Long count,ll_j
s_pfmx ls_s_pfmx[]

count = 0

DECLARE pf_cur CURSOR FOR
	SELECT u_PrdPF.Sonscale,
	u_PrdPF.SonLoss,
	u_PrdPF.SonDECLosS,
	u_PrdPF.SonMtrlid,
	u_PrdPF.sonpfcode,
	u_PrdPF.status,
	u_PrdPF.woodcode,
	u_PrdPF.pcode,
	u_PrdPF.wrkGrpid,
	u_mtrldef.mtrlorigin,
	u_PrdPF.dscrp,
	u_PrdPF.pfklmode,
	u_PrdPF.pfgroup,
	u_PrdPF.pfgroupmode,
	u_PrdPF.advancetime,
	u_PrdPF.baseqty,
	u_PrdPF.buyarg,
	u_mtrldef.mrptype,
	u_mtrldef.mrparg,
	u_prdpf.ifover,
	u_prdpf.dipztype,
	u_mtrldef.mrp_unit,
	u_mtrldef.rate_buy,
	u_mtrldef.rate_sale,
	u_mtrldef.rate_scll,
	u_prdpf.scllloss,
	u_prdpf.sclldecloss,
	u_prdpf.scllqtytype,
	u_prdpf.if_follow,
	u_prdpf.lasthour
	FROM u_PrdPF,u_mtrldef
	WHERE ( u_PrdPF.mtrlid = :arg_s_mrp.arg_mtrlid )
	AND ( u_PrdPF.pfcode = :arg_s_mrp.arg_pfcode )
	AND ( u_mtrldef.ifmrp = 1 )
	AND ( u_PrdPF.SonMtrlid = u_mtrldef.mtrlid )
	Order By u_PrdPF.printid;
OPEN pf_cur;
count = 1
FETCH pf_cur INTO :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,&
	:ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].SonMtrlid,&
	:ls_s_pfmx[count].sonpfcode,:ls_s_pfmx[count].status,&
	:ls_s_pfmx[count].woodcode,:ls_s_pfmx[count].pcode,&
	:ls_s_pfmx[count].wrkGrpid,:ls_s_pfmx[count].Mtrlorigin,&
	:ls_s_pfmx[count].dscrp,:ls_s_pfmx[count].pfklmode,&
	:ls_s_pfmx[count].pfgroup,:ls_s_pfmx[count].pfgroupmode,&
	:ls_s_pfmx[count].advancetime,:ls_s_pfmx[count].baseqty,&
	:ls_s_pfmx[count].buyarg,:ls_s_pfmx[count].u_mtrldef_mrptype,&
	:ls_s_pfmx[count].u_mtrldef_mrparg,&
	:ls_s_pfmx[count].ifover,:ls_s_pfmx[count].dipztype,&
	:ls_s_pfmx[count].mrp_unit,:ls_s_pfmx[count].rate_unit_buy,&
	:ls_s_pfmx[count].rate_unit_sale,:ls_s_pfmx[count].rate_unit_scll,&
	:ls_s_pfmx[count].scllloss,:ls_s_pfmx[count].sclldecloss,&
	:ls_s_pfmx[count].scllqtytype,:ls_s_pfmx[count].if_follow,:ls_s_pfmx[count].lasthour;
DO WHILE sqlca.SQLCode = 0
	count++
	FETCH pf_cur INTO :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,&
		:ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].SonMtrlid,&
		:ls_s_pfmx[count].sonpfcode,:ls_s_pfmx[count].status,&
		:ls_s_pfmx[count].woodcode,:ls_s_pfmx[count].pcode,&
		:ls_s_pfmx[count].wrkGrpid,:ls_s_pfmx[count].Mtrlorigin,&
		:ls_s_pfmx[count].dscrp,:ls_s_pfmx[count].pfklmode,&
		:ls_s_pfmx[count].pfgroup,:ls_s_pfmx[count].pfgroupmode,&
		:ls_s_pfmx[count].advancetime,:ls_s_pfmx[count].baseqty,&
		:ls_s_pfmx[count].buyarg,:ls_s_pfmx[count].u_mtrldef_mrptype,&
		:ls_s_pfmx[count].u_mtrldef_mrparg,&
		:ls_s_pfmx[count].ifover,:ls_s_pfmx[count].dipztype,&
		:ls_s_pfmx[count].mrp_unit,:ls_s_pfmx[count].rate_unit_buy,&
		:ls_s_pfmx[count].rate_unit_sale,:ls_s_pfmx[count].rate_unit_scll,&
		:ls_s_pfmx[count].scllloss,:ls_s_pfmx[count].sclldecloss,&
		:ls_s_pfmx[count].scllqtytype,:ls_s_pfmx[count].if_follow,:ls_s_pfmx[count].lasthour;
LOOP
count = count - 1
CLOSE pf_cur;

IF count = 0 THEN
	rslt = 1
	GOTO ext
END IF

Decimal ld_qty_scll,ld_qty_cmpl,ld_qty_standard
Decimal ld_sonloss
String ls_status_son,ls_woodcode_son,ls_pcode_son
Long tem_long
s_mrp_arg s_mrp_arg1

FOR ll_j = 1 To count
	
	ld_qty_scll = 0
	ld_qty_cmpl = 0
	ld_sonloss = 0
	ld_qty_standard = 0
	
	ld_qty_standard = (ld_cmplqty/ld_cmpqty)/ls_s_pfmx[ll_j].baseqty * ls_s_pfmx[ll_j].Sonscale
	
	IF Trim(ls_s_pfmx[ll_j].sonlossstr) = '' THEN
		ld_sonloss = ls_s_pfmx[ll_j].sonloss
	ELSE
		IF uof_get_prdpf_sonloss(Trim(ls_s_pfmx[ll_j].sonlossstr),ld_qty_standard,ld_sonloss) = 0 THEN
			ld_sonloss = 100 //非法
		END IF
		
		IF ld_sonloss > 1 Or ld_sonloss < 0 THEN
			ld_sonloss = 100 //非法
		END IF
	END IF
	
	IF ld_sonloss < 1 THEN
		IF ls_s_pfmx[ll_j].baseqty > 1 THEN
			ld_qty_scll = Ceiling(Truncate(ld_qty_standard/(1 - ld_sonloss) + ls_s_pfmx[ll_j].sondecloss,10))
		ELSE
			IF ls_s_pfmx[ll_j].u_mtrldef_mrptype = 0 THEN
				ld_qty_scll = Round(ld_qty_standard/(1 - ld_sonloss) + ls_s_pfmx[ll_j].sondecloss,ls_s_pfmx[ll_j].u_mtrldef_mrparg)
			ELSE
				IF ls_s_pfmx[ll_j].u_mtrldef_mrparg = 0 THEN
					ld_qty_scll = Ceiling(Truncate(ld_qty_standard/(1 - ld_sonloss) + ls_s_pfmx[ll_j].sondecloss,10))
				ELSE
					tem_long = 10^ls_s_pfmx[ll_j].u_mtrldef_mrparg
					
					ld_qty_scll = Ceiling(Truncate(ld_qty_standard/(1 - ld_sonloss) + ls_s_pfmx[ll_j].sondecloss,10) * tem_long)/tem_long
					ld_qty_scll = Round(ld_qty_scll , ls_s_pfmx[ll_j].u_mtrldef_mrparg)
				END IF
			END IF
		END IF
		
		
		IF ls_s_pfmx[ll_j].buyarg = 0  THEN ls_s_pfmx[ll_j].buyarg = 1
		ld_qty_cmpl = ld_qty_scll * ls_s_pfmx[ll_j].buyarg
		
		//按辅助单位补数
		CHOOSE CASE ls_s_pfmx[ll_j].mrp_unit
			CASE 1
				IF ls_s_pfmx[ll_j].rate_unit_buy > 0 THEN
					ld_qty_cmpl = Ceiling(ld_qty_cmpl/ls_s_pfmx[ll_j].rate_unit_buy) * ls_s_pfmx[ll_j].rate_unit_buy
				END IF
			CASE 2
				IF ls_s_pfmx[ll_j].rate_unit_buy > 0 THEN
					ld_qty_cmpl = Ceiling(ld_qty_cmpl/ls_s_pfmx[ll_j].rate_unit_scll) * ls_s_pfmx[ll_j].rate_unit_scll
				END IF
			CASE 3
				IF ls_s_pfmx[ll_j].rate_unit_buy > 0 THEN
					ld_qty_cmpl = Ceiling(ld_qty_cmpl/ls_s_pfmx[ll_j].rate_unit_sale) * ls_s_pfmx[ll_j].rate_unit_sale
				END IF
		END CHOOSE
	ELSE
		ld_qty_scll = 0
		ld_qty_cmpl = 0
		ld_sonloss = 0
	END IF
	
	CHOOSE CASE ls_s_pfmx[ll_j].scllqtytype
		CASE 0
			ls_s_pfmx[ll_j].scllqty = ld_qty_scll
		CASE 1
			ls_s_pfmx[ll_j].scllqty = ld_qty_standard
		CASE 2
			IF ls_s_pfmx[ll_j].u_mtrldef_mrptype = 0 THEN
				ls_s_pfmx[ll_j].scllqty = Round(ld_qty_standard/(1 - ls_s_pfmx[ll_j].scllloss)+ls_s_pfmx[ll_j].sclldecloss,ls_s_pfmx[ll_j].u_mtrldef_mrparg)
			ELSE
				IF ls_s_pfmx[ll_j].u_mtrldef_mrparg = 0 THEN
					ls_s_pfmx[ll_j].scllqty = Ceiling(Truncate(ld_qty_standard/(1 - ls_s_pfmx[ll_j].scllloss)+ls_s_pfmx[ll_j].sclldecloss,10))
				ELSE
					tem_long = 10^ls_s_pfmx[ll_j].u_mtrldef_mrparg
					
					ls_s_pfmx[ll_j].scllqty = Ceiling(Truncate(ld_qty_standard/(1 - ls_s_pfmx[ll_j].scllloss)+ls_s_pfmx[ll_j].sclldecloss,10) * tem_long)/tem_long
					ls_s_pfmx[ll_j].scllqty = Round(ls_s_pfmx[ll_j].scllqty , ls_s_pfmx[ll_j].u_mtrldef_mrparg )
				END IF
			END IF
	END CHOOSE
	
	IF ls_s_pfmx[ll_j].ifover = 1 THEN
		CHOOSE CASE ls_s_pfmx[ll_j].dipztype
			CASE 0
				ls_status_son = arg_s_mrp.arg_status
				ls_woodcode_son = ''
				ls_pcode_son = ''
			CASE 1
				ls_status_son = ''
				ls_woodcode_son = arg_s_mrp.arg_woodcode
				ls_pcode_son = ''
			CASE 2
				ls_status_son = ''
				ls_woodcode_son = ''
				ls_pcode_son = arg_s_mrp.arg_pcode
			CASE 3
				ls_status_son = arg_s_mrp.arg_status
				ls_woodcode_son = arg_s_mrp.arg_woodcode
				ls_pcode_son = ''
			CASE 4
				ls_status_son = ''
				ls_woodcode_son = arg_s_mrp.arg_woodcode
				ls_pcode_son = arg_s_mrp.arg_pcode
			CASE 5
				ls_status_son = arg_s_mrp.arg_status
				ls_woodcode_son = ''
				ls_pcode_son = arg_s_mrp.arg_pcode
			CASE 6
				ls_status_son = arg_s_mrp.arg_status
				ls_woodcode_son = arg_s_mrp.arg_woodcode
				ls_pcode_son = arg_s_mrp.arg_pcode
		END CHOOSE
	ELSE
		ls_status_son = ls_s_pfmx[ll_j].status
		ls_woodcode_son = ls_s_pfmx[ll_j].woodcode
		ls_pcode_son = ls_s_pfmx[ll_j].pcode
	END IF
	
	s_mrp_arg1.arg_scid = arg_s_mrp.arg_scid
	s_mrp_arg1.arg_orderid = arg_s_mrp.arg_orderid
	s_mrp_arg1.arg_ifdate = arg_s_mrp.arg_ifdate
	s_mrp_arg1.arg_pmtrlid = arg_s_mrp.arg_mtrlid
	s_mrp_arg1.arg_mtrlid = ls_s_pfmx[ll_j].SonMtrlid
	s_mrp_arg1.arg_status = ls_status_son
	s_mrp_arg1.arg_woodcode = ls_woodcode_son
	s_mrp_arg1.arg_pcode = ls_pcode_son
	s_mrp_arg1.arg_pfcode = ls_s_pfmx[ll_j].sonpfcode
	s_mrp_arg1.arg_qty = ld_qty_scll
	s_mrp_arg1.arg_cmplqty = ld_qty_cmpl
	s_mrp_arg1.arg_wrkgrpid_scll = ls_s_pfmx[ll_j].wrkGrpid
	s_mrp_arg1.arg_up_sdate = ldt_sdate
	s_mrp_arg1.arg_up_rqdate = ldt_edate
	s_mrp_arg1.arg_if_allowuse = arg_s_mrp.arg_if_allowuse
	s_mrp_arg1.arg_gydscrp = ls_s_pfmx[ll_j].dscrp
	s_mrp_arg1.arg_pfklmode = ls_s_pfmx[ll_j].pfklmode
	s_mrp_arg1.arg_pfgroup = ls_s_pfmx[ll_j].pfgroup
	s_mrp_arg1.arg_pfgroupmode = ls_s_pfmx[ll_j].pfgroupmode
	s_mrp_arg1.arg_advancetime = ls_s_pfmx[ll_j].advancetime
	s_mrp_arg1.arg_Sonscale = ls_s_pfmx[ll_j].Sonscale
	s_mrp_arg1.arg_sonloss = ld_sonloss
	s_mrp_arg1.arg_sondecloss = ls_s_pfmx[ll_j].sondecloss
	s_mrp_arg1.arg_scllloss = ls_s_pfmx[ll_j].scllloss
	s_mrp_arg1.arg_sclldecloss = ls_s_pfmx[ll_j].sclldecloss
	s_mrp_arg1.arg_scllqtytype = ls_s_pfmx[ll_j].scllqtytype
	s_mrp_arg1.arg_scllqty = ls_s_pfmx[ll_j].scllqty
	s_mrp_arg1.arg_if_follow = ls_s_pfmx[ll_j].if_follow
	s_mrp_arg1.arg_lasthour = ls_s_pfmx[ll_j].lasthour
	s_mrp_arg1.arg_strandqty = ld_qty_standard
	
	rslt = uof_cmpl_rqmtrl_re(arg_lp + 1,ls_s_pfmx[ll_j].mtrlorigin,s_mrp_arg1,arg_s_mtrl,arg_msg) //递归处理下级
	IF rslt = 0 THEN
		GOTO ext
	END IF
NEXT

ext:
RETURN rslt












end function

public function integer uof_saletaskmx_pf_add (s_saletaskmx_pf arg_s_stpf, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long i

IF UpperBound(arg_s_stpf.scid) > 0 THEN
	FOR i = 1 To UpperBound(arg_s_stpf.scid)
		INSERT INTO u_saletaskmx_pf(scid,taskid,printid,mtrlid,sonmtrlid,status,woodcode,pcode,sonscale)
			VALUES (:arg_s_stpf.scid[i],
			:arg_s_stpf.taskid[i],
			:arg_s_stpf.printid[i],
			:arg_s_stpf.mtrlid[i],
			:arg_s_stpf.sonmtrlid[i],
			:arg_s_stpf.status[i],
			:arg_s_stpf.woodcode[i],
			:arg_s_stpf.pcode[i],
			:arg_s_stpf.sonscale[i]);
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '建立销售订单明细个性清单失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

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








end function

public function integer uof_saletaskmx_pf_del (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1

DELETE FROM u_saletaskmx_pf
	WHERE u_saletaskmx_pf.scid = :arg_scid
	AND u_saletaskmx_pf.taskid = :arg_taskid
	And u_saletaskmx_pf.printid = :arg_printid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '删除销售订单明细原个性清单失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

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






end function

public function integer uof_add_rqmtrl_scll_find (long arg_p, long arg_p_mtrlid, integer arg_ifpackpro, string arg_status, string arg_woodcode, string arg_pcode, s_order_ml_rqmtrl arg_s_mtrl, ref s_order_ml_rqmtrl_scll arg_s_mtrl_scll, long arg_e, ref string arg_msg);Int rslt = 1
Long ll_i,i
Long ll_p
Long ll_lp_f
Long ll_p_end,ll_p_start
Boolean lb_f
Boolean lb_f_lb = False
Int li_ft

DO WHILE arg_p <> -1
	ll_p_start = 0
	ll_p_end = 0
	lb_f = False
	lb_f_lb = False
	li_ft = 0
	ll_lp_f = 0
	
	FOR i = arg_p To arg_e //UpperBound(arg_s_mtrl.mtrlid)
		//		IF i = UpperBound(arg_s_mtrl.mtrlid) THEN
		IF i = arg_e THEN
			IF Not lb_f THEN
				ll_p_start = arg_e
			END IF
			
			ll_p_end = arg_e //UpperBound(arg_s_mtrl.mtrlid)
			EXIT
		END IF
		
		IF arg_s_mtrl.qty[i] = 0 THEN CONTINUE
		
		//		IF arg_ifpackpro = 4 And arg_s_mtrl.ifcfg[i] = 1 THEN CONTINUE
		IF arg_s_mtrl.ifcfg[i] = 1 THEN CONTINUE
		
		//找下级最后行
		IF lb_f THEN
			IF li_ft = 1 And arg_s_mtrl.lp[i] < ll_lp_f THEN
				lb_f_lb = True
				ll_p_end = i
				EXIT
			ELSEIF li_ft = 2 And arg_s_mtrl.lp[i] <= ll_lp_f THEN
				lb_f_lb = True
				ll_p_end = i
				EXIT
			END IF
		END IF
		
		//找开始级别
		IF Not lb_f And arg_s_mtrl.pmtrlid[i] = arg_p_mtrlid THEN
			IF arg_ifpackpro <> 3 And arg_ifpackpro <> 4 THEN
				lb_f = True
				ll_lp_f = arg_s_mtrl.lp[i]
				ll_p_start = i
				li_ft = 1
			ELSEIF arg_ifpackpro = 3 And Trim(arg_s_mtrl.status[i]) = Trim(arg_status) And Trim(arg_s_mtrl.woodcode[i]) = Trim(arg_woodcode) And Trim(arg_s_mtrl.pcode[i]) = Trim(arg_pcode) THEN
				lb_f = True
				ll_lp_f = arg_s_mtrl.lp[i]
				ll_p_start = i + 1
				li_ft = 2
			ELSEIF arg_ifpackpro = 4 THEN
				lb_f = True
				ll_lp_f = arg_s_mtrl.lp[i]
				ll_p_start = i
				li_ft = 2
			END IF
		END IF
	NEXT
	
	IF lb_f_lb THEN
		ll_p_end = ll_p_end - 1
	ELSE
		ll_p_end = ll_p_end
	END IF
	
	IF ll_p_start = 0 THEN
		ll_p_start += 1
	END IF
	
	IF ll_p_start > ll_p_end THEN
		rslt = 1
		GOTO ext
	END IF
	
	//yyx2012-11-14
	//	IF upperbound(arg_s_mtrl_scll.mtrlid) > 0 And ll_p_start = 1 And ll_p_end = UpperBound(arg_s_mtrl.mtrlid) then
	IF UpperBound(arg_s_mtrl_scll.mtrlid) > 0 And ll_p_start = 1 And ll_p_end = arg_e THEN
		rslt = 1
		GOTO ext
	END IF
	//yyx2012-11-14_end
	
	//	IF ll_p_end = UpperBound(arg_s_mtrl.mtrlid) THEN
	IF ll_p_end = arg_e THEN
		arg_p = -1
	ELSE
		arg_p = ll_p_end + 1
	END IF
	
	FOR ll_i = ll_p_start To ll_p_end
		
		IF arg_s_mtrl.qty[ll_i] = 0 THEN CONTINUE
		//		IF arg_ifpackpro = 4 And arg_s_mtrl.ifcfg[ll_i] = 1 THEN CONTINUE
		IF arg_s_mtrl.ifcfg[ll_i] = 1 THEN CONTINUE
		If (arg_ifpackpro = 1 Or arg_ifpackpro = 2) And arg_s_mtrl.ifpack[ll_i] > 0 THEN CONTINUE
		
		IF arg_s_mtrl.pmtrlid[ll_i] = arg_p_mtrlid THEN
			Int li_ifselforder,li_mtrlorigin
			String ls_mtrlcode
			
			SELECT mtrlcode,
				ifselforder,
				mtrlorigin
				INTO :ls_mtrlcode,
				:li_ifselforder,
				:li_mtrlorigin
				FROM u_mtrldef
				Where mtrlid = :arg_s_mtrl.mtrlid[ll_i];
			IF sqlca.SQLCode <> 0 THEN
				arg_msg = '查询物料:'+ls_mtrlcode+'资料失败,'+sqlca.SQLErrText
				rslt = 0
				GOTO ext
			END IF
			
			Long ll_p_mtrlid
			Long ll_arr
			
			ll_arr = UpperBound(arg_s_mtrl_scll.mtrlid)
			
			IF li_ifselforder = 0 And li_mtrlorigin = 0 THEN //自制虚拟件
				//			IF arg_s_mtrl.ifselforder[ll_i] = 0 And arg_s_mtrl.mtrlorigin[ll_i] = 0 THEN //自制虚拟件
				//				IF ll_i = UpperBound(arg_s_mtrl.mtrlid) THEN
				IF ll_i = arg_e THEN
					ll_arr++
					arg_s_mtrl_scll.mtrlid[ll_arr] = arg_s_mtrl.mtrlid[ll_i]
					arg_s_mtrl_scll.wrkgrpid[ll_arr] = arg_s_mtrl.wrkgrpid_scll[ll_i]
					arg_s_mtrl_scll.status[ll_arr] = arg_s_mtrl.status[ll_i]
					arg_s_mtrl_scll.woodcode[ll_arr] = arg_s_mtrl.woodcode[ll_i]
					arg_s_mtrl_scll.pcode[ll_arr] = arg_s_mtrl.pcode[ll_i]
					arg_s_mtrl_scll.truerqqty[ll_arr] = arg_s_mtrl.scllqty[ll_i]
					rslt = 1
					GOTO ext
				ELSE
					ll_p = ll_i
					IF arg_s_mtrl.qty[ll_i] > arg_s_mtrl.cmplqty[ll_i] THEN
//						arg_s_mtrl_scll.truerqqty[ll_arr] = arg_s_mtrl.qty[ll_i] - arg_s_mtrl.cmplqty[ll_i]
						
						IF arg_s_mtrl.cmplqty[ll_i] > 0 THEN
							ll_p_mtrlid = arg_s_mtrl.mtrlid[ll_i]
							IF uof_add_rqmtrl_scll_find(ll_p,ll_p_mtrlid,arg_s_mtrl.ifpackpro[ll_i],&
								arg_s_mtrl.status[ll_i],arg_s_mtrl.woodcode[ll_i],arg_s_mtrl.pcode[ll_i],&
								arg_s_mtrl,arg_s_mtrl_scll,ll_p_end,arg_msg) = 0 THEN
								rslt = 0
								GOTO ext
							END IF
						ELSE
							rslt = 1
							GOTO ext
						END IF
					ELSE
						ll_p_mtrlid = arg_s_mtrl.mtrlid[ll_i]
						IF uof_add_rqmtrl_scll_find(ll_p,ll_p_mtrlid,arg_s_mtrl.ifpackpro[ll_i],&
							arg_s_mtrl.status[ll_i],arg_s_mtrl.woodcode[ll_i],arg_s_mtrl.pcode[ll_i],&
							arg_s_mtrl,arg_s_mtrl_scll,ll_p_end,arg_msg) = 0 THEN
							rslt = 0
							GOTO ext
						END IF
					END IF
				END IF
			ELSE
				ll_arr++
				arg_s_mtrl_scll.mtrlid[ll_arr] = arg_s_mtrl.mtrlid[ll_i]
				arg_s_mtrl_scll.wrkgrpid[ll_arr] = arg_s_mtrl.wrkgrpid_scll[ll_i]
				arg_s_mtrl_scll.status[ll_arr] = arg_s_mtrl.status[ll_i]
				arg_s_mtrl_scll.woodcode[ll_arr] = arg_s_mtrl.woodcode[ll_i]
				arg_s_mtrl_scll.pcode[ll_arr] = arg_s_mtrl.pcode[ll_i]
				arg_s_mtrl_scll.truerqqty[ll_arr] = arg_s_mtrl.scllqty[ll_i]
			END IF
		END IF
	NEXT
LOOP
ext:

RETURN rslt












end function

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

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

event constructor;String str_optionvalue,arg_msg

f_get_sys_option_value('274',str_optionvalue,arg_msg)
uo_option_packpro2_pf_pack2_useifover = Long(str_optionvalue)

f_get_sys_option_value('340',str_optionvalue,arg_msg)
uo_option_ifpackpro2_if_no_pack2 = Long(str_optionvalue)


f_get_sys_option_value('356',str_optionvalue,arg_msg)
uo_option_scll_ifchanged = Long(str_optionvalue)


f_get_sys_option_value('089',str_optionvalue,arg_msg)
uo_option_produce_dec = Long(str_optionvalue)



SELECT wrkgrpid INTO :ins_produce_wrkgrpid_bj
	FROM u_sc_wkp
	Where ifbj = 1;
IF sqlca.SQLCode <> 0 THEN
	ins_produce_wrkgrpid_bj = 0
END IF

SELECT wrkgrpid INTO :ins_wrkGrpid_scll_bj
	FROM u_sc_workgroup
	Where ifbj = 1;
IF sqlca.SQLCode <> 0 THEN
	ins_wrkGrpid_scll_bj = 0
END IF



end event