Q5/ws_objects/Ew_mrp.pbl.src/uo_order_ml.sru

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

global type uo_order_ml from nonvisualobject
end type
global uo_order_ml uo_order_ml

type variables
PUBLIC PROTECTEDWRITE Long scid
PUBLIC PROTECTEDWRITE Long taskid
PUBLIC PROTECTEDWRITE String taskcode
PUBLIC PROTECTEDWRITE  DateTime opdate
PUBLIC PROTECTEDWRITE  String operator 
PUBLIC PROTECTEDWRITE  DateTime  accomplishdate
PUBLIC PROTECTEDWRITE  String permit_emp
PUBLIC PROTECTEDWRITE  String last_emp

long MtrlID	 
decimal SaleQty	
string mxdscrp	 
string status	  
string pcode	  
string woodcode	  
long outtype	     
string unit	  
datetime sclldate	  
string scllrep	   
long scllflag	  
datetime auditingdate	   
string auditingrep	  
long flag 
string mtrlcode


Transaction  commit_transaction //数据commit事务

PRIVATE:
s_saletaskmx saletaskmx[] //明细结构  
Long it_mxbt = 0              //明细结构数组末指针
Boolean it_newbegin = TRUE    //新建标志
Boolean it_updatebegin = FALSE//修改标志

Long it_mxbt_mx = 0
decimal mx_sumqty = 0


end variables

