Q5/ws_objects/Ew_ware.pbl.src/uo_outware_scll.sru

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

global type uo_outware_scll from uo_outware
end type
global uo_outware_scll uo_outware_scll

forward prototypes
public function integer p_update_dstrqty (long arg_rqmtrlid, string arg_mtrlcode, decimal arg_qty, ref string arg_msg, boolean if_commit)
public function integer auditing_end (ref string arg_msg)
public function integer c_auditing_end (ref string arg_msg)
end prototypes

public function integer p_update_dstrqty (long arg_rqmtrlid, string arg_mtrlcode, decimal arg_qty, ref string arg_msg, boolean if_commit);//已经无用
//p_update_DstrQty
Int rslt = 1

//UPDATE u_saleRqMtrl_scll
//	SET DstrQty = dstrqty + :arg_qty
//	Where rqmtrlid = :arg_rqmtrlid USING commit_transaction;
//IF commit_transaction.SQLCode <> 0 THEN
//	rslt = 0
//	arg_msg = arg_mtrlcode + '更新物料已领用数量失败'
//	GOTO ext
//END IF
//
//Long ll_scid
//Long ll_taskid
//Long ll_printid
//long ll_flag
//SELECT u_saleRqMtrl_scll.scid,
//	u_saleRqMtrl_scll.taskID,
//	u_saleRqMtrl_scll.printid
//	INTO :ll_scid,
//	:ll_taskid,
//	:ll_printid
//	FROM u_saleRqMtrl_scll
//	Where rqmtrlid = :arg_rqmtrlid;
//IF commit_transaction.SQLCode <> 0 THEN
//	rslt = 0
//	arg_msg = arg_mtrlcode + '查询物料对应产品的订单明细失败'
//	GOTO ext
//END IF
//
////IF  trycmplsaletaskmx(ll_scid,ll_taskid,ll_printid,arg_msg,FALSE ) = 0 THEN
////	rslt = 0
////	GOTO ext
////END IF
////
//ext:
//IF rslt = 1 AND if_commit = TRUE THEN
//	COMMIT USING commit_transaction;
//ELSEIF rslt = 0 THEN
//	ROLLBACK USING  commit_transaction;
//END IF
RETURN rslt






end function

public function integer auditing_end (ref string arg_msg);Long rslt = 1,cnt = 0,i
Dec lde_addqty


uo_order_ml_mrp uo_mrp
uo_mrp = Create uo_order_ml_mrp

FOR i = 1 To it_mxbt
	//更新已领数
	IF outwaremx[i].relid > 0 And outwaremx[i].relprintid > 0 THEN
		IF outwaremx[i].relid2 > 0 THEN //取订单运算模式
			//因为现在 qty数据库保存为 (18,4), 可能引起小数点误差提示错误,临时处理办法,lhd 20130806
			IF outwaremx[i].rate = 1 THEN
				lde_addqty = outwaremx[i].uqty
			ELSE
				lde_addqty = outwaremx[i].qty
			END IF
			
			
			IF uo_mrp.uof_add_rqmtrl_scll_consignedqty(scid, outwaremx[i].relid, outwaremx[i].relprintid, outwaremx[i].relid2, lde_addqty, False, arg_msg) = 0 THEN
				arg_msg =  '第'+ String(i) +'行,' +arg_msg
				rslt = 0
				GOTO ext
			END IF
		ELSE //取订单模式
			
		END IF
	END IF
	
NEXT

ext:
Destroy uo_mrp
RETURN rslt







end function

public function integer c_auditing_end (ref string arg_msg);
Long rslt = 1,cnt = 0,i
Dec lde_addqty

uo_order_ml_mrp uo_mrp
uo_mrp = Create uo_order_ml_mrp


FOR i = 1 To it_mxbt
	//更新已领数
	IF outwaremx[i].relid > 0 And outwaremx[i].relprintid > 0 THEN
		IF outwaremx[i].relid2 > 0 THEN //取订单运算模式
			//因为现在 qty数据库保存为 (18,4), 可能引起小数点误差提示错误,临时处理办法,lhd 20130806
			IF outwaremx[i].rate = 1 THEN
				lde_addqty = outwaremx[i].uqty
			ELSE
				lde_addqty = outwaremx[i].qty
			END IF
			IF uo_mrp.uof_add_rqmtrl_scll_consignedqty(scid, outwaremx[i].relid, outwaremx[i].relprintid, outwaremx[i].relid2, 0 - lde_addqty, False, ARG_MSG) = 0 THEN
				ARG_MSG =  '第'+ String(i) +'行,' +ARG_MSG
				rslt = 0
				GOTO ext
			END IF
		ELSE //取订单模式
			
		END IF
	END IF
	
NEXT

ext:
Destroy uo_mrp
RETURN rslt







end function

on uo_outware_scll.create
call super::create
end on

on uo_outware_scll.destroy
call super::destroy
end on