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

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

global type uo_request_wfjg from nonvisualobject
end type
global uo_request_wfjg uo_request_wfjg

type variables
Public ProtectedWrite Long scid
Public ProtectedWrite Long wfjgid
Public ProtectedWrite String taskcode
Public ProtectedWrite  DateTime opdate
Public ProtectedWrite  String operator
Public ProtectedWrite Int status
Public ProtectedWrite  DateTime accomplishdate
Public ProtectedWrite  String permit_emp
Public ProtectedWrite Long ctmint

Long ifauto
Long sptid
String assign_emp
DateTime  requiredate
String dscrp
String relcode

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

Private:
s_order_wfjgmx  wfjgmx[],wfjgmxmx[] //明细结构数组
s_order_wfjgmx_out wfjgmx_out[] //明细结构数组
Long it_mxbt = 0 //明细结构数组末指针
Long it_mxbtmx = 0
Long it_mxbt_out = 0 //明细结构数组末指针
Boolean it_newbegin = True //新建标志
Boolean it_updatebegin = False //修改标志

Int uo_option_requestwfjg_hz
int uo_option_wfjg_checkdate

end variables

forward prototypes
public function integer p_reset ()
public function integer p_clearmx ()
public function integer savesubmit (string arg_operator, ref string arg_msg, boolean arg_ifcommit)
public function integer newbegin (long arg_scid, ref string arg_msg)
public function integer p_getinfo (long arg_scid, long arg_wfjgid, ref string arg_msg)
public function integer getinfo (long arg_scid, long arg_wfjgid, ref string arg_msg)
public function integer add_dscrp (long arg_scid, long arg_wfjgid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit)
public function integer checkmxmpl (long arg_scid, long arg_wfjgid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg)
public function integer finishtask (integer arg_finishtype, long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit)
public function integer tempstoptask (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit)
public function integer updatebegin (long arg_scid, long arg_wfjgid, ref string arg_msg)
public function integer checkmxmpl_out (long arg_scid, long arg_wfjgid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg)
public function integer addmxcmpl (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit)
public function integer addmxcmpl_out (long arg_scid, long arg_wfjgid, long arg_mtrlid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit)
public function integer trycmplwfjg (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit)
public function integer audit_2 (long arg_scid, long arg_wfjgid, string arg_emp, ref string arg_msg, boolean arg_ifcommit)
public function integer audit (long arg_scid, long arg_wfjgid, string arg_emp, ref string arg_msg, boolean arg_ifcommit)
public function integer caudit (long arg_scid, long arg_wfjgid, integer arg_ifcheck_auto, ref string arg_msg, boolean arg_ifcommit)
public function integer cancel (long arg_scid, long arg_wfjgid, integer arg_ifcheck_auto, ref string arg_msg, boolean arg_ifcommit)
public function integer caudit_2 (long arg_scid, long arg_wfjgid, any arg_ifcheck_auto, ref string arg_msg, boolean arg_ifcommit)
public function integer audit_mx (long arg_scid, long arg_wfjgid, long arg_printid, string arg_opemp, ref string arg_msg, boolean arg_ifcommit)
public function integer caudit_mx (long arg_scid, long arg_wfjgid, long arg_printid, ref string arg_msg, boolean arg_ifcommit)
public function integer stopmx (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, integer arg_flag, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit)
public function integer acceptmx (integer arg_iforder, long arg_orderid, string arg_ordercode, long arg_mtrlid, decimal arg_qty, string arg_dscrp, string arg_mtrlcode, ref string arg_msg, long arg_printid, datetime arg_requiredate, string arg_jgdscrp, string arg_status, string arg_woodcode, string arg_pcode, long arg_wrkgrpid, string arg_pfcode, string arg_plancode, string arg_unit, decimal arg_uqty, decimal arg_rate)
public function integer acceptmx_out (long arg_mtrlid, decimal arg_qty, string arg_mtrlcode, ref string arg_msg, long arg_printid, string arg_status, string arg_woodcode, string arg_pcode, string arg_unit, decimal arg_uqty, decimal arg_rate)
public function integer wasteqty (long arg_scid, decimal arg_wasteqty, long arg_wfjgid, long arg_printid, string arg_mtrlcode, ref string arg_msg, boolean arg_ifcommit)
public function integer stopbuytask (long arg_scid, long arg_wfjgid, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit)
public function integer stopqty (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, string arg_stopreason, ref string arg_msg, boolean arg_commit)
public function integer uof_update_wfjg_flag (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit)
public function integer acceptmx (s_order_wfjgmx s_mx, ref string arg_msg)
public function integer acceptmx_out (s_order_wfjgmx_out s_mx, ref string arg_msg)
public function integer uof_add_thqty (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_add_fgqty (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_add_order_acmpqty (long arg_scid, long arg_wfjgid, long arg_printid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg)
public function integer uof_add_order_dstrqty_bk (long arg_scid, long arg_wfjgid, long arg_printid, long arg_mtrlid, decimal arg_addqty, decimal arg_dec_round, ref string arg_msg)
public function integer uof_add_order_dstrqty (long arg_scid, long arg_sptid, long arg_wfjgid, long arg_printid, long arg_mtrlid, decimal arg_addqty, decimal arg_dec_round, ref string arg_msg)
public function integer uof_add_order_rqacmpqty (long arg_scid, long arg_wfjgid, long arg_printid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg)
end prototypes

public function integer p_reset ();//INT p_RESET()
//清除对象及其明细
scid = 0
wfjgid = 0
taskcode = ''
operator = ''
status = 0
ifauto = 0

it_newbegin = FALSE
it_updatebegin = FALSE
//清除明细
P_CLEARMX()
RETURN 1

end function

public function integer p_clearmx ();//INT p_clearmx()
//清除明细
it_mxbt = 0
it_mxbt_out = 0
it_mxbtmx = 0 
RETURN 1

end function

public function integer savesubmit (string arg_operator, ref string arg_msg, boolean arg_ifcommit);Integer rslt = 1,cnt = 0,i,j
Long LS_NEWwfjgID
DateTime server_datetime
String ls_sccode

IF IsNull(dscrp) THEN dscrp = ''
IF IsNull(assign_emp) THEN assign_emp = ''
IF IsNull(arg_operator) THEN arg_operator = ''

//IF Len(dscrp) > 0 THEN dscrp = ' ' + dscrp

operator = arg_operator

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

IF Trim(assign_emp) = '' THEN
	rslt = 0
	arG_MSG = "请输入负责人"
	GOTO ext
END IF



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

IF f_check_inoutdate(0,requiredate,False,arG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF it_mxbt = 0 THEN
	rslt = 0
	arG_MSG = "没有正确外协申请单收货明细"
	GOTO ext
END IF

if sys_option_request_wfjg_ifoutmx = 1 then
	IF it_mxbt_out = 0 THEN
		rslt = 0
		arG_MSG = "系统选项[375]限制,没有正确外协申请单发出明细"
		GOTO ext
	END IF
end if

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_user
	Where username = :operator Using commit_transaction ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arG_MSG = "查询操作失败,操作员!"
	GOTO ext
END IF
IF cnt = 0 THEN
	rslt = 0
	arG_MSG = "操作员姓名未登记或已取消!"
	GOTO ext
END IF
opdate = server_datetime //填写单据建立时间(最近修改时间)

////////////////////////////////////////////// //开始区分:新建/更新 处理
IF wfjgID = 0 THEN //新建
	LS_NEWwfjgID = f_sys_scidentity(scid,"u_request_wfjg","wfjgID",arG_MSG,True,id_sqlca) //数据commit事务)
	IF LS_NEWwfjgID <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	IF f_get_sccode(scid,commit_transaction,ls_sccode,arG_MSG) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	taskcode = getid(scid,ls_sccode + 'WR',Date(server_datetime),if_getid_ture,commit_transaction)
	
	IF taskcode = "err" THEN
		taskcode = ''
		rslt = 0
		arG_MSG = "无法获取外协申请单编号"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	INSERT INTO u_request_wfjg
		( scid,
		wfjgID,
		TaskCode,
		requiredate,
		Status,
		Opemp,
		Assign_Emp,
		Dscrp,
		opdate,
		ifauto,
		relcode)
		VALUES ( :scid,
		:LS_NEWwfjgID,
		:TaskCode,
		:requiredate,
		:Status,
		:Operator,
		:Assign_Emp,
		:Dscrp,
		:opdate,
		:ifauto,
		:relcode) Using commit_transaction ;
		
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arG_MSG = "因网络或其它原因导致插入外协申请单操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	//读取新taskid
	wfjgID = LS_NEWwfjgID
	
	
ELSE //////////////////////////////////////////////// //更新
	UPDATE u_request_wfjg
		SET requiredate = :requiredate,
		Assign_Emp = :Assign_Emp,
		Dscrp = :Dscrp,
		moddate = getdate(),
		Modemp = :publ_operator,
		relcode = :relcode
		WHERE u_request_wfjg.wfjgID = :wfjgID
		And u_request_wfjg.scid = :scid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arG_MSG = "因网络或其它原因导致更新外加工计划操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	//删除原有明细
	DELETE FROM u_request_wfjgMx
		WHERE u_request_wfjgMx.wfjgID = :wfjgID
		And u_request_wfjgMx.scid = :scid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arG_MSG = "删除旧有收货汇总操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	
	//删除原有明细
	DELETE FROM u_request_wfjgMxmx
		WHERE u_request_wfjgMxmx.wfjgID = :wfjgID
		And u_request_wfjgMxmx.scid = :scid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arG_MSG = "删除旧有收货明细操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	
	//删除原有明细
	DELETE FROM u_request_wfjgMx_out
		WHERE u_request_wfjgMx_out.wfjgID = :wfjgID
		And u_request_wfjgMx_out.scid = :scid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arG_MSG = "删除旧有发出明细操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	
	
END IF


FOR i = 1 To it_mxbt
	INSERT INTO u_request_wfjgMx
		( scid,
		wfjgID,
		printid,
		mtrlid,
		qty,
		dscrp,
		requiredate,
		orderid,
		jgdscrp,
		status,
		iforder,
		woodcode,
		pcode,
		wrkGrpid,
		pfcode,
		sptid,
		plancode,
		unit,
		uqty,
		rate,
		sonmtrlid)
		VALUES (:scid,
		:wfjgID,
		:wfjgmx[i].printid,
		:wfjgmx[i].mtrlid,
		:wfjgmx[i].QTY,
		:wfjgmx[i].dscrp ,
		:wfjgmx[i].requiredate,
		:wfjgmx[i].orderid,
		:wfjgmx[i].jgdscrp,
		:wfjgmx[i].status,
		:wfjgmx[i].iforder,
		:wfjgmx[i].woodcode,
		:wfjgmx[i].pcode,
		:wfjgmx[i].wrkGrpid,
		:wfjgmx[i].pfcode,
		:wfjgmx[i].sptid,
		:wfjgmx[i].plancode,
		:wfjgmx[i].unit,
		:wfjgmx[i].uqty,
		:wfjgmx[i].rate,
		:wfjgmx[i].sonmtrlid) Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		IF it_newbegin THEN wfjgID = 0 //还原taskid
		rslt = 0
		arG_MSG = "因网络或其它原因导致插入收货汇总操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
NEXT

FOR i = 1 To it_mxbtmx
	INSERT INTO u_request_wfjgMxmx
		( scid,
		wfjgID,
		printid,
		mtrlid,
		qty,
		dscrp,
		requiredate,
		orderid,
		jgdscrp,
		status,
		iforder,
		woodcode,
		pcode,
		wrkGrpid,
		pfcode,
		sptid,
		plancode,
		unit,
		uqty,
		rate,
		sonmtrlid)
		VALUES (:scid,
		:wfjgID,
		:wfjgmxmx[i].printid,
		:wfjgmxmx[i].mtrlid,
		:wfjgmxmx[i].QTY,
		:wfjgmxmx[i].dscrp ,
		:wfjgmxmx[i].requiredate,
		:wfjgmxmx[i].orderid,
		:wfjgmxmx[i].jgdscrp,
		:wfjgmxmx[i].status,
		:wfjgmxmx[i].iforder,
		:wfjgmxmx[i].woodcode,
		:wfjgmxmx[i].pcode,
		:wfjgmxmx[i].wrkGrpid,
		:wfjgmxmx[i].pfcode,
		:wfjgmxmx[i].sptid,
		:wfjgmxmx[i].plancode,
		:wfjgmxmx[i].unit,
		:wfjgmxmx[i].uqty,
		:wfjgmxmx[i].rate,
		:wfjgmxmx[i].sonmtrlid) Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		IF it_newbegin THEN wfjgID = 0 //还原taskid
		rslt = 0
		arG_MSG = "因网络或其它原因导致插入收货明细操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
NEXT

FOR i = 1 To it_mxbt_out
	INSERT INTO u_request_wfjgMx_out
		(scid,
		wfjgID,
		printid,
		mtrlid,
		qty,
		status,
		woodcode,
		pcode,
		unit,
		uqty,
		rate)
		VALUES (:scid,
		:wfjgID,
		:wfjgmx_out[i].printid,
		:wfjgmx_out[i].mtrlid,
		:wfjgmx_out[i].QTY,
		:wfjgmx_out[i].status,
		:wfjgmx_out[i].woodcode,
		:wfjgmx_out[i].pcode,
		:wfjgmx_out[i].unit,
		:wfjgmx_out[i].uqty,
		:wfjgmx_out[i].rate) Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		IF it_newbegin THEN wfjgID = 0 //还原taskid
		rslt = 0
		arG_MSG = "因网络或其它原因导致插入发出明细操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
NEXT

IF uof_update_wfjg_flag(scid,wfjgID,arG_MSG,False) = 0 THEN
	rslt = 0
	GOTO ext
END IF


it_newbegin = False
it_updatebegin = False

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


Return(rslt)





end function

public function integer newbegin (long arg_scid, ref string arg_msg);//重置对象,设定业务类型与关联ID,准备建立新单
//0 fail 1 success

long rslt=1,CNT=0

if arg_scid < 0 then
	arg_msg = '请选择分部'
	rslt = 0
	goto ext
end if

p_reset()
it_newbegin=TRUE
it_updatebegin=FALSE

scid=arg_scid

ext:
if rslt = 0 then p_reset()
return rslt
end function

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

SELECT wfjgID,
	TaskCode,
	requiredate,
	accomplishdate,
	Status,
	Opemp,
	Assign_Emp,
	Dscrp,
	opdate	,
	ctmint,
	ifauto,
	relcode
	INTO :wfjgID,
	:TaskCode,
	:requiredate,
	:accomplishdate,
	:Status,
	:Operator,
	:Assign_Emp,
	:Dscrp,
	:opdate,
	:ctmint,
	:ifauto,
	:relcode
	FROM u_request_wfjg
	WHERE u_request_wfjg.wfjgID = :arg_wfjgID
	AND u_request_wfjg.scid = :arg_scid USING commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = '查询外协申请单内容失败(错误外协申请单唯一码)'
	GOTO ext
END IF

scid = arg_scid
ext:
RETURN rslt

end function

public function integer getinfo (long arg_scid, long arg_wfjgid, ref string arg_msg);Int rslt = 1,i = 1,no_mxcheck = 0,j = 1, k = 1

IF arg_wfjgid <= 0 THEN
	rslt = 0
	arg_msg = '错误外加工计划唯一码'
	GOTO ext
END IF

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

//用游标读取明细
DECLARE cur_inwaermx CURSOR FOR
	SELECT u_request_wfjgmx.mtrlid,
	u_request_wfjgmx.qty,
	u_request_wfjgmx.dscrp,
	u_mtrldef.mtrlcode,
	u_request_wfjgmx.printid,
	u_request_wfjgmx.orderid,
	u_request_wfjgmx.jgdscrp,
	u_request_wfjgmx.iforder,
	u_request_wfjgmx.status,
	u_request_wfjgmx.woodcode,
	u_request_wfjgmx.pcode,
	u_request_wfjgmx.wrkGrpid,
	u_request_wfjgmx.sptid,
	u_request_wfjgmx.plancode,
	u_request_wfjgmx.unit,
	u_request_wfjgmx.uqty,
	u_request_wfjgmx.rate
	FROM u_request_wfjgmx,u_mtrldef
	WHERE u_request_wfjgmx.wfjgid = :arg_wfjgid  AND
	u_request_wfjgmx.scid = :arg_scid AND
	u_request_wfjgmx.mtrlid = u_mtrldef.mtrlid Using commit_transaction;
	
OPEN cur_inwaermx;
FETCH cur_inwaermx INTO :wfjgmx[i].mtrlid,:wfjgmx[i].qty,
	:wfjgmx[i].dscrp,:wfjgmx[i].mtrlcode,
	:wfjgmx[i].printid,:wfjgmx[i].orderid,
	:wfjgmx[i].jgdscrp,:wfjgmx[i].iforder,
	:wfjgmx[i].status,:wfjgmx[i].woodcode,:wfjgmx[i].pcode,
	:wfjgmx[i].wrkGrpid,:wfjgmx[i].sptid,:wfjgmx[i].plancode,
	:wfjgmx[i].unit,:wfjgmx[i].uqty,:wfjgmx[i].rate;
DO WHILE commit_transaction.SQLCode = 0
	i++
	FETCH cur_inwaermx INTO :wfjgmx[i].mtrlid,:wfjgmx[i].qty,
		:wfjgmx[i].dscrp,:wfjgmx[i].mtrlcode,
		:wfjgmx[i].printid,:wfjgmx[i].orderid,
		:wfjgmx[i].jgdscrp,:wfjgmx[i].iforder,
		:wfjgmx[i].status,:wfjgmx[i].woodcode,:wfjgmx[i].pcode,
		:wfjgmx[i].wrkGrpid,:wfjgmx[i].sptid,:wfjgmx[i].plancode,
	:wfjgmx[i].unit,:wfjgmx[i].uqty,:wfjgmx[i].rate;
LOOP
CLOSE cur_inwaermx;

//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck
	FROM u_request_wfjgmx
	WHERE u_request_wfjgmx.wfjgid = :arg_wfjgid
	And u_request_wfjgmx.scid = :arg_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,外协计划收货汇总数量"
	GOTO ext
END IF

IF i <> (no_mxcheck+1) THEN
	rslt = 0
	arg_msg = "查询操作失败,外协计划收货汇总"
	GOTO ext
END IF

it_mxbt = i - 1

 //

//用游标读取明细
DECLARE cur_inwaermxmx CURSOR FOR
	SELECT u_request_wfjgmxmx.mtrlid,
	u_request_wfjgmxmx.qty,
	u_request_wfjgmxmx.dscrp,
	u_mtrldef.mtrlcode,
	u_request_wfjgmxmx.printid,
	u_request_wfjgmxmx.orderid,
	u_request_wfjgmxmx.jgdscrp,
	u_request_wfjgmxmx.iforder,
	u_request_wfjgmxmx.status,
	u_request_wfjgmxmx.woodcode,
	u_request_wfjgmxmx.pcode,
	u_request_wfjgmxmx.wrkGrpid,
	u_request_wfjgmxmx.sptid,
	u_request_wfjgmxmx.plancode,
	u_request_wfjgmxmx.unit,
	u_request_wfjgmxmx.uqty,
	u_request_wfjgmxmx.rate
	FROM u_request_wfjgmxmx,u_mtrldef
	WHERE u_request_wfjgmxmx.wfjgid = :arg_wfjgid  AND
	u_request_wfjgmxmx.scid = :arg_scid AND
	u_request_wfjgmxmx.mtrlid = u_mtrldef.mtrlid Using commit_transaction;
	
OPEN cur_inwaermxmx;
FETCH cur_inwaermxmx INTO :wfjgmxmx[k].mtrlid,:wfjgmxmx[k].qty,
	:wfjgmxmx[k].dscrp,:wfjgmxmx[k].mtrlcode,
	:wfjgmxmx[k].printid,:wfjgmxmx[k].orderid,
	:wfjgmxmx[k].jgdscrp,:wfjgmxmx[k].iforder,
	:wfjgmxmx[k].status,:wfjgmxmx[k].woodcode,:wfjgmxmx[k].pcode,
	:wfjgmxmx[k].wrkGrpid,:wfjgmxmx[k].sptid,:wfjgmxmx[k].plancode,
	:wfjgmxmx[k].unit,:wfjgmxmx[k].uqty,:wfjgmxmx[k].rate;
DO WHILE commit_transaction.SQLCode = 0
	k++
	FETCH cur_inwaermxmx INTO :wfjgmxmx[k].mtrlid,:wfjgmxmx[k].qty,
		:wfjgmxmx[k].dscrp,:wfjgmxmx[k].mtrlcode,
		:wfjgmxmx[k].printid,:wfjgmxmx[k].orderid,
		:wfjgmxmx[k].jgdscrp,:wfjgmxmx[k].iforder,
		:wfjgmxmx[k].status,:wfjgmxmx[k].woodcode,:wfjgmxmx[k].pcode,
		:wfjgmxmx[k].wrkGrpid,:wfjgmxmx[k].sptid,:wfjgmxmx[k].plancode,
	:wfjgmxmx[k].unit,:wfjgmxmx[k].uqty,:wfjgmxmx[k].rate;
LOOP
CLOSE cur_inwaermxmx;
 //
//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck
	FROM u_request_wfjgmxmx
	WHERE u_request_wfjgmxmx.wfjgid = :arg_wfjgid
	And u_request_wfjgmxmx.scid = :arg_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,外协计划收货明细数量"
	GOTO ext
END IF

IF k <> (no_mxcheck+1) THEN
	rslt = 0
	arg_msg = "查询操作失败,外协计划收货明细"
	GOTO ext
END IF

it_mxbtmx = k - 1

//
//用游标读取明细
DECLARE cur_inwaermx_out CURSOR FOR
	SELECT u_request_wfjgmx_out.mtrlid,
	u_request_wfjgmx_out.qty,
	u_mtrldef.mtrlcode,
	u_request_wfjgmx_out.printid,
	u_request_wfjgmx_out.status,
	u_request_wfjgmx_out.woodcode,
	u_request_wfjgmx_out.pcode,
	u_request_wfjgmx_out.unit,
	u_request_wfjgmx_out.uqty,
	u_request_wfjgmx_out.rate
	FROM u_request_wfjgmx_out,u_mtrldef
	WHERE u_request_wfjgmx_out.wfjgid = :arg_wfjgid  AND
	u_request_wfjgmx_out.scid = :arg_scid AND
	u_request_wfjgmx_out.mtrlid = u_mtrldef.mtrlid
	Using commit_transaction;
	
OPEN cur_inwaermx_out;
FETCH cur_inwaermx_out INTO :wfjgmx_out[j].mtrlid,:wfjgmx_out[j].qty,
	:wfjgmx_out[j].mtrlcode,
	:wfjgmx_out[j].printid,
	:wfjgmx_out[j].status,:wfjgmx_out[j].woodcode,
	:wfjgmx_out[j].pcode,
	:wfjgmx_out[j].unit,:wfjgmx_out[j].uqty,:wfjgmx_out[j].rate;
DO WHILE commit_transaction.SQLCode = 0
	j++
	FETCH cur_inwaermx_out INTO :wfjgmx_out[j].mtrlid,:wfjgmx_out[j].qty,
		:wfjgmx_out[j].mtrlcode,
		:wfjgmx_out[j].printid,
		:wfjgmx_out[j].status,:wfjgmx_out[j].woodcode,
		:wfjgmx_out[j].pcode,
	:wfjgmx_out[j].unit,:wfjgmx_out[j].uqty,:wfjgmx_out[j].rate;
LOOP
CLOSE cur_inwaermx_out;

//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck
	FROM u_request_wfjgmx_out
	WHERE u_request_wfjgmx_out.wfjgid = :arg_wfjgid
	And u_request_wfjgmx_out.scid = :arg_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,外协计划发出明细数量"
	GOTO ext
END IF

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

it_mxbt_out = j - 1

//

it_newbegin = False
it_updatebegin = False

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


end function

public function integer add_dscrp (long arg_scid, long arg_wfjgid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit);//add_dscrp(string arg_newdescppart)
//0 fail 1 SUCCESS
Int rslt = 1
arg_newdescppart = Trim(arg_newdescppart)


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

IF p_getinfo(arg_scid,arg_wfjgid,arG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF status = 0 THEN
	rslt = 0
	arG_MSG = "待审核状态下不可用"
	GOTO ext
END IF

UPDATE u_request_wfjg
	SET DSCRP = DSCRP+' '+:arg_newdescppart
	WHERE u_request_wfjg.wfjgid = :arg_wfjgid
	AND u_request_wfjg.scid = :arg_scid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arG_MSG = "因网络或其它原因导致添加外加工计划备注操作失败"+"~n"+commit_transaction.SQLErrText
	ROLLBACK USING commit_transaction;
	GOTO ext
END IF

DSCRP = DSCRP+' '+arg_newdescppart
it_newbegin = FALSE
it_updatebegin = FALSE

ext:
IF arg_ifcommit AND rslt = 1 THEN
	COMMIT USING commit_transaction;
END IF
p_reset()
Return (rslt)



end function

public function integer checkmxmpl (long arg_scid, long arg_wfjgid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg);//checkmxcmpl(long arg_taskid,long arg_mtrlid,decimal arg_addqty,ref string arg_msg,boolean arg_ifcommit)
Int rslt = 1,cnt = 0

IF arg_wfjgid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误外协申请单唯一码'
	GOTO ext
END IF
IF arg_addqty = 0 THEN
	rslt = 1
	GOTO ext
END IF

rslt = p_getinfo(arg_scid,arg_wfjgid,ARG_MSG)
IF rslt = 0 THEN GOTO ext

IF Status <> 1 THEN
	rslt = 0
	ARG_MSG = "外协申请单只有在进行状态下才可以执行进仓"
	GOTO ext
END IF

Decimal lde_uqty,lde_consignedqty
String  ls_mtrlcode
SELECT u_request_wfjgmx.uQty,
	u_request_wfjgmx.consignedqty,
	u_mtrldef.mtrlcode
	INTO :lde_uqty,
	:lde_consignedqty,
	:ls_mtrlcode
	FROM u_request_wfjgmx ,u_mtrldef
	WHERE ( u_request_wfjgmx.scid = :arg_scid  ) AND
	( u_request_wfjgmx.wfjgid = :arg_wfjgid  ) AND
	( u_request_wfjgmx.MtrlID = :arg_mtrlid  ) AND
	( u_mtrldef.MtrlID = u_request_wfjgmx.MtrlID ) Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "因网络或错误物料编码["+ls_mtrlcode+"]导致查询外协申请单已安排数量操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

IF lde_uqty < lde_consignedqty + arg_addqty THEN
	rslt = 0
	ARG_MSG = "物料["+ls_mtrlcode+"]的外协申请单未安排数量只有"+String(lde_uqty - lde_consignedqty,'#,##0.0#')+",不能安排"+String(arg_addqty,'#,##0.0#')
	GOTO ext
END IF

ext:
p_reset()
Return (rslt)


end function

public function integer finishtask (integer arg_finishtype, long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0
DateTime null_dt
SetNull(null_dt)

IF arg_wfjgid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误外协申请单唯一码'
	GOTO ext
END IF

IF p_getinfo(arg_scid,arg_wfjgid,ARG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF arg_finishtype = 5 OR arg_finishtype = 6 THEN
	IF Status <> 1 THEN
		rslt = 0
		ARG_MSG = "外协申请单只有在进行状态才可以执行完成，请核对"
		GOTO ext
	END IF
ELSE
	IF arg_finishtype = 1 THEN
		IF Status <> 6 THEN
			rslt = 0
			ARG_MSG = "外协申请单只有在手动完成状态下才可以执行取消手动完成，请核对"
			GOTO ext
		END IF
	END IF
END IF

IF arg_finishtype = 5 OR arg_finishtype = 6 THEN
	UPDATE u_request_wfjg
		SET status = :arg_finishtype,
		accomplishdate = getdate(),
		finishemp = :publ_operator
		WHERE ( u_request_wfjg.wfjgid = :arg_wfjgid )
		And ( u_request_wfjg.scid = :arg_scid ) USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		ARG_MSG = "因网络或其它原因导致完成外协申请单操作失败"+"~n"+commit_transaction.SQLErrText
		ROLLBACK USING commit_transaction;
		GOTO ext
	END IF
ELSE
	UPDATE u_request_wfjg
		SET status = :arg_finishtype,
		accomplishdate = :null_dt,
		finishemp = ''
		WHERE ( u_request_wfjg.wfjgid = :arg_wfjgid )
		And ( u_request_wfjg.scid = :arg_scid ) USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		ARG_MSG = "因网络或其它原因导致取消手动完成外协申请单操作失败"+"~n"+commit_transaction.SQLErrText
		ROLLBACK USING commit_transaction;
		GOTO ext
	END IF
END IF



ext:
IF arg_ifcommit AND rslt = 1 THEN
	COMMIT USING commit_transaction;
END IF
p_reset()
Return (rslt)


end function

public function integer tempstoptask (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0
IF arg_wfjgid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误外协申请单唯一码'
	GOTO ext
END IF

IF f_aps_mrp_cklock(arg_scid,ARG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF p_getinfo(arg_scid,arg_wfjgid,ARG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF Status <> 1 And Status <> 2 THEN
	rslt = 0
	ARG_MSG = "外协申请单只有在进行状态或暂停状态才可以执行暂停/取消暂停操作"
	GOTO ext
END IF

IF Status = 1 THEN
	UPDATE u_request_wfjg
		SET Status = 2 ,
		stopemp = :publ_operator
		WHERE wfjgid = :arg_wfjgid
		And scid = :arg_scid Using commit_transaction ;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		ARG_MSG = "因网络或其它原因导致暂停外协申请单操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
ELSE
	UPDATE u_request_wfjg
		SET Status = 1,stopemp = ''
		WHERE wfjgid = :arg_wfjgid
		And scid = :arg_scid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		ARG_MSG = "因网络或其它原因导致取消暂停外协申请单操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
END IF

it_newbegin = False
it_updatebegin = False

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


end function

public function integer updatebegin (long arg_scid, long arg_wfjgid, ref string arg_msg);Int rslt = 1
Long CNT = 0

IF arg_wfjgid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误外协申请单唯一码'
	GOTO ext
END IF

IF p_getinfo(arg_scid,arg_wfjgid,ARG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF ifauto = 1 THEN
	rslt = 0
	ARG_MSG = '单据为动建立的单据,不可以修改'
	GOTO ext
END IF

IF Status <> 0 THEN
	rslt = 0
	ARG_MSG = '已经处于审核或完成等状态,不可以修改,如果外协申请单未完成并要修改请先撤销审核'
	GOTO ext
END IF

it_newbegin = FALSE
it_updatebegin = TRUE
p_clearmx() //清除明细
ext:
IF rslt = 0 THEN p_reset()
RETURN rslt


end function

public function integer checkmxmpl_out (long arg_scid, long arg_wfjgid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg);//checkmxcmpl(long arg_taskid,long arg_mtrlid,decimal arg_addqty,ref string arg_msg,boolean arg_ifcommit)
Int rslt = 1,cnt = 0

IF arg_wfjgid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误外协申请单唯一码'
	GOTO ext
END IF
IF arg_addqty = 0 THEN
	rslt = 1
	GOTO ext
END IF

rslt = p_getinfo(arg_scid,arg_wfjgid,ARG_MSG)
IF rslt = 0 THEN GOTO ext

IF Status <> 1 THEN
	rslt = 0
	ARG_MSG = "外协申请单只有在进行状态下才可以执行进仓"
	GOTO ext
END IF

Decimal lde_uqty,lde_consignedqty
String  ls_mtrlcode
SELECT u_request_wfjgMx_out.Qty,
	u_request_wfjgMx_out.consignedqty,
	u_mtrldef.mtrlcode
	INTO :lde_uqty,
	:lde_consignedqty,
	:ls_mtrlcode
	FROM u_request_wfjgMx_out ,u_mtrldef
	WHERE ( u_request_wfjgMx_out.scid = :arg_scid  ) AND
	 ( u_request_wfjgMx_out.wfjgid = :arg_wfjgid  ) AND
	( u_request_wfjgMx_out.MtrlID = :arg_mtrlid  ) AND
	( u_mtrldef.MtrlID = u_request_wfjgMx_out.MtrlID ) Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "因网络或错误物料编码["+ls_mtrlcode+"]导致查询外协申请单发出已安排数量操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

IF lde_uqty < lde_consignedqty + arg_addqty THEN
	rslt = 0
	ARG_MSG = "物料["+ls_mtrlcode+"]的外协申请单发出未安排数量只有"+String(lde_uqty - lde_consignedqty,'#,##0.0#')+",不能安排"+String(arg_addqty,'#,##0.0#')
	GOTO ext
END IF

ext:
p_reset()
Return (rslt)


end function

public function integer addmxcmpl (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);//arg_addqty 必须为外协单位
Int rslt = 1
Long cnt = 0

IF arg_wfjgid <= 0 THEN
	rslt = 0
	arg_msg = '错误外协申请单唯一码'
	GOTO ext
END IF

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

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

IF status <> 1 AND status <> 5 THEN
	rslt = 0
	arg_msg = "外协申请单只有在进行或完成状态下才可以执行操作"
	GOTO ext
END IF

Decimal lde_uqty,lde_consignedqty,ld_sum_consignedqty
String  ls_mtrlcode
Long ll_orderid,ll_wrkGrpid,ll_mtrlid
String ls_status,ls_woodcode,ls_pcode

SELECT u_mtrldef.mtrlcode,
	u_request_wfjgMx.orderid,
	u_request_wfjgMx.wrkGrpid,
	u_request_wfjgMx.mtrlid,
	u_request_wfjgMx.status,
	u_request_wfjgMx.woodcode,
	u_request_wfjgMx.pcode,
	u_request_wfjgMx.uqty,
	u_request_wfjgMx.consignedqty
	INTO :ls_mtrlcode,
	:ll_orderid,
	:ll_wrkGrpid,
	:ll_mtrlid,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:lde_uqty,
	:lde_consignedqty
	FROM u_mtrldef,u_request_wfjgMx
	WHERE u_mtrldef.mtrlid = u_request_wfjgMx.mtrlid
	AND u_request_wfjgMx.scid = :arg_scid
	AND u_request_wfjgMx.wfjgid = :arg_wfjgid
	AND u_request_wfjgMx.printid = :arg_printid
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询外协申请单明细物料编码失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF


IF lde_uqty < lde_consignedqty + arg_addqty THEN
	rslt = 0
	arg_msg = "外协申请物料:"+ls_mtrlcode+",的未安排数量只有"+String(lde_uqty - lde_consignedqty,'#,##0.0###')+",不能安排"+String(arg_addqty,'#,##0.0#')
	GOTO ext
END IF

UPDATE u_request_wfjgMx
	SET consignedqty = consignedqty  + :arg_addqty
	WHERE ( u_request_wfjgMx.wfjgid = :arg_wfjgid  ) AND
	( u_request_wfjgMx.printid = :arg_printid ) AND
	( u_request_wfjgMx.scid = :arg_scid) USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "更新外协申请单已安排数量操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF



it_newbegin = FALSE
it_updatebegin = FALSE

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

p_reset()
Return (rslt)





end function

public function integer addmxcmpl_out (long arg_scid, long arg_wfjgid, long arg_mtrlid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);//好像没用的??
//arg_addqty 必须为外协单位
Int rslt = 1,cnt = 0

IF arg_wfjgid <= 0 THEN
	rslt = 0
	arg_msg = '错误外加工计划唯一码'
	GOTO ext
END IF

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

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




Decimal lde_uqty,lde_consignedqty
String  ls_mtrlcode
SELECT mtrlcode INTO :ls_mtrlcode FROM u_mtrldef
	WHERE mtrlid = :arg_mtrlid
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询物料资料失败'
	GOTO ext
END IF



SELECT u_request_wfjgMx_out.uqty,
	u_request_wfjgMx_out.consignedqty
	INTO :lde_uqty,
	:lde_consignedqty
	FROM u_request_wfjgMx_out
	WHERE ( u_request_wfjgMx_out.scid = :arg_scid  ) AND
	( u_request_wfjgMx_out.wfjgid = :arg_wfjgid  ) AND
	( u_request_wfjgMx_out.printid = :arg_printid )  USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询外协申请发出物料编码["+ls_mtrlcode+"]已安排数量操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

IF lde_uqty < lde_consignedqty + arg_addqty THEN
	rslt = 0
	arg_msg = "外协申请发出物料["+ls_mtrlcode+"]的未安排数量只有"+String(lde_uqty - lde_consignedqty,'#,##0.0###')+",不能安排"+String(arg_addqty,'#,##0.0#')
	GOTO ext
END IF

UPDATE u_request_wfjgMx_out
	SET consignedqty = consignedqty  + :arg_addqty
	WHERE ( u_request_wfjgMx_out.wfjgid = :arg_wfjgid  ) AND
	( u_request_wfjgMx_out.scid = :arg_scid  ) AND
	( u_request_wfjgMx_out.printid = :arg_printid ) USING commit_transaction;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "更新外协申请单发出安排数量操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF


it_newbegin = FALSE
it_updatebegin = FALSE

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


p_reset()
Return (rslt)



end function

public function integer trycmplwfjg (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit);//trycmplbuytask(arg_taskid,arg_msg,arg_ifcommit)
Int rslt = 1,cnt = 0
DateTime null_dt
SetNull(null_dt)

IF arg_wfjgid <= 0 THEN
	rslt = 0
	arg_msg = '错误外协申请单唯一码'
	GOTO ext
END IF
IF p_getinfo(arg_scid,arg_wfjgid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF status <> 1 AND status <> 5 THEN
	rslt = 1
	IF status <> 1 THEN
		arg_msg = "外协申请单只有在进行状态下才可以执行设完成状态"
	ELSEIF status <> 5 THEN
		arg_msg = "外协申请单只有在完成状态下才可以执行撤消完成状态"
	END IF
	GOTO ext
END IF

Decimal ls_zerook
Boolean if_finish

if_finish = TRUE

DECLARE zero_cur CURSOR FOR
	SELECT u_request_wfjgMx.uqty - u_request_wfjgmx.consignedqty - u_request_wfjgmx.stopqty
	FROM u_request_wfjgmx
	WHERE ( u_request_wfjgmx.wfjgid = :arg_wfjgid  )
	AND ( u_request_wfjgmx.scid = :arg_scid )
	and ( u_request_wfjgmx.stopflag = 0)
	USING commit_transaction ;
	
OPEN zero_cur;
FETCH zero_cur INTO :ls_zerook;

DO WHILE commit_transaction.SQLCode = 0
	IF if_finish THEN
		IF ls_zerook > 0 THEN if_finish = FALSE
	END IF
	FETCH zero_cur INTO :ls_zerook;
LOOP
CLOSE zero_cur;

IF status = 1 AND if_finish THEN
	UPDATE u_request_wfjg
		SET status = 5,
		accomplishdate = getdate(),
		finishemp = :publ_operator
		WHERE ( u_request_wfjg.wfjgid = :arg_wfjgid  )
		And ( u_request_wfjg.scid = :arg_scid ) USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "外协申请单完成状态设置操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
END IF
IF status = 5 AND NOT if_finish THEN
	UPDATE u_request_wfjg
		SET status = 1,
		accomplishdate = :null_dt,
		finishemp = ''
		WHERE ( u_request_wfjg.wfjgid = :arg_wfjgid  )
		And ( u_request_wfjg.scid = :arg_scid ) USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "外协申请单撤消完成状态设置操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
END IF

it_newbegin = FALSE
it_updatebegin = FALSE

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

p_reset()
Return (rslt)



end function

public function integer audit_2 (long arg_scid, long arg_wfjgid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);
Int rslt = 1
Long cnt = 0
Long ll_i

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

uo_order_ml uo_order
uo_order = Create uo_order_ml


IF arg_wfjgid <= 0 THEN
	rslt = 0
	arg_msg = '错误外协计划唯一码'
	GOTO ext
END IF

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

IF Status <> 4 THEN
	rslt = 0
	arg_msg = "外协申请单不是在初审状态,操作取消"
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_user
	Where username = :arg_emp Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,操作员!"
	GOTO ext
END IF
IF cnt = 0 THEN
	rslt = 0
	arg_msg = "操作员姓名未登记或已取消!"
	GOTO ext
END IF

UPDATE u_request_wfjg
	SET secauditrep = :arg_emp,
	secauditdate = getdate(),
	Status = 1
	WHERE wfjgid = :arg_wfjgid
	AND scid = :arg_scid
	And Status = 4 Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "外协计划最终审核操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

Int li_ordertype_order,li_ifwfjgorder
Long  ll_mtrlid_order

FOR ll_i = 1 To it_mxbtmx
	IF wfjgmxmx[ll_i].orderid > 0 THEN
		IF uo_order.f_add_rqbuyqty(scid,wfjgmxmx[ll_i].orderid,wfjgmxmx[ll_i].wrkGrpid,3,&
			wfjgmxmx[ll_i].mtrlid,wfjgmxmx[ll_i].mtrlcode,wfjgmxmx[ll_i].Status,&
			wfjgmxmx[ll_i].woodcode,wfjgmxmx[ll_i].pcode,wfjgmxmx[ll_i].qty,arg_msg,False) = 0  THEN
			rslt = 0
			GOTO ext
		END IF
		
		SELECT ordertype,mtrlid,ifwforder
			INTO :li_ordertype_order,:ll_mtrlid_order,:li_ifwfjgorder
			FROM u_order_ml
			WHERE u_order_ml.scid = :scid
			AND u_order_ml.orderid = :wfjgmxmx[ll_i].orderid
			Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '查询明细:'+String(wfjgmxmx[ll_i].printid)+',相关生产计划类型失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		//更新外协主生产计划已申请数
		If (li_ordertype_order = 3 Or li_ifwfjgorder = 1) And ll_mtrlid_order = wfjgmxmx[ll_i].mtrlid  THEN
			IF uo_order.addmxcmpl_rqacmpqty(arg_scid,wfjgmxmx[ll_i].orderid,wfjgmxmx[ll_i].qty,arg_msg,False) = 0 THEN
				arg_msg = '更新行:'+String(ll_i)+','+arg_msg
				rslt = 0
				GOTO ext
			END IF
		END IF
	END IF
NEXT


IF uof_update_wfjg_flag(arg_scid,arg_wfjgid,arg_msg,False) = 0 THEN
	rslt = 0
	GOTO ext
END IF

it_newbegin = False
it_updatebegin = False

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

Return (rslt)




end function

public function integer audit (long arg_scid, long arg_wfjgid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Int li_flag
long cnt 

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


IF arg_wfjgid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误单据唯一码'
	GOTO ext
END IF

IF getinfo(arg_scid,arg_wfjgid,ARG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF Status <> 0 THEN
	rslt = 0
	ARG_MSG = "外协申请单不是待初审状态,操作取消"
	GOTO ext
END IF


cnt = 0
SELECT count(*) INTO :cnt
	FROM u_user
	Where username = :arg_emp USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "查询操作失败,操作员!"
	GOTO ext
END IF
IF cnt = 0 THEN
	rslt = 0
	ARG_MSG = "操作员姓名未登记或已取消!"
	GOTO ext
END IF

//更新审核标记
UPDATE u_request_wfjg
	SET auditrep = :arg_emp,
	auditdate = getdate(),
	status = 4
	WHERE wfjgid = :arg_wfjgid
	AND scid = :arg_scid
	AND status = 0;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "因网络或其它原因导致单据审核操作失败"+"~n"+sqlca.SQLErrText
	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 caudit (long arg_scid, long arg_wfjgid, integer arg_ifcheck_auto, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Int li_flag,li_ifauto
Long cnt
DateTime null_dt

SetNull(null_dt)

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

IF arg_wfjgid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误单据唯一码'
	GOTO ext
END IF


IF getinfo(arg_scid,arg_wfjgid,ARG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

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

IF arg_ifcheck_auto = 1 THEN
	IF ifauto = 1 THEN
		rslt = 0
		ARG_MSG = '单据为动建立的单据,不可以撤审'
		GOTO ext
	END IF
END IF

if status <> 4 then 
	arg_msg = '单据不是在初审状态,不可以撤审'
	rslt = 0 
	goto ext
end if


//cnt = 0
//SELECT count(*) INTO :cnt
//	FROM u_buytaskmx
//	WHERE scid = :arg_scid
//	AND requestbuyid = :arg_wfjgid;
//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

//更新审核标记
UPDATE u_request_wfjg
SET auditrep = '',
	auditdate = :null_dt,
	status = 0
	WHERE wfjgid = :arg_wfjgid
	AND scid = :arg_scid
	AND status = 4;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "因网络或其它原因导致单据撤审操作失败"+"~n"+sqlca.SQLErrText
	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 cancel (long arg_scid, long arg_wfjgid, integer arg_ifcheck_auto, ref string arg_msg, boolean arg_ifcommit);//删除未审核的订单
//0 FAIL, 1 SUCCESS

Int rslt = 1
Long ll_orderid_arr[]
Long cnt,ll_i
cnt = 1

IF arg_wfjgid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误外协申请单唯一码'
	GOTO ext
END IF

IF p_getinfo(arg_scid,arg_wfjgid,ARG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF arg_ifcheck_auto = 1 THEN
	IF ifauto = 1 THEN
		rslt = 0
		ARG_MSG = '单据为动建立的单据,不可以删除'
		GOTO ext
	END IF
END IF

IF Status <> 0 THEN
	rslt = 0
	ARG_MSG = "外协申请单已经审核,不可以删除"
	GOTO ext
END IF

DECLARE cur_mx CURSOR FOR
	SELECT u_request_wfjgmxmx.orderid
	FROM u_request_wfjgmxmx
	WHERE u_request_wfjgmxmx.scid = :arg_scid
	And u_request_wfjgmxmx.wfjgid = :arg_wfjgid
	and u_request_wfjgmxmx.orderid > 0 Using commit_transaction;
	
OPEN cur_mx;

FETCH cur_mx Into :ll_orderid_arr[cnt];

DO WHILE commit_transaction.SQLCode = 0
	cnt++
	FETCH cur_mx Into :ll_orderid_arr[cnt];
LOOP

CLOSE cur_mx;

cnt = cnt - 1


DELETE FROM u_request_wfjgMx
	WHERE u_request_wfjgMx.wfjgid = :arg_wfjgid
	And u_request_wfjgMx.scid = :arg_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "删除外协申请单收货汇总明细操作失败"+"~n"+SQLCA.SQLErrText
	ROLLBACK Using commit_transaction;
	GOTO ext
END IF

DELETE FROM u_request_wfjgMxmx
	WHERE u_request_wfjgMxmx.wfjgid = :arg_wfjgid
	And u_request_wfjgmxmx.scid = :arg_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "删除外协申请单收货明细操作失败"+"~n"+SQLCA.SQLErrText
	ROLLBACK Using commit_transaction;
	GOTO ext
END IF


DELETE FROM u_request_wfjgMx_out
	WHERE u_request_wfjgMx_out.wfjgid = :arg_wfjgid
	And u_request_wfjgMx_out.scid = :arg_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "删除外协申请单发出明细操作失败"+"~n"+SQLCA.SQLErrText
	ROLLBACK Using commit_transaction;
	GOTO ext
END IF


DELETE FROM u_request_wfjg
	WHERE u_request_wfjg.wfjgid = :arg_wfjgid
	And u_request_wfjg.scid = :arg_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "删除外协申请单操作失败"+"~n"+commit_transaction.SQLErrText
	ROLLBACK Using commit_transaction;
	GOTO ext
END IF

FOR ll_i = 1 To cnt
	UPDATE u_order_ml
		SET u_Order_ml.wfjg_flag = isnull(uv_order_request_wfjg_flag.flag, 0)
		FROM u_Order_ml LEFT OUTER JOIN
		uv_order_request_wfjg_flag ON
		u_Order_ml.scid = uv_order_request_wfjg_flag.scid AND
		u_Order_ml.OrderID = uv_order_request_wfjg_flag.OrderID
		WHERE u_order_ml.scid = :arg_scid
		And u_order_ml.orderid = :ll_orderid_arr[ll_i] Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		ARG_MSG = '更新相关生产计划外协申请单状态失败,'+commit_transaction.SQLErrText
		GOTO ext
	END IF
NEXT


it_newbegin = False
it_updatebegin = False

IF arg_ifcommit And rslt = 1 THEN
	COMMIT Using commit_transaction;
END IF
ext:
p_reset()
Return (rslt)



end function

public function integer caudit_2 (long arg_scid, long arg_wfjgid, any arg_ifcheck_auto, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long cnt = 0
Long ll_i

DateTime nulldate
SetNull(nulldate)

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

uo_order_ml uo_order
uo_order = Create uo_order_ml

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

IF arg_wfjgid <= 0 THEN
	rslt = 0
	arg_msg = '错误外协申请单唯一码'
	GOTO ext
END IF

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

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

IF arg_ifcheck_auto = 1 THEN
	IF ifauto = 1 THEN
		rslt = 0
		arg_msg = '单据为自动建立的单据,不可以撤审'
		GOTO ext
	END IF
END IF

IF Status <> 1 THEN
	rslt = 0
	arg_msg = "外协申请单只有在已审核状态才可以执行撤消审核，请核对"
	GOTO ext
END IF


SELECT count(*)
	INTO :cnt
	FROM  u_order_wfjgMx
	WHERE (  u_order_wfjgMx.scid = :arg_scid ) AND
	(  u_order_wfjgMx.relwfjgid = :arg_wfjgid )  Using commit_transaction   ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致查询外协申请单数量操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF
IF cnt > 0 THEN
	rslt = 0
	arg_msg = "外协申请单已经有相关外协订单,不可以撤消审核"
	GOTO ext
END IF

UPDATE u_request_wfjg
	SET Status = 4,
	secauditrep = '',
	secauditdate = :nulldate
	WHERE wfjgid = :arg_wfjgid
	AND scid = :arg_scid
	And Status = 1 Using commit_transaction ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致外协申请单撤消审核操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

Int li_ordertype_order, li_ifwfjgorder
Long ll_mtrlid_order
FOR ll_i = 1 To it_mxbtmx
	IF wfjgmxmx[ll_i].orderid > 0 THEN
		IF uo_order.f_add_rqbuyqty(scid,wfjgmxmx[ll_i].orderid,wfjgmxmx[ll_i].wrkGrpid,3,&
			wfjgmxmx[ll_i].mtrlid,wfjgmxmx[ll_i].mtrlcode,&
			wfjgmxmx[ll_i].Status,wfjgmxmx[ll_i].woodcode,&
			wfjgmxmx[ll_i].pcode,0 - wfjgmxmx[ll_i].qty,arg_msg,False) = 0  THEN
			rslt = 0
			GOTO ext
		END IF
		
		
		SELECT ordertype,mtrlid,ifwforder
			INTO :li_ordertype_order,:ll_mtrlid_order,:li_ifwfjgorder
			FROM u_order_ml
			WHERE u_order_ml.scid = :scid
			AND u_order_ml.orderid = :wfjgmxmx[ll_i].orderid
			Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '查询明细:'+String(wfjgmxmx[ll_i].printid)+',相关生产计划类型失败,'+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		//更新外协主生产计划已申请数
		If (li_ordertype_order = 3 Or li_ifwfjgorder = 1) And ll_mtrlid_order = wfjgmxmx[ll_i].mtrlid  THEN
			IF uo_order.addmxcmpl_rqacmpqty(arg_scid,wfjgmxmx[ll_i].orderid,0 - wfjgmxmx[ll_i].qty,arg_msg,False) = 0 THEN
				arg_msg = '更新行:'+String(ll_i)+','+arg_msg
				rslt = 0
				GOTO ext
			END IF
		END IF
	END IF
NEXT


IF uof_update_wfjg_flag(arg_scid,arg_wfjgid,arg_msg,False) = 0 THEN
	rslt = 0
	GOTO ext
END IF

it_newbegin = False
it_updatebegin = False

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

Destroy uo_order

p_reset()
Return (rslt)

end function

public function integer audit_mx (long arg_scid, long arg_wfjgid, long arg_printid, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Int li_flag,li_billtype
Long ll_sptid
Long ll_flagmx

IF arg_wfjgid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误单据唯一码'
	GOTO ext
END IF

IF p_getinfo(arg_scid,arg_wfjgid,ARG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF status <> 1  THEN
	rslt = 0
	ARG_MSG = '单据不是在进行状态,不可以审核明细内容'
	GOTO ext
END IF

SELECT sptid,flag INTO :ll_sptid,:ll_flagmx
	FROM u_request_wfjgMx
	WHERE scid = :arg_scid
	AND wfjgid = :arg_wfjgid
	AND printid = :arg_printid ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = '查询明细供应商内容失败'+sqlca.SQLErrText
	GOTO ext
END IF

IF ll_flagmx = 1 THEN
	rslt = 0
	ARG_MSG = '只在在待供应商审核的状态下才能执行供应商审核'
	GOTO ext
END IF

IF ll_sptid = 0 THEN
	rslt = 0
	ARG_MSG = '没有指定供应商,不能执行明细审核'
	GOTO ext
END IF

//更新审核标记
UPDATE u_request_wfjgMx
	SET auditrep = :arg_opemp,
	auditdate = getdate(),
	flag = 1
	WHERE wfjgid = :arg_wfjgid
	AND scid = :arg_scid
	AND printid = :arg_printid
	AND flag = 0;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "因网络或其它原因导致单据明细审核操作失败"+"~n"+sqlca.SQLErrText
	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 caudit_mx (long arg_scid, long arg_wfjgid, long arg_printid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Int li_flag,li_ifauto,li_billtype
Long cnt
DateTime null_dt

SetNull(null_dt)

IF arg_wfjgid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误单据唯一码'
	GOTO ext
END IF

SELECT flag INTO :li_flag
	FROM u_request_wfjgMx
	WHERE wfjgid = :arg_wfjgid
	AND scid = :arg_scid
	AND printid = :arg_printid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = '查询外协申请单明细审核状态失败'+sqlca.SQLErrText
	GOTO ext
END IF

IF li_flag = 0 THEN
	rslt = 0
	ARG_MSG = '外协申请单明细只有在已审核状态下才能执行撤审'
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_order_wfjgmx
	WHERE scid = :arg_scid
	AND relwfjgid = :arg_wfjgid
	AND relprintid = :arg_printid;
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

//更新审核标记
UPDATE u_request_wfjgMx
	SET auditrep = '',
	auditdate = :null_dt,
	flag = 0
	WHERE wfjgid = :arg_wfjgid
	AND scid = :arg_scid
	AND printid = :arg_printid
	AND flag = 1;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "因网络或其它原因导致单据明细撤审操作失败"+"~n"+sqlca.SQLErrText
	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 stopmx (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, integer arg_flag, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Int li_stopflag
String ls_outtype
DateTime null_dt
Decimal ld_notconsignedqty
Int ll_flag,ll_billtype

SetNull(null_dt)

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

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

IF status <> 1 THEN
	arg_msg = '外协申请单只能在进行状态下才能操作'
	rslt = 0
	GOTO ext
END IF

SELECT stopflag
	INTO :li_stopflag
	FROM u_request_wfjgMx
	WHERE scid = :arg_scid
	AND wfjgid = :arg_wfjgid
	AND printid = :arg_printid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询明细物料'+arg_mtrlcode+'中止标记失败'
	rslt = 0
	GOTO ext
END IF

IF arg_flag = 0 THEN
	IF li_stopflag = 0 THEN
		arg_msg = '明细物料'+arg_mtrlcode+'还未中止,不能取消中止'
		rslt = 0
		GOTO ext
	END IF
ELSE
	IF li_stopflag = 1 THEN
		arg_msg = '明细物料'+arg_mtrlcode+'已中止,不能重复中止'
		rslt = 0
		GOTO ext
	END IF
END IF


IF arg_flag = 1 THEN
	SELECT u_request_wfjgMx.uQty - u_request_wfjgMx.consignedqty
		INTO :ld_notconsignedqty
		FROM u_request_wfjgMx
		WHERE scid = :arg_scid
		AND wfjgid = :arg_wfjgid
		AND printid = :arg_printid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询明细物料'+arg_mtrlcode+'未完成数失败'
		rslt = 0
		GOTO ext
	END IF
	
	IF ld_notconsignedqty <= 0 THEN
		arg_msg = '明细物料'+arg_mtrlcode+'已完成订货,不能中止'
		rslt = 0
		GOTO ext
	END IF
	
END IF

IF arg_flag = 0 THEN
	UPDATE u_request_wfjgMx
		SET stopflag = 0,
		stopemp = '',
		stopdate = :null_dt,
		stopreason = ''
		WHERE scid = :arg_scid
		AND wfjgid = :arg_wfjgid
		AND printid = :arg_printid;
ELSE
	UPDATE u_request_wfjgMx
		SET stopflag = 1,
		stopemp = :publ_operator,
		stopdate = getdate(),
		stopreason = :arg_stopreason
		WHERE scid = :arg_scid
		AND wfjgid = :arg_wfjgid
		AND printid = :arg_printid;
END IF

IF sqlca.SQLCode <> 0 THEN
	arg_msg = '更新明细'+arg_mtrlcode+'中止标记失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF trycmplwfjg(arg_scid,arg_wfjgid,arg_msg,FALSE) = 0 THEN
	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 acceptmx (integer arg_iforder, long arg_orderid, string arg_ordercode, long arg_mtrlid, decimal arg_qty, string arg_dscrp, string arg_mtrlcode, ref string arg_msg, long arg_printid, datetime arg_requiredate, string arg_jgdscrp, string arg_status, string arg_woodcode, string arg_pcode, long arg_wrkgrpid, string arg_pfcode, string arg_plancode, string arg_unit, decimal arg_uqty, decimal arg_rate);s_order_wfjgmx s_mx


s_mx.iforder = arg_iforder
s_mx.orderid = arg_orderid
s_mx.ordercode = arg_ordercode
s_mx.mtrlid  = arg_mtrlid 
s_mx.qty = arg_qty 
s_mx.dscrp = arg_dscrp
s_mx.mtrlcode = arg_mtrlcode
s_mx.printid = arg_printid 
s_mx.requiredate = arg_requiredate 
s_mx.jgdscrp = arg_jgdscrp
s_mx.status  = arg_status 
s_mx.woodcode = arg_woodcode
s_mx.pcode = arg_pcode
s_mx.wrkgrpid = arg_wrkgrpid 
s_mx.pfcode = arg_pfcode 
s_mx.plancode  = arg_plancode 
s_mx.unit  = arg_unit 
s_mx.uqty  = arg_uqty 
s_mx.rate = arg_rate
s_mx.sonmtrlid = 0

return acceptmx(s_mx, arg_msg)

/*
Int rslt = 1
Long cnt = 0,ls_i,ll_j
Int li_mtrlkind
Long ll_sptmode,ll_sptid,ll_defsptid
String ls_unit

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

If uo_option_requestwfjg_hz = -1000 Then
	arg_msg = '选项:[121]外协申请单汇总外协,读取初始默认值失败,操作取消!'
	rslt = 0
	Goto ext
End If

If uo_option_wfjg_checkdate = -1000 Then
	arg_msg = '选项:[312]外协申请单保存不检查交货日期,读取初始默认值失败,操作取消!'
	rslt = 0
	Goto ext
End If



//清除空值
If IsNull(arg_iforder) Then arg_iforder = 0
If IsNull(arg_orderid) Then arg_orderid = 0
If IsNull(arg_ordercode) Then arg_ordercode = ''
If IsNull(arg_mtrlid) Then arg_mtrlid = 0
If IsNull(arg_qty) Then arg_qty = 0
If IsNull(arg_pfcode) Then arg_pfcode = ''

If IsNull(arg_dscrp) Then arg_dscrp = ''
If IsNull(arg_mtrlcode) Then arg_mtrlcode = ''
If IsNull(arg_printid) Then arg_printid = 0

If IsNull(arg_jgdscrp) Then arg_jgdscrp = ''
If IsNull(arg_status) Then arg_status = ''
If IsNull(arg_woodcode) Then arg_woodcode = ''
If IsNull(arg_pcode) Then arg_pcode = ''
If IsNull(arg_requiredate) Then arg_requiredate = DateTime(Date('1900-01-01'),Time(0))

If IsNull(arg_uqty) Then arg_uqty = 0
If IsNull(arg_unit) Then arg_unit = ''
If IsNull(arg_rate) Then arg_rate = 1

If arg_mtrlid = 0 Or (arg_qty = 0 and arg_uqty = 0) Then
	rslt = 1
	Goto ext
End If

Select mtrlkind,sptmode,dftsptid,unit
	Into :li_mtrlkind,:ll_sptmode,:ll_sptid,:ls_unit
	From u_mtrldef
	Where u_mtrldef.mtrlid = :arg_mtrlid
	Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = "查询物料:"+arg_mtrlcode+',MRP属性失败,'+commit_transaction.SQLErrText
	Goto ext
End If

//处理默认供应商
If ll_sptmode = 0 Then //无默认供应商
	ll_defsptid = 0
ElseIf ll_sptmode = 1 Then //按主供应商
	ll_defsptid = ll_sptid
Else //自动带最低价供应商
	Select TOP 1 sptid Into :ll_sptid
		From u_spt_price
		Where (mtrlid = :arg_mtrlid)
		And (status = :arg_status)
		And (unit = :ls_unit)
		Order By fprice;
	If sqlca.SQLCode <> 0 Then
		ll_sptid = 0
	End If
	ll_defsptid = ll_sptid
End If

If uo_option_wfjg_checkdate = 0 Then
	If ifauto = 0 Then
		If arg_requiredate <> DateTime(Date('1900-01-01'),Time(0)) Then
			If Requiredate > arg_requiredate Then
				arg_msg = '交货日期不能在订货日期前'
				rslt = 0
				Goto ext
			End If
		End If
	End If
End If

If arg_iforder = 1 Then
	If li_mtrlkind = 1 Then
		arg_msg = '物料:'+arg_mtrlcode+',MRP属性设为不按计划,所以不能选择计划'
		rslt = 0
		Goto ext
	End If
	
	If arg_orderid = 0 Then
		arg_msg = '请先择相应的计划'
		rslt = 0
		Goto ext
	End If
	
End If

For ls_i = 1 To it_mxbtmx //合并重复项
	If wfjgmxmx[ls_i].mtrlid = arg_mtrlid And &
		wfjgmxmx[ls_i].orderid = arg_orderid And &
		wfjgmxmx[ls_i].status = arg_status And &
		wfjgmxmx[ls_i].woodcode = arg_woodcode And &
		wfjgmxmx[ls_i].Requiredate = arg_requiredate And &
		wfjgmxmx[ls_i].wrkGrpid = arg_wrkGrpid And &
		wfjgmxmx[ls_i].pcode = arg_pcode And &
		wfjgmxmx[ls_i].pfcode = arg_pfcode Then
		wfjgmxmx[ls_i].qty = wfjgmxmx[ls_i].qty+arg_qty
		wfjgmxmx[ls_i].uqty = wfjgmxmx[ls_i].uqty+arg_uqty
		rslt = 1
		Goto _next
	End If
Next

//写入内容
it_mxbtmx++
wfjgmxmx[it_mxbtmx].iforder = arg_iforder
wfjgmxmx[it_mxbtmx].orderid = arg_orderid
wfjgmxmx[it_mxbtmx].ordercode = arg_ordercode
wfjgmxmx[it_mxbtmx].mtrlid = arg_mtrlid
wfjgmxmx[it_mxbtmx].qty = arg_qty
wfjgmxmx[it_mxbtmx].dscrp = arg_dscrp
wfjgmxmx[it_mxbtmx].mtrlcode = arg_mtrlcode
wfjgmxmx[it_mxbtmx].printid = arg_printid

wfjgmxmx[it_mxbtmx].Requiredate = arg_requiredate

wfjgmxmx[it_mxbtmx].jgdscrp = arg_jgdscrp
wfjgmxmx[it_mxbtmx].status = arg_status
wfjgmxmx[it_mxbtmx].woodcode = arg_woodcode
wfjgmxmx[it_mxbtmx].pcode = arg_pcode
wfjgmxmx[it_mxbtmx].wrkGrpid = arg_wrkGrpid
wfjgmxmx[it_mxbtmx].pfcode = arg_pfcode
wfjgmxmx[it_mxbtmx].sptid = ll_defsptid
wfjgmxmx[it_mxbtmx].plancode = arg_plancode

wfjgmxmx[it_mxbtmx].unit = arg_unit
wfjgmxmx[it_mxbtmx].uqty = arg_uqty
wfjgmxmx[it_mxbtmx].rate = arg_rate

_next:
If uo_option_requestwfjg_hz = 1 Then
	For ll_j = 1 To it_mxbt
		If wfjgmx[ll_j].mtrlid = arg_mtrlid And &
			wfjgmx[ll_j].status = arg_status And &
			wfjgmx[ll_j].woodcode = arg_woodcode And &
			Date(wfjgmx[ll_j].Requiredate) = Date(arg_requiredate) And &
			wfjgmx[ll_j].unit = arg_unit and &
			wfjgmx[ll_j].pcode = arg_pcode And &
			wfjgmx[ll_j].pfcode = arg_pfcode And &
			wfjgmx[ll_j].plancode = arg_plancode Then
			wfjgmx[ll_j].qty = wfjgmx[ll_j].qty+arg_qty
			wfjgmx[ll_j].uqty = wfjgmx[ll_j].uqty+arg_uqty
			wfjgmx[ll_j].iforder = 0
			wfjgmx[ll_j].ordercode = ''
			wfjgmx[ll_j].orderid = 0
			wfjgmx[ll_j].wrkGrpid = 0
			rslt = 1
			Goto ext
		End If
	Next
End If

it_mxbt++
wfjgmx[it_mxbt].iforder = arg_iforder
wfjgmx[it_mxbt].orderid = arg_orderid
wfjgmx[it_mxbt].ordercode = arg_ordercode
wfjgmx[it_mxbt].mtrlid = arg_mtrlid
wfjgmx[it_mxbt].qty = arg_qty
wfjgmx[it_mxbt].dscrp = arg_dscrp
wfjgmx[it_mxbt].mtrlcode = arg_mtrlcode
wfjgmx[it_mxbt].printid = arg_printid

wfjgmx[it_mxbt].Requiredate = arg_requiredate

wfjgmx[it_mxbt].jgdscrp = arg_jgdscrp
wfjgmx[it_mxbt].status = arg_status
wfjgmx[it_mxbt].woodcode = arg_woodcode
wfjgmx[it_mxbt].pcode = arg_pcode
wfjgmx[it_mxbt].wrkGrpid = arg_wrkGrpid
wfjgmx[it_mxbt].pfcode = arg_pfcode
wfjgmx[it_mxbt].sptid = ll_defsptid
wfjgmx[it_mxbt].plancode = arg_plancode

wfjgmx[it_mxbt].unit = arg_unit
wfjgmx[it_mxbt].uqty = arg_uqty
wfjgmx[it_mxbt].rate = arg_rate

ext:
If rslt = 0 Then p_clearmx()
Return(rslt)

*/




end function

public function integer acceptmx_out (long arg_mtrlid, decimal arg_qty, string arg_mtrlcode, ref string arg_msg, long arg_printid, string arg_status, string arg_woodcode, string arg_pcode, string arg_unit, decimal arg_uqty, decimal arg_rate);s_order_wfjgmx_out s_mx

s_mx.mtrlid =  arg_mtrlid
s_mx.qty = arg_qty
s_mx.mtrlcode = arg_mtrlcode
s_mx.printid =  arg_printid
s_mx.status = arg_status
s_mx.woodcode = arg_woodcode
s_mx.pcode = arg_pcode
s_mx.unit = arg_unit
s_mx.uqty = arg_uqty
s_mx.rate = arg_rate

return acceptmx_out(s_mx, arg_msg)

/*
//return 0 fail 1 success
// 函数增加一个明细项

Long rslt = 1,cnt = 0,ls_i


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

//清除空值
IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0
IF IsNull(arg_qty) THEN arg_qty = 0
IF IsNull(arg_mtrlcode) THEN arg_mtrlcode = ''
IF IsNull(arg_printid) THEN arg_printid = 0
IF IsNull(arg_status) THEN arg_status = ''
IF IsNull(arg_woodcode) THEN arg_woodcode = ''
IF IsNull(arg_pcode) THEN arg_pcode = ''

If IsNull(arg_uqty) Then arg_uqty = 0
If IsNull(arg_unit) Then arg_unit = ''
If IsNull(arg_rate) Then arg_rate = 1


IF arg_mtrlid = 0 OR (arg_qty = 0 and arg_uqty = 0)  THEN // 如果进仓数量为 0，或物料编号为空，则不作任何处理
	rslt = 1
	GOTO ext
END IF


//检查物料id
SELECT count(*)
	INTO :cnt
	FROM u_mtrldef
	Where u_mtrldef.mtrlid = :arg_mtrlid  ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,物料编号"
	GOTO ext
END IF

IF cnt = 0 THEN
	rslt = 0
	arg_msg = "错误的产品编号: "+String(arg_mtrlcode)
	GOTO ext
END IF


FOR ls_i = 1 TO it_mxbt_out //合并重复项
	IF wfjgmx_out[ls_i].mtrlid = arg_mtrlid AND &
		wfjgmx_out[ls_i].status = arg_status AND &
		wfjgmx_out[ls_i].woodcode = arg_woodcode AND &
		wfjgmx_out[ls_i].pcode = arg_pcode THEN
		wfjgmx_out[ls_i].qty = wfjgmx_out[ls_i].qty+arg_qty
		wfjgmx_out[ls_i].uqty = wfjgmx_out[ls_i].uqty+arg_uqty
		rslt = 1
		GOTO ext
	END IF
NEXT

//写入内容
it_mxbt_out++
wfjgmx_out[it_mxbt_out].mtrlid = arg_mtrlid
wfjgmx_out[it_mxbt_out].qty = arg_qty
wfjgmx_out[it_mxbt_out].mtrlcode = arg_mtrlcode
wfjgmx_out[it_mxbt_out].printid = arg_printid
wfjgmx_out[it_mxbt_out].status = arg_status
wfjgmx_out[it_mxbt_out].woodcode = arg_woodcode
wfjgmx_out[it_mxbt_out].pcode = arg_pcode

wfjgmx_out[it_mxbt_out].unit = arg_unit
wfjgmx_out[it_mxbt_out].uqty = arg_uqty
wfjgmx_out[it_mxbt_out].rate = arg_rate


ext:
IF rslt = 0 THEN p_clearmx()
Return(rslt)
*/
end function

public function integer wasteqty (long arg_scid, decimal arg_wasteqty, long arg_wfjgid, long arg_printid, string arg_mtrlcode, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0
Decimal lde_uqty,lde_consignedqty
//IF arg_wfjgid <= 0 THEN
//	rslt = 0
//	ARG_MSG = '错误外加工计划唯一码'
//	GOTO ext
//END IF

//SELECT count(*)
//	INTO :cnt
//	FROM u_order_wfjgmx
//	WHERE u_order_wfjgmx.scid = :arg_scid AND
//	u_order_wfjgmx.wfjgid = :arg_wfjgid AND
//	u_order_wfjgmx.printid = :arg_printid USING commit_transaction;
//IF commit_transaction.SQLCode <> 0 THEN
//	rslt = 0
//	ARG_MSG = "查询外加工明细操作失败!在物料"+String(arg_mtrlcode)
//	GOTO ext
//END IF
//IF cnt = 0 THEN
//	rslt = 0
//	ARG_MSG = "外加工明细不存在，在物料!"+String(arg_mtrlcode)
//	GOTO ext
//END IF
//
//SELECT u_order_wfjgMx.uqty,
//	u_order_wfjgMx.consignedqty + u_order_wfjgMx.wasteqty
//	INTO :lde_uqty,
//	:lde_consignedqty
//	FROM u_order_wfjgMx
//	WHERE ( u_order_wfjgMx.wfjgid = :arg_wfjgid  ) AND
//	( u_order_wfjgMx.scid = :arg_scid  ) AND
//	( u_order_wfjgMx.printid = :arg_printid  ) USING commit_transaction;
//IF commit_transaction.SQLCode <> 0 THEN
//	rslt = 0
//	ARG_MSG = "因网络或错误物料编码["+arg_mtrlcode+"]导致查询外加工计划已完成数量操作失败"+"~n"+commit_transaction.SQLErrText
//	GOTO ext
//END IF
//
//IF lde_uqty < lde_consignedqty + arg_wasteqty THEN
//	rslt = 0
//	ARG_MSG = "物料["+arg_mtrlcode+"]的未完成数量只有"+String(lde_uqty - lde_consignedqty,'#,##0.0###')+",不能入库"+String(arg_wasteqty,'#,##0.0#')
//	GOTO ext
//END IF
//
//UPDATE u_order_wfjgmx
//	SET u_order_wfjgmx.wasteqty = u_order_wfjgmx.wasteqty + :arg_wasteqty
//	WHERE u_order_wfjgmx.scid = :arg_scid AND
//	u_order_wfjgmx.wfjgid = :arg_wfjgid	AND
//	u_order_wfjgmx.printid = :arg_printid  USING commit_transaction;
//IF commit_transaction.SQLCode <> 0 THEN
//	rslt = 0
//	ARG_MSG = "因网络或其它原因导致更新外加工计划损耗操作失败"+"~n"+commit_transaction.SQLErrText
//	GOTO ext
//END IF
//
//
//ext:
//IF rslt = 0 THEN
//	ROLLBACK USING commit_transaction;
//ELSEIF arg_ifcommit  and rslt = 1 THEN
//	COMMIT USING commit_transaction;
//END IF
Return (rslt)






end function

public function integer stopbuytask (long arg_scid, long arg_wfjgid, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0
IF arg_wfjgid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误外协申请单唯一码'
	GOTO ext
END IF

IF f_aps_mrp_cklock(arg_scid,ARG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF p_getinfo(arg_scid,arg_wfjgid,ARG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF Status <> 1 THEN
	rslt = 0
	ARG_MSG = "外协申请单只有在进行状态才可以执行终止，请核对"
	GOTO ext
END IF

arg_stopreason = Trim(arg_stopreason)
IF arg_stopreason = '' THEN
	rslt = 0
	ARG_MSG = "请输入终止原因"
	GOTO ext
END IF


UPDATE u_request_wfjg
	SET Status = 3,
	accomplishdate = getdate(),
	stopemp = :publ_operator,
	stopreason = :arg_stopreason
	WHERE wfjgid = :arg_wfjgid
	And scid = :arg_scid Using commit_transaction ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "因网络或其它原因导致终止外协申请单操作失败"+"~n"+commit_transaction.SQLErrText
	ROLLBACK Using commit_transaction;
	GOTO ext
END IF



it_newbegin = False
it_updatebegin = False

ext:
IF arg_ifcommit And  rslt = 1 THEN
	COMMIT Using commit_transaction;
END IF
p_reset()
Return (rslt)


end function

public function integer stopqty (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, string arg_stopreason, ref string arg_msg, boolean arg_commit);
Int rslt = 1
Int li_flag, li_billtype
DateTime null_dt
Decimal ld_notconsignedqty, lde_stopqty

DateTime server_datetime
String ls_stopemp

SELECT Top 1 getdate() Into :server_datetime From u_user  Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	GOTO ext
END IF

IF IsNull(arg_stopqty) THEN arg_stopqty = 0

IF arg_stopqty < 0 THEN
	arg_msg = '订单终止数不能少于0,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_stopqty = 0 THEN
	SetNull(server_datetime)
	ls_stopemp = ''
ELSE
	ls_stopemp = publ_operator
END IF

SetNull(null_dt)

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

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

IF status <> 1 And status <> 5 THEN
	arg_msg = '外协申请单只能在进行状态或自动完成状态才能操作'
	rslt = 0
	GOTO ext
END IF

SELECT uQty - consignedqty,
	stopqty
	INTO :ld_notconsignedqty,
	:lde_stopqty
	FROM u_request_wfjgMx
	WHERE scid = :arg_scid
	AND wfjgid = :arg_wfjgid
	And printid = :arg_printid Using sqlca ;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询明细物料'+arg_mtrlcode+'未完成数失败'
	rslt = 0
	GOTO ext
END IF

IF arg_stopqty > ld_notconsignedqty  THEN
	arg_msg = '明细物料'+arg_mtrlcode+'未订货数只有:'+String(ld_notconsignedqty,'#,##0.##########') +'不能终止:'+String(arg_stopqty,'#,##0.##########')
	rslt = 0
	GOTO ext
END IF

UPDATE u_request_wfjgMx
	SET stopqty = :arg_stopqty,
	stopemp = :ls_stopemp,
	stopdate = :server_datetime,
	stopreason = :arg_stopreason
	WHERE scid = :arg_scid
	AND wfjgid = :arg_wfjgid
	And printid = :arg_printid Using sqlca ;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '更新明细'+arg_mtrlcode+'中止标记失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF trycmplwfjg(arg_scid,arg_wfjgid,arg_msg,FALSE) = 0 THEN
	rslt = 0
	GOTO ext
END IF

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










end function

public function integer uof_update_wfjg_flag (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1


UPDATE u_Order_ml
	SET u_Order_ml.wfjg_flag =  isnull(uv_order_request_wfjg_flag.flag,0)
	FROM u_request_wfjgmxmx INNER JOIN
	uv_order_request_wfjg_flag ON
	u_request_wfjgmxmx.scid = uv_order_request_wfjg_flag.scid AND
	u_request_wfjgmxmx.orderid = uv_order_request_wfjg_flag.OrderID INNER JOIN
	u_Order_ml ON uv_order_request_wfjg_flag.scid = u_Order_ml.scid AND
	uv_order_request_wfjg_flag.OrderID = u_Order_ml.OrderID
	WHERE u_request_wfjgmxmx.scid = :arg_scid
	And u_request_wfjgmxmx.wfjgid = :arg_wfjgid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新相关生产计划外协申请单状态失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF




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

RETURN rslt




end function

public function integer acceptmx (s_order_wfjgmx s_mx, ref string arg_msg);Int rslt = 1
Long cnt = 0,ls_i,ll_j
Int li_mtrlkind
Long ll_sptmode,ll_sptid,ll_defsptid
String ls_unit

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

If uo_option_requestwfjg_hz = -1000 Then
	arg_msg = '选项:[121]外协申请单汇总外协,读取初始默认值失败,操作取消!'
	rslt = 0
	Goto ext
End If

If uo_option_wfjg_checkdate = -1000 Then
	arg_msg = '选项:[312]外协申请单保存不检查交货日期,读取初始默认值失败,操作取消!'
	rslt = 0
	Goto ext
End If



//清除空值
If IsNull(s_mx.iforder) Then s_mx.iforder = 0
If IsNull(s_mx.orderid) Then s_mx.orderid = 0
If IsNull(s_mx.ordercode) Then s_mx.ordercode = ''
If IsNull(s_mx.mtrlid) Then s_mx.mtrlid = 0
If IsNull(s_mx.qty) Then s_mx.qty = 0
If IsNull(s_mx.pfcode) Then s_mx.pfcode = ''

If IsNull(s_mx.dscrp) Then s_mx.dscrp = ''
If IsNull(s_mx.mtrlcode) Then s_mx.mtrlcode = ''
If IsNull(s_mx.printid) Then s_mx.printid = 0

If IsNull(s_mx.jgdscrp) Then s_mx.jgdscrp = ''
If IsNull(s_mx.status) Then s_mx.status = ''
If IsNull(s_mx.woodcode) Then s_mx.woodcode = ''
If IsNull(s_mx.pcode) Then s_mx.pcode = ''
If IsNull(s_mx.requiredate) Then s_mx.requiredate = DateTime(Date('1900-01-01'),Time(0))

If IsNull(s_mx.uqty) Then s_mx.uqty = 0
If IsNull(s_mx.unit) Then s_mx.unit = ''
If IsNull(s_mx.rate) Then s_mx.rate = 1
If IsNull(s_mx.sonmtrlid) Then s_mx.sonmtrlid = 0

If s_mx.mtrlid = 0 Or (s_mx.qty = 0 and s_mx.uqty = 0) Then
	rslt = 1
	Goto ext
End If

Select mtrlkind,sptmode,dftsptid,unit
	Into :li_mtrlkind,:ll_sptmode,:ll_sptid,:ls_unit
	From u_mtrldef
	Where u_mtrldef.mtrlid = :s_mx.mtrlid
	Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = "查询物料:"+s_mx.mtrlcode+',MRP属性失败,'+commit_transaction.SQLErrText
	Goto ext
End If

//处理默认供应商
If ll_sptmode = 0 Then //无默认供应商
	ll_defsptid = 0
ElseIf ll_sptmode = 1 Then //按主供应商
	ll_defsptid = ll_sptid
Else //自动带最低价供应商
	Select TOP 1 sptid Into :ll_sptid
		From u_spt_price
		Where (mtrlid = :s_mx.mtrlid)
		And (status = :s_mx.status)
		And (unit = :ls_unit)
		Order By fprice;
	If sqlca.SQLCode <> 0 Then
		ll_sptid = 0
	End If
	ll_defsptid = ll_sptid
End If

If uo_option_wfjg_checkdate = 0 Then
	If ifauto = 0 Then
		If s_mx.requiredate <> DateTime(Date('1900-01-01'),Time(0)) Then
			If Requiredate > s_mx.requiredate Then
				arg_msg = '交货日期不能在订货日期前'
				rslt = 0
				Goto ext
			End If
		End If
	End If
End If

If s_mx.iforder = 1 Then
	If li_mtrlkind = 1 Then
		arg_msg = '物料:'+s_mx.mtrlcode+',MRP属性设为不按计划,所以不能选择计划'
		rslt = 0
		Goto ext
	End If
	
	If s_mx.orderid = 0 Then
		arg_msg = '请先择相应的计划'
		rslt = 0
		Goto ext
	End If
	
End If

For ls_i = 1 To it_mxbtmx //合并重复项
	If wfjgmxmx[ls_i].mtrlid = s_mx.mtrlid And &
		wfjgmxmx[ls_i].orderid = s_mx.orderid And &
		wfjgmxmx[ls_i].status = s_mx.status And &
		wfjgmxmx[ls_i].woodcode = s_mx.woodcode And &
		wfjgmxmx[ls_i].Requiredate = s_mx.requiredate And &
		wfjgmxmx[ls_i].wrkGrpid = s_mx.wrkGrpid And &
		wfjgmxmx[ls_i].pcode = s_mx.pcode And &
		wfjgmxmx[ls_i].pfcode = s_mx.pfcode Then
		
		wfjgmxmx[ls_i].qty = wfjgmxmx[ls_i].qty+s_mx.qty
		wfjgmxmx[ls_i].uqty = wfjgmxmx[ls_i].uqty+s_mx.uqty
		rslt = 1
		Goto _next
	End If
Next

//写入内容
it_mxbtmx++
wfjgmxmx[it_mxbtmx].iforder = s_mx.iforder
wfjgmxmx[it_mxbtmx].orderid = s_mx.orderid
wfjgmxmx[it_mxbtmx].ordercode = s_mx.ordercode
wfjgmxmx[it_mxbtmx].mtrlid = s_mx.mtrlid
wfjgmxmx[it_mxbtmx].qty = s_mx.qty
wfjgmxmx[it_mxbtmx].dscrp = s_mx.dscrp
wfjgmxmx[it_mxbtmx].mtrlcode = s_mx.mtrlcode
wfjgmxmx[it_mxbtmx].printid = s_mx.printid

wfjgmxmx[it_mxbtmx].Requiredate = s_mx.requiredate

wfjgmxmx[it_mxbtmx].jgdscrp = s_mx.jgdscrp
wfjgmxmx[it_mxbtmx].status = s_mx.status
wfjgmxmx[it_mxbtmx].woodcode = s_mx.woodcode
wfjgmxmx[it_mxbtmx].pcode = s_mx.pcode
wfjgmxmx[it_mxbtmx].wrkGrpid = s_mx.wrkGrpid
wfjgmxmx[it_mxbtmx].pfcode = s_mx.pfcode
wfjgmxmx[it_mxbtmx].sptid = ll_defsptid
wfjgmxmx[it_mxbtmx].plancode = s_mx.plancode

wfjgmxmx[it_mxbtmx].unit = s_mx.unit
wfjgmxmx[it_mxbtmx].uqty = s_mx.uqty
wfjgmxmx[it_mxbtmx].rate = s_mx.rate

wfjgmxmx[it_mxbtmx].sonmtrlid = s_mx.sonmtrlid

_next:
If uo_option_requestwfjg_hz = 1 Then
	For ll_j = 1 To it_mxbt
		If wfjgmx[ll_j].mtrlid = s_mx.mtrlid And &
			wfjgmx[ll_j].status = s_mx.status And &
			wfjgmx[ll_j].woodcode = s_mx.woodcode And &
			Date(wfjgmx[ll_j].Requiredate) = Date(s_mx.requiredate) And &
			wfjgmx[ll_j].unit = s_mx.unit and &
			wfjgmx[ll_j].pcode = s_mx.pcode And &
			wfjgmx[ll_j].pfcode = s_mx.pfcode And &
			wfjgmx[ll_j].plancode = s_mx.plancode Then
			
			wfjgmx[ll_j].qty = wfjgmx[ll_j].qty+s_mx.qty
			wfjgmx[ll_j].uqty = wfjgmx[ll_j].uqty+s_mx.uqty
			wfjgmx[ll_j].iforder = 0
			wfjgmx[ll_j].ordercode = ''
			wfjgmx[ll_j].orderid = 0
			wfjgmx[ll_j].wrkGrpid = 0
			rslt = 1
			Goto ext
		End If
	Next
End If

it_mxbt++
wfjgmx[it_mxbt].iforder = s_mx.iforder
wfjgmx[it_mxbt].orderid = s_mx.orderid
wfjgmx[it_mxbt].ordercode = s_mx.ordercode
wfjgmx[it_mxbt].mtrlid = s_mx.mtrlid
wfjgmx[it_mxbt].qty = s_mx.qty
wfjgmx[it_mxbt].dscrp = s_mx.dscrp
wfjgmx[it_mxbt].mtrlcode = s_mx.mtrlcode
wfjgmx[it_mxbt].printid = s_mx.printid

wfjgmx[it_mxbt].Requiredate = s_mx.requiredate

wfjgmx[it_mxbt].jgdscrp = s_mx.jgdscrp
wfjgmx[it_mxbt].status = s_mx.status
wfjgmx[it_mxbt].woodcode = s_mx.woodcode
wfjgmx[it_mxbt].pcode = s_mx.pcode
wfjgmx[it_mxbt].wrkGrpid = s_mx.wrkGrpid
wfjgmx[it_mxbt].pfcode = s_mx.pfcode
wfjgmx[it_mxbt].sptid = ll_defsptid
wfjgmx[it_mxbt].plancode = s_mx.plancode

wfjgmx[it_mxbt].unit = s_mx.unit
wfjgmx[it_mxbt].uqty = s_mx.uqty
wfjgmx[it_mxbt].rate = s_mx.rate

wfjgmx[it_mxbt].sonmtrlid = s_mx.sonmtrlid

ext:
If rslt = 0 Then p_clearmx()
Return(rslt)






end function

public function integer acceptmx_out (s_order_wfjgmx_out s_mx, ref string arg_msg);//return 0 fail 1 success
// 函数增加一个明细项

Long rslt = 1,cnt = 0,ls_i


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

//清除空值
IF IsNull(s_mx.mtrlid) THEN s_mx.mtrlid = 0
IF IsNull(s_mx.qty) THEN s_mx.qty = 0
IF IsNull(s_mx.mtrlcode) THEN s_mx.mtrlcode = ''
IF IsNull(s_mx.printid) THEN s_mx.printid = 0
IF IsNull(s_mx.status) THEN s_mx.status = ''
IF IsNull(s_mx.woodcode) THEN s_mx.woodcode = ''
IF IsNull(s_mx.pcode) THEN s_mx.pcode = ''

If IsNull(s_mx.uqty) Then s_mx.uqty = 0
If IsNull(s_mx.unit) Then s_mx.unit = ''
If IsNull(s_mx.rate) Then s_mx.rate = 1


IF s_mx.mtrlid = 0 OR (s_mx.qty = 0 and s_mx.uqty = 0)  THEN // 如果进仓数量为 0，或物料编号为空，则不作任何处理
	rslt = 1
	GOTO ext
END IF


//检查物料id
SELECT count(*)
	INTO :cnt
	FROM u_mtrldef
	Where u_mtrldef.mtrlid = :s_mx.mtrlid  ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,物料编号"
	GOTO ext
END IF

IF cnt = 0 THEN
	rslt = 0
	arg_msg = "错误的产品编号: "+String(s_mx.mtrlcode)
	GOTO ext
END IF


FOR ls_i = 1 TO it_mxbt_out //合并重复项
	IF wfjgmx_out[ls_i].mtrlid = s_mx.mtrlid AND &
		wfjgmx_out[ls_i].status = s_mx.status AND &
		wfjgmx_out[ls_i].woodcode = s_mx.woodcode AND &
		wfjgmx_out[ls_i].pcode = s_mx.pcode THEN
		wfjgmx_out[ls_i].qty = wfjgmx_out[ls_i].qty+s_mx.qty
		wfjgmx_out[ls_i].uqty = wfjgmx_out[ls_i].uqty+s_mx.uqty
		rslt = 1
		GOTO ext
	END IF
NEXT

//写入内容
it_mxbt_out++
wfjgmx_out[it_mxbt_out].mtrlid = s_mx.mtrlid
wfjgmx_out[it_mxbt_out].qty = s_mx.qty
wfjgmx_out[it_mxbt_out].mtrlcode = s_mx.mtrlcode
wfjgmx_out[it_mxbt_out].printid = s_mx.printid
wfjgmx_out[it_mxbt_out].status = s_mx.status
wfjgmx_out[it_mxbt_out].woodcode = s_mx.woodcode
wfjgmx_out[it_mxbt_out].pcode = s_mx.pcode

wfjgmx_out[it_mxbt_out].unit = s_mx.unit
wfjgmx_out[it_mxbt_out].uqty = s_mx.uqty
wfjgmx_out[it_mxbt_out].rate = s_mx.rate


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

end function

public function integer uof_add_thqty (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);//arg_addqty 必须为外协单位
Int rslt = 1
Long cnt = 0

IF arg_wfjgid <= 0 THEN
	rslt = 0
	arg_msg = '错误外协申请单唯一码'
	GOTO ext
END IF

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

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

IF status <> 1 AND status <> 5 THEN
	rslt = 0
	arg_msg = "外协申请单只有在进行或完成状态下才可以执行操作"
	GOTO ext
END IF

Decimal lde_uqty,lde_consignedqty,ld_sum_consignedqty
String  ls_mtrlcode
Long ll_orderid,ll_wrkGrpid,ll_mtrlid
String ls_status,ls_woodcode,ls_pcode
decimal lde_thqty, lde_fgqty

SELECT u_mtrldef.mtrlcode,
	u_request_wfjgMx.orderid,
	u_request_wfjgMx.wrkGrpid,
	u_request_wfjgMx.mtrlid,
	u_request_wfjgMx.status,
	u_request_wfjgMx.woodcode,
	u_request_wfjgMx.pcode,
	u_request_wfjgMx.uqty,
	u_request_wfjgMx.consignedqty,
	u_request_wfjgMx.thqty,
	u_request_wfjgMx.fgqty
	INTO :ls_mtrlcode,
	:ll_orderid,
	:ll_wrkGrpid,
	:ll_mtrlid,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:lde_uqty,
	:lde_consignedqty,
	:lde_thqty,
	:lde_fgqty
	FROM u_mtrldef,u_request_wfjgMx
	WHERE u_mtrldef.mtrlid = u_request_wfjgMx.mtrlid
	AND u_request_wfjgMx.scid = :arg_scid
	AND u_request_wfjgMx.wfjgid = :arg_wfjgid
	AND u_request_wfjgMx.printid = :arg_printid
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询外协申请单明细物料编码失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF


IF lde_consignedqty <  lde_thqty + arg_addqty THEN
	rslt = 0
	arg_msg = "外协申请物料:"+ls_mtrlcode+",的已安排数量只有"+String(lde_consignedqty - lde_thqty,'#,##0.0###')+",不能退回"+String(arg_addqty,'#,##0.0#')
	GOTO ext
END IF

IF lde_thqty + arg_addqty <  lde_fgqty THEN
	rslt = 0
	arg_msg = "外协申请物料:"+ls_mtrlcode+",的已返工数量"+String(lde_fgqty,'#,##0.0###')+",不能取消退回"+String(arg_addqty,'#,##0.0#')
	GOTO ext
END IF

UPDATE u_request_wfjgMx
	SET thqty = thqty  + :arg_addqty
	WHERE ( u_request_wfjgMx.wfjgid = :arg_wfjgid  ) AND
	( u_request_wfjgMx.printid = :arg_printid ) AND
	( u_request_wfjgMx.scid = :arg_scid) USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "更新外协申请单已安排退回数量操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF



it_newbegin = FALSE
it_updatebegin = FALSE

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

p_reset()
Return (rslt)





end function

public function integer uof_add_fgqty (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);//arg_addqty 必须为外协单位
Int rslt = 1
Long cnt = 0

IF arg_wfjgid <= 0 THEN
	rslt = 0
	arg_msg = '错误外协申请单唯一码'
	GOTO ext
END IF

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

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

IF status <> 1 AND status <> 5 THEN
	rslt = 0
	arg_msg = "外协申请单只有在进行或完成状态下才可以执行操作"
	GOTO ext
END IF

Decimal lde_uqty,lde_consignedqty,ld_sum_consignedqty
String  ls_mtrlcode
Long ll_orderid,ll_wrkGrpid,ll_mtrlid
String ls_status,ls_woodcode,ls_pcode
decimal lde_thqty, lde_fgqty

SELECT u_mtrldef.mtrlcode,
	u_request_wfjgMx.orderid,
	u_request_wfjgMx.wrkGrpid,
	u_request_wfjgMx.mtrlid,
	u_request_wfjgMx.status,
	u_request_wfjgMx.woodcode,
	u_request_wfjgMx.pcode,
	u_request_wfjgMx.uqty,
	u_request_wfjgMx.consignedqty,
	u_request_wfjgMx.thqty,
	u_request_wfjgMx.fgqty
	INTO :ls_mtrlcode,
	:ll_orderid,
	:ll_wrkGrpid,
	:ll_mtrlid,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:lde_uqty,
	:lde_consignedqty,
	:lde_thqty,
	:lde_fgqty
	FROM u_mtrldef,u_request_wfjgMx
	WHERE u_mtrldef.mtrlid = u_request_wfjgMx.mtrlid
	AND u_request_wfjgMx.scid = :arg_scid
	AND u_request_wfjgMx.wfjgid = :arg_wfjgid
	AND u_request_wfjgMx.printid = :arg_printid
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询外协申请单明细物料编码失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF


IF lde_thqty < lde_fgqty  + arg_addqty THEN
	rslt = 0
	arg_msg = "外协申请物料:"+ls_mtrlcode+",的退回未返工数量只有"+String(lde_thqty - lde_fgqty,'#,##0.0###')+",不能返工"+String(arg_addqty,'#,##0.0#')
	GOTO ext
END IF

IF lde_fgqty + arg_addqty <  0 THEN
	rslt = 0
	arg_msg = "外协申请物料:"+ls_mtrlcode+",的已返工数量"+String(lde_fgqty,'#,##0.0###')+",不能返工"+String(arg_addqty,'#,##0.0#')
	GOTO ext
END IF

UPDATE u_request_wfjgMx
	SET fgqty = fgqty  + :arg_addqty
	WHERE ( u_request_wfjgMx.wfjgid = :arg_wfjgid  ) AND
	( u_request_wfjgMx.printid = :arg_printid ) AND
	( u_request_wfjgMx.scid = :arg_scid) USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "更新外协申请单已安排退回数量操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF



it_newbegin = FALSE
it_updatebegin = FALSE

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

p_reset()
Return (rslt)





end function

public function integer uof_add_order_acmpqty (long arg_scid, long arg_wfjgid, long arg_printid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg);// arg_addqty > 0 审核 增加
// arg_addqty < 0 撤审 减少
Int rslt = 1
Long ll_i, ll_k
Long ll_cnt_order
Long ll_orderid, ll_mtrlid_order
Int li_ordertype_order, li_ifwfjgorder
Decimal lde_addqty

uo_order_ml uo_order
uo_order = Create uo_order_ml

datastore ds_rqwfjg
ds_rqwfjg = Create datastore
ds_rqwfjg.DataObject = 'ds_order_wfjg_request_wfjg_mxmx'
ds_rqwfjg.SetTransObject(sqlca)


//1.通过外协申请单,找到对应的主计划, //更新外协主生产计划已进仓数
Decimal lde_addqty_allow, ld_qty
Decimal lde_orderqty, lde_acmpqty, lde_stopqty, lde_unacmpqty

lde_addqty = Abs(arg_addqty)


ll_cnt_order = ds_rqwfjg.Retrieve(arg_scid,arg_wfjgid,arg_printid)

FOR ll_k = 1 To ll_cnt_order
	ll_orderid = ds_rqwfjg.Object.u_request_wfjgmxmx_orderid[ll_k]
	IF ll_orderid = 0 THEN CONTINUE
	
	li_ordertype_order = ds_rqwfjg.Object.ordertype[ll_k]
	li_ifwfjgorder = ds_rqwfjg.Object.ifwforder[ll_k]
	ll_mtrlid_order = ds_rqwfjg.Object.mtrlid_order[ll_k]
	lde_orderqty = ds_rqwfjg.Object.mtrlid_order[ll_k]
	lde_acmpqty = ds_rqwfjg.Object.acmpqty[ll_k]
	lde_stopqty = ds_rqwfjg.Object.stopqty[ll_k]
	lde_unacmpqty = ds_rqwfjg.Object.unacmpqty[ll_k]
	
	//更新外协主生产计划已进仓数
	If (li_ordertype_order = 3 Or li_ifwfjgorder = 1) And ll_mtrlid_order = arg_mtrlid  THEN
		
		IF arg_addqty > 0 THEN
			lde_addqty_allow = lde_unacmpqty
		ELSE
			lde_addqty_allow = lde_acmpqty
		END IF
		
		IF lde_addqty_allow > 0 THEN
			ld_qty = Min(lde_addqty, lde_addqty_allow) //本条处理数
			lde_addqty -= ld_qty //未处理数
			
			IF ld_qty > 0 THEN
				IF arg_addqty > 0 THEN //增加
					//ld_qty = ld_qty
				ELSE //减少
					ld_qty = 0 - ld_qty
				END IF
				
				IF uo_order.addmxcmpl(arg_scid,ll_orderid,ld_qty,arg_msg,False) = 0 THEN
					arg_msg = '更新行:'+String(ll_i)+','+arg_msg
					rslt = 0
					GOTO ext
				END IF
				
				IF uo_order.tryfinishorder(arg_scid,ll_orderid,arg_msg,False) = 0 THEN
					arg_msg = '更新行:'+String(ll_i)+','+arg_msg
					rslt = 0
					GOTO ext
				END IF
			END IF
			
			IF lde_addqty <= 0 THEN EXIT // 完成
		END IF
	END IF
NEXT


ext:
Destroy uo_order
Destroy ds_rqwfjg

RETURN rslt







end function

public function integer uof_add_order_dstrqty_bk (long arg_scid, long arg_wfjgid, long arg_printid, long arg_mtrlid, decimal arg_addqty, decimal arg_dec_round, ref string arg_msg);// arg_addqty > 0 审核 增加
// arg_addqty < 0 撤审 减少
Int rslt = 1
Long ll_i, ll_k,  ll_m, ll_lp, ll_row_f
String ls_mtrlcode_out
Decimal ld_costamt_out ,ld_qty_out,ld_cost_out, ld_overqty
Long ll_wrkgrpid_out,ll_mtrlid_out
String ls_status_out,ls_woodcode_out,ls_pcode_out
Long ll_cnt_order
Long ll_orderid, ll_mtrlid_order, ll_workgroupid
Int li_ordertype_order, li_ifwfjgorder
String ls_wrkgrpname
Decimal lde_addqty
Decimal dec_round //= 2 //计算发出明细保留小数位, 取自外协订单界面

uo_order_ml uo_order
uo_order = Create uo_order_ml

datastore ds_rqwfjg
ds_rqwfjg = Create datastore
ds_rqwfjg.DataObject = 'ds_order_wfjg_request_wfjg_mxmx'
ds_rqwfjg.SetTransObject(sqlca)

datastore ds_mrpmx
ds_mrpmx = Create datastore
ds_mrpmx.DataObject = 'ds_order_ml_mrpmx_to_wfjg'
ds_mrpmx.SetTransObject(sqlca)


Dec lde_addqty_out_allow, lde_addqty_out_detrqty_allow, lde_addqty_out_ed, lde_sonscale
Long ll_cnt_tree

//1.通过外协申请单,找到对应的主计划, //更新外协主生产计划已进仓数
Decimal lde_addqty_allow, ld_qty
Decimal lde_orderqty, lde_acmpqty, lde_stopqty, lde_unacmpqty


lde_addqty = Abs(arg_addqty)
dec_round = arg_dec_round

ll_cnt_order = ds_rqwfjg.Retrieve(arg_scid,arg_wfjgid,arg_printid)

FOR ll_k = 1 To ll_cnt_order
	ll_orderid = ds_rqwfjg.Object.u_request_wfjgmxmx_orderid[ll_k]
	IF ll_orderid = 0 THEN CONTINUE
	
	li_ordertype_order = ds_rqwfjg.Object.ordertype[ll_k]
	li_ifwfjgorder = ds_rqwfjg.Object.ifwforder[ll_k]
	ll_mtrlid_order = ds_rqwfjg.Object.mtrlid_order[ll_k]
	lde_orderqty = ds_rqwfjg.Object.mtrlid_order[ll_k]
	lde_acmpqty = ds_rqwfjg.Object.acmpqty[ll_k]
	lde_stopqty = ds_rqwfjg.Object.stopqty[ll_k]
	lde_unacmpqty = ds_rqwfjg.Object.unacmpqty[ll_k]
	
	ll_cnt_tree = ds_mrpmx.Retrieve(arg_scid,ll_orderid)
	ll_row_f = ds_mrpmx.Find("u_orderrqmtrl_tree_mtrlid = "+String(arg_mtrlid),1,ds_mrpmx.RowCount())
	
	IF ll_row_f > 0 THEN
		ll_lp = ds_mrpmx.Object.u_orderrqmtrl_tree_lp[ll_row_f]
		
		FOR ll_m = ll_row_f + 1 To ds_mrpmx.RowCount()
			
			IF ds_mrpmx.Object.u_orderrqmtrl_tree_lp[ll_m] <= ll_lp THEN EXIT
			
			IF ds_mrpmx.Object.u_orderrqmtrl_tree_lp[ll_m] = ll_lp + 1 &
				And ds_mrpmx.Object.u_orderrqmtrl_tree_rqqty[ll_m] > 0  THEN
				
				ls_mtrlcode_out = ds_mrpmx.Object.u_mtrldef_mtrlcode[ll_m]
				ll_wrkgrpid_out = ds_mrpmx.Object.u_orderrqmtrl_tree_wrkgrpid[ll_m]
				ll_mtrlid_out = ds_mrpmx.Object.u_orderrqmtrl_tree_mtrlid[ll_m]
				ls_status_out = ds_mrpmx.Object.u_orderrqmtrl_tree_status[ll_m]
				ls_woodcode_out = ds_mrpmx.Object.u_orderrqmtrl_tree_woodcode[ll_m]
				ls_pcode_out = ds_mrpmx.Object.u_orderrqmtrl_tree_pcode[ll_m]
				lde_sonscale = ds_mrpmx.Object.u_orderrqmtrl_tree_sonscale[ll_m]
				IF lde_sonscale = 0 THEN
					lde_sonscale = ds_mrpmx.Object.u_orderrqmtrl_tree_rqqty[ll_m] / ds_mrpmx.Object.u_orderrqmtrl_tree_truerqqty[ll_row_f]
				END IF
				
				//找有多少未完成数, 分配完成
				SELECT sum(truerqqty - dstrqty) , sum(dstrqty)
					INTO :lde_addqty_out_allow, :lde_addqty_out_detrqty_allow
					FROM u_orderrqmtrl
					WHERE scid = :arg_scid
					AND orderid = :ll_orderid
					AND mtrlid = :ll_mtrlid_out
					AND status = :ls_status_out
					AND woodcode = :ls_woodcode_out
					AND pcode = :ls_pcode_out
					And truerqqty > dstrqty ;
				IF sqlca.SQLCode <> 0 THEN
					lde_addqty_out_allow = 0
					lde_addqty_out_detrqty_allow = 0
				END IF
				
				IF lde_addqty_out_allow > 0 THEN
					ld_qty_out = Min(Round(lde_addqty * lde_sonscale,dec_round) - lde_addqty_out_ed, lde_addqty_out_allow)
					lde_addqty_out_ed += ld_qty_out
					
					IF ld_qty_out <> 0 THEN
						//						
						SELECT top 1 cost INTO :ld_cost_out
							FROM ow_wfjgware
							WHERE sptid = :sptid
							AND mtrlid = :ll_mtrlid_out
							AND status = :ls_status_out
							AND woodcode = :ls_woodcode_out
							AND pcode = :ls_pcode_out
							AND scid = :scid
							Order By cost Desc Using commit_transaction;
						IF commit_transaction.SQLCode <> 0 THEN
							ld_cost_out = 0
						END IF
						
						ld_costamt_out	 = ld_qty_out * ld_cost_out
						
						IF ll_wrkgrpid_out > 0 THEN
							SELECT wrkgrpname
								INTO :ls_wrkgrpname
								FROM u_sc_workgroup
								Where wrkGrpid = :ll_wrkgrpid_out Using commit_transaction;
							IF commit_transaction.SQLCode <> 0 THEN
								rslt = 0
								arg_msg = '查询领用工组信息失败,'+commit_transaction.SQLErrText
								GOTO ext
							END IF
							
							SELECT TOP 1 workgroupid
								INTO :ll_workgroupid
								FROM u_workgroup
								Where wrkGrpid = :ll_wrkgrpid_out Using commit_transaction;
							IF commit_transaction.SQLCode <> 0 THEN
								rslt = 0
								arg_msg = '查询领用工组 '+ls_wrkgrpname+' 相关的工作中心失败,可能是工组没有设置对应的工作中心,请检查'+commit_transaction.SQLErrText
								GOTO ext
							END IF
						ELSE
							ll_workgroupid = 0
						END IF
						
						IF uo_order.f_add_dstrqty(scid,ll_orderid,ll_workgroupid,ll_mtrlid_out,ls_mtrlcode_out,ls_status_out,ls_woodcode_out,ls_pcode_out,ld_qty_out,ld_costamt_out,arg_msg,False,-1,ld_overqty) = 0 THEN
							arg_msg = '更新生产计划已领数失败,'+arg_msg
							rslt = 0
							GOTO ext
						END IF
					END IF
				END IF
				
				
			END IF
			IF Abs(Round(lde_addqty * lde_sonscale,dec_round)) = Abs(lde_addqty_out_ed) THEN EXIT
		NEXT
		IF Abs(Round(lde_addqty * lde_sonscale,dec_round)) = Abs(lde_addqty_out_ed) THEN EXIT
	END IF
	
NEXT


ext:
Destroy uo_order
Destroy ds_rqwfjg
Destroy ds_mrpmx

RETURN rslt







end function

public function integer uof_add_order_dstrqty (long arg_scid, long arg_sptid, long arg_wfjgid, long arg_printid, long arg_mtrlid, decimal arg_addqty, decimal arg_dec_round, ref string arg_msg);//待测
// arg_addqty > 0 审核 增加
// arg_addqty < 0 撤审 减少
Int rslt = 1
Long ll_j, ll_k,  ll_m, ll_lp, ll_row_f
String ls_mtrlcode_out
Decimal ld_costamt_out ,ld_qty_out,ld_cost_out, ld_overqty
Long ll_wrkgrpid_out,ll_mtrlid_out
String ls_status_out,ls_woodcode_out,ls_pcode_out
Long ll_cnt_order
Long ll_orderid, ll_mtrlid_order, ll_workgroupid
//Int li_ordertype_order, li_ifwfjgorder
String ls_wrkgrpname
Decimal lde_addqty_out
Decimal dec_round //= 2 //计算发出明细保留小数位, 取自外协订单界面

uo_order_ml uo_order
uo_order = Create uo_order_ml

datastore ds_rqwfjg
ds_rqwfjg = Create datastore
ds_rqwfjg.DataObject = 'ds_order_wfjg_request_wfjg_mxmx'
ds_rqwfjg.SetTransObject(sqlca)

datastore ds_mrpmx
ds_mrpmx = Create datastore
ds_mrpmx.DataObject = 'ds_order_ml_mrpmx_to_wfjg'
ds_mrpmx.SetTransObject(sqlca)


Dec lde_addqty_out_allow, lde_addqty_out_detrqty_allow, lde_addqty_out_ed, lde_sonscale
Long ll_cnt_tree

s_order_wfjgmx_out s_mx[]

//1.通过外协申请单,找到对应的主计划,
dec_round = arg_dec_round

ll_cnt_order = ds_rqwfjg.Retrieve(arg_scid,arg_wfjgid,arg_printid)

FOR ll_k = 1 To ll_cnt_order
	ll_orderid = ds_rqwfjg.Object.u_request_wfjgmxmx_orderid[ll_k]
	IF ll_orderid = 0 THEN CONTINUE
	
	ll_mtrlid_order = ds_rqwfjg.Object.mtrlid_order[ll_k]
	
	ll_cnt_tree = ds_mrpmx.Retrieve(arg_scid,ll_orderid, ll_mtrlid_order)
	
	FOR ll_m = 1 To ds_mrpmx.RowCount()
		
		ls_mtrlcode_out = ds_mrpmx.Object.u_mtrldef_mtrlcode[ll_m]
		ll_wrkgrpid_out = ds_mrpmx.Object.u_orderrqmtrl_tree_wrkgrpid[ll_m]
		ll_mtrlid_out = ds_mrpmx.Object.u_orderrqmtrl_tree_mtrlid[ll_m]
		ls_status_out = ds_mrpmx.Object.u_orderrqmtrl_tree_status[ll_m]
		ls_woodcode_out = ds_mrpmx.Object.u_orderrqmtrl_tree_woodcode[ll_m]
		ls_pcode_out = ds_mrpmx.Object.u_orderrqmtrl_tree_pcode[ll_m]
		lde_sonscale = ds_mrpmx.Object.u_orderrqmtrl_tree_sonscale[ll_m]
		lde_addqty_out_allow = ds_mrpmx.Object.undstrqty[ll_m]
		lde_addqty_out_detrqty_allow = ds_mrpmx.Object.dstrqty[ll_m]
		//找有多少未完成数, 分配完成
		
		
		FOR ll_j = 1 To UpperBound(s_mx)
			IF s_mx[ll_j].mtrlid = ll_mtrlid_out &
				And s_mx[ll_j].status = ls_status_out &
				And s_mx[ll_j].woodcode = ls_woodcode_out &
				And s_mx[ll_j].pcode = ls_pcode_out  THEN
				lde_addqty_out = s_mx[ll_j].qty
				GOTO cmplmtrl
			END IF
		NEXT
		
		s_mx[ll_j].mtrlid = ll_mtrlid_out
		s_mx[ll_j].status = ls_status_out
		s_mx[ll_j].woodcode = ls_woodcode_out
		s_mx[ll_j].pcode = ls_pcode_out
		s_mx[ll_j].qty = Round(Abs(arg_addqty) * lde_sonscale,dec_round)
		lde_addqty_out = s_mx[ll_j].qty
		
		cmplmtrl:
		IF  lde_addqty_out = 0 THEN CONTINUE //主要考虑的是 1:N的处理
		IF lde_addqty_out_allow > 0 THEN
			ld_qty_out = Min(lde_addqty_out, lde_addqty_out_allow)
			lde_addqty_out -= ld_qty_out
			
			IF ld_qty_out <> 0 THEN
				//						
				SELECT top 1 cost INTO :ld_cost_out
					FROM ow_wfjgware
					WHERE sptid = :arg_sptid
					AND mtrlid = :ll_mtrlid_out
					AND status = :ls_status_out
					AND woodcode = :ls_woodcode_out
					AND pcode = :ls_pcode_out
					AND scid = :arg_scid
					Order By cost Desc Using commit_transaction;
				IF commit_transaction.SQLCode <> 0 THEN
					ld_cost_out = 0
				END IF
				
				ld_costamt_out	 = ld_qty_out * ld_cost_out
				
				IF ll_wrkgrpid_out > 0 THEN
					SELECT wrkgrpname
						INTO :ls_wrkgrpname
						FROM u_sc_workgroup
						Where wrkGrpid = :ll_wrkgrpid_out Using commit_transaction;
					IF commit_transaction.SQLCode <> 0 THEN
						rslt = 0
						arg_msg = '查询领用工组信息失败,'+commit_transaction.SQLErrText
						GOTO ext
					END IF
					
					SELECT TOP 1 workgroupid
						INTO :ll_workgroupid
						FROM u_workgroup
						Where wrkGrpid = :ll_wrkgrpid_out Using commit_transaction;
					IF commit_transaction.SQLCode <> 0 THEN
						rslt = 0
						arg_msg = '查询领用工组 '+ls_wrkgrpname+' 相关的工作中心失败,可能是工组没有设置对应的工作中心,请检查'+commit_transaction.SQLErrText
						GOTO ext
					END IF
				ELSE
					ll_workgroupid = 0
				END IF
				
				IF uo_order.f_add_dstrqty(arg_scid,ll_orderid,ll_workgroupid,ll_mtrlid_out,ls_mtrlcode_out,ls_status_out,ls_woodcode_out,ls_pcode_out,ld_qty_out,ld_costamt_out,arg_msg,False,-1,ld_overqty) = 0 THEN
					arg_msg = '更新生产计划已领数失败,'+arg_msg
					rslt = 0
					GOTO ext
				END IF
			END IF
			
			
		END IF
		s_mx[ll_j].qty = lde_addqty_out
		//IF Abs(Round(lde_addqty * lde_sonscale,dec_round)) = Abs(lde_addqty_out_ed) THEN EXIT
	NEXT
	//IF Abs(Round(lde_addqty * lde_sonscale,dec_round)) = Abs(lde_addqty_out_ed) THEN EXIT
NEXT


ext:
Destroy uo_order
Destroy ds_rqwfjg
Destroy ds_mrpmx

RETURN rslt










end function

public function integer uof_add_order_rqacmpqty (long arg_scid, long arg_wfjgid, long arg_printid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg);// arg_addqty > 0 审核 增加
// arg_addqty < 0 撤审 减少
Int rslt = 1
Long ll_i, ll_k
Long ll_cnt_order
Long ll_orderid, ll_mtrlid_order
Int li_ordertype_order, li_ifwfjgorder
Decimal lde_addqty

uo_order_ml uo_order
uo_order = Create uo_order_ml

datastore ds_rqwfjg
ds_rqwfjg = Create datastore
ds_rqwfjg.DataObject = 'ds_order_wfjg_request_wfjg_mxmx'
ds_rqwfjg.SetTransObject(sqlca)


//1.通过外协申请单,找到对应的主计划, //更新外协主生产计划已申购数, 更新主生产计划物料需求已申购数
Decimal lde_addqty_allow, ld_qty
Decimal lde_orderqty, lde_rqacmpqty, lde_stopqty, lde_unrqacmpqty


lde_addqty = Abs(arg_addqty)


ll_cnt_order = ds_rqwfjg.Retrieve(arg_scid,arg_wfjgid,arg_printid)

FOR ll_k = 1 To ll_cnt_order
	ll_orderid = ds_rqwfjg.Object.u_request_wfjgmxmx_orderid[ll_k]
	IF ll_orderid = 0 THEN CONTINUE
	
	li_ordertype_order = ds_rqwfjg.Object.ordertype[ll_k]
	li_ifwfjgorder = ds_rqwfjg.Object.ifwforder[ll_k]
	ll_mtrlid_order = ds_rqwfjg.Object.mtrlid_order[ll_k]
	lde_orderqty = ds_rqwfjg.Object.mtrlid_order[ll_k]
	lde_rqacmpqty = ds_rqwfjg.Object.rqacmpqty[ll_k]
	lde_stopqty = ds_rqwfjg.Object.stopqty[ll_k]
	lde_unrqacmpqty = ds_rqwfjg.Object.unrqacmpqty[ll_k]
	
	//更新外协主生产计划已进仓数
	If (li_ordertype_order = 3 Or li_ifwfjgorder = 1) And ll_mtrlid_order = arg_mtrlid  THEN
		
		IF arg_addqty > 0 THEN
			lde_addqty_allow = lde_unrqacmpqty
		ELSE
			lde_addqty_allow = lde_rqacmpqty
		END IF
		
		IF lde_addqty_allow > 0 THEN
			ld_qty = Min(lde_addqty, lde_addqty_allow) //本条处理数
			lde_addqty -= ld_qty //未处理数
			
			IF ld_qty > 0 THEN
				IF arg_addqty > 0 THEN //增加
					//ld_qty = ld_qty
				ELSE //减少
					ld_qty = 0 - ld_qty
				END IF
				
				IF uo_order.addmxcmpl_rqacmpqty(arg_scid,ll_orderid,ld_qty,arg_msg,False) = 0 THEN
					arg_msg = '更新行:'+String(ll_i)+','+arg_msg
					rslt = 0
					GOTO ext
				END IF
			END IF
			
			IF lde_addqty <= 0 THEN EXIT // 完成
		END IF
	END IF
NEXT


ext:
Destroy uo_order
Destroy ds_rqwfjg

RETURN rslt







end function

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

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

event constructor;

String arg_msg
String str_optionvalue

str_optionvalue = ''
f_get_sys_option_value('121',str_optionvalue,arg_msg)
uo_option_requestwfjg_hz = Long(str_optionvalue)

str_optionvalue = ''
f_get_sys_option_value('312',str_optionvalue,arg_msg)
uo_option_wfjg_checkdate = Long(str_optionvalue)
end event