forward prototypes
public function integer salemxprimt (long arg_scid, long arg_taskid, long arg_printid, string arg_emp, ref string arg_msg, boolean arg_ifcommit)
public function integer c_salemxprimt (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_pz_change (long arg_type, string arg_updatestr, long arg_rqmtrlid, ref string arg_msg)
public function integer c_salemxscllprimt (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit)
public function integer add_mxdscrp (long arg_scid, long arg_taskid, long arg_printid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit)
private function integer p_getinfo (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg)
public function integer uof_cmp (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_cmp_mx (long arg_scid, long arg_taskid, long arg_printid, long arg_mtrlid, decimal arg_qty, string arg_status, string arg_woodcode, string arg_pcode, integer arg_type, boolean arg_ifcommit)
public function integer uof_delcard (long arg_cardid[], string arg_cardcode[], ref string arg_msg, boolean arg_ifcommit)
public function integer uof_buildcard1 (long arg_scid[], long arg_taskid[], long arg_printid[], long arg_qty[], string arg_operator, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_delcard1 (long arg_cardid[], string arg_cardcode[], long arg_row[], long arg_scid[], long arg_taskid[], long arg_printid[], ref string arg_msg, boolean arg_ifcommit)
public function integer uof_auditcard (long arg_cardid[], string arg_cardcode[], ref string arg_msg, boolean arg_ifcommit)
public function integer uof_cauditcard (long arg_cardid[], string arg_cardcode[], ref string arg_msg, boolean arg_ifcommit)
public function integer uof_sc (s_saletaskmx arg_mx[], long arg_itmx, integer arg_scflag, ref string arg_msg)
public function integer uof_add_rqmtrl_scll (s_order_ml_rqmtrl arg_rqmtrl, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_cmp_workprice (long arg_scid, long arg_taskid, long arg_printid, long arg_mtrlid, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_add_workprice (s_order_ml_workprice_array arg_rqmtrl, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_order_add_pro (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit)
public function int p_reset ()
public function integer uof_finish_procode_qty (long arg_scid, long arg_taskid, long arg_printid, string arg_procode, integer arg_type, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_mod_rqmtrl (s_order_ml_rqmtrl arg_rqmtrl, boolean arg_ifcommit, ref string arg_msg)
public function integer uof_auto_build_buy_forrq (long arg_mxpkid[], ref string arg_msg, boolean arg_ifcommit)
public function integer uof_auto_build_buy_forarr (long arg_scid[], long arg_taskid[], long arg_printid[], ref string arg_msg, boolean arg_ifcommit)
public function integer uof_auto_build_buy_notuse (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit)
public function integer salemxscllprimt (long arg_scid, long arg_taskid, long arg_printid, integer arg_chk_zero, string arg_emp, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_add_procode_qty (long arg_scid, long arg_taskid, long arg_printid, string arg_procode, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_finish_procode_qty_dsr (long arg_scid, long arg_taskid, long arg_printid, string arg_procode, long arg_type, decimal arg_fpqty, ref string arg_msg, boolean arg_ifcommit)
public subroutine uof_workprice_parm (decimal arg_orderqty, string arg_status, string arg_woodcode, string arg_pcode, string arg_ls_mtrlsectype, string arg_ls_zxmtrlmode, string arg_ls_mtrlmode, string arg_ls_cuscode, string arg_ls_cusname, string arg_parmstr, ref decimal arg_value_dec, decimal arg_price)
end prototypes

public function integer salemxprimt (long arg_scid, long arg_taskid, long arg_printid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);//salepermit
Int rslt = 1,cnt = 0
Int ll_flag
IF arg_taskid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误销售订单唯一码'
	GOTO ext
END IF 

SELECT flag
	INTO :ll_flag
	FROM u_saletaskmx
	WHERE scid = :Arg_scid AND
	taskid = :arg_taskid AND
	printid = :arg_printid;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "查询操作失败,销售订单明细内容!"
	GOTO ext
END IF

IF ll_flag <> 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_SaleTaskmx
	SET auditingrep = :arg_emp ,auditingdate = getdate(),
	flag = 1
	WHERE TaskID = :arg_taskid  AND
	scid = :arg_scid  AND
	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 THEN
	COMMIT USING commit_transaction;
END IF

Return (rslt)


end function

public function integer c_salemxprimt (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit);//salepermit
Int rslt = 1,cnt = 0
Int ll_flag
DateTime nulldate
SetNull(nulldate)
IF arg_taskid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误销售订单唯一码'
	GOTO ext
END IF

SELECT flag
	INTO :ll_flag
	FROM u_saletaskmx
	WHERE scid = :Arg_scid AND
	taskid = :arg_taskid AND
	printid = :arg_printid;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "查询操作失败,销售订单明细内容!"
	GOTO ext
END IF

IF ll_flag =  0 THEN
	rslt = 0
	ARG_MSG = "销售订单明细还没有审核,操作取消"
	GOTO ext
END IF

Decimal ld_DstrQty
SELECT sum(u_saleRqMtrl_scll.DstrQty)
	INTO :ld_DstrQty
	FROM u_saleRqMtrl_scll
	WHERE TaskID = :arg_taskid  AND
	scid = :arg_scid  AND
	printid = :arg_printid
	Using  commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "因网络或其它原因导致销查询领料明细操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

IF ld_DstrQty > 0 THEN
	rslt = 0
	ARG_MSG = "已开相关领料单,撤审操作取消"+"~n"
	GOTO ext
END IF

//检查计件
//个人产品工序 已开单数
cnt = 0
SELECT COUNT(*)
	INTO :cnt
	FROM u_scwg_taskwork_2,u_scwg_taskwork_2_mx
	WHERE u_scwg_taskwork_2_mx.billid = u_scwg_taskwork_2.billid
	AND u_scwg_taskwork_2_mx.orderid = :arg_taskid
	AND u_scwg_taskwork_2_mx.relprintid = :arg_printid
	And u_scwg_taskwork_2_mx.relscid = :arg_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	ARG_MSG = "查询是否建立个人产品工序计件单操作失败"+"~n"+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	ARG_MSG = "销售订单已经有相关个人产品工序计件单,不可以撤消审核"
	GOTO ext
END IF

//产品个人工序 已开单数
cnt = 0
SELECT COUNT(*)
	INTO :cnt
	FROM u_sc_taskworkmx,u_sc_taskwork
	WHERE u_sc_taskworkmx.billid = u_sc_taskwork.billid
	AND u_sc_taskworkmx.scid = u_sc_taskwork.scid
	And u_sc_taskwork.orderid = :arg_taskid
	AND u_sc_taskwork.relid = :arg_printid;
IF sqlca.SQLCode <> 0 THEN
	ARG_MSG = "查询是否建立产品个人工序计件单操作失败"+"~n"+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	ARG_MSG = "销售订单已经有相关产品个人工序计件单,不可以撤消审核"
	GOTO ext
END IF


UPDATE u_SaleTaskmx
	SET auditingrep = '' ,auditingdate = :nulldate,
	flag = 0
	WHERE TaskID = :arg_taskid  AND
	scid = :arg_scid  AND
	printid = :arg_printid AND
	flag = 1
	Using  commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "因网络或其它原因导致销售订单明细撤销审核操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

// DONE: 删除运算结果
DELETE FROM u_orderRqMtrl
	WHERE taskid = :arg_taskid
	AND scid = :arg_scid
	And printid = :arg_printid  Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = '删除物料需求表失败,' + commit_transaction.SQLErrText
	GOTO ext
END IF

DELETE FROM u_orderRqMtrl_tree
	WHERE taskid = :arg_taskid
	AND scid = :arg_scid
	AND printid = :arg_printid
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = '删除物料需求结构表失败,' + commit_transaction.SQLErrText
	GOTO ext
END IF

DELETE FROM u_saleRqMtrl_scll
	WHERE u_saleRqMtrl_scll.scid = :arg_scid  AND
	u_saleRqMtrl_scll.taskID  = :arg_taskid AND
	u_saleRqMtrl_scll.printid = :arg_printid
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = '删除领料明细表失败,' + commit_transaction.SQLErrText
	GOTO ext
END IF

//删除工价表
DELETE FROM U_OrderRqwp
	WHERE U_OrderRqwp.scid = :Arg_scid AND
	U_OrderRqwp.taskid = :arg_taskid AND
	u_orderrqwp.printid = :arg_printid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '删除订单明细产品' + mtrlcode + '对应的工价明细失败'+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

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

Return (rslt)




end function

public function integer uof_pz_change (long arg_type, string arg_updatestr, long arg_rqmtrlid, ref string arg_msg);Int rslt = 1

CHOOSE CASE arg_type
	CASE 1
		UPDATE u_saleRqMtrl_scll
			SET status = :arg_updatestr
			Where u_saleRqMtrl_scll.rqmtrlid = :arg_rqmtrlid;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '更新失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	CASE 2
		UPDATE u_saleRqMtrl_scll
			SET woodcode = :arg_updatestr
			Where u_saleRqMtrl_scll.rqmtrlid = :arg_rqmtrlid;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '更新失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	CASE 3
		UPDATE u_saleRqMtrl_scll
			SET pcode = :arg_updatestr
			Where u_saleRqMtrl_scll.rqmtrlid = :arg_rqmtrlid;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '更新失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
END CHOOSE

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSE
	COMMIT;
END IF

RETURN rslt






end function

public function integer c_salemxscllprimt (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit);//salepermit
Int rslt = 1,cnt = 0
Int ll_flag,ll_scllflag
DateTime nulldate
Decimal ld_assignqty,ld_consignedqty
SetNull(nulldate)
IF arg_taskid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误销售订单唯一码'
	GOTO ext
END IF

SELECT flag,
	scllflag,
	assignqty,
	consignedqty
	INTO :ll_flag,
	:ll_scllflag,
	:ld_assignqty,
	:ld_consignedqty
	FROM u_saletaskmx
	WHERE scid = :Arg_scid AND
	taskid = :arg_taskid AND
	printid = :arg_printid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "查询操作失败,销售订单明细内容!"
	GOTO ext
END IF

IF ll_flag = 0 THEN
	rslt = 0
	ARG_MSG = "销售订单明细还没有审核,不能撤销领料审核,操作取消"
	GOTO ext
END IF

IF ll_scllflag = 0 THEN
	rslt = 0
	ARG_MSG = "销售订单明细还没有领料审核,操作取消"
	GOTO ext
END IF

IF ld_assignqty > 0 THEN
	rslt = 0
	ARG_MSG = "销售订单明细已生产进仓,操作取消"
	GOTO ext
END IF

IF ld_consignedqty > 0 THEN
	rslt = 0
	ARG_MSG = "销售订单明细已发货,操作取消"
	GOTO ext
END IF


//检查是否已进仓、领料
Decimal ld_dstrqty

SELECT sum(dstrqty)
	INTO :ld_dstrqty
	FROM u_saleRqMtrl_scll
	WHERE  u_saleRqMtrl_scll.scid = :arg_scid  AND
	u_saleRqMtrl_scll.taskID  = :arg_taskid AND
	u_saleRqMtrl_scll.printid = :arg_printid USING  commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "因网络或其它原因导致查询领料明细操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

IF ld_dstrqty > 0 THEN
	rslt = 0
	ARG_MSG = "销售订单明细已领料,操作取消"
	GOTO ext
END IF

//检查采购订单
SELECT count(*)
	INTO :cnt
	FROM u_buytask INNER join u_buytaskmx
	on u_buytask.scid = u_buytaskmx.scid
	AND u_buytask.taskid = u_buytaskmx.taskid
	WHERE u_buytask.scid = :arg_scid
	AND u_buytaskmx.relid = :arg_taskid
	AND u_buytaskmx.relprintid = :arg_printid
	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 = "已开采购订单["+String(cnt)+"]"
	GOTO ext
END IF

//检查领料单
SELECT count(*)
	INTO :cnt
	FROM u_outware INNER join u_outwaremx
	on u_outware.scid = u_outwaremx.scid
	AND u_outware.outwareid = u_outwaremx.outwareid
	WHERE u_outware.scid = :arg_scid
	AND u_outwaremx.relid = :arg_taskid
	AND u_outwaremx.relprintid = :arg_printid
	AND u_outware.billtype = 3
	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 = "已开领料出仓单["+String(cnt)+"]"
	GOTO ext
END IF

//检查外协订单
SELECT count(*)
	INTO :cnt
	FROM u_order_wfjgMx INNER JOIN
	u_order_wfjg ON u_order_wfjgMx.scid = u_order_wfjg.scid AND
	u_order_wfjgMx.wfjgID = u_order_wfjg.wfjgID
	WHERE u_order_wfjg.scid = :arg_scid
	AND u_order_wfjgMx.orderid = :arg_taskid
	AND u_order_wfjgMx.relprintid = :arg_printid
	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 = "已开外协订单["+String(cnt)+"]"
	GOTO ext
END IF

//检查生产进仓单
SELECT count(*)
	INTO :cnt
	FROM u_inware INNER join u_inwaremx
	on u_inware.scid = u_inwaremx.scid
	AND u_inware.inwareid = u_inwaremx.inwareid
	WHERE u_inware.scid = :arg_scid
	AND u_inwaremx.relid = :arg_taskid
	AND u_inwaremx.relprintid = :arg_printid
	AND u_inware.billtype = 3
	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 = "已开生产进仓单["+String(cnt)+"]"
	GOTO ext
END IF

//检查计件
//个人产品工序 已开单数
cnt = 0
SELECT COUNT(*)
	INTO :cnt
	FROM u_scwg_taskwork_2,u_scwg_taskwork_2_mx
	WHERE u_scwg_taskwork_2_mx.billid = u_scwg_taskwork_2.billid
	AND u_scwg_taskwork_2_mx.orderid = :arg_taskid
	AND u_scwg_taskwork_2_mx.relprintid = :arg_printid
	And u_scwg_taskwork_2_mx.relscid = :arg_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	ARG_MSG = "查询是否建立个人产品工序计件单操作失败"+"~n"+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	ARG_MSG = "销售订单已经有相关个人产品工序计件单,不可以撤消审核"
	GOTO ext
END IF

//产品个人工序 已开单数
cnt = 0
SELECT COUNT(*)
	INTO :cnt
	FROM u_sc_taskworkmx,u_sc_taskwork
	WHERE u_sc_taskworkmx.billid = u_sc_taskwork.billid
	AND u_sc_taskworkmx.scid = u_sc_taskwork.scid
	And u_sc_taskwork.orderid = :arg_taskid
	AND u_sc_taskwork.relid = :arg_printid;
IF sqlca.SQLCode <> 0 THEN
	ARG_MSG = "查询是否建立产品个人工序计件单操作失败"+"~n"+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	ARG_MSG = "销售订单已经有相关产品个人工序计件单,不可以撤消审核"
	GOTO ext
END IF



UPDATE u_SaleTaskmx
	SET scllrep = '' ,sclldate = :nulldate,
	scllflag = 0
	WHERE TaskID = :arg_taskid  AND
	scid = :arg_scid  AND
	printid = :arg_printid AND
	flag = 1 AND scllflag = 1
	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 THEN
	COMMIT USING commit_transaction;
END IF

Return (rslt)



end function

public function integer add_mxdscrp (long arg_scid, long arg_taskid, long arg_printid, 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


UPDATE u_saletaskmx
	SET mxDSCRP = mxDSCRP+' '+:arg_newdescppart
	WHERE u_saletaskmx.taskid = :arg_taskid AND
	scid = :arg_scid AND
	printid = :arg_printid 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 THEN
	COMMIT USING  commit_transaction;
END IF
Return (rslt)



end function

private function integer p_getinfo (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg);Int rslt = 1

SELECT u_SaleTaskMx.MtrlID,
	u_SaleTaskMx.mxdscrp,
	u_SaleTaskMx.status,
	u_SaleTaskMx.pcode,
	u_SaleTaskMx.woodcode,
	u_SaleTaskMx.outtype,
	u_SaleTaskMx.unit,
	u_SaleTaskMx.sclldate,
	u_SaleTaskMx.scllrep,
	u_SaleTaskMx.scllflag,
	u_SaleTaskMx.auditingdate,
	u_SaleTaskMx.auditingrep,
	u_SaleTaskMx.flag,
	u_mtrldef.mtrlcode
	INTO :MtrlID,
	:mxdscrp,
	:status,
	:pcode,
	:woodcode,
	:outtype,
	:unit,
	:sclldate,
	:scllrep,
	:scllflag,
	:auditingdate,
	:auditingrep,
	:flag,
	:mtrlcode
	FROM u_SaleTaskMx,u_mtrldef
	WHERE u_SaleTaskMx.scid = :Arg_scid AND
	u_SaleTaskMx.taskid = :arg_taskid AND
	u_SaleTaskMx.printid = :Arg_printid and
	u_SaleTaskMx.mtrlid = u_mtrldef.mtrlid;

IF  commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = '查询订单内容失败(错误订单唯一码)'
	GOTO ext
END IF

ext:
RETURN rslt

end function

public function integer uof_cmp (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1
Decimal orderqty
Long ll_mtrlid
String ls_status,ls_woodcode,ls_pcode
Long ll_scllflag
SELECT u_saletaskmx.orderqty,
	u_saletaskmx.mtrlid,
	u_saletaskmx.status,
	u_saletaskmx.woodcode,
	u_saletaskmx.pcode,
	u_saletaskmx.scllflag
	INTO :orderqty,
	:ll_mtrlid,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:ll_scllflag
	FROM u_saletaskmx
	WHERE u_saletaskmx.scid = :Arg_scid AND
	u_saletaskmx.taskid = :arg_taskid AND
	u_saletaskmx.printid = :arg_printid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询订单明细信息失败'
	GOTO ext
END IF

IF ll_scllflag = 1 THEN
	arg_msg = '已用料审核,不能再计算'
END IF


Long ll_sum
SELECT  sum(u_saleRqMtrl_scll.dstrqty)
	INTO :ll_sum
	FROM u_saleRqMtrl_scll WHERE u_saleRqMtrl_scll.scid = :Arg_scid AND
	u_saleRqMtrl_scll.taskid = :arg_taskid AND
	u_saleRqMtrl_scll.printid = :arg_printid USING commit_transaction;
IF commit_transaction.SQLCode <> 0  THEN
	rslt = 0
	arg_msg = '查询需求明细已开单数量失败'
	GOTO ext
END IF

IF ll_sum > 0 THEN
	rslt = 0
	arg_msg = '需求明细已开领料单,不能再用料运算'
	GOTO ext
END IF


DELETE FROM u_saleRqMtrl_scll
	WHERE u_saleRqMtrl_scll.scid = :Arg_scid AND
	u_saleRqMtrl_scll.taskid = :arg_taskid AND
	u_saleRqMtrl_scll.printid = :arg_printid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '删除订单明细对应的需求明细失败'
	GOTO ext
END IF

IF uof_cmp_mx(Arg_scid,arg_taskid,arg_printid,ll_mtrlid,orderqty,ls_status,ls_woodcode,ls_pcode,1,FALSE) = 0 THEN
	rslt = 0
	arg_msg = '生成订单明细对应的需求明细失败'
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK USING  commit_transaction;
ELSEIF arg_ifcommit THEN
	COMMIT USING  commit_transaction;
END IF
Return (rslt)








end function

public function integer uof_cmp_mx (long arg_scid, long arg_taskid, long arg_printid, long arg_mtrlid, decimal arg_qty, string arg_status, string arg_woodcode, string arg_pcode, integer arg_type, boolean arg_ifcommit);Long it_mxbt1,i,mtrlorigin,ls_newid
Long rslt = 1
s_outwaremx outwaremx[]
String ls_msg

SELECT mtrlorigin
	INTO :mtrlorigin
	FROM u_mtrldef
	Where mtrlid = :arg_mtrlid  USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt  = 0
	GOTO ext
END IF

SELECT count(*)
	INTO :i
	FROM u_PrdPF
	Where u_PrdPF.mtrlid = :arg_mtrlid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt  = 0
	GOTO ext
END IF
IF i = 0  OR mtrlorigin = 2 THEN
	IF arg_type = 1 THEN
		rslt  = 1
		GOTO ext
	END IF
	ls_newid = f_sys_scidentity(arg_scid,"u_saleRqMtrl_scll","rqmtrlid",ls_msg,TRUE,commit_transaction)
	IF ls_newid <= 0  THEN
		rslt  = 0
		GOTO ext
	END IF
	
	////插入运算结果表
	UPDATE u_saleRqMtrl_scll
		SET trueRqqty = trueRqqty + :arg_qty
		WHERE scid = :arg_scid AND
		taskID = :arg_taskID AND
		MtrlID = :arg_mtrlid AND
		printid = :arg_printid AND
		status = :arg_status AND
		woodcode = :arg_woodcode AND
		pcode = :arg_pcode  USING commit_transaction;
	IF commit_transaction.SQLCode = 0 THEN
		IF commit_transaction.SQLNRows = 0 THEN
			INSERT INTO u_saleRqMtrl_scll
				( rqmtrlid,
				scid,
				taskID,
				MtrlID,
				printid,
				trueRqqty,
				status,
				woodcode,
				pcode
				)
				VALUES ( :ls_newid,
				:arg_scid,
				:arg_taskID,
				:arg_mtrlid,
				:arg_printid,
				:arg_qty,
				:arg_status,
				:arg_woodcode,
				:arg_pcode
				) USING commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				rslt  = 0
				GOTO ext
			END IF
		END IF
	ELSE
		rslt  = 0
		GOTO ext
	END IF
END IF


it_mxbt1 = 1
DECLARE cur_outwaremx CURSOR FOR
	SELECT  u_PrdPF.SonMtrlid,
	u_mtrldef.mtrlcode ,
	u_mtrldef.mtrlname ,
	u_mtrldef.mtrlmode,
	u_mtrldef.unit ,
	u_mtrldef.mtrlsectype,
	u_mtrldef.zxmtrlmode,
	u_PrdPF.status,
	u_PrdPF.woodcode,
	u_PrdPF.pcode,
	reqty = case  when u_PrdPF.sonloss = 1 then 0 else :arg_qty * u_PrdPF.Sonscale /( 1 -  u_PrdPF.sonloss) + u_PrdPF.sondecloss END
	FROM u_PrdPF ,
	u_mtrldef
	WHERE ( u_PrdPF.SonMtrlid = u_mtrldef.mtrlid ) AND
	( u_PrdPF.mtrlid = :arg_mtrlid )  USING commit_transaction;
OPEN cur_outwaremx;
FETCH cur_outwaremx INTO
	:outwaremx[it_mxbt1].Mtrlid,
	:outwaremx[it_mxbt1].mtrlcode,
	:outwaremx[it_mxbt1].mtrlname,
	:outwaremx[it_mxbt1].mtrlmode,
	:outwaremx[it_mxbt1].unit,
	:outwaremx[it_mxbt1].mtrlsectype,
	:outwaremx[it_mxbt1].zxmtrlmode,
	:outwaremx[it_mxbt1].status,
	:outwaremx[it_mxbt1].woodcode,
	:outwaremx[it_mxbt1].pcode,
	:outwaremx[it_mxbt1].qty;
DO WHILE commit_transaction.SQLCode = 0
	it_mxbt1++
	FETCH cur_outwaremx INTO
		:outwaremx[it_mxbt1].Mtrlid,
		:outwaremx[it_mxbt1].mtrlcode,
		:outwaremx[it_mxbt1].mtrlname,
		:outwaremx[it_mxbt1].mtrlmode,
		:outwaremx[it_mxbt1].mtrlsectype,
		:outwaremx[it_mxbt1].zxmtrlmode,
		:outwaremx[it_mxbt1].unit,
		:outwaremx[it_mxbt1].status,
		:outwaremx[it_mxbt1].woodcode,
		:outwaremx[it_mxbt1].pcode,
		:outwaremx[it_mxbt1].qty;
LOOP
CLOSE cur_outwaremx;
it_mxbt1 = it_mxbt1 - 1

FOR i = 1 TO it_mxbt1
	IF uof_cmp_mx(arg_scid,arg_taskID,arg_printid,outwaremx[i].mtrlid,outwaremx[i].qty,outwaremx[i].status,outwaremx[i].woodcode,outwaremx[i].pcode,0,FALSE) = 0  THEN
		rslt =  0
		GOTO ext
	END IF
NEXT

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

RETURN rslt





end function

public function integer uof_delcard (long arg_cardid[], string arg_cardcode[], ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long i
String ls_cardcode

String ls_mtrlcode,ls_taskcode
Long ls_printid,ll_taskid,ll_scid
String ls_status,ls_woodcode,ls_pcode



SELECT  u_mtrldef.mtrlcode,
	u_saletaskmx.printid,
	u_saletask.taskcode,
	u_saletaskmx.status,
	u_saletaskmx.woodcode,
	u_saletaskmx.pcode,
	u_saletaskmx.taskid,
	u_saletaskmx.scid
	INTO :ls_mtrlcode,
	:ls_printid,
	:ls_taskcode,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:ll_taskid,
	:ll_scid
	FROM u_saletaskmx_card INNER JOIN
	u_SaleTaskMx ON u_saletaskmx_card.scid = u_SaleTaskMx.scid AND
	u_saletaskmx_card.taskid = u_SaleTaskMx.TaskID AND
	u_saletaskmx_card.mxprintid = u_SaleTaskMx.printid INNER JOIN
	u_mtrldef ON u_SaleTaskMx.MtrlID = u_mtrldef.mtrlid INNER JOIN
	u_SaleTask ON u_SaleTask.TaskID = u_SaleTaskMx.TaskID AND
	u_SaleTask.scid = u_SaleTaskMx.scid
	Where u_saletaskmx_card.cardid = :arg_cardid[1] USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询订单明细操作失败' +"~n"+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

Long ll_count
SELECT count(*)
	INTO :ll_count
	FROM u_saletaskmx_card
	WHERE u_saletaskmx_card.scid = :ll_scid AND
	u_saletaskmx_card.taskid = :ll_taskid AND
	u_saletaskmx_card.mxprintid = :ls_printid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询流程卡数量操作失败' +"~n"+commit_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ll_count = UpperBound(arg_cardid) THEN
	UPDATE u_saletaskmx
		SET ifsc = 0
		WHERE scid = :ll_scid AND
		taskid = :ll_taskid AND
		printid = :ls_printid USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '更新订单明细排产标记操作失败' +"~n"+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF

END IF


FOR i = 1 TO UpperBound(arg_cardid)
	DELETE FROM
		u_saletaskmx_card
		Where cardid = :arg_cardid[i] USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '删除流程卡' +arg_cardcode[i] + '失败' +"~n"+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	ls_cardcode = ls_cardcode + arg_cardcode[i] + ','
NEXT



ls_cardcode = Left(ls_cardcode,Len(ls_cardcode) - 1)

String ls_log

ls_log = ls_log + '删除销售订单:' + ls_taskcode + '明细第' + String(ls_printid) + '行,编码:' + ls_mtrlcode  + ','
IF ls_status <> '' THEN
	ls_log = ls_log + sys_option_change_status + ':' + ls_status + ','
END IF
IF ls_woodcode <> '' THEN
	ls_log = ls_log + sys_option_change_woodcode + ':' + ls_woodcode + ','
END IF
IF ls_woodcode <> '' THEN
	ls_log = ls_log + sys_option_change_pcode + ':' + ls_pcode + ','
END IF
ls_log = ls_log + '卡号:'+ls_cardcode
//日志 
if f_setsysoplog('生产流程卡',ls_log,arg_msg,false) = 0 then 
	rslt = 0
	goto ext
end if
//--	



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

RETURN rslt









end function

public function integer uof_buildcard1 (long arg_scid[], long arg_taskid[], long arg_printid[], long arg_qty[], string arg_operator, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long i,ll_cardid,j
String cardcode
DateTime server_datetime
Long ll_count = 0

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

FOR j = 1 TO UpperBound(arg_scid)
	
	FOR i = 1 TO arg_qty[j]

		ll_cardid = f_sys_scidentity(0,"u_saletaskmx_card","cardid",arg_msg,TRUE, commit_transaction) //数据commit事务)
		IF  ll_cardid <= 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		cardcode = getid(0, 'LC',Date(server_datetime),FALSE,commit_transaction)
		IF cardcode = "err" THEN
			cardcode = ''
			rslt = 0
			arg_msg = "无法获取流程卡编号"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
		
		INSERT INTO u_saletaskmx_card
			( scid,
			taskid,
			mxprintid,
			cardid,
			cardcode,
			opdate,
			opemp )
			VALUES ( :arg_scid[j],
			:arg_taskid[j],
			:arg_printid[j],
			:ll_cardid,
			:cardcode,
			:server_datetime,
			:arg_operator )  USING commit_transaction;
		IF commit_transaction.SQLCode <> 0  THEN
			rslt = 0
			arg_msg = "流程卡" +  cardcode +",插入数据库失败"+"~n"+commit_transaction.SQLErrText
			cardcode = ''
			GOTO ext
		END IF
		
		ll_count++
	NEXT
NEXT

IF ll_count = 0 THEN
	rslt = 0
	arg_msg = "没有可生成流程卡的数据"
	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 uof_delcard1 (long arg_cardid[], string arg_cardcode[], long arg_row[], long arg_scid[], long arg_taskid[], long arg_printid[], ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long i,j
String ls_cardcode[]
Long ll_cardqty
Long ll_count
String ls_log
String ls_mtrlcode,ls_taskcode
Long ls_printid,ll_taskid,ll_scid
String ls_status,ls_woodcode,ls_pcode
s_saletask_mtrl s_mtrl
s_saletaskmx_card s_card[]
FOR i = 1 TO UpperBound(arg_taskid)
	ll_cardqty = 0
	ll_count = 0
	SELECT  u_mtrldef.mtrlcode,
		u_saletaskmx.printid,
		u_saletask.taskcode,
		u_saletaskmx.status,
		u_saletaskmx.woodcode,
		u_saletaskmx.pcode,
		u_saletaskmx.ifsc
		INTO :s_mtrl.mtrlcode[i],
		:s_mtrl.printid[i],
		:s_mtrl.taskcode[i],
		:s_mtrl.status[i],
		:s_mtrl.woodcode[i],
		:s_mtrl.pcode[i],
		:s_mtrl.ifsc[i]
		FROM
		u_SaleTaskMx INNER JOIN
		u_mtrldef ON u_SaleTaskMx.MtrlID = u_mtrldef.mtrlid INNER JOIN
		u_SaleTask ON u_SaleTask.TaskID = u_SaleTaskMx.TaskID AND
		u_SaleTask.scid = u_SaleTaskMx.scid
		WHERE u_SaleTaskMx.scid = :arg_scid[i] AND
		u_SaleTaskMx.taskid = :arg_taskid[i] AND
		u_saletaskmx.printid = :arg_printid[i]  USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '查询订单明细操作失败' +"~n"+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF s_mtrl.ifsc[i] = 1 THEN
		arg_msg = '销售订单:' + s_mtrl.taskcode[i] + '明细第' + String(arg_printid[i]) + '行,编码[' + s_mtrl.mtrlcode[i] + ']已排产，不能删除流程卡!'
		rslt = 0
		GOTO ext
	END IF
	//	
	ls_cardcode[i] = ''
	FOR j = 1 TO UpperBound(arg_cardid)
		IF arg_row[j] = i THEN
			ls_cardcode[i] = ls_cardcode[i] + arg_cardcode[j] + ','
			ll_cardqty = ll_cardqty + 1
		END IF
		
		DELETE FROM u_saletaskmx_card
			Where cardid In (:arg_cardid[j]) USING commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '删除流程卡操作失败' +"~n"+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
	NEXT

	
//	////写日志
//	IF ls_cardcode[i] <> '' THEN
//		ls_cardcode[i] = Left(ls_cardcode[i],Len(ls_cardcode[i] ) - 1)
//		
//		ls_log = ''
//		
//		ls_log = ls_log + '删除销售订单:' + s_mtrl.taskcode[i] + '明细第' + String(arg_printid[i]) + '行,编码:' + s_mtrl.mtrlcode[i]  + ','
//		IF ls_status <> '' THEN
//			ls_log = ls_log + sys_option_change_status + ':' + s_mtrl.status[i] + ','
//		END IF
//		IF ls_woodcode <> '' THEN
//			ls_log = ls_log + sys_option_change_woodcode + ':' + s_mtrl.woodcode[i] + ','
//		END IF
//		IF ls_woodcode <> '' THEN
//			ls_log = ls_log + sys_option_change_pcode + ':' + s_mtrl.pcode[i] + ','
//		END IF
//		ls_log = ls_log + '卡号:'+ls_cardcode[i]
//		
//		if len(ls_log) > 250 then ls_log = left(ls_log, 250)
//		//日志 
//		 f_setsysoplog('生产流程卡',ls_log,arg_msg,FALSE)
//	END IF
NEXT

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

RETURN rslt


end function

public function integer uof_auditcard (long arg_cardid[], string arg_cardcode[], ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long i,printnum
DateTime server_dt
SELECT Top 1 getdate() Into :server_dt From u_user;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	GOTO ext
END IF

FOR i = 1 To UpperBound(arg_cardid)
	
	IF sys_option_saletask_sc_card3 = 1 THEN
		printnum = 0
		SELECT printnum
			INTO :printnum
			FROM u_saletaskmx_card
			Where cardid = :arg_cardid[i] Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '确认流程卡' +arg_cardcode[i] + '失败,查询流程卡打印次数失败' +"~n"+commit_transaction.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF printnum = 0 THEN
			arg_msg = ' 流程卡' +arg_cardcode[i] + '必须先打印后确认'
			rslt = 0
			GOTO ext
		END IF
		
	END IF
	
	
	
	UPDATE u_saletaskmx_card
		SET flag = 1,
		audittime = :server_dt,
		auditemp = :publ_operator
		Where cardid = :arg_cardid[i] Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '确认流程卡' +arg_cardcode[i] + '失败' +"~n"+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
NEXT

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

RETURN rslt












end function

public function integer uof_cauditcard (long arg_cardid[], string arg_cardcode[], ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long i
DateTime null_dt
SetNull(null_dt)

FOR i = 1 TO UpperBound(arg_cardid)
	UPDATE u_saletaskmx_card
		SET flag = 0,
		audittime = :null_dt,
		auditemp = ''
		Where cardid = :arg_cardid[i] USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '确认流程卡' +arg_cardcode[i] + '失败' +"~n"+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
NEXT


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

RETURN rslt


end function

public function integer uof_sc (s_saletaskmx arg_mx[], long arg_itmx, integer arg_scflag, ref string arg_msg);Int rslt = 1
Long i
Long ll_count,ll_count1
DateTime server_dt
DateTime null_dt

 
Long ll_storageid_arr[],ll_storageid
Long ll_scid_arr[],ll_scid
Long ll_if_cus_mtrlware_arr[],ll_if_cus_mtrlware
String ll_storagename_arr[],ls_storagename
Long ll_inwaretype_arr[],ll_inwaretype
Long ll_j,count,ll_i
Decimal ld_add_qty
//Decimal ld_orderqty
Long if_plancode_arr[],if_plancode
String ls_status,ls_mtrlcode,ls_pcode,ls_woodcode
Long ll_mtrlwareid,ll_mtrlid
Long ll_cusid
String ls_plancode

SetNull(null_dt)
SELECT Top 1 getdate() INTO :server_dt FROM u_user;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	GOTO ext
END IF

FOR i = 1 TO arg_itmx
	IF arg_scflag = 1 THEN
		IF sys_option_saletask_sc_card = 1 THEN
			ll_count = 0
			SELECT printnum
				INTO :ll_count
				FROM u_saletaskmx
				WHERE scid = :arg_mx[i].scid AND
				taskid = :arg_mx[i].taskid AND
				printid = :arg_mx[i].printid USING commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				rslt = 0
				arg_msg = '查询打印次数失败!'
				GOTO ext
			END IF
			
			IF ll_count = 0 THEN
				rslt = 0
				arg_msg = '订单生产跟踪表必须先打印后确认!操作取消'
				GOTO ext
			END IF
		END IF
		
		UPDATE u_saletaskmx
			SET u_saletaskmx.ifsc = 1,
			u_saletaskmx.audittime = :server_dt,
			u_saletaskmx.auditemp = :publ_operator
			WHERE scid = :arg_mx[i].scid AND
			taskid = :arg_mx[i].taskid AND
			printid = :arg_mx[i].printid USING commit_transaction;
			
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '更新销售订单明细确认标记失败!'
			GOTO ext
		END IF

		if sys_option_saletask_sc_mx_addware = 1 then 
					DECLARE pf_cur CURSOR FOR
						SELECT u_storage.storageid,
						u_storage.storagename,
						u_storage.scid,
						u_storage.balctype,
						u_storage.inwaretype,
						u_storage.if_plancode
						FROM u_storage
						WHERE ( u_storage.Mtrlprp = 0 ) AND
						( u_storage.scid = :scid )
						Using commit_transaction;
					OPEN pf_cur;
					FETCH pf_cur Into :ll_storageid,:ls_storagename,:ll_scid,:ll_if_cus_mtrlware,:ll_inwaretype,:if_plancode;
					DO WHILE commit_transaction.SQLCode = 0
						count++
						ll_storageid_arr[count] = ll_storageid
						ll_storagename_arr[count] = ls_storagename
						ll_scid_arr[count] = ll_scid
						ll_if_cus_mtrlware_arr[count] = ll_if_cus_mtrlware
						ll_inwaretype_arr[count] = ll_inwaretype
						if_plancode_arr[count] = if_plancode
						FETCH pf_cur Into :ll_storageid,:ls_storagename,:ll_scid,:ll_if_cus_mtrlware,:ll_inwaretype,:if_plancode;
					LOOP
					CLOSE pf_cur;
			
					ll_mtrlid = arg_mx[i].mtrlid
					ls_mtrlcode = arg_mx[i].mtrlcode
					ls_status = arg_mx[i].Status
					ls_pcode = arg_mx[i].pcode
					ls_woodcode	 = arg_mx[i].woodcode
				//	ld_orderqty  = arg_mx[i].orderqty
					ld_add_qty = 0
			
					FOR ll_j = 1 To count
					
						ll_cusid = 0///不分客户
//						IF ll_if_cus_mtrlware_arr[ll_j] = 1 THEN
//							ll_cusid = 0   ///
//						ELSE
//							ll_cusid = 0
//						END IF
						IF if_plancode_arr[ll_j] = 0 THEN
							ls_plancode = ''
						ELSE
							ls_plancode = arg_mx[i].plancode
						END IF
						
						SELECT top 1 mtrlwareid INTO :ll_mtrlwareid
							FROM u_mtrlware
							WHERE mtrlid = :ll_mtrlid
							AND status = :ls_status
							AND storageid = :ll_storageid_arr[ll_j]
							AND woodcode = :ls_woodcode
							AND pcode = :ls_pcode
							AND SCID = :ll_scid_arr[ll_j]
							AND ( sptid = :ll_cusid OR :ll_cusid = 0 )
							AND plancode = :ls_plancode
							Using commit_transaction;
						IF commit_transaction.SQLCode = 0 THEN
//							UPDATE u_mtrlware
//								SET noallocqty = noallocqty + :ld_add_qty
//								WHERE mtrlwareid = :ll_mtrlwareid
//								AND scid = :ll_scid_arr[ll_j]
//								Using commit_transaction;
//							IF commit_transaction.SQLCode <> 0  THEN
//								ARG_MSG = '产品:' + ls_mtrlcode+'仓库:'+ll_storagename_arr[ll_j]+'增加库存失败'
//								rslt = 0
//								GOTO ext
//							END IF
						ELSEIF commit_transaction.SQLCode = -1 THEN
							ARG_MSG = '查询:'+ls_mtrlcode+'仓库:'+ll_storagename_arr[ll_j]+'库存失败'
							rslt = 0
							GOTO ext
						ELSEIF commit_transaction.SQLCode = 100 THEN
							ll_mtrlwareid = 0
							
							ll_mtrlwareid = f_sys_scidentity(ll_scid_arr[ll_j],"u_mtrlware","mtrlwareid",ARG_MSG,False,commit_transaction)
							IF ll_mtrlwareid <= 0 THEN
								rslt = 0
								GOTO ext
							END IF
							
							INSERT INTO u_mtrlware(scid,
								mtrlwareid,
								mtrlid,
								storageid,
								noallocqty,
								status,
								woodcode,
								pcode,
								sptid,
								plancode)
								VALUES(:ll_scid_arr[ll_j],
								:ll_mtrlwareid,
								:ll_mtrlid,
								:ll_storageid_arr[ll_j],
								:ld_add_qty,
								:ls_status,
								:ls_woodcode,
								:ls_pcode,
								:ll_cusid,
								:ls_plancode)
								Using commit_transaction;
							IF commit_transaction.SQLCode <> 0 THEN
								ARG_MSG = '产品:'+ls_mtrlcode+'仓库:'+ll_storagename_arr[ll_j]+'加0库存失败或物料已经有库存,请检查'
								rslt = 0
								GOTO ext
							END IF
						END IF
				NEXT	
		
		end if 
		
	ELSE
		Long cnt
		SELECT count(*) INTO :cnt
		FROM u_inwaremx
		INNER JOIN u_inware ON u_inware.scid = u_inwaremx.scid 
			AND u_inware.inwareid = u_inwaremx.inwareid 
		INNER JOIN u_saletaskmx ON u_SaleTaskMx.scid = u_inwaremx.scid
			AND u_SaleTaskMx.taskid = u_inwaremx.relid
			AND u_SaleTaskMx.printid = u_inwaremx.relprintid
		WHERE u_inware.billtype = 3
			AND u_SaleTaskMx.scid = :arg_mx[i].scid
			AND u_SaleTaskMx.taskid = :arg_mx[i].taskid
			AND u_SaleTaskMx.printid = :arg_mx[i].printid USING commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询是否已开生产进仓失败!'+sqlca.sqlerrtext
			GOTO ext
		END IF	
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = "该明细已经开了生产进仓单，不能反确认"
			GOTO ext
		END IF
			
		SELECT count(*) INTO :cnt
		FROM u_outwaremx
		INNER JOIN u_outware ON u_outware.scid = u_outwaremx.scid 
			AND u_outware.outwareid = u_outwaremx.outwareid 
		INNER JOIN u_SaleTaskMX ON u_outwaremx.scid = u_SaleTaskMX.scid
			AND u_outwaremx.relid = u_SaleTaskMX.TaskID
			AND u_outwaremx.relprintid = u_SaleTaskMX.printid
		WHERE u_outware.billtype = 1 AND u_outware.thflag = 0
			AND u_SaleTaskMx.scid = :arg_mx[i].scid
			AND u_SaleTaskMx.taskid = :arg_mx[i].taskid
			AND u_SaleTaskMx.printid = :arg_mx[i].printid USING commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询是否已开发货单失败!'+sqlca.sqlerrtext
			GOTO ext
		END IF	
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = "该明细已经开了发货单，不能反确认"
			GOTO ext
		END IF
			
			
		UPDATE u_saletaskmx
			SET ifsc = 0,
			u_saletaskmx.audittime = :null_dt,
			u_saletaskmx.auditemp = ''
			WHERE scid = :arg_mx[i].scid AND
			taskid = :arg_mx[i].taskid AND
			printid = :arg_mx[i].printid USING commit_transaction;
						
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '更新销售订单明细确认标记失败!'
			GOTO ext
		END IF

	END IF
	
//	IF commit_transaction.SQLCode <> 0 THEN
//		rslt = 0
//		arg_msg = '更新销售订单明细确认标记失败!'
//		GOTO ext
//	END IF
NEXT


ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSE
	COMMIT USING commit_transaction;
END IF

RETURN rslt






end function

public function integer uof_add_rqmtrl_scll (s_order_ml_rqmtrl arg_rqmtrl, boolean arg_ifcommit, ref string arg_msg);Long rslt = 1
Long i,ls_newid

DELETE FROM u_saleRqMtrl_scll
	WHERE u_saleRqMtrl_scll.scid = :arg_rqmtrl.scid[1]  AND
	u_saleRqMtrl_scll.taskID  = :arg_rqmtrl.taskid[1] AND
	u_saleRqMtrl_scll.printid = :arg_rqmtrl.printid[1] USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '删除订单明细的物料领料明细失败'
	GOTO ext
END IF

FOR i = 1 TO  UpperBound(arg_rqmtrl.taskID)
	ls_newid = f_sys_scidentity(arg_rqmtrl.scid[i],"u_saleRqMtrl_scll","rqmtrlid",arg_msg,TRUE,commit_transaction)
	IF ls_newid <= 0  THEN
		rslt  = 0
		GOTO ext
	END IF
	
	INSERT INTO u_saleRqMtrl_scll
		( rqmtrlid,
		scid,
		taskID,
		MtrlID,
		printid,
		trueRqqty,
		costamt,
		status,
		woodcode,
		pcode,
		ifchanged  )
		VALUES ( :ls_newid,
		:arg_rqmtrl.scid[i],
		:arg_rqmtrl.taskID[i],
		:arg_rqmtrl.MtrlID[i],
		:arg_rqmtrl.printid[i],
		:arg_rqmtrl.cmplqty[i],
		0,
		:arg_rqmtrl.status[i],
		:arg_rqmtrl.woodcode[i],
		:arg_rqmtrl.pcode[i],
		:arg_rqmtrl.ifchanged[i] ) USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '插入订单明细的物料领料明细失败'
		GOTO ext
	END IF
	
NEXT

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

RETURN rslt




end function

public function integer uof_cmp_workprice (long arg_scid, long arg_taskid, long arg_printid, long arg_mtrlid, boolean arg_ifcommit, ref string arg_msg);Long it_mxbt1,mtrlorigin,ls_newid
Long rslt = 1,I = 1,NO_MXCHECK = 0
s_outwaremx outwaremx[]
String ls_msg
Long ll_flag
SELECT auditflag
	INTO :ll_flag
	FROM u_mtrldef
	Where mtrlid = :arg_mtrlid  USING  commit_transaction;
IF  commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '工价表没有审核'
	GOTO ext
END IF

s_workpricetable_array s_workprice

DECLARE CUR_INWAERMX CURSOR FOR
	SELECT u_sc_workprice.proid,
	u_sc_workprice.proorder,
	u_sc_workprice.procode,
	u_sc_workprice.proname,
	u_sc_workprice.wrkgrpid,
	u_sc_workprice.workprice,
	u_sc_workprice.workqty,
	u_sc_workprice.worklevel,
	u_sc_workprice.techlevel,
	u_sc_workprice.workhour,
	u_sc_workprice.dscrp,
	u_sc_workprice.Lastflag
	FROM u_sc_workprice
	Where u_sc_workprice.mtrlid  = :arg_mtrlid USING commit_transaction;
OPEN CUR_INWAERMX;
FETCH CUR_INWAERMX INTO :s_workprice.proid[i],
	:s_workprice.proorder[i],
	:s_workprice.procode[i],
	:s_workprice.proname[i],
	:s_workprice.wrkgrpid[i],
	:s_workprice.workprice[i],
	:s_workprice.workqty[i],
	:s_workprice.worklevel[i],
	:s_workprice.techlevel[i],
	:s_workprice.workhour[i],
	:s_workprice.dscrp[i],
	:s_workprice.Lastflag[I] ;
DO WHILE commit_transaction.SQLCode = 0
	I++
	FETCH CUR_INWAERMX INTO	:s_workprice.proid[i],
		:s_workprice.proorder[i],
		:s_workprice.procode[i],
		:s_workprice.proname[i],
		:s_workprice.wrkgrpid[i],
		:s_workprice.workprice[i],
		:s_workprice.workqty[i],
		:s_workprice.worklevel[i],
		:s_workprice.techlevel[i],
		:s_workprice.workhour[i],
		:s_workprice.dscrp[i],
		:s_workprice.Lastflag[I] ;
LOOP
CLOSE CUR_INWAERMX;

//检验明细是否读入完整
SELECT COUNT(*) INTO :NO_MXCHECK
	FROM u_sc_workprice
	Where u_sc_workprice.mtrlid  = :arg_mtrlid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,工价表明细"
	GOTO ext
END IF

IF I <> (NO_MXCHECK+1) THEN
	rslt = 0
	arg_msg = "查询操作失败,工价表明细"
	GOTO ext
END IF

FOR I = 1 TO NO_MXCHECK
	INSERT INTO u_order_ml_workprice
		( scid,
		taskid,
		printid,
		proid,
		proorder,
		procode,
		proname,
		wrkgrpid,
		workprice,
		workqty,
		worklevel,
		techlevel,
		workhour,
		dscrp,
		Lastflag )
		VALUES ( :arg_scid,
		:arg_taskid,
		:arg_printid,
		:s_workprice.proid[i],
		:s_workprice.proorder[i],
		:s_workprice.procode[i],
		:s_workprice.proname[i],
		:s_workprice.wrkgrpid[i],
		:s_workprice.workprice[i],
		:s_workprice.workqty[i],
		:s_workprice.worklevel[i],
		:s_workprice.techlevel[i],
		:s_workprice.workhour[i],
		:s_workprice.dscrp[i],
		:s_workprice.Lastflag[I]  )  USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "插入明细操作失败,销售订单明细运算工价明细"
		GOTO ext
	END IF
NEXT
ext:
IF rslt = 0 THEN
	ROLLBACK USING  commit_transaction;
ELSEIF arg_ifcommit THEN
	COMMIT USING  commit_transaction;
END IF

RETURN rslt
end function

public function integer uof_add_workprice (s_order_ml_workprice_array arg_rqmtrl, boolean arg_ifcommit, ref string arg_msg);Long rslt = 1
Long i,ls_newid

DELETE FROM u_order_ml_workprice
	WHERE u_order_ml_workprice.scid = :arg_rqmtrl.scid[1]  AND
	u_order_ml_workprice.taskID  = :arg_rqmtrl.taskid[1] AND
	u_order_ml_workprice.printid = :arg_rqmtrl.printid[1] USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '删除订单明细的工价设定失败'
	GOTO ext
END IF
FOR i = 1 TO  UpperBound(arg_rqmtrl.taskID)
	INSERT INTO u_order_ml_workprice
		( scid,
		taskid,
		printid,
		proid,
		proorder,
		procode,
		proname,
		wrkgrpid,
		workprice,
		workqty,
		worklevel,
		techlevel,
		workhour,
		dscrp,
		Lastflag,
		ifchanged )
		VALUES ( :arg_rqmtrl.scid[i],
		:arg_rqmtrl.taskid[i],
		:arg_rqmtrl.printid[i],
		:arg_rqmtrl.proid[i],
		:arg_rqmtrl.proorder[i],
		:arg_rqmtrl.procode[i],
		:arg_rqmtrl.proname[i],
		:arg_rqmtrl.wrkgrpid[i],
		:arg_rqmtrl.workprice[i],
		:arg_rqmtrl.workqty[i],
		:arg_rqmtrl.worklevel[i],
		:arg_rqmtrl.techlevel[i],
		:arg_rqmtrl.workhour[i],
		:arg_rqmtrl.dscrp[i],
		:arg_rqmtrl.Lastflag[i],
		:arg_rqmtrl.ifchanged[i])  USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '插入订单明细的工价设定失败'
		GOTO ext
	END IF 
NEXT

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

RETURN rslt
end function

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

If arg_taskid = 0 Then
	rslt = 0
	arg_msg = "没有审核对象"
	Goto ext
End If


If p_getinfo(arg_scid,arg_taskid,arg_printid,arg_msg) = 0 Then
	rslt = 0
	Goto ext
End If

If flag <> 1 And flag <> 5 And flag <> 6 Then
	rslt = 0
	arg_msg = '订单明细产品' + mtrlcode + ',只有在(在进行,完成)状态才可以生成工序,请核对'
	Goto ext
End If

If scllflag = 1 Then
	arg_msg = '订单明细产品' + mtrlcode + '已用料审核,不能再重新生成工序'
End If


cnt = 0
Select count(*) Into :cnt
	From u_orderrqwp
	Where scid = :arg_scid
	And taskid  = :arg_taskid
	And printid = :arg_printid
	And finishqty > 0;
If sqlca.SQLCode <> 0 Then
	arg_msg = '查询销售订单明细产品' + mtrlcode + '的工序明细是否有完成数量失败,'+sqlca.SQLErrText
	rslt = 0
	Goto ext
End If

If cnt > 0 Then
	arg_msg = '销售订单明细产品' + mtrlcode + '的工序明细已有完成数量,不能生成计划工序明细'
	rslt = 0
	Goto ext
End If

//检查计件单
cnt = 0
Select count(*) Into :cnt
	From u_scwg_taskwork_2_mx
	Where relscid = :arg_scid
	And orderid  = :arg_taskid
	And relprintid = :arg_printid;
If sqlca.SQLCode <> 0 Then
	arg_msg = '查询销售订单明细产品' + mtrlcode + '的工序明细是否有个人产品工序计件单失败,'+sqlca.SQLErrText
	rslt = 0
	Goto ext
End If

If cnt > 0 Then
	arg_msg = '销售订单明细产品' + mtrlcode + '的工序明细已有个人产品工序计件单,不能生成计划工序明细'
	rslt = 0
	Goto ext
End If

//检查产品个人工序计件单
cnt = 0
Select count(*) Into :cnt
	From u_sc_taskwork
	Where scid = :arg_scid
	And orderid  = :arg_taskid
	And relid = :arg_printid;
If sqlca.SQLCode <> 0 Then
	arg_msg = '查询销售订单明细产品' + mtrlcode + '的工序明细是否有产品个人工序计件单失败,'+sqlca.SQLErrText
	rslt = 0
	Goto ext
End If

If cnt > 0 Then
	arg_msg = '销售订单明细产品' + mtrlcode + '的工序明细已有产品个人工序计件单,不能生成计划工序明细'
	rslt = 0
	Goto ext
End If

//检查工价表
cnt = 0
Select count(*) Into :cnt
	From u_sc_workprice
	Where mtrlid = :mtrlid;
If sqlca.SQLCode <> 0 Then
	arg_msg = '查询产品' + mtrlcode + '工价表失败,'+sqlca.SQLErrText
	rslt = 0
	Goto ext
End If

// 系统选项233，未使用工资时，审核不提示工价表未设置。
If sys_option_order_skip_workprice = 1 Then //检查建立
	If cnt = 0 Then
		arg_msg = '系统选项[233]限制,产品' + mtrlcode + '工价表未建立,不能建立工序工价'
		rslt = 0
		Goto ext
	End If
ElseIf sys_option_order_skip_workprice = 2 Then //检查审核
	If cnt = 0 Then
		arg_msg = '产品' + mtrlcode + '工价表未建立,请先建立工价表'
		rslt = 0
		Goto ext
	End If
	
	Int li_auditflag_workprice
	Select auditflag
		Into :li_auditflag_workprice
		From u_mtrldef
		Where mtrlid = :mtrlid;
	If sqlca.SQLCode <> 0 Then
		arg_msg = '查询产品' + mtrlcode + '工价表失败,'+sqlca.SQLErrText
		rslt = 0
		Goto ext
	End If
	If li_auditflag_workprice = 0 Then
		arg_msg = '系统选项[233]限制,产品' + mtrlcode + '工价表未审核,不能建立工序工价'
		rslt = 0
		Goto ext
	End If
Else //0 不检查
	
End If



//IF cnt = 0 THEN
//	
//		
//	IF sys_option_order_skip_workprice = 1 THEN
//		rslt = 1
//		GOTO ext
//	ELSE
//		arg_msg = '产品' + mtrlcode + '工价表未建立,请先建立工价表'
//		rslt = 0
//		GOTO ext
//	END IF
//END IF

Delete From U_OrderRqwp
	Where U_OrderRqwp.scid = :Arg_scid And
	U_OrderRqwp.taskid = :arg_taskid And
	u_orderrqwp.printid = :arg_printid Using sqlca;
If sqlca.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '删除订单明细产品' + mtrlcode + '对应的工价明细失败'+"~n"+sqlca.SQLErrText
	Goto ext
End If

/// //
//messagebox("",arg_taskid) 
//messagebox("",arg_printid)
/////status
Insert Into u_orderrqwp(scid,taskid,mtrlid,procode,proname,proorder,proqty,wrkgrpid,lsxtype,workprice,status,ifjd,printid,pricestr,stepstr)
	(Select u_SaleTaskMx.scid,u_SaleTaskMx.taskid,u_SaleTaskMx.mtrlid,u_sc_workprice.procode,
	u_sc_workprice.proname,u_sc_workprice.proorder,u_sc_workprice.workqty * u_SaleTaskMx.orderqty,
	u_sc_workprice.wrkgrpid,u_sc_workprice.lsxtype,u_sc_workprice.workprice,
	case u_mtrldef.statusflag when 2 then u_SaleTaskMx.status else u_sc_workprice.status End as status,
	u_sc_workprice.ifjd,u_SaleTaskMx.printid,u_sc_workprice.pricestr,u_sc_workprice.stepstr
	From u_sc_workprice,u_SaleTaskMx,u_mtrldef
	Where u_sc_workprice.mtrlid = u_SaleTaskMx.mtrlid
	And	u_mtrldef.mtrlid = u_SaleTaskMx.mtrlid
	And u_SaleTaskMx.taskid = :arg_taskid
	And u_SaleTaskMx.scid = :arg_scid
	And u_SaleTaskMx.printid = :arg_printid
	And u_sc_workprice.ifownpro = 0
	And u_sc_workprice.lsxtype <> 0);

If sqlca.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '添加销售订单明细的工序失败,原因:'+sqlca.SQLErrText
	Goto ext
End If





//单价公式
//orderqty 排产数量
//status 配置
//woodcode 配置1
//pcode 配置2
//ls_mtrlsectype 自定义1
//ls_zxmtrlmode 自定义2
//物料规格arg_ls_mtrlmode
//客户编码 arg_ls_cuscode
//客户名称 arg_ls_cusname
//arg_parmstr 公式
//arg_value_dec 返回的工价
Decimal arg_orderqty
String arg_ls_mtrlmode,arg_ls_mtrlsectype,arg_ls_zxmtrlmode,arg_ls_cuscode,arg_ls_cusname
Long ii = 0,arry_saletaskid[],arry_itemid[]
Decimal de_temp = 0,arry_price[]
String arry_pricestr[],arry_procode[]

Select 	u_SaleTaskMx.orderqty,u_mtrldef.mtrlmode,u_mtrldef.mtrlsectype,u_mtrldef.zxmtrlmode,u_cust.cuscode,u_cust.name
	Into :arg_orderqty,:arg_ls_mtrlmode,:arg_ls_mtrlsectype,:arg_ls_zxmtrlmode,:arg_ls_cuscode,:arg_ls_cusname
	From u_SaleTaskMx Inner join u_mtrldef on u_SaleTaskMx.MtrlID = u_mtrldef.MtrlID
	Inner join
	u_SaleTask on u_SaleTaskMx.scid = u_SaleTask.scid And
	u_SaleTaskMx.TaskID = u_SaleTask.TaskID  Inner JOIN
	u_cust  ON u_SaleTask.CusID = u_cust.cusid
	Where u_SaleTaskMx.taskid = :arg_taskid
	And u_SaleTaskMx.scid = :arg_scid
	And u_SaleTaskMx.printid = :arg_printid;
	
//游标读费用项目
Declare gongjia Cursor For
	Select
	u_orderrqwp.pricestr,
	u_orderrqwp.procode,
	u_orderrqwp.workprice
	From u_orderrqwp
	Where u_orderrqwp.taskid = :arg_taskid
	And u_orderrqwp.scid = :arg_scid
	And u_orderrqwp.printid = :arg_printid;
	
Open gongjia;
ii++
Fetch gongjia Into :arry_pricestr[ii],:arry_procode[ii],:arry_price[ii];

Do While sqlca.SQLCode = 0
	ii++
	Fetch gongjia Into :arry_pricestr[ii],:arry_procode[ii],:arry_price[ii];
Loop
Close gongjia;



//按公式计算工价
For ii = 1 To UpperBound(arry_pricestr)
	If arry_pricestr[ii] <> '' Then
		de_temp = 0
		uof_workprice_parm(arg_orderqty,status,woodcode,pcode,arg_ls_mtrlsectype,arg_ls_zxmtrlmode,arg_ls_mtrlmode,arg_ls_cuscode,arg_ls_cusname,arry_pricestr[ii],de_temp,arry_price[ii])
		If de_temp <> 0 Then
			Update u_orderrqwp Set workprice = :de_temp
				Where u_orderrqwp.taskid = :arg_taskid
				And u_orderrqwp.scid = :arg_scid
				And u_orderrqwp.printid = :arg_printid
				And u_orderrqwp.procode = :arry_procode[ii];
		End If
	End If
Next






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

Return rslt





















end function

public function int p_reset ();scid = 0 
taskid = 0 
taskcode = ''
MtrlID = 0	 
SaleQty	 = 0
mxdscrp = ''	 
status	 = ''  
pcode	   = ''
woodcode	  = '' 
outtype		 = 0     
unit	   = ''  
scllflag		 = 0 	  
flag 	 = 0  

RETURN 1




end function

public function integer uof_finish_procode_qty (long arg_scid, long arg_taskid, long arg_printid, string arg_procode, integer arg_type, ref string arg_msg, boolean arg_ifcommit);

Int rslt = 1
Int li_finishflag
DateTime null_dt
SetNull(null_dt)

IF sys_option_add_orderrqwp_fqty = 1 THEN
	arg_msg = '系统选项[071]限制,工序确认完成数只能由计件单确认增减'
	rslt = 0
	GOTO ext
END IF

SELECT finishflag INTO :li_finishflag
	FROM U_OrderRqwp
	WHERE scid = :arg_scid
	AND taskid = :arg_taskid
	AND printid = :arg_printid
	And Procode = :arg_procode;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询工序完成标记失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


IF arg_type = 0 THEN
	IF li_finishflag = 1 THEN
		arg_msg = '工序已确认完成,不能再确认'
		rslt = 0
		GOTO ext
	END IF
	
	UPDATE U_OrderRqwp
		SET finishflag = 1,
		finishdate = getdate(),
		finishqty = proqty
		WHERE scid = :arg_scid
		AND taskid = :arg_taskid
		AND printid = :arg_printid
		AND Procode = :arg_procode
		And finishflag = 0;
		
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '确认工序完成失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
ELSE
	
	IF li_finishflag = 0 THEN
		arg_msg = '工序还未确认,不能取消确认'
		rslt = 0
		GOTO ext
	END IF
	
	UPDATE U_OrderRqwp
		SET finishflag = 0,
		finishdate = :null_dt,
		finishqty = 0
		WHERE scid = :arg_scid
		AND taskid = :arg_taskid
		AND printid = :arg_printid
		AND Procode = :arg_procode
		And finishflag = 1;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '取消确认工序完成失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
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_mod_rqmtrl (s_order_ml_rqmtrl arg_rqmtrl, boolean arg_ifcommit, ref string arg_msg);Long rslt = 1
Long i

FOR  i = 1 To  UpperBound(arg_rqmtrl.taskID) 
	UPDATE u_OrderRqMtrl
		SET sptid = :arg_rqmtrl.sptid[i]
		Where scid = :arg_rqmtrl.scid[i] and
		taskID = :arg_rqmtrl.taskID[i] and
		MtrlID = :arg_rqmtrl.MtrlID[i] and 
		status = :arg_rqmtrl.status[i] and
		woodcode = :arg_rqmtrl.woodcode[i] and
		pcode = :arg_rqmtrl.pcode[i] and
		plantype = :arg_rqmtrl.plantype[i] and 
		printid = :arg_rqmtrl.printid[i] 
		Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '更新默认供应商失败'
		GOTO ext
	END IF
NEXT 

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

RETURN rslt  
end function

public function integer uof_auto_build_buy_forrq (long arg_mxpkid[], ref string arg_msg, boolean arg_ifcommit);Long rslt = 1
Long sptid[]
Long it_mx = 0

Long ll_bound, ll_i, ll_j, ll_sptid, ll_cnt
Boolean has_spt
arg_msg = ''
string ls_msg = ''
ll_bound = UpperBound(arg_mxpkid)

uo_buytask obj_task
obj_task = Create uo_buytask
obj_task.commit_transaction = commit_transaction

uo_spt_price uo_sptprice
uo_sptprice = Create uo_spt_price


IF ll_bound <= 0 THEN
	rslt = 1
	arg_msg = '没有需求明细'
	GOTO ext
END IF

Long ll_scid, ll_lastscid

FOR ll_i = 1 To ll_bound
	
	SELECT sptid
		INTO :ll_sptid
		FROM u_orderRqMtrl
		Where mxpkid = :arg_mxpkid[ll_i] Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询物料需求表失败,' + commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	SELECT COUNT(0)
		INTO :ll_cnt
		FROM u_spt
		Where sptid = :ll_sptid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询供应商表失败,' + commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	IF ll_cnt <= 0 THEN CONTINUE
	
	has_spt = False
	FOR ll_j = 1 To it_mx
		IF sptid[ll_j] = ll_sptid THEN
			has_spt = True
			EXIT
		END IF
	NEXT
	
	IF Not has_spt THEN
		it_mx++
		sptid[it_mx] = ll_sptid
	END IF
	
NEXT


s_buytaskmx_arr s_buy
Long it_buy
FOR ll_i = 1 To it_mx
	it_buy = 0
	FOR ll_j = 1 To ll_bound
		
		SELECT COUNT(0)
			INTO :ll_cnt
			FROM u_OrderRqMtrl INNER JOIN
			u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid LEFT OUTER JOIN
			uv_orderrqmtrl_buyqty ON u_OrderRqMtrl.mxpkid = uv_orderrqmtrl_buyqty.mxpkid
			WHERE (u_OrderRqMtrl.plantype = 2) AND
			(u_OrderRqMtrl.truerqqty - isnull(uv_orderrqmtrl_buyqty.buyQty, 0) > 0) AND
			(u_orderRqMtrl.mxpkid = :arg_mxpkid[ll_j]) AND
			(u_orderRqMtrl.sptid = :sptid[ll_i]) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询物料需求表数量失败,' + commit_transaction.SQLErrText
			GOTO ext
		END IF
		
		IF ll_cnt <= 0 THEN CONTINUE
		
		it_buy ++
		SELECT u_mtrldef.mtrlcode,
			u_mtrldef.unit,
			u_OrderRqMtrl.truerqqty - ISNULL(uv_orderrqmtrl_buyqty.buyQty, 0) AS Expr1,
			u_OrderRqMtrl.MtrlID,
			u_OrderRqMtrl.status,
			u_OrderRqMtrl.woodcode,
			u_OrderRqMtrl.pcode,
			u_OrderRqMtrl.mxpkid,
			u_mtrldef.mrp_unit,
			u_mtrldef.rate_buy,
			u_mtrldef.rate_scll,
			u_mtrldef.rate_sale,
			u_mtrldef.unit_buy,
			u_mtrldef.unit_scll,
			u_mtrldef.unit_sale,
			u_OrderRqMtrl.scid,
			u_OrderRqMtrl.TaskID,
			u_OrderRqMtrl.printid,
			u_OrderRqMtrl.plancode
			INTO :s_buy.mtrlcode[it_buy],
			:s_buy.unit[it_buy],
			:s_buy.uqty[it_buy],
			:s_buy.MtrlID[it_buy],
			:s_buy.status[it_buy],
			:s_buy.woodcode[it_buy],
			:s_buy.pcode[it_buy],
			:s_buy.relid2[it_buy],
			:s_buy.mrp_unit[it_buy],
			:s_buy.rate_buy[it_buy],
			:s_buy.rate_scll[it_buy],
			:s_buy.rate_sale[it_buy],
			:s_buy.unit_buy[it_buy],
			:s_buy.unit_scll[it_buy],
			:s_buy.unit_sale[it_buy],
			:ll_scid,
			:s_buy.Orderid[it_buy],
			:s_buy.relprintid[it_buy],
			:s_buy.plancode[it_buy]
			FROM u_OrderRqMtrl INNER JOIN
			u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid LEFT OUTER JOIN
			uv_orderrqmtrl_buyqty ON u_OrderRqMtrl.mxpkid = uv_orderrqmtrl_buyqty.mxpkid
			WHERE (u_OrderRqMtrl.plantype = 2) AND
			(u_OrderRqMtrl.truerqqty - ISNULL(uv_orderrqmtrl_buyqty.buyQty, 0) > 0) AND
			(u_orderRqMtrl.mxpkid = :arg_mxpkid[ll_j]) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '物料需求不存在ID:' + String(arg_mxpkid[ll_j]) + ',' + commit_transaction.SQLErrText
			GOTO ext
		END IF
		
		SELECT requiredate,taskcode
			INTO :s_buy.requiredate[it_buy],:s_buy.relcode[it_buy]
			FROM u_saletask
			Where scid = :ll_scid And TaskID = :s_buy.Orderid[it_buy] Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询订单需求日与相关号失败,' + commit_transaction.SQLErrText
			GOTO ext
		END IF
		
		
		IF it_buy > 1 And ll_scid <> ll_lastscid THEN
			rslt = 0
			arg_msg = '物料需求不同分部不能保存'
			GOTO ext
		END IF
		
		ll_lastscid = ll_scid
	NEXT
	
	IF it_buy = 0 THEN CONTINUE
	
	IF obj_task.newbegin(ll_scid,arg_msg) = 0 THEN //
		rslt = 0
		GOTO ext
	END IF
	
	obj_task.requiredate = DateTime(Today(), Now())
	obj_task.Assign_emp  = publ_operator
	obj_task.Kind   = 0
	obj_task.sptid  =  sptid[ll_i]
	obj_task.relcode  = ''
	Long dftbanktypeid,dftmoneyid
	SELECT dftbanktypeid,dftmoneyid
		INTO :dftbanktypeid,:dftmoneyid
		FROM u_spt
		Where sptid = :sptid[ll_i] Using commit_transaction;
		
	obj_task.banktypeid  = dftbanktypeid
	obj_task.train  = ''
	obj_task.billtype  = 2
	obj_task.moneyid  = dftmoneyid
	obj_task.mrate  = f_get_mrate( dftmoneyid)
	
	FOR ll_j = 1 To it_buy
		
		CHOOSE CASE  s_buy.mrp_unit[ll_j]
			CASE 0
				s_buy.rate[ll_j] = 1
			CASE 1
				IF s_buy.rate_buy[ll_j] = 0 THEN  s_buy.rate_buy[ll_j] = 1
				s_buy.uqty[ll_j] = s_buy.uqty[ll_j] / s_buy.rate_buy[ll_j]
				s_buy.rate[ll_j] = s_buy.rate_buy[ll_j]
				s_buy.unit[ll_j] = s_buy.unit_buy[ll_j]
			CASE 2
				s_buy.unit[ll_j] = s_buy.unit_scll[ll_j]
				s_buy.rate[ll_j] = s_buy.rate_scll[ll_j]
				IF s_buy.rate_scll[ll_j] = 0 THEN  s_buy.rate_scll[ll_j] = 1
				s_buy.uqty[ll_j] = s_buy.uqty[ll_j] / s_buy.rate_scll[ll_j]
			CASE 3
				s_buy.unit[ll_j] = s_buy.unit_sale[ll_j]
				s_buy.rate[ll_j] = s_buy.rate_sale[ll_j]
				IF s_buy.rate_sale[ll_j] = 0 THEN  s_buy.rate_sale[ll_j] = 1
				s_buy.uqty[ll_j] = s_buy.uqty[ll_j] / s_buy.rate_sale[ll_j]
		END CHOOSE
		
		
		Decimal ls_1stnewcost,ls_1stzqrate,ls_1strate,ld_rate
		String ls_unit
		ls_unit = s_buy.unit[ll_j]
		IF uo_sptprice.uf_getmtrlsptprice(sptid[ll_i],s_buy.MtrlID[ll_j],ls_unit,s_buy.status[ll_j],s_buy.woodcode[ll_j],s_buy.pcode[ll_j],0,ls_1stnewcost,ls_1stzqrate,ls_1strate,arg_msg) = 1 THEN
			s_buy.uprice[ll_j] = ls_1stnewcost
//			s_buy.rate[ll_j] = ls_1stzqrate
		ELSE
			s_buy.uprice[ll_j] = 0
		END IF
		
		
		SELECT top 1 storageid
			INTO :s_buy.storageid[ll_j]
			FROM u_mtrl_storage
			Where MtrlID = :s_buy.MtrlID[ll_j]   Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			SELECT storageid
				INTO  :s_buy.storageid[ll_j]
				FROM u_buytaskmx
				WHERE mtrlid = :s_buy.MtrlID[ll_j]
				Order By  TaskID Desc   Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = s_buy.mtrlcode[ll_j] + '请先设置存放仓库'
			END IF
		END IF
		
		
		IF obj_task.acceptmx(0,&
			0,&
			'',&
			s_buy.MtrlID[ll_j],&
			s_buy.uqty[ll_j],&
			0,&
			s_buy.uprice[ll_j],&
			1,&
			0,&
			'',&
			s_buy.mtrlcode[ll_j],&
			arg_msg,&
			ll_j,&
			s_buy.requiredate[ll_j],&
			s_buy.storageid[ll_j],&
			s_buy.status[ll_j],&
			s_buy.woodcode[ll_j],&
			s_buy.pcode[ll_j],&
			s_buy.unit[ll_j],&
			s_buy.rate[ll_j],&
			s_buy.Orderid[ll_j],&
			s_buy.relprintid[ll_j],&
			s_buy.relcode[ll_j],&
			'',&
			s_buy.relid2[ll_j],0,&
			s_buy.plancode[ll_j],'','','') = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	NEXT
	
	IF obj_task.savesubmit(publ_operator,arg_msg,False) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	IF ls_msg = '' THEN
		ls_msg = obj_task.taskcode
	ELSE
		ls_msg += ',' + obj_task.taskcode
	END IF
NEXT
IF ls_msg = '' THEN
	ls_msg = '没有采购订单生成'
ELSE
	ls_msg = '生成采购订单:' + ls_msg
END IF

arg_msg = ls_msg

ext:
IF rslt = 0 THEN
	ROLLBACK Using  commit_transaction;
ELSEIF arg_ifcommit THEN
	COMMIT Using  commit_transaction;
END IF
Destroy obj_task
Destroy uo_sptprice
Return (rslt)













end function

public function integer uof_auto_build_buy_forarr (long arg_scid[], long arg_taskid[], long arg_printid[], ref string arg_msg, boolean arg_ifcommit);Long rslt = 1
Long ll_mtrlid
String ls_msg = ''
s_order_ml_rqmtrl s_rqmtrl
Long sptid[]
Long it_mx = 0
uo_buytask obj_task
obj_task = Create uo_buytask
obj_task.commit_transaction = commit_transaction

uo_spt_price uo_sptprice
uo_sptprice = Create uo_spt_price

//DateTime requiredate
//String ls_taskcode
//SELECT requiredate,taskcode
//	INTO :requiredate,:ls_taskcode 
//	FROM u_saletask
//	Where scid = :arg_scid And taskid = :arg_taskid;
Long it_buy = 1
Long ll_bound, ll_i, ll_j, ll_sptid, ll_scid
Boolean has_spt
IF UpperBound(arg_scid) <> UpperBound(arg_taskid) Or UpperBound(arg_taskid) <> UpperBound(arg_printid) THEN
	rslt = 0
	arg_msg = '参数不正确'
	GOTO ext
END IF

ll_bound = UpperBound(arg_scid)

IF ll_bound <= 0 THEN
	rslt = 0
	arg_msg = '订单明细队列不能为空'
	GOTO ext
END IF

ll_scid = arg_scid[1]

FOR ll_i = 2 To ll_bound
	IF ll_scid <> arg_scid[ll_i] THEN
		rslt = 0
		arg_msg = '不同分部的订单明细不能汇总'
		GOTO ext
	END IF
NEXT

FOR ll_i = 1 To ll_bound
	//用游标读取明细
	DECLARE CUR_INWAERMX CURSOR FOR
		SELECT distinct u_OrderRqMtrl.sptid
		FROM u_OrderRqMtrl LEFT OUTER JOIN uv_OrderRqMtrl_buyqty ON u_OrderRqMtrl.mxpkid = uv_OrderRqMtrl_buyqty.mxpkid
		WHERE u_orderrqmtrl.plantype = 2 AND
		u_orderrqmtrl.taskid = :arg_taskid[ll_i] AND
		u_orderrqmtrl.printid = :arg_printid[ll_i] AND
		u_orderrqmtrl.scid  = :arg_scid[ll_i] AND
		u_OrderRqMtrl.truerqqty - IsNull(uv_OrderRqMtrl_buyqty.buyqty, 0) > 0  And u_OrderRqMtrl.sptid > 0   Using commit_transaction;
		
	OPEN CUR_INWAERMX;
	FETCH CUR_INWAERMX Into :ll_sptid;
	DO WHILE commit_transaction.SQLCode = 0
		// 不含
		has_spt = False
		FOR ll_j = 1 To it_mx
			IF sptid[ll_j] = ll_sptid THEN
				has_spt = True
				EXIT
			END IF
		NEXT
		IF Not has_spt THEN
			it_mx ++
			sptid[it_mx] = ll_sptid
		END IF
		FETCH CUR_INWAERMX Into :ll_sptid;
	LOOP
	CLOSE CUR_INWAERMX;
NEXT



Long i,j
FOR i = 1 To it_mx
	s_buytaskmx_arr s_buy
	
	IF obj_task.newbegin(ll_scid,arg_msg) = 0 THEN //
		rslt = 0
		GOTO ext
	END IF
	
	obj_task.requiredate = DateTime(Today(), Now())
	obj_task.Assign_emp  = publ_operator
	obj_task.Kind   = 0
	obj_task.sptid  =  sptid[i]
	obj_task.relcode  = ''
	
	Long dftbanktypeid,dftmoneyid
	String ls_sptcode, ls_sptname
	SELECT dftbanktypeid,dftmoneyid, sptcode,name
		INTO :dftbanktypeid,:dftmoneyid, :ls_sptcode, :ls_sptname
		FROM u_spt
		Where sptid = :sptid[i] Using commit_transaction;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询供应商信息失败,ID['+String(sptid[i])+'],'+sqlca.SQLErrText
		GOTO ext
	END IF
	
	IF dftbanktypeid = 0 THEN
		rslt = 0
		arg_msg = '供应商编号['+ls_sptcode+']未定义默认结算方式'
		GOTO ext
	END IF
	
	IF dftmoneyid = 0 THEN
		rslt = 0
		arg_msg = '供应商编号['+ls_sptcode+']未定义默认币种'
		GOTO ext
	END IF
	
	obj_task.banktypeid  = dftbanktypeid
	
	obj_task.train  = ''
	obj_task.billtype  = 2
	obj_task.moneyid  = dftmoneyid
	obj_task.mrate  = f_get_mrate( dftmoneyid)
	it_buy = 1
	
	FOR ll_i = 1 To ll_bound
		DECLARE CUR_INWAERMX2 CURSOR FOR
			
			SELECT u_mtrldef.mtrlcode ,
			u_mtrldef.unit ,
			u_OrderRqMtrl.truerqqty - ISNULL(uv_OrderRqMtrl_buyqty.buyqty, 0)  ,
			u_OrderRqMtrl.MtrlID ,
			u_OrderRqMtrl.status ,
			u_OrderRqMtrl.woodcode ,
			u_OrderRqMtrl.pcode,
			u_orderrqmtrl.mxpkid,
			u_mtrldef.mrp_unit,
			u_mtrldef.rate_buy,
			u_mtrldef.rate_scll,
			u_mtrldef.rate_sale,
			u_mtrldef.unit_buy,
			u_mtrldef.unit_scll,
			u_mtrldef.unit_sale,
			u_OrderRqMtrl.plancode
			FROM u_orderrqmtrl LEFT OUTER JOIN uv_OrderRqMtrl_buyqty ON u_orderrqmtrl.mxpkid = uv_OrderRqMtrl_buyqty.mxpkid,u_mtrldef
			WHERE u_orderrqmtrl.plantype = 2 AND
			u_orderrqmtrl.taskid = :arg_taskid[ll_i] AND
			u_orderrqmtrl.printid = :arg_printid[ll_i] AND
			u_orderrqmtrl.scid  = :arg_scid[ll_i] AND
			u_OrderRqMtrl.truerqqty - ISNULL(uv_OrderRqMtrl_buyqty.buyqty, 0) > 0 AND
			u_OrderRqMtrl.sptid =  :sptid[i] AND
			u_mtrldef.MtrlID = u_OrderRqMtrl.MtrlID   Using commit_transaction;
			
		OPEN CUR_INWAERMX2;
		FETCH CUR_INWAERMX2 INTO :s_buy.mtrlcode[it_buy],
			:s_buy.unit[it_buy],
			:s_buy.uqty[it_buy],
			:s_buy.MtrlID[it_buy],
			:s_buy.status[it_buy],
			:s_buy.woodcode[it_buy],
			:s_buy.pcode[it_buy],
			:s_buy.relid2[it_buy],
			:s_buy.mrp_unit[it_buy],
			:s_buy.rate_buy[it_buy],
			:s_buy.rate_scll[it_buy],
			:s_buy.rate_sale[it_buy],
			:s_buy.unit_buy[it_buy],
			:s_buy.unit_scll[it_buy],
			:s_buy.unit_sale[it_buy],
			:s_buy.plancode[it_buy];
		DO WHILE commit_transaction.SQLCode = 0
			s_buy.orderid[it_buy] = arg_taskid[ll_i]
			s_buy.relprintid[it_buy] = arg_printid[ll_i]
			s_buy.printid[it_buy] = it_buy
			SELECT requiredate,taskcode
				INTO :s_buy.requiredate[it_buy],:s_buy.relcode[it_buy]
				FROM u_saletask
				Where scid = :arg_scid[ll_i] And taskid = :arg_taskid[ll_i];
			IF sqlca.SQLCode <> 0 THEN
				rslt = 0
				arg_msg = '查询订单需求日与相关号失败'
				GOTO ext
			END IF
			it_buy++
			FETCH CUR_INWAERMX2 INTO :s_buy.mtrlcode[it_buy],
				:s_buy.unit[it_buy],
				:s_buy.uqty[it_buy],
				:s_buy.MtrlID[it_buy],
				:s_buy.status[it_buy],
				:s_buy.woodcode[it_buy],
				:s_buy.pcode[it_buy],
				:s_buy.relid2[it_buy],
				:s_buy.mrp_unit[it_buy],
				:s_buy.rate_buy[it_buy],
				:s_buy.rate_scll[it_buy],
				:s_buy.rate_sale[it_buy],
				:s_buy.unit_buy[it_buy],
				:s_buy.unit_scll[it_buy],
				:s_buy.unit_sale[it_buy],
				:s_buy.plancode[it_buy];
		LOOP
		CLOSE CUR_INWAERMX2;
	NEXT
	it_buy --
	
	
	FOR j = 1 To it_buy
		
		CHOOSE CASE  s_buy.mrp_unit[j]
			CASE 0
				s_buy.rate[j] = 1
			CASE 1
				IF s_buy.rate_buy[j] = 0 THEN  s_buy.rate_buy[j] = 1
				s_buy.uqty[j] = s_buy.uqty[j] / s_buy.rate_buy[j]
				s_buy.rate[j] = s_buy.rate_buy[j]
				s_buy.unit[j] = s_buy.unit_buy[j]
			CASE 2
				s_buy.unit[j] = s_buy.unit_scll[j]
				s_buy.rate[j] = s_buy.rate_scll[j]
				IF s_buy.rate_scll[j] = 0 THEN  s_buy.rate_scll[j] = 1
				s_buy.uqty[j] = s_buy.uqty[j] / s_buy.rate_scll[j]
			CASE 3
				s_buy.unit[j] = s_buy.unit_sale[j]
				s_buy.rate[j] = s_buy.rate_sale[j]
				IF s_buy.rate_sale[j] = 0 THEN  s_buy.rate_sale[j] = 1
				s_buy.uqty[j] = s_buy.uqty[j] / s_buy.rate_sale[j]
		END CHOOSE
		
		
		Decimal ls_1stnewcost,ls_1stzqrate,ls_1strate,ld_rate
		String ls_unit
		ls_unit = s_buy.unit[j]
		IF uo_sptprice.uf_getmtrlsptprice(sptid[i],s_buy.MtrlID[j],ls_unit,s_buy.status[j],s_buy.woodcode[j],s_buy.pcode[j],0,ls_1stnewcost,ls_1stzqrate,ls_1strate,arg_msg) = 1 THEN
			s_buy.uprice[j] = ls_1stnewcost
			//			s_buy.rate[j] = ls_1stzqrate
		ELSE
			s_buy.uprice[j] = 0
		END IF
		
		
		SELECT top 1 storageid
			INTO :s_buy.storageid[j]
			FROM u_mtrl_storage
			Where MtrlID = :s_buy.MtrlID[j]   Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			SELECT storageid
				INTO  :s_buy.storageid[j]
				FROM u_buytaskmx
				WHERE mtrlid = :s_buy.MtrlID[j]
				Order By  taskid Desc   Using commit_transaction;
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = s_buy.mtrlcode[j] + '请先设置存放仓库'
			END IF
		END IF
		
		
		IF obj_task.acceptmx(0,&
			0,&
			'',&
			s_buy.MtrlID[j],&
			s_buy.uqty[j],&
			0,&
			s_buy.uprice[j],&
			1,&
			0,&
			'',&
			s_buy.mtrlcode[j],&
			arg_msg,&
			j,&
			s_buy.requiredate[j],&
			s_buy.storageid[j],&
			s_buy.status[j],&
			s_buy.woodcode[j],&
			s_buy.pcode[j],&
			s_buy.unit[j],&
			s_buy.rate[j],&
			s_buy.orderid[j],&
			s_buy.relprintid[j],&
			s_buy.relcode[j],&
			'',&
			s_buy.relid2[j],0,s_buy.plancode[j],'','','') = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	NEXT
	
	IF obj_task.savesubmit(publ_operator,arg_msg,False) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	IF ls_msg = '' THEN
		ls_msg = obj_task.taskcode
	ELSE
		ls_msg += ',' + obj_task.taskcode
	END IF
NEXT
IF ls_msg = '' THEN
	ls_msg = '没有采购订单生成'
ELSE
	ls_msg = '生成采购订单:' + ls_msg
END IF

arg_msg = ls_msg

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






end function

public function integer uof_auto_build_buy_notuse (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1 
Long ll_mtrlid
string ls_msg = ''
s_order_ml_rqmtrl s_rqmtrl
Long sptid[]
Long it_mx = 1
uo_buytask obj_task
obj_task = Create uo_buytask
obj_task.commit_transaction = commit_transaction

uo_spt_price uo_sptprice
uo_sptprice = create uo_spt_price 

DateTime requiredate
String ls_taskcode
SELECT requiredate,taskcode
	INTO :requiredate,:ls_taskcode 
	FROM u_saletask
	Where scid = :arg_scid And taskid = :arg_taskid;
	Long it_buy = 1


//用游标读取明细
DECLARE CUR_INWAERMX CURSOR FOR
	SELECT distinct u_OrderRqMtrl.sptid
	FROM u_OrderRqMtrl LEFT OUTER JOIN uv_OrderRqMtrl_buyqty ON u_OrderRqMtrl.mxpkid = uv_OrderRqMtrl_buyqty.mxpkid
	WHERE u_orderrqmtrl.plantype = 2 AND
	u_orderrqmtrl.taskid = :arg_taskid AND
	u_orderrqmtrl.printid = :arg_printid AND
	u_orderrqmtrl.scid  = :arg_scid AND
	u_OrderRqMtrl.truerqqty - ISNULL(uv_OrderRqMtrl_buyqty.buyqty, 0) > 0  and u_OrderRqMtrl.sptid > 0   Using commit_transaction;
	
OPEN CUR_INWAERMX;
FETCH CUR_INWAERMX Into :sptid[it_mx];
DO WHILE commit_transaction.SQLCode = 0
	it_mx++
	FETCH CUR_INWAERMX Into :sptid[it_mx];
LOOP
CLOSE CUR_INWAERMX;

Long i,j
FOR i = 1 To it_mx - 1
	s_buytaskmx_arr s_buy
	
	IF obj_task.newbegin(arg_scid,arg_msg) = 0 THEN //
		rslt = 0
		GOTO ext
	END IF
	
	obj_task.requiredate = requiredate
	obj_task.Assign_emp  = publ_operator
	obj_task.Kind   = 0
	obj_task.sptid  =  sptid[i]
	obj_task.relcode  = ''
	Long dftbanktypeid,dftmoneyid
	SELECT dftbanktypeid,dftmoneyid
		INTO :dftbanktypeid,:dftmoneyid
		FROM u_spt
		Where sptid = :sptid[i] Using commit_transaction;
		
	obj_task.banktypeid  = dftbanktypeid
	obj_task.train  = ''
	obj_task.billtype  = 2
	obj_task.moneyid  = dftmoneyid
	obj_task.mrate  = f_get_mrate( dftmoneyid) 
	it_buy = 1
	DECLARE CUR_INWAERMX2 CURSOR FOR
		
		SELECT u_mtrldef.mtrlcode ,
		u_mtrldef.unit ,
		u_OrderRqMtrl.truerqqty - ISNULL(uv_OrderRqMtrl_buyqty.buyqty, 0)  ,
		u_OrderRqMtrl.MtrlID ,
		u_OrderRqMtrl.status ,
		u_OrderRqMtrl.woodcode ,
		u_OrderRqMtrl.pcode,
		u_orderrqmtrl.mxpkid,
		u_mtrldef.mrp_unit,
		u_mtrldef.rate_buy,
		u_mtrldef.rate_scll,
		u_mtrldef.rate_sale,
		u_mtrldef.unit_buy,
		u_mtrldef.unit_scll,
		u_mtrldef.unit_sale
		FROM u_orderrqmtrl LEFT OUTER JOIN uv_OrderRqMtrl_buyqty ON u_orderrqmtrl.mxpkid = uv_OrderRqMtrl_buyqty.mxpkid,u_mtrldef
		WHERE u_orderrqmtrl.plantype = 2 AND
		u_orderrqmtrl.taskid = :arg_taskid AND
		u_orderrqmtrl.printid = :arg_printid AND
		u_orderrqmtrl.scid  = :arg_scid AND
		u_OrderRqMtrl.truerqqty - ISNULL(uv_OrderRqMtrl_buyqty.buyqty, 0) > 0 AND
		u_OrderRqMtrl.sptid =  :sptid[i] AND
		u_mtrldef.MtrlID = u_OrderRqMtrl.MtrlID   Using commit_transaction;
		
	OPEN CUR_INWAERMX2;
	FETCH CUR_INWAERMX2 INTO :s_buy.mtrlcode[it_buy],
		:s_buy.unit[it_buy],
		:s_buy.uqty[it_buy],
		:s_buy.MtrlID[it_buy],
		:s_buy.status[it_buy],
		:s_buy.woodcode[it_buy],
		:s_buy.pcode[it_buy],
		:s_buy.relid2[it_buy],
		:s_buy.mrp_unit[it_buy],
		:s_buy.rate_buy[it_buy],
		:s_buy.rate_scll[it_buy],
		:s_buy.rate_sale[it_buy],
		:s_buy.unit_buy[it_buy],
		:s_buy.unit_scll[it_buy],
		:s_buy.unit_sale[it_buy];
	DO WHILE commit_transaction.SQLCode = 0
		it_buy++
		FETCH CUR_INWAERMX2 INTO :s_buy.mtrlcode[it_buy],
			:s_buy.unit[it_buy],
			:s_buy.uqty[it_buy],
			:s_buy.MtrlID[it_buy],
			:s_buy.status[it_buy],
			:s_buy.woodcode[it_buy],
			:s_buy.pcode[it_buy],
			:s_buy.relid2[it_buy],
			:s_buy.mrp_unit[it_buy],
			:s_buy.rate_buy[it_buy],
			:s_buy.rate_scll[it_buy],
			:s_buy.rate_sale[it_buy],
			:s_buy.unit_buy[it_buy],
			:s_buy.unit_scll[it_buy],
			:s_buy.unit_sale[it_buy];
	LOOP
	CLOSE CUR_INWAERMX2;
	
	FOR j = 1 To it_buy - 1
		
		CHOOSE CASE  s_buy.mrp_unit[j]
			case 0
				s_buy.rate[j] = 1
			CASE 1
				if s_buy.rate_buy[j] = 0 then  s_buy.rate_buy[j] = 1 
				s_buy.uqty[j] = s_buy.uqty[j] / s_buy.rate_buy[j]
				s_buy.rate[j] = s_buy.rate_buy[j]
				s_buy.unit[j] = s_buy.unit_buy[j]
			CASE 2
				s_buy.unit[j] = s_buy.unit_scll[j]
				s_buy.rate[j] = s_buy.rate_scll[j]
				if s_buy.rate_scll[j] = 0 then  s_buy.rate_scll[j] = 1  
				s_buy.uqty[j] = s_buy.uqty[j] / s_buy.rate_scll[j]
			CASE 3
				s_buy.unit[j] = s_buy.unit_sale[j]
				s_buy.rate[j] = s_buy.rate_sale[j]
				if s_buy.rate_sale[j] = 0 then  s_buy.rate_sale[j] = 1 
				s_buy.uqty[j] = s_buy.uqty[j] / s_buy.rate_sale[j]
		END CHOOSE
		 
		
		decimal ls_1stnewcost,ls_1stzqrate,ls_1strate,ld_rate
		string ls_unit
		ls_unit = s_buy.unit[j] 
		IF uo_sptprice.uf_getmtrlsptprice(sptid[i],s_buy.MtrlID[j],ls_unit,s_buy.status[j],s_buy.woodcode[j],s_buy.pcode[j],0,ls_1stnewcost,ls_1stzqrate,ls_1strate,arg_msg) = 1 THEN
			s_buy.uprice[j] = ls_1stnewcost
//			s_buy.rate[j] = ls_1stzqrate  
		else
			s_buy.uprice[j] = 0 
		end if
		
		
		select top 1 storageid
		into :s_buy.storageid[j]
		from u_mtrl_storage
		where mtrlid = :s_buy.MtrlID[j]   Using commit_transaction;
		if commit_transaction.sqlcode <> 0 then
			select storageid
			into  :s_buy.storageid[j]
			from u_buytaskmx
			where mtrlid = :s_buy.MtrlID[j] 
			order by  taskid desc   Using commit_transaction;
				if commit_transaction.sqlcode <> 0 then
					arg_msg = s_buy.mtrlcode[j] + '请先设置存放仓库'
				end if
		end if
		
		
		IF obj_task.acceptmx(0,&
			0,&
			'',&
			s_buy.MtrlID[j],&
			s_buy.uqty[j],&
			0,&
			s_buy.uprice[j],&
			1,&
			0,&
			'',&
			s_buy.mtrlcode[j],&
			arg_msg,&
			j,&
			requiredate,&
			s_buy.storageid[j],&
			s_buy.status[j],&
			s_buy.woodcode[j],&
			s_buy.pcode[j],&
			s_buy.unit[j],&
			s_buy.rate[j],&
			arg_taskid,&
			arg_printid,&
			ls_taskcode,&
			'',&
			s_buy.relid2[j],0,'','','','') = 0 THEN
			rslt = 0
			GOTO ext
		END IF 
	NEXT 
	
	IF obj_task.savesubmit(publ_operator,arg_msg,False) = 0 THEN
		rslt = 0
		GOTO ext
	END IF 
	IF ls_msg = '' THEN
		ls_msg = obj_task.taskcode
	ELSE
		ls_msg += ',' + obj_task.taskcode
	END IF
	
NEXT 
IF ls_msg = '' THEN
	ls_msg = '没有采购订单生成'
ELSE
	ls_msg = '生成采购订单:' + ls_msg
END IF

arg_msg = ls_msg

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




end function

public function integer salemxscllprimt (long arg_scid, long arg_taskid, long arg_printid, integer arg_chk_zero, string arg_emp, ref string arg_msg, boolean arg_ifcommit);//salepermit
//arg_chk_zero //是否检查0需求

Int rslt = 1,cnt = 0
Int ll_flag,ll_scllflag
IF arg_taskid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误销售订单唯一码'
	GOTO ext
END IF

SELECT flag,scllflag
	INTO :ll_flag,:ll_scllflag
	FROM u_saletaskmx
	WHERE scid = :Arg_scid AND
	taskid = :arg_taskid AND
	printid = :arg_printid  USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	ARG_MSG = "查询操作失败,销售订单明细内容!"
	GOTO ext
END IF


IF ll_flag = 0 THEN
	rslt = 0
	ARG_MSG = "销售订单明细还没有审核,不能领料审核,操作取消"
	GOTO ext
END IF

IF ll_scllflag <> 0 THEN
	rslt = 0
	ARG_MSG = "销售订单明细已领料审核,操作取消"
	GOTO ext
END IF


IF arg_chk_zero = 1 THEN
	SELECT count(*)
		INTO :cnt
		FROM u_orderrqmtrl
		WHERE ( u_OrderRqMtrl.taskID = :arg_taskid )
		AND ( u_OrderRqMtrl.scid = :arg_scid )
		AND u_OrderRqMtrl.printid = :arg_printid
		AND truerqqty = 0
		USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		ARG_MSG = "查询订单明细物料需求失败!"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	IF cnt > 0 THEN
		rslt = 0
		ARG_MSG = "订单明细物料需求存在需求数为0!"
		GOTO ext
	END IF
END IF

////检查工价表是否已审核
//IF sys_option_chk_workprice = 1 THEN
//	
//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_SaleTaskmx
	SET scllrep = :arg_emp ,sclldate = getdate(),
	scllflag = 1
	WHERE TaskID = :arg_taskid  AND
	scid = :arg_scid  AND
	printid = :arg_printid AND
	flag = 1 AND scllflag = 0
	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 THEN
	COMMIT USING commit_transaction;
END IF

Return (rslt)



end function

public function integer uof_add_procode_qty (long arg_scid, long arg_taskid, long arg_printid, string arg_procode, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);//==============================================================================
// 函数: uo_order_ml::uof_add_procode_qty()
//------------------------------------------------------------------------------
// 描述: 更新工序完成数
//------------------------------------------------------------------------------
// 参数: 
//		value    	long   	arg_scid    		
//		value    	long   	arg_taskid 		
//		value    	long   	arg_printid 		
//		value    	string 	arg_procode 		
//		value    	decimal	arg_qty     		
//		reference	string 	arg_msg     		
//		value    	boolean	arg_ifcommit		
//------------------------------------------------------------------------------
// 返回值:  integer
//------------------------------------------------------------------------------
// 作者:	HD Lee		日期: 2011.12.01
//------------------------------------------------------------------------------
// 修改历史: 
//	
//==============================================================================

Int rslt = 1
String ls_taskcode
String ls_mtrlcode
DateTime null_dt
SetNull(null_dt)

IF arg_taskid <= 0 THEN
	rslt = 0
	arg_msg = '错误的销售订单唯一码'
	GOTO ext
END IF

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

//if sys_option_add_orderrqwp_fqty = 0 then
//	arg_msg = '系统选项[071]限制,工序确认完成数只能手动完成'
//	rslt = 0
//	GOTO ext
//end if

SELECT taskcode
	INTO :ls_taskcode
	FROM u_SaleTask
	WHERE scid = :arg_scid
	AND taskid = :arg_taskid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询订单编号失败'
	rslt = 0
	GOTO ext
END IF

SELECT mtrlcode
	INTO :ls_mtrlcode
	FROM u_mtrldef,u_SaleTaskMx
	WHERE u_SaleTaskMx.mtrlid = u_mtrldef.mtrlid
	AND u_SaleTaskMx.scid = :arg_scid
	AND u_SaleTaskMx.taskid = :arg_taskid
	AND u_SaleTaskMx.printid = :arg_printid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询物料编号失败'
	rslt = 0
	GOTO ext
END IF

Decimal lde_proqty, lde_finishqty ,ld_nofinqty
SELECT U_OrderRqwp.proqty , U_OrderRqwp.finishqty
	INTO :lde_proqty, :lde_finishqty
	FROM U_OrderRqwp
	WHERE scid = :arg_scid  AND
	taskid = :arg_taskid AND
	printid = :arg_printid AND
	Procode = :arg_procode;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询销售订单:'+ls_taskcode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',未完成数量失败~r~n'+sqlca.SQLErrText
	GOTO ext
END IF

IF arg_qty > 0 THEN //增加
	IF arg_qty > lde_proqty - lde_finishqty THEN
		rslt = 0
		arg_msg = '销售订单:'+ls_taskcode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',未完成数量为:'+String(lde_proqty - lde_finishqty,'#,##0.##########')+',不能增加完成:'+String(arg_qty,'#,##0.##########')
		GOTO ext
	END IF
ELSE
	IF Abs(arg_qty) > lde_finishqty THEN
		rslt = 0
		arg_msg = '销售订单:'+ls_taskcode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',完成数量为:'+String(lde_finishqty,'#,##0.##########')+',不能取消完成:'+String(Abs(arg_qty),'#,##0.##########')
		GOTO ext
	END IF
END IF

UPDATE U_OrderRqwp
	SET finishqty = finishqty + :arg_qty
	WHERE scid = :arg_scid
	AND taskid = :arg_taskid
	AND printid = :arg_printid
	AND Procode = :arg_procode;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新销售订单:'+ls_taskcode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',完成数量失败~r~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 uof_finish_procode_qty_dsr (long arg_scid, long arg_taskid, long arg_printid, string arg_procode, long arg_type, decimal arg_fpqty, ref string arg_msg, boolean arg_ifcommit);

Int rslt = 1
Int li_finishflag
DateTime null_dt
SetNull(null_dt)

IF sys_option_add_orderrqwp_fqty = 1 THEN
	arg_msg = '系统选项[071]限制,工序确认完成数只能由计件单确认增减'
	rslt = 0
	GOTO ext
END IF

SELECT finishflag INTO :li_finishflag
	FROM U_OrderRqwp
	WHERE scid = :arg_scid
	AND taskid = :arg_taskid
	AND printid = :arg_printid
	And Procode = :arg_procode;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询工序完成标记失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


IF arg_type = 0 THEN
	IF li_finishflag = 1 THEN
		arg_msg = '工序已确认完成,不能再确认'
		rslt = 0
		GOTO ext
	END IF
	
	string ls_dscrp
	ls_dscrp='//' + string(today(),'yyyymmdd') + ' ' + string(now(),'hh:mm') + '本次完成' + string(arg_fpqty,'#,##0.####')
	//proqty
	UPDATE U_OrderRqwp
		SET
		finishdate = getdate(),
		finishqty =  finishqty +  :arg_fpqty,
		dscrp= dscrp + :ls_dscrp 
		WHERE scid = :arg_scid
		AND taskid = :arg_taskid
		AND printid = :arg_printid
		AND Procode = :arg_procode
		And finishflag = 0;
		
	
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '确认工序完成失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	Decimal dec_proqty ,dec_finishqty
	dec_proqty = 0
	dec_finishqty = 0
	SELECT   proqty ,finishqty INTO :dec_proqty ,:dec_finishqty
		FROM U_OrderRqwp
		WHERE scid = :arg_scid
		AND taskid = :arg_taskid
		AND printid = :arg_printid
		AND Procode = :arg_procode
		And finishflag = 0;
		
	IF IsNull(dec_proqty) THEN dec_proqty = 0
	IF IsNull(dec_finishqty) THEN dec_finishqty = 0
	
	
	IF dec_proqty = dec_finishqty THEN
		UPDATE U_OrderRqwp
			SET finishflag = 1
			
			WHERE scid = :arg_scid
			AND taskid = :arg_taskid
			AND printid = :arg_printid
			AND Procode = :arg_procode
			And finishflag = 0;
			
		
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '确认工序完成失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	
	
	
	
ELSE
	
//	IF li_finishflag = 0 THEN
//		arg_msg = '工序还未确认,不能取消确认'
//		rslt = 0
//		GOTO ext 
//	END IF
//		And finishflag = 1
	UPDATE U_OrderRqwp
		SET finishflag = 0,
		finishdate = :null_dt,
		finishqty = 0,
		dscrp=''
		WHERE scid = :arg_scid
		AND taskid = :arg_taskid
		AND printid = :arg_printid
		AND Procode = :arg_procode
	;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '取消确认工序完成失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
END IF

ext:

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

RETURN rslt











end function

public subroutine uof_workprice_parm (decimal arg_orderqty, string arg_status, string arg_woodcode, string arg_pcode, string arg_ls_mtrlsectype, string arg_ls_zxmtrlmode, string arg_ls_mtrlmode, string arg_ls_cuscode, string arg_ls_cusname, string arg_parmstr, ref decimal arg_value_dec, decimal arg_price);//orderqty 排产数量
//status 配置
//woodcode 配置1
//pcode 配置2
//ls_mtrlsectype 自定义1
//ls_zxmtrlmode 自定义2
//物料规格arg_ls_mtrlmode
//arg_parmstr 公式
//arg_value_dec 返回的工价
datastore ds_pricestr
ds_pricestr = Create datastore
ds_pricestr.DataObject = 'ds_pricestr_cmpl'
ds_pricestr.SetTransObject(commit_transaction)
ds_pricestr.Retrieve()
ds_pricestr.InsertRow(0)

String s_rtn

Select  Top 1 Replace( :arg_parmstr,'不包含',' not like ') Into :arg_parmstr From u_user;
Select  Top 1 Replace( :arg_parmstr,'不等于','<>') Into :arg_parmstr From u_user;
Select  Top 1 Replace( :arg_parmstr,'包含',' like ') Into :arg_parmstr From u_user;

arg_orderqty = Dec(String(arg_orderqty,'#,##0.##########'))
Select  Top 1 Replace( :arg_parmstr,'指令单数量',:arg_orderqty) Into :arg_parmstr From u_user;


Select  Top 1 Replace( :arg_parmstr,'大于等于',' >= ') Into :arg_parmstr From u_user;
Select  Top 1 Replace( :arg_parmstr,'小于等于',' <= ') Into :arg_parmstr From u_user;
Select  Top 1 Replace( :arg_parmstr,'等于',' = ') Into :arg_parmstr From u_user;
Select  Top 1 Replace( :arg_parmstr,'大于',' > ') Into :arg_parmstr From u_user;
Select  Top 1 Replace( :arg_parmstr,'小于',' < ') Into :arg_parmstr From u_user;

If Pos(arg_parmstr,'配置1') > 0 Then
	Select  Top 1 Replace( :arg_parmstr,'配置1',"'"+:arg_woodcode+"'") Into :arg_parmstr From u_user;
End If

If Pos(arg_parmstr,'配置2') > 0 Then
	Select  Top 1 Replace( :arg_parmstr,'配置2',"'"+:arg_pcode+"'") Into :arg_parmstr From u_user;
End If

If Pos(arg_parmstr,'配置') > 0 Then
	Select  Top 1 Replace( :arg_parmstr,'配置',"'"+:arg_status+"'") Into :arg_parmstr From u_user;
End If

Select  Top 1 Replace( :arg_parmstr,'自定义1',"'"+:arg_ls_mtrlsectype+"'") Into :arg_parmstr From u_user;
Select  Top 1 Replace( :arg_parmstr,'自定义2',"'"+:arg_ls_zxmtrlmode+"'") Into :arg_parmstr From u_user;

Select  Top 1 Replace( :arg_parmstr,'物料规格',"'"+:arg_ls_mtrlmode+"'") Into :arg_parmstr From u_user;

Select  Top 1 Replace( :arg_parmstr,'客户编号',"'"+:arg_ls_cuscode+"'") Into :arg_parmstr From u_user;
Select  Top 1 Replace( :arg_parmstr,'客户名称',"'"+:arg_ls_cusname+"'") Into :arg_parmstr From u_user;
//SELECT  Top 1 Replace( :arg_parmstr,'工价表工价',"'"+:arg_price+"'") Into :arg_parmstr From u_user; ll_code = sqlca.SQLCode
Long ll_pos
String as_old
as_old = '工价表工价'
ll_pos = Pos(arg_parmstr,as_old)
If ll_pos > 0 Then
	
	Do While ll_pos > 0
		arg_parmstr = Replace(arg_parmstr, ll_pos, Len(as_old), String(arg_price))
		ll_pos = Pos(arg_parmstr, as_old, ll_pos+Len(String(arg_price)))
	Loop
	
End If

ds_pricestr.Modify('cmpl.expression= "'+arg_parmstr+'"')
ds_pricestr.AcceptText()

//ds_pricestr.Retrieve()

s_rtn = String(ds_pricestr.Object.cmpl[ds_pricestr.GetRow()])

arg_value_dec = Round(Dec(s_rtn),2)

Destroy ds_pricestr



end subroutine

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

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