Q5/ws_objects/Ew_machining.pbl.src/uo_inware_wfjg.sru

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

global type uo_inware_wfjg from nonvisualobject
end type
global uo_inware_wfjg uo_inware_wfjg

type variables
PUBLIC PROTECTEDWRITE Long scid = 0 //分部id
PUBLIC PROTECTEDWRITE Long inwareid      //进仓单表自动增量id
PUBLIC PROTECTEDWRITE String inwarecode  //单据的唯一编号
PUBLIC PROTECTEDWRITE Int billtype = 0     //业务类型


PUBLIC PROTECTEDWRITE DateTime opdate //建立时间,自动
PUBLIC PROTECTEDWRITE String opemp      //建立操作员
PUBLIC PROTECTEDWRITE DateTime moddate  //修改时间,自动
PUBLIC PROTECTEDWRITE String modemp     //修改操作员
PUBLIC PROTECTEDWRITE Int flag = 0        //仓库审核标志
PUBLIC PROTECTEDWRITE Int balcflag = 0        //仓库结存标志
PUBLIC PROTECTEDWRITE DateTime auditingdate  //审核时间
PUBLIC PROTECTEDWRITE String auditingrep       //审核操作员
PUBLIC PROTECTEDWRITE Decimal sum_amt = 0 //单据总金额
PUBLIC PROTECTEDWRITE Decimal jgsum_amt = 0 //单据加工总金额
PUBLIC PROTECTEDWRITE Int secflag = 0             //财务审核标志
PUBLIC PROTECTEDWRITE DateTime secauditingdate    //二审核时间
PUBLIC PROTECTEDWRITE String secauditingrep       //二审核操作员

Long relid = 0 //关联id
Long storageid = 0   //进仓仓库
DateTime indate    //进仓发生时间
String inrep = ''    //经手人
String part = ''     //相关号码
String dscrp = ''    //备注
Long sptid = 0       //供应商id
String sptname = ''  //供应商名称(不记帐模式使用)
Int dxflag = 0       //代销标记
Int thflag = 0       //退货标记
Decimal otheramt = 0   //单据费用
Long relint_1 = 0
Long relint_2 = 0
Long relint_3 = 0
String relstr_1 = ''
String relstr_2 = ''
String relstr_3 = ''

long moneyid = 0


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


s_wfjgmx_in_aft  inwaremx[] //明细结构数组
s_wfjgmx_in_bef  inwaremx_bef[]       //明细结构数组
Long it_mxbt = 0               //明细结构数组末指针
Long it_mxbt_bef = 0               //明细结构数组末指针
Boolean it_newbegin = FALSE     //新建标志
Boolean it_updatebegin = FALSE //修改标志




end variables

forward prototypes
public function integer save (boolean arg_ifcommit, ref string arg_msg)
public function integer getinfo (long arg_scid, long arg_inwareid, ref string arg_msg)
public function integer auditing (boolean arg_ifcommit, ref string arg_msg)
public function integer del (long arg_scid, long arg_inwareid, ref string arg_msg, boolean arg_ifcommit)
public function integer add_dscrp (long arg_scid, long arg_inwareid, string arg_newdescppart, ref string arg_msg)
public function integer c_auditing (boolean arg_ifcommit, ref string arg_msg)
public function integer p_clearmx ()
public function integer p_getinfo (long arg_scid, long arg_inwareid, ref string arg_msg)
public function integer p_reset ()
public function integer p_create_inware (boolean arg_ifcommit, ref string arg_msg)
public function integer p_destroy_inware (boolean arg_ifcommit, ref string arg_msg)
public function integer secauditing (boolean arg_ifcommit, ref string arg_msg)
public function integer c_secauditing (boolean arg_ifcommit, ref string arg_msg)
public function integer p_update_mtrlware (long arg_mtrlwareid, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_price, long arg_sptid, string arg_woodcode, string arg_pcode, ref string arg_msg)
public function integer newbegin (long arg_scid, integer arg_billtype, ref string arg_msg)
public function integer updatebegin (long arg_scid, long arg_inwareid, integer arg_billtype, ref string arg_msg)
public function integer p_update_cost (long arg_mtrlwareid, string arg_mtrlcode, long arg_printid, ref decimal arg_ref_cost, ref string arg_msg, boolean arg_ifcommit)
public function integer acceptmx_bef (long arg_mtrlwareid, decimal arg_qty, decimal arg_price, string arg_mxdscrp, long arg_printid, ref string arg_msg, string arg_unit, decimal arg_uqty, decimal arg_rate)
public function integer acceptmx_bef_th (long arg_mtrlwareid, decimal arg_qty, decimal arg_price, string arg_mxdscrp, long arg_printid, ref string arg_msg, string arg_unit, decimal arg_uqty, decimal arg_rate, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, string arg_woodcode, string arg_pcode)
public function integer mod_price (long arg_scid, long arg_inwareid, long arg_printid, decimal arg_fprice, decimal arg_jgprice, decimal arg_rebate, decimal arg_tax, ref string arg_msg, boolean arg_ifcommit)
public function integer acceptmx (long arg_printid, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, decimal arg_uqty, decimal arg_fprice, decimal arg_rebate, string arg_mxdscrp, ref string arg_msg, decimal arg_jgprice, long arg_relid, long arg_relprintid, integer arg_ifrel, string arg_woodcode, string arg_pcode, long arg_cusid_sptid, string arg_unit, decimal arg_qty, long arg_storageid, decimal arg_rate, decimal arg_addqty, string arg_mxdscrp2, string arg_mxdscrp3, string arg_mxdscrp4)
end prototypes

public function integer save (boolean arg_ifcommit, ref string arg_msg);Integer rslt = 1,cnt = 0,i
DateTime server_dt
Long ls_newid
String ls_sccode

IF IsNull(relid) THEN relid = 0
IF IsNull(storageid) THEN storageid = 0
IF IsNull(inrep) THEN inrep = ''
IF IsNull(dscrp) THEN dscrp = ''
IF IsNull(part) THEN part = ''
IF IsNull(sptid) THEN sptid = 0
IF IsNull(sptname) THEN sptname = ''
IF IsNull(dxflag) THEN dxflag = 0
IF IsNull(thflag) THEN thflag = 0

IF IsNull(relint_1) THEN relint_1 = 0
IF IsNull(relint_2) THEN relint_2 = 0
IF IsNull(relint_3) THEN relint_3 = 0

IF IsNull(relstr_1) THEN relstr_1 = ''
IF IsNull(relstr_2) THEN relstr_2 = ''
IF IsNull(relstr_3) THEN relstr_3 = ''

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

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

IF billtype <> 9 THEN
	IF it_mxbt = 0 THEN //如果输入物料资料错则已经清空
		rslt = 0
		arg_msg = "没有正确的外协收货明细内容"
		GOTO ext
	END IF
	
	IF sys_option_wfjg_outmx = 1 And it_mxbt_bef = 0 THEN
		rslt = 0
		arg_msg = "系统选项[079]限制,没有正确的外协商库存内容"
		GOTO ext
	END IF
	
	IF relint_1 = 0 THEN
		arg_msg = '请选择结算方式'
		rslt = 0
		GOTO ext
	END IF
ELSE
	IF it_mxbt_bef = 0 THEN //如果输入物料资料错则已经清空
		rslt = 0
		arg_msg = "没有正确进仓内容"
		GOTO ext
	END IF
END IF


IF Year(Date(indate)) < 2000 Or IsNull(indate) THEN
	rslt = 0
	arg_msg = "缺少进仓发生时间或不合理"
	GOTO ext
END IF

//====================================================================
// Script - save ( boolean arg_ifcommit, ref string arg_msg )  
// Reason: 
//--------------------------------------------------------------------
// Modified By: yyx		Date: 2004.01.02
//--------------------------------------------------------------------
IF DaysAfter(Date(String(server_dt,'yyyy-mm-dd')),Date(String(indate,'yyyy-mm-dd'))) > sys_option_input_days THEN
	rslt = 0
	arg_msg = '进仓日期错误,日期不能超前系统日期'
	GOTO ext
END IF

IF DaysAfter(Date(String(indate,'yyyy-mm-dd')),Date(String(server_dt,'yyyy-mm-dd'))) > sys_option_input_days THEN
	rslt = 0
	arg_msg = '进仓日期错误,日期不能落后系统日期'
	GOTO ext
END IF
//====================================================================

SELECT name INTO :sptname
	FROM u_spt
	Where sptid = :sptid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,供应商资料"
	GOTO ext
END IF

sptname = left(trim(sptname),30)

////////////////////////////////////////////// //开始区分:新建/更新 处理
IF inwareid = 0 THEN //新建
	ls_newid = f_sys_scidentity(scid,"ow_wfjg_in","inwareid",arg_msg,if_getid_ture,commit_transaction)
	IF ls_newid <= 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
	
	//取得新单据编号	
	CHOOSE CASE billtype
		CASE 4 //仓库外协
			IF thflag = 0 THEN
				inwarecode = getid(scid,ls_sccode + 'WI',Date(server_dt),if_getid_ture,commit_transaction)
			ELSE
				inwarecode = getid(scid,ls_sccode + 'WT',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
		CASE 5 //车间外协
			IF thflag = 0 THEN
				inwarecode = getid(scid,ls_sccode + 'SI',Date(server_dt),if_getid_ture,commit_transaction)
			ELSE
				inwarecode = getid(scid,ls_sccode + 'ST',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
		CASE 9 //外协盘亏 WK
			inwarecode = getid(scid,ls_sccode + 'WK',Date(server_dt),if_getid_ture,commit_transaction)
	END CHOOSE
	
	IF inwarecode = "err" THEN
		inwarecode = ''
		rslt = 0
		arg_msg = "无法获取进仓单编号"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	INSERT INTO ow_wfjg_in (
		scid,
		inwareid,
		inwarecode,
		billtype,
		relid,
		storageid,
		indate,
		inrep,
		part,
		dscrp,
		sptid,
		sptname,
		thflag,
		dxflag,
		otheramt,
		opdate,
		opemp,
		relint_1,
		relint_2,
		relint_3,
		relstr_1,
		relstr_2,
		relstr_3)
		VALUES (
		:scid,
		:ls_newid,
		:inwarecode,
		:billtype,
		:relid,
		:storageid,
		:indate,
		:inrep,
		:part,
		:dscrp,
		:sptid,
		:sptname,
		:thflag,
		:dxflag,
		:otheramt,
		:server_dt,
		:publ_operator,
		:relint_1,
		:relint_2,
		:relint_3,
		:relstr_1,
		:relstr_2,
		:relstr_3) Using commit_transaction ;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		IF Pos(Lower(commit_transaction.SQLErrText),'pk_ow_wfjg_in') > 0 THEN
			arg_msg = '插入操作失败,关键字分部ID、单据ID重复'
		ELSEIF Pos(Lower(commit_transaction.SQLErrText),'ix_ow_wfjg_in') > 0 THEN
			arg_msg = '插入操作失败,单据编号重复'
		ELSE
			arg_msg = "插入操作失败"+"~n"+commit_transaction.SQLErrText
		END IF
		GOTO ext
	END IF
	
	//读取新inwareid
	inwareid = ls_newid
	
ELSE //////////////////////////////////////////////// //更新
	UPDATE ow_wfjg_in
		SET billtype = :billtype,
		relid = :relid,
		storageid = :storageid,
		indate = :indate,
		inrep = :inrep,
		part = :part,
		dscrp = :dscrp,
		sptid = :sptid,
		sptname = :sptname,
		thflag = :thflag,
		dxflag = :dxflag,
		otheramt = :otheramt,
		moddate = :server_dt,
		modemp = :publ_operator,
		relint_1 = :relint_1,
		relint_2 = :relint_2,
		relint_3 = :relint_3,
		relstr_1 = :relstr_1,
		relstr_2 = :relstr_2,
		relstr_3 = :relstr_3
		WHERE ow_wfjg_in.inwareid = :inwareid
		AND ow_wfjg_in.scid = :scid
		And flag = 0 Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 Or commit_transaction.SQLNRows <= 0  THEN
		rslt = 0
		IF Pos(Lower(commit_transaction.SQLErrText),'pk_ow_wfjg_in') > 0 THEN
			arg_msg = '插入操作失败,关键字分部ID、单据ID重复'
		ELSEIF Pos(Lower(commit_transaction.SQLErrText),'ix_ow_wfjg_in') > 0 THEN
			arg_msg = '插入操作失败,单据编号重复'
		ELSE
			arg_msg = "插入操作失败"+"~n"+commit_transaction.SQLErrText
		END IF
		GOTO ext
	END IF
	
	//删除原有明细
	DELETE FROM ow_wfjgmx_in_aft
		WHERE ow_wfjgmx_in_aft.inwareid = :inwareid
		And ow_wfjgmx_in_aft.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 ow_wfjgmx_in_bef
		WHERE ow_wfjgmx_in_bef.inwareid = :inwareid
		And ow_wfjgmx_in_bef.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 ow_wfjgmx_in_aft
		(scid,
		inwareid,
		printid,
		mtrlid,
		plancode,
		status,
		qty,
		fprice,
		rebate,
		price,
		planprice,
		mxdscrp,
		jgprice,
		relid,
		relprintid,
		ifrel,
		woodcode,
		relcode,
		pcode,
		sptid_cusid,
		cost,
		sptmtrlname,
		unit,
		rate,
		uprice,
		uqty,
		bootqty,
		noauditqty,
		storageid,
		addqty,
		mxdscrp2,
		mxdscrp3,
		mxdscrp4)
		VALUES (
		:scid,
		:inwareid,
		:inwaremx[i].printid,
		:inwaremx[i].mtrlid,
		:inwaremx[i].plancode,
		:inwaremx[i].status,
		:inwaremx[i].qty,
		:inwaremx[i].fprice,
		:inwaremx[i].rebate,
		:inwaremx[i].price,
		:inwaremx[i].planprice,
		:inwaremx[i].mxdscrp,
		:inwaremx[i].jgprice,
		:inwaremx[i].relid,
		:inwaremx[i].relprintid,
		:inwaremx[i].ifrel,
		:inwaremx[i].woodcode,
		:inwaremx[i].relcode,
		:inwaremx[i].pcode,
		:inwaremx[i].sptid,
		:inwaremx[i].cost,
		:inwaremx[i].sptmtrlname,
		:inwaremx[i].unit,
		:inwaremx[i].rate,
		:inwaremx[i].uprice,
		:inwaremx[i].uqty,
		:inwaremx[i].bootqty,
		:inwaremx[i].noauditqty,
		:inwaremx[i].storageid,
		:inwaremx[i].addqty,
		:inwaremx[i].mxdscrp2,
		:inwaremx[i].mxdscrp3,
		:inwaremx[i].mxdscrp4) Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		IF it_newbegin THEN inwareid = 0 //还原inwareid
		rslt = 0
		IF Pos(Lower(commit_transaction.SQLErrText),'pk_ow_wfjgmx_in_aft') > 0 THEN
			arg_msg = '插入收货明细操作失败,关键字分部ID、单据ID、明细ID重复'
		ELSE
			arg_msg = "插入收货明细操作失败"+"~n"+commit_transaction.SQLErrText
		END IF
		GOTO ext
	END IF
NEXT

//messagebox("",it_mxbt_bef)
FOR i = 1 To it_mxbt_bef	
	INSERT INTO ow_wfjgmx_in_bef
		(scid,
		inwareid,
		mtrlwareid,
		mtrlid,
		status,
		woodcode,
		pcode,
		plancode,
		qty,
		fprice,
		printid,
		mxdscrp,
		rate,
		uqty,
		unit)
		VALUES (
		:scid,
		:inwareid,
		:inwaremx_bef[i].mtrlwareid,
		:inwaremx_bef[i].mtrlid,
		:inwaremx_bef[i].status,
		:inwaremx_bef[i].woodcode,
		:inwaremx_bef[i].pcode,
		:inwaremx_bef[i].plancode,
		abs(:inwaremx_bef[i].qty),
		:inwaremx_bef[i].fprice,
		:inwaremx_bef[i].printid,
		:inwaremx_bef[i].mxdscrp,
		:inwaremx_bef[i].rate,
		abs(:inwaremx_bef[i].uqty),
		:inwaremx_bef[i].unit
		) Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		IF it_newbegin THEN inwareid = 0 //还原inwareid
		rslt = 0
		IF Pos(Lower(commit_transaction.SQLErrText),'pk_ow_wfjgmx_in_bef') > 0 THEN
			arg_msg = '插入发料明细操作失败,关键字分部ID、单据ID、明细ID重复'
		ELSE
			arg_msg = "插入发料明细操作失败"+"~n"+commit_transaction.SQLErrText
		END IF
		GOTO ext
	END IF
NEXT

it_newbegin = False
it_updatebegin = False

ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
	p_clearmx()
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF
IF billtype = 4 THEN
	IF thflag = 0 THEN
		arg_msg = '仓库外协收货单,'+ arg_msg
	ELSE
		arg_msg = '仓库外协返工单,'+ arg_msg
	END IF
ELSEIF billtype = 5 THEN
	IF thflag = 0 THEN
		arg_msg = '车间外协收货单,'+ arg_msg
	ELSE
		arg_msg = '车间外协返工单,'+ arg_msg
	END IF
ELSEIF billtype = 9 THEN
	arg_msg = '外协盘亏单,'+ arg_msg
END IF
RETURN rslt






end function

public function integer getinfo (long arg_scid, long arg_inwareid, ref string arg_msg);//getinfo(arg_scid,arg_inwareid,arg_msg)
//0 失败  1成功
Int rslt = 1,i = 1,no_mxcheck = 0,j = 1,no_mxcheck_bef = 0

jgsum_amt = 0
sum_amt = 0
IF arg_inwareid <= 0 THEN
	rslt = 0
	arg_msg = "非法进仓单唯一码"
	GOTO ext
END IF

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

//用游标读取明细
DECLARE cur_inwaermx CURSOR FOR
	SELECT ow_wfjgmx_in_aft.printid,
	ow_wfjgmx_in_aft.mtrlid,
	ow_wfjgmx_in_aft.plancode,
	ow_wfjgmx_in_aft.status,
	ow_wfjgmx_in_aft.qty,
	ow_wfjgmx_in_aft.fprice,
	ow_wfjgmx_in_aft.rebate,
	ow_wfjgmx_in_aft.price,
	ow_wfjgmx_in_aft.planprice,
	ow_wfjgmx_in_aft.mxdscrp,
	u_mtrldef.mtrlcode,
	ow_wfjgmx_in_aft.jgprice,
	ow_wfjgmx_in_aft.relid,
	ow_wfjgmx_in_aft.relprintid,
	ow_wfjgmx_in_aft.ifrel,
	ow_wfjgmx_in_aft.woodcode,
	ow_wfjgmx_in_aft.pcode,
	ow_wfjgmx_in_aft.plancode,
	ow_wfjgmx_in_aft.sptid_cusid,
	ow_wfjgmx_in_aft.cost,
	ow_wfjgmx_in_aft.sptmtrlname,
	ow_wfjgmx_in_aft.unit,
	ow_wfjgmx_in_aft.uqty,
	ow_wfjgmx_in_aft.uprice,
	ow_wfjgmx_in_aft.rate,
	ow_wfjgmx_in_aft.bootqty,
	ow_wfjgmx_in_aft.noauditqty,
	ow_wfjgmx_in_aft.storageid,
	ow_wfjgmx_in_aft.addqty
	FROM ow_wfjgmx_in_aft,u_mtrldef,ow_wfjg_in
	WHERE ow_wfjg_in.inwareid = :arg_inwareid  AND
	ow_wfjgmx_in_aft.mtrlid = u_mtrldef.mtrlid AND
	ow_wfjg_in.scid = :arg_scid AND
	ow_wfjg_in.inwareid = ow_wfjgmx_in_aft.inwareid AND
	ow_wfjg_in.scid = ow_wfjgmx_in_aft.scid USING commit_transaction;
	
OPEN cur_inwaermx;
FETCH cur_inwaermx INTO :inwaremx[i].printid,:inwaremx[i].mtrlid,:inwaremx[i].plancode,
	:inwaremx[i].status,:inwaremx[i].qty,:inwaremx[i].fprice,
	:inwaremx[i].rebate,:inwaremx[i].price,:inwaremx[i].planprice,
	:inwaremx[i].mxdscrp,:inwaremx[i].mtrlcode,:inwaremx[i].jgprice,
	:inwaremx[i].relid,:inwaremx[i].relprintid,:inwaremx[i].ifrel,:inwaremx[i].woodcode,
	:inwaremx[i].pcode,:inwaremx[i].plancode,:inwaremx[i].sptid,
	:inwaremx[i].cost,:inwaremx[i].sptmtrlname,:inwaremx[i].unit,
	:inwaremx[i].uqty,:inwaremx[i].uprice,:inwaremx[i].rate,
	:inwaremx[i].bootqty,:inwaremx[i].noauditqty,:inwaremx[i].storageid,
	:inwaremx[i].addqty; 
	inwaremx[i].dxflag = dxflag 

DO WHILE commit_transaction.SQLCode = 0
	jgsum_amt = jgsum_amt+ round( inwaremx[i].uqty * inwaremx[i].jgprice * inwaremx[i].rebate,2) //计算单据加工总金额
	sum_amt = sum_amt+ round( inwaremx[i].uqty * inwaremx[i].uprice * inwaremx[i].rebate,2) //计算单据总金额
	i++
	FETCH cur_inwaermx INTO :inwaremx[i].printid,:inwaremx[i].mtrlid,:inwaremx[i].plancode,
		:inwaremx[i].status,:inwaremx[i].qty,:inwaremx[i].fprice,
		:inwaremx[i].rebate,:inwaremx[i].price,:inwaremx[i].planprice,
		:inwaremx[i].mxdscrp,:inwaremx[i].mtrlcode,:inwaremx[i].jgprice,
		:inwaremx[i].relid,:inwaremx[i].relprintid,:inwaremx[i].ifrel,:inwaremx[i].woodcode,
		:inwaremx[i].pcode,:inwaremx[i].plancode,:inwaremx[i].sptid,
		:inwaremx[i].cost,:inwaremx[i].sptmtrlname,:inwaremx[i].unit,
		:inwaremx[i].uqty,:inwaremx[i].uprice,:inwaremx[i].rate,
		:inwaremx[i].bootqty,:inwaremx[i].noauditqty,:inwaremx[i].storageid,
		:inwaremx[i].addqty;
		
	inwaremx[i].dxflag = dxflag
LOOP
CLOSE cur_inwaermx;

//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck
	FROM ow_wfjgmx_in_aft,u_mtrldef,ow_wfjg_in
	WHERE ow_wfjg_in.inwareid = :arg_inwareid  AND
	ow_wfjgmx_in_aft.mtrlid = u_mtrldef.mtrlid AND
	ow_wfjg_in.scid = :arg_scid AND
	ow_wfjg_in.inwareid = ow_wfjgmx_in_aft.inwareid AND
	ow_wfjg_in.scid = ow_wfjgmx_in_aft.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

//用游标读取明细
DECLARE cur_inwaermx_bef CURSOR FOR
	SELECT ow_wfjgmx_in_bef.mtrlwareid,
	ow_wfjgmx_in_bef.printid,
	ow_wfjgmx_in_bef.mtrlid,
	ow_wfjgmx_in_bef.plancode,
	ow_wfjgmx_in_bef.status,
	ow_wfjgmx_in_bef.qty,
	ow_wfjgmx_in_bef.fprice,
	ow_wfjgmx_in_bef.mxdscrp,
	u_mtrldef.mtrlcode,
	ow_wfjgmx_in_bef.woodcode,
	ow_wfjgmx_in_bef.pcode,
	ow_wfjgmx_in_bef.plancode
	FROM ow_wfjgmx_in_bef,u_mtrldef,ow_wfjg_in
	WHERE ow_wfjg_in.inwareid = :arg_inwareid  AND
	ow_wfjgmx_in_bef.mtrlid = u_mtrldef.mtrlid AND
	ow_wfjg_in.scid = :arg_scid AND
	ow_wfjg_in.inwareid = ow_wfjgmx_in_bef.inwareid AND
	ow_wfjg_in.scid = ow_wfjgmx_in_bef.scid
	USING commit_transaction;
	
OPEN cur_inwaermx_bef;
FETCH cur_inwaermx_bef INTO :inwaremx_bef[j].mtrlwareid,
	:inwaremx_bef[j].printid,
	:inwaremx_bef[j].mtrlid,:inwaremx_bef[j].plancode,
	:inwaremx_bef[j].status,:inwaremx_bef[j].qty,:inwaremx_bef[j].fprice,
	:inwaremx_bef[j].mxdscrp,
	:inwaremx_bef[j].mtrlcode,:inwaremx_bef[j].woodcode,
	:inwaremx_bef[j].pcode,:inwaremx_bef[j].plancode;
	
DO WHILE commit_transaction.SQLCode = 0
	j++
	FETCH cur_inwaermx_bef INTO :inwaremx_bef[j].mtrlwareid,
		:inwaremx_bef[j].printid,
		:inwaremx_bef[j].mtrlid,:inwaremx_bef[j].plancode,
		:inwaremx_bef[j].status,:inwaremx_bef[j].qty,:inwaremx_bef[j].fprice,
		:inwaremx_bef[j].mxdscrp,
		:inwaremx_bef[j].mtrlcode,:inwaremx_bef[j].woodcode,
		:inwaremx_bef[j].pcode,:inwaremx_bef[j].plancode;
		
LOOP
CLOSE cur_inwaermx_bef;

//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck_bef
	FROM ow_wfjgmx_in_bef,u_mtrldef,ow_wfjg_in
	WHERE ow_wfjg_in.inwareid = :arg_inwareid  AND
	ow_wfjgmx_in_bef.mtrlid = u_mtrldef.mtrlid AND
	ow_wfjg_in.scid = :arg_scid AND
	ow_wfjg_in.inwareid = ow_wfjgmx_in_bef.inwareid AND
	ow_wfjg_in.scid = ow_wfjgmx_in_bef.scid
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,外协收货单相关发外明细数量" 
	GOTO ext
END IF

IF j <> (no_mxcheck_bef+1) THEN
	rslt = 0
	arg_msg = "查询操作失败,外协收货单相关发外明细"
	GOTO ext
END IF
inwareid = arg_inwareid
scid = arg_scid

it_mxbt = i - 1
it_mxbt_bef = j - 1
it_newbegin = FALSE
it_updatebegin = FALSE
ext:
IF rslt = 0 THEN p_reset()
if billtype = 4 then
	if thflag = 0 then
		arg_msg = '仓库外协收货单,'+ arg_msg
	else
		arg_msg = '仓库外协返工单,'+ arg_msg
	end if
elseif billtype = 5 then
	if thflag = 0 then
		arg_msg = '车间外协收货单,'+ arg_msg
	else
		arg_msg = '车间外协返工单,'+ arg_msg
	end if
end if
RETURN rslt




end function

public function integer auditing (boolean arg_ifcommit, ref string arg_msg);
Long rslt = 1,cnt = 0,i
Dec new_noallocqty = 0
Long ls_newid
decimal ls_qty

uo_order_wfjg uo_wfjg
uo_wfjg = CREATE uo_order_wfjg
uo_wfjg.commit_transaction = commit_transaction

uo_spt_price uo_sptprice
uo_sptprice = CREATE uo_spt_price

IF inwareid = 0 THEN
	rslt = 0
	arg_msg = "没有审核对象"
	GOTO ext
END IF

IF it_newbegin OR it_updatebegin THEN
	rslt = 0
	arg_msg = "编辑状态下不可以执行审核"
	GOTO ext
END IF

IF flag = 1 THEN
	rslt = 0
	arg_msg = "单据已经审核"
	GOTO ext
END IF

UPDATE ow_wfjg_in
	SET auditingrep = :publ_operator,
	auditingdate = getdate(),
	flag = 1
	WHERE ow_wfjg_in.inwareid = :inwareid
	AND flag = 0 AND scid = :scid USING commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "审核单据操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在审核,请稍后查询。"
	GOTO ext
END IF

IF billtype = 4 THEN
	IF p_create_inware( FALSE, arg_msg ) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF

FOR i = 1 TO it_mxbt_bef
	Decimal ld_ref_cost
	
	IF p_update_cost(inwaremx_bef[i].mtrlwareid,inwaremx_bef[i].mtrlcode,&
		inwaremx_bef[i].printid,ld_ref_cost,arg_msg,FALSE) = 0 THEN
		rslt = 0
		GOTO ext
	END IF

	IF thflag = 1 THEN //DXY
		ls_qty = 0 - abs(inwaremx_bef[i].qty) 
	ELSE 
		ls_qty = inwaremx_bef[i].qty
	END IF 
	
	IF p_update_mtrlware( inwaremx_bef[i].mtrlwareid,&
		inwaremx_bef[i].mtrlid,&
		inwaremx_bef[i].mtrlcode,&
		inwaremx_bef[i].plancode,&
		inwaremx_bef[i].status,&
		ls_qty,&  
		ld_ref_cost,&
		sptid,&
		inwaremx_bef[i].woodcode,&
		inwaremx_bef[i].pcode,&
		arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
//	IF f_update_mtrlware_spt_in(billtype,&
//		thflag,&
//		inwaremx_bef[i].mtrlwareid,&
//		inwaremx_bef[i].mtrlid,&
//		inwaremx_bef[i].mtrlcode,&
//		inwaremx_bef[i].plancode,&
//		inwaremx_bef[i].status,&
//		inwaremx_bef[i].qty,&
//		ld_ref_cost,&
//		sptid,&
//		inwaremx_bef[i].woodcode,&
//		inwaremx_bef[i].pcode,&
//		arg_msg,FALSE,commit_transaction) = 0 THEN
//		rslt = 0
//		GOTO ext
//	END IF
NEXT

FOR i = 1 TO it_mxbt

	IF inwaremx[i].relid > 0 THEN
		IF uo_wfjg.addmxcmpl(scid,inwaremx[i].relid,inwaremx[i].mtrlid,0,inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode,inwaremx[i].qty,arg_msg,FALSE,inwaremx[i].relprintid) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
		
		IF uo_wfjg.trycmplbuytask(scid,inwaremx[i].relid,arg_msg,FALSE) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	IF uo_sptprice.uf_update_sptprice(thflag,sptid,inwaremx[i].mtrlid,inwaremx[i].unit,inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode,&
		inwareid,moneyid,inwaremx[i].jgprice,inwaremx[i].rebate,inwaremx[i].rate,inwaremx[i].price,indate,inwarecode,0,inwaremx[i].mxdscrp,inwaremx[i].printid,4,FALSE,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

flag = 1
ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF
IF billtype = 4 THEN
	IF thflag = 0 THEN
		arg_msg = '仓库外协收货单,'+ arg_msg
	ELSE
		arg_msg = '仓库外协返工单,'+ arg_msg
	END IF
ELSEIF billtype = 5 THEN
	IF thflag = 0 THEN
		arg_msg = '车间外协收货单,'+ arg_msg
	ELSE
		arg_msg = '车间外协返工单,'+ arg_msg
	END IF
END IF
DESTROY uo_wfjg
DESTROY uo_sptprice

RETURN rslt





end function

public function integer del (long arg_scid, long arg_inwareid, ref string arg_msg, boolean arg_ifcommit);//del(arg_scid,arg_inwareid,arg_msg)
//如果单据还没有审核删除单据极其明细
//0 fail, 1 success

Int rslt = 1
IF arg_inwareid = 0 THEN
	rslt = 0
	arg_msg = "没有删除对象,操作取消"
	GOTO ext
END IF

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

IF flag = 1 THEN
	rslt = 0
	arg_msg = "单据已经审核,不可以删除"
	GOTO ext
END IF

DELETE FROM ow_wfjgmx_in_aft
	WHERE ow_wfjgmx_in_aft.inwareid = :arg_inwareid
	And ow_wfjgmx_in_aft.scid = :arg_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "删除外协收货单明细操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

DELETE FROM ow_wfjgmx_in_bef
	WHERE ow_wfjgmx_in_bef.inwareid = :arg_inwareid
	And ow_wfjgmx_in_bef.scid = :arg_scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "删除外协收货单相关发外明细操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

DELETE FROM ow_wfjg_in
	WHERE ow_wfjg_in.inwareid = :arg_inwareid
	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

it_newbegin = False
it_updatebegin = False

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

p_reset()
IF billtype = 4 THEN
	IF thflag = 0 THEN
		arg_msg = '仓库外协收货单,'+ arg_msg
	ELSE
		arg_msg = '仓库外协返工单,'+ arg_msg
	END IF
ELSEIF billtype = 5 THEN
	IF thflag = 0 THEN
		arg_msg = '车间外协收货单,'+ arg_msg
	ELSE
		arg_msg = '车间外协返工单,'+ arg_msg
	END IF
END IF
RETURN rslt


end function

public function integer add_dscrp (long arg_scid, long arg_inwareid, string arg_newdescppart, ref string arg_msg);//add_dscrp(string arg_newdescppart)
//0 fail 1 success
Int rslt = 1
arg_newdescppart = Trim(arg_newdescppart)
IF it_updatebegin Or it_newbegin THEN
	rslt = 0
	arg_msg = "编辑状态下不可用"
	GOTO ext
END IF

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

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

IF flag = 0 THEN
	rslt = 0
	arg_msg = "非审核状态下不可用"
	GOTO ext
END IF

UPDATE ow_wfjg_in
	SET dscrp = dscrp+' '+:arg_newdescppart
	WHERE ow_wfjg_in.inwareid = :inwareid
	And scid = :scid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "添加单据备注操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

dscrp = dscrp+' '+arg_newdescppart

ext:
IF rslt = 0 THEN
	ROLLBACK  Using commit_transaction;
ELSE
	COMMIT Using commit_transaction;
END IF
IF billtype = 4 THEN
	IF thflag = 0 THEN
		arg_msg = '仓库外协收货单,'+ arg_msg
	ELSE
		arg_msg = '仓库外协返工单,'+ arg_msg
	END IF
ELSEIF billtype = 5 THEN
	IF thflag = 0 THEN
		arg_msg = '车间外协收货单,'+ arg_msg
	ELSE
		arg_msg = '车间外协返工单,'+ arg_msg
	END IF
END IF
Return (rslt)


end function

public function integer c_auditing (boolean arg_ifcommit, ref string arg_msg);
Long rslt = 1,cnt = 0,i
Dec new_noallocqty = 0
Long ls_newid
DateTime null_dt
decimal ls_qty

uo_order_wfjg uo_wfjg
uo_wfjg = Create uo_order_wfjg
uo_wfjg.commit_transaction = commit_transaction

uo_spt_price uo_sptprice
uo_sptprice = Create uo_spt_price

SetNull(null_dt)

IF inwareid = 0 THEN
	rslt = 0
	arg_msg = "没有审核对象"
	GOTO ext
END IF

IF it_newbegin Or it_updatebegin THEN
	rslt = 0
	arg_msg = "编辑状态下不可以执行审核"
	GOTO ext
END IF

IF flag = 0 THEN
	rslt = 0
	arg_msg = "单据还未审核"
	GOTO ext
END IF

IF balcflag = 1 THEN
	rslt = 0
	arg_msg = "单据已经结存,不能撤审"
	GOTO ext
END IF

UPDATE ow_wfjg_in
	SET auditingrep = '',
	auditingdate = :null_dt,
	flag = 0
	WHERE ow_wfjg_in.inwareid = :inwareid
	And flag = 1 And scid = :scid Using commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "审核单据操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在撤审,请稍后查询。"
	GOTO ext
END IF

IF billtype = 4 THEN
	IF p_destroy_inware( False, arg_msg ) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF

FOR i = 1 To it_mxbt_bef
	
	IF thflag = 1 THEN //DXY
		ls_qty = abs(inwaremx_bef[i].qty) 
	ELSE 
		ls_qty = 0 - inwaremx_bef[i].qty 
	END IF 
	
	IF p_update_mtrlware( inwaremx_bef[i].mtrlwareid,&
		inwaremx_bef[i].mtrlid,&
		inwaremx_bef[i].mtrlcode,&
		inwaremx_bef[i].plancode,&
		inwaremx_bef[i].status,&
		ls_qty,&
		inwaremx_bef[i].fprice,&
		sptid,&
		inwaremx_bef[i].woodcode,&
		inwaremx_bef[i].pcode,&
		arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	//	IF f_update_mtrlware_spt_in(billtype,&
	//		thflag,&
	//		inwaremx_bef[i].mtrlwareid,&
	//		inwaremx_bef[i].mtrlid,&
	//		inwaremx_bef[i].mtrlcode,&
	//		inwaremx_bef[i].plancode,&
	//		inwaremx_bef[i].status,&
	//		0 - inwaremx_bef[i].qty,&
	//		inwaremx_bef[i].fprice,&
	//		sptid,&
	//		inwaremx_bef[i].woodcode,&
	//		inwaremx_bef[i].pcode,&
	//		arg_msg,false,commit_transaction) = 0 THEN
	//		rslt = 0
	//		GOTO ext
	//	END IF
NEXT


FOR i = 1 To it_mxbt
	//更新合同完成数量
	IF  inwaremx[i].relid > 0 THEN
		IF uo_wfjg.addmxcmpl(scid,inwaremx[i].relid,inwaremx[i].mtrlid,0,inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode, 0 - inwaremx[i].qty,arg_msg,False,inwaremx[i].relprintid) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
		
		IF uo_wfjg.trycmplbuytask(scid,inwaremx[i].relid,arg_msg,False) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	IF uo_sptprice.uf_del_sptprice(thflag,sptid,inwaremx[i].mtrlid,inwaremx[i].unit,inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode,inwareid,inwaremx[i].printid,moneyid,False,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

flag = 0
ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF
IF billtype = 4 THEN
	IF thflag = 0 THEN
		arg_msg = '仓库外协收货单,'+ arg_msg
	ELSE
		arg_msg = '仓库外协返工单,'+ arg_msg
	END IF
ELSEIF billtype = 5 THEN
	IF thflag = 0 THEN
		arg_msg = '车间外协收货单,'+ arg_msg
	ELSE
		arg_msg = '车间外协返工单,'+ arg_msg
	END IF
END IF
Destroy uo_wfjg
Destroy uo_sptprice
RETURN rslt





end function

public function integer p_clearmx ();//int p_clearmx()
//清除明细
it_mxbt=0
it_mxbt_bef=0
return 1
end function

public function integer p_getinfo (long arg_scid, long arg_inwareid, ref string arg_msg);//p_getinfo(arg_scid,arg_inwareid,arg_msg)
//0 失败  1成功
Int rslt = 1

IF arg_inwareid <= 0 THEN
	rslt = 0
	arG_MSG = "非法进仓单唯一码"
	GOTO ext
END IF

SELECT  ow_wfjg_in.inwarecode,
	ow_wfjg_in.billtype,
	ow_wfjg_in.relid,
	ow_wfjg_in.storageid,
	ow_wfjg_in.indate,
	ow_wfjg_in.inrep,
	ow_wfjg_in.part,
	ow_wfjg_in.sptid,
	ow_wfjg_in.sptname,
	ow_wfjg_in.dscrp,
	ow_wfjg_in.thflag,
	ow_wfjg_in.secflag,
	ow_wfjg_in.dxflag,
	ow_wfjg_in.flag,
	ow_wfjg_in.balcflag,
	ow_wfjg_in.otheramt,
	ow_wfjg_in.relint_1,
	ow_wfjg_in.relint_2,
	ow_wfjg_in.relint_3,
	ow_wfjg_in.relstr_1,
	ow_wfjg_in.relstr_2,
	ow_wfjg_in.relstr_3
	INTO :inwarecode,
	:billtype,
	:relid,
	:storageid,
	:indate,
	:inrep,
	:part,
	:sptid,
	:sptname,
	:dscrp,
	:thflag,
	:secflag,
	:dxflag,
	:flag,
	:balcflag,
	:otheramt,
	:relint_1,
	:relint_2,
	:relint_3,
	:relstr_1,
	:relstr_2,
	:relstr_3
	FROM ow_wfjg_in
	WHERE ow_wfjg_in.inwareid = :arg_inwareid
	AND scid = :arg_scid
	Using commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	IF Pos(Lower(commit_transaction.SQLErrText),'more than') > 0 THEN
		arG_MSG = '查询进仓单操作失败,查询数据返回值多于一个'
	ELSE
			arG_MSG = "查询操作失败(错误进仓单唯一码)"
	END IF
	GOTO ext
END IF

//币种, 默认本位币
SELECT moneyid INTO :moneyid
	FROM  cw_currency
	WHERE native = 1
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arG_MSG = '查询本位币失败! '+commit_transaction.SQLErrText
	GOTO ext
END IF

inwareid = arg_inwareid
scid = arg_scid

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

end function

public function integer p_reset ();//int p_reset()
//清除对象及其明细
scid=0
inwareid=0
inwarecode=''
billtype=0
opemp=''
modemp=''
auditingrep=''
secauditingrep = ''
secflag = 0
flag=0
relid=0
storageid=0
inrep=''    
part=''   
dscrp=''  
sptid=0  
sptname=''
Dxflag=0
thflag=0 
otheramt=0
relint_1=0
relint_2=0
relint_3=0
relstr_1=''
relstr_2=''
relstr_3=''

sum_amt = 0
jgsum_amt = 0

it_newbegin=false
it_updatebegin=false

//清除明细
p_clearmx()
return 1


end function

public function integer p_create_inware (boolean arg_ifcommit, ref string arg_msg);Int rslt = 1,i
Long rst_inwareid,o_scid

datastore ds_wfjginware_mx
ds_wfjginware_mx = CREATE datastore
ds_wfjginware_mx.DataObject = "dw_wfjgmx_in_aft_edit"
ds_wfjginware_mx.SetTransObject(sqlca)
ds_wfjginware_mx.Retrieve(scid,inwareid,sys_option_2unit)
ds_wfjginware_mx.SetSort("ow_wfjgmx_in_aft_storageid A")
ds_wfjginware_mx.Sort()

Long ls_rowcount,ll_storageid
ls_rowcount = ds_wfjginware_mx.RowCount()
IF ls_rowcount <> it_mxbt THEN
	rslt = 0
	arg_msg = "单据明细数量错误"
	GOTO ext
END IF

FOR i = 1 TO it_mxbt
	uo_inware uo_in
	uo_in = CREATE uo_inware
	uo_in.commit_transaction = commit_transaction
	uo_in.if_getid_ture = FALSE
	
	//2.原事务生成进仓单
	ll_storageid = ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_storageid[i]
	SELECT scid INTO :o_scid
		FROM u_storage
		Where storageid = :ll_storageid USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '查询进仓库所属分部资料失败'
		rslt = 0
		GOTO ext
	END IF
	IF uo_in.newbegin(scid,4,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	uo_in.relid = inwareid
	uo_in.relint_2 = relint_2
	uo_in.relint_1 = relint_1
	uo_in.sptid = sptid
	uo_in.inrep  = inrep
	uo_in.indate = indate
	uo_in.part   = inwarecode
	uo_in.dscrp  = dscrp
	uo_in.storageid  = ll_storageid
	
	DO While  (ll_storageid = ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_storageid[i])
		datetime ld_inworkdate
		setnull(ld_inworkdate)
		//ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_printid[i] 这个不能随意改,关系到生成的进仓单的修改单价功能
		//用库存单位进仓
		IF uo_in.acceptmx(ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_printid[i],&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_mtrlid[i],&
			ds_wfjginware_mx.Object.u_mtrldef_mtrlcode[i],&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_plancode[i],&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_status[i],&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_qty[i],&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_addqty[i],&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_fprice[i]  + ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_uprice[i] * ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_rebate[i],&
			1,&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_mxdscrp[i],&
			arg_msg,&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_uprice[i],&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_relid[i],&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_relprintid[i],&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_ifrel[i],&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_woodcode[i],&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_pcode[i],&
			'',&
			ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_sptid_cusid[i],&
			ds_wfjginware_mx.Object.u_mtrldef_unit[i],&
			1,'','',ld_inworkdate,0) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		i++
		IF i > it_mxbt THEN EXIT
	LOOP
	
	IF uo_in.Save(FALSE,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	rst_inwareid = uo_in.inwareid
	  
	//4.原事务审核进仓单
	IF uo_in.getinfo(o_scid,rst_inwareid,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	IF uo_in.auditing(FALSE,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	DESTROY uo_in
	i = i - 1
NEXT
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 p_destroy_inware (boolean arg_ifcommit, ref string arg_msg);Long cnt = 0,i
Int rslt = 1
Long chc
Long in_out
//Long rst_outwareid[],out_i = 1 //出仓出仓id
Long rst_inwareid[],in_i = 1 //出仓出仓id
Long s_scid
Long o_scid
Long lay_storageid[],ll_storageid

DateTime null_dt

SetNull(null_dt)

uo_inware uo_in

uo_in = Create uo_inware
uo_in.commit_transaction = sqlca
uo_in.if_getid_ture = False


IF inwareid = 0 THEN
	rslt = 0
	arg_msg = "没有审核对象"
	GOTO ext
END IF


Boolean lb_f = False
Long  j,k,ch
//统计仓库数量，确定出或出仓单数
FOR i = 1 To it_mxbt
	FOR j = 1 To UpperBound(lay_storageid)
		IF lay_storageid[j] = inwaremx[i].storageid THEN lb_f = True
	NEXT
	IF lb_f = False THEN
		ch++
		lay_storageid[ch] = inwaremx[i].storageid
	END IF
	lb_f = False
NEXT

IF UpperBound(lay_storageid) = 0 THEN
	rslt = 0
	arg_msg = '查询相关进仓单据失败'
	GOTO ext
END IF

//2.查询出仓单相关的入仓单,撤审,删除
FOR k = 1 To UpperBound(lay_storageid)
	
	ll_storageid = lay_storageid[k]
	
	SELECT scid INTO :o_scid
		FROM u_storage
		Where storageid = :ll_storageid  Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '查询仓库所属分部资料失败'
		rslt = 0
		GOTO ext
	END IF
	
	DECLARE cur_in_2 CURSOR FOR
		SELECT inwareid
		FROM u_inware
		WHERE scid = :o_scid
		AND relid = :inwareid
		AND storageid = :ll_storageid
		And billtype = 4  Using commit_transaction;
		
	OPEN cur_in_2;
	FETCH cur_in_2 Into :rst_inwareid[in_i];
	DO WHILE commit_transaction.SQLCode = 0
		in_i++
		FETCH cur_in_2 Into :rst_inwareid[in_i];
	LOOP
	in_i = in_i - 1
	CLOSE cur_in_2;
	
	IF in_i = 0  THEN
		arg_msg = '查询该外协单相关进仓单失败'
		rslt = 0
		GOTO ext
	END IF
	
	FOR in_out = 1 To in_i
		//撤审出仓单,再删除
		IF uo_in.getinfo(o_scid,rst_inwareid[in_out],arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		IF uo_in.c_auditing(False,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		IF uo_in.del(o_scid,rst_inwareid[in_out],arg_msg,False) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	NEXT
NEXT



ext:

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

Destroy uo_in
RETURN rslt



end function

public function integer secauditing (boolean arg_ifcommit, ref string arg_msg);Long rslt = 1,cnt = 0,i
String ls_about,ls_dscrp

uo_mustpay uo_pay
uo_pay = Create uo_mustpay

Decimal ld_payamt = 0,ld_mstpayamt = 0

IF inwareid = 0 THEN
	rslt = 0
	arg_msg = "没有审核对象"
	GOTO ext
END IF

IF flag = 0 THEN
	rslt = 0
	arg_msg = "单据还没有经过仓库审核"
	GOTO ext
END IF

IF secflag = 1 THEN
	rslt = 0
	arg_msg = "单据已经过财务审核"
	GOTO ext
END IF

Int li_btype
Long ll_accountsid
SELECT btype,accountsid INTO :li_btype,:ll_accountsid
	FROM cw_banktype
	Where banktypeid = :relint_1 Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	IF Pos(Lower(commit_transaction.SQLErrText),'more than') > 0 THEN
		arg_msg = '查询结算方式类型失败,查询数据返回值多于一个'
	ELSE
		arg_msg = '查询结算方式类型失败(错误结算方式唯一码)'
	END IF
	GOTO ext
END IF

SELECT count(*) INTO :cnt
	FROM u_user
	Where username = :publ_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

UPDATE ow_wfjg_in
	SET secauditingrep = :publ_operator,
	secauditingdate = getdate(),
	secflag = 1
	WHERE ow_wfjg_in.inwareid = :inwareid
	And flag = 1 And secflag = 0 And scid = :scid Using commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "财务审核单据操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在财务审核,请稍后查询。"
	GOTO ext
END IF

IF jgsum_amt <> 0  THEN
	
	ld_mstpayamt = jgsum_amt - otheramt
	
	IF li_btype = 1 THEN
		ld_payamt = ld_mstpayamt
	ELSE
		ld_payamt = 0
	END IF
	
	Long ll_dft_itemid
	IF thflag = 1 THEN
		ls_about = inwarecode + "退货款,相关号:"+part
		
		IF f_get_itemid(5,ll_dft_itemid, arg_msg) = 0 THEN // 采购外协退货项目
			rslt = 0
			GOTO ext
		END IF
		
//		SELECT itemid INTO :ll_dft_itemid
//			FROM u_itemdef
//			Where dfttype = 5 Using commit_transaction;
//		IF commit_transaction.SQLCode <> 0 THEN
//			IF Pos(Lower(commit_transaction.SQLErrText),'more than') > 0 THEN
//				arg_msg = '查询默认采购外协付款项目资料失败,查询数据返回值多于一个'
//			ELSE
//				arg_msg = '查询默认采购外协付款项目资料失败 '
//			END IF
//			rslt = 0
//			GOTO ext
//		END IF
	ELSE
		ls_about = inwarecode + "应付款,相关号:"+part
		
		IF f_get_itemid(2,ll_dft_itemid, arg_msg) = 0 THEN //采购外协付款项目
			rslt = 0
			GOTO ext
		END IF
		
//		SELECT itemid INTO :ll_dft_itemid
//			FROM u_itemdef
//			Where dfttype = 2 Using commit_transaction;
//		IF commit_transaction.SQLCode <> 0 THEN
//			IF Pos(Lower(commit_transaction.SQLErrText),'more than') > 0 THEN
//				arg_msg = '查询默认采购外协退货项目资料失败,查询数据返回值多于一个'
//			ELSE
//				arg_msg = '查询默认采购外协退货项目资料失败'
//			END IF
//			rslt = 0
//			GOTO ext
//		END IF
	END IF
	ls_dscrp = ls_about
	Long ll_moneyid
	DateTime plandate
	SetNull(plandate)
	SELECT moneyid Into :ll_moneyid From  cw_currency Where native = 1;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询本位币失败! '+sqlca.SQLErrText
		GOTO ext
	END IF
	IF uo_pay.add_payrec (scid,sptid,indate,inrep,ld_mstpayamt,ld_mstpayamt,ld_payamt,ls_about,&
		inwarecode,relint_1,1,publ_operator,inwareid,0,arg_msg,False,plandate,ll_accountsid,ll_dft_itemid,ll_moneyid,part) = 0  THEN
		rslt = 0
		GOTO ext
	END IF
	
	UPDATE ow_wfjg_in
		SET relint_2 = :uo_pay.ref_payid
		WHERE ow_wfjg_in.inwareid = :inwareid
		AND scid = :scid
		And flag = 1 Using commit_transaction;
		
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '更新外协单相关应收帐ID失败'
		rslt = 0
		GOTO ext
	END IF
	
END IF


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

Destroy uo_pay

IF billtype = 4 THEN
	IF thflag = 0 THEN
		arg_msg = '仓库外协收货单,'+ arg_msg
	ELSE
		arg_msg = '仓库外协返工单,'+ arg_msg
	END IF
ELSEIF billtype = 5 THEN
	IF thflag = 0 THEN
		arg_msg = '车间外协收货单,'+ arg_msg
	ELSE
		arg_msg = '车间外协返工单,'+ arg_msg
	END IF
END IF

RETURN rslt





end function

public function integer c_secauditing (boolean arg_ifcommit, ref string arg_msg);Long rslt = 1,cnt = 0,i
DateTime null_dt

uo_mustpay  uo_pay
uo_pay = Create uo_mustpay

String ls_mtrlname

SetNull(null_dt)

IF inwareid = 0 THEN
	rslt = 0
	arg_msg = "没有撤审对象"
	GOTO ext
END IF

IF it_newbegin Or it_updatebegin THEN
	rslt = 0
	arg_msg = "编辑状态下不可以执行撤审"
	GOTO ext
END IF

IF secflag = 0 THEN
	rslt = 0
	arg_msg = "该单据财务未审,不能进行财务撤审"
	GOTO ext
END IF

SELECT count(*) INTO :cnt
	FROM u_user
	Where username = :publ_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

UPDATE ow_wfjg_in
	SET secauditingrep = '',
	secauditingdate = :null_dt,
	secflag = 0,relint_3 = 0
	WHERE ow_wfjg_in.inwareid = :inwareid
	And secflag = 1 And scid = :scid  Using commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "财务审核单据操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在财务审核,请稍后查询。"
	GOTO ext
END IF

IF  jgsum_amt <> 0  THEN
	IF uo_pay.del_payrec(scid,1,relint_2,sptid,arg_msg,False) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF

secflag = 0
ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF
Destroy uo_pay
IF billtype = 4 THEN
	IF thflag = 0 THEN
		arg_msg = '仓库外协收货单,'+ arg_msg
	ELSE
		arg_msg = '仓库外协返工单,'+ arg_msg
	END IF
ELSEIF billtype = 5 THEN
	IF thflag = 0 THEN
		arg_msg = '车间外协收货单,'+ arg_msg
	ELSE
		arg_msg = '车间外协返工单,'+ arg_msg
	END IF
END IF
RETURN rslt




end function

public function integer p_update_mtrlware (long arg_mtrlwareid, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_price, long arg_sptid, string arg_woodcode, string arg_pcode, ref string arg_msg);//====================================================================
// 事件: uo_inware_wfjg.p_update_mtrlware()
//--------------------------------------------------------------------
// 描述:
//--------------------------------------------------------------------
// 参数:
// 	value    	long   	arg_mtrlwareid	
// 	value    	long   	arg_mtrlid    	
// 	value    	string 	arg_mtrlcode  	
// 	value    	string 	arg_plancode  	
// 	value    	string 	arg_status    	
// 	value    	decimal	arg_qty       	
// 	value    	decimal	arg_price     	
// 	value    	long   	arg_sptid     	
// 	value    	string 	arg_woodcode  	
// 	value    	string 	arg_pcode     	
// 	reference	string 	arg_msg       	
//--------------------------------------------------------------------
// 返回:  intege
//--------------------------------------------------------------------
// 作者:	LHD		日期: 2013年08月17日
//--------------------------------------------------------------------
//	Copyright (c) 2002-2018 RICHTA(TM), All rights reserved.
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================

//外协商库存减少
Int rslt = 1
Long ls_newid
String or_err_part
Decimal ld_cost
//-------------------------------------------更新库存

ld_cost = arg_price

UPDATE ow_wfjgware
	SET noallocqty = noallocqty - :arg_qty ,
	wareamt = case when :sys_option_wfjgware_nocost = 1 then 0
		else (case noallocqty + :arg_qty when 0 then 0
		else (case when (wareamt - round(:arg_qty * :arg_price,2)) * (noallocqty - :arg_qty) < 0 then 0 - (wareamt - round(:arg_qty * :arg_price,2)) else wareamt - round(:arg_qty * :arg_price,2) END) END) END,
	cost = case when :sys_option_wfjgware_nocost = 1 then 0
		else (case noallocqty - :arg_qty when 0 then cost
		else (case when round((wareamt - round(:arg_qty * :arg_price,2))/(noallocqty - :arg_qty),10) < 0 then :ld_cost else round((wareamt - round(:arg_qty * :arg_price,2))/(noallocqty - :arg_qty),10) END) END) END,
	newprice = :arg_price,
	waredate = getdate(),
	indate = case  when :arg_qty < 0 then getdate() else indate END,
	outdate = case  when :arg_qty > 0 then getdate() else outdate END
	WHERE ( mtrlwareid = :arg_mtrlwareid ) AND
	( scid = :scid ) Using commit_transaction  ;
	
IF commit_transaction.SQLCode = 0 THEN
	IF commit_transaction.SQLNRows = 0 THEN
		///////////////////////// //
		ls_newid = f_sys_scidentity(scid,"ow_wfjgware","mtrlwareid",arg_msg,False,commit_transaction)
		IF ls_newid <= 0 THEN
			rslt = 0
			GOTO ext
		END IF
		///////////////////////// //
		INSERT INTO ow_wfjgware
			( scid,
			sptid,
			mtrlwareid,
			mtrlid,
			plancode,
			status,
			woodcode,
			pcode,
			noallocqty,
			allocqty,
			wareamt,
			cost,
			indate)
			VALUES (
			:scid,
			:arg_sptid,
			:ls_newid,
			:arg_mtrlid,
			:arg_plancode,
			:arg_status,
			:arg_woodcode,
			:arg_pcode,
			:arg_qty,
			0,
			case when :sys_option_wfjgware_nocost = 1 then 0 else round(:arg_price * :arg_qty,2) END,
			case when :sys_option_wfjgware_nocost = 1 then 0 else :ld_cost END,
			getdate()) Using commit_transaction ;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			IF Pos(Lower(commit_transaction.SQLErrText),'pk_ow_wfjgware') > 0 THEN
				arg_msg = '插入外协商库存操作失败,关键字分部ID、库存ID重复'
			ELSE
				arg_msg = "物料["+arg_mtrlcode+"]外协商库存建立操作失败"+"~n"+commit_transaction.SQLErrText
			END IF
			GOTO ext
		END IF
		
	END IF
ELSE
	rslt = 0
	or_err_part = 'column insert or update conflicts with a rule imposed by a previous create rule statement'
	IF commit_transaction.SQLCode = 513 Or Pos(Lower(commit_transaction.SQLErrText),or_err_part) > 0 THEN
		arg_msg = "物料["+arg_mtrlcode+"]同外协商内同批号没有足够的库存支持冲减"
	ELSE
		arg_msg = "物料["+arg_mtrlcode+"]外协商库存更新操作失败"+"~n"+commit_transaction.SQLErrText
	END IF
	GOTO ext
END IF

//-----------------------------------更新结存
Decimal ld_balcqty,ld_balcamt
Decimal ld_outqty,ld_outamt
Decimal ld_reoutqty,ld_reoutamt
Decimal ld_pypkqty,ld_pypkamt
Decimal ld_wasteqty,ld_wasteamt 

ld_balcqty = arg_qty
ld_balcamt = Round(arg_qty * arg_price,2)

CHOOSE CASE billtype
	CASE 4,5
		IF thflag = 0 THEN
			ld_outqty = arg_qty
			ld_outamt = Round(arg_qty * arg_price,2)
			ld_reoutqty = 0
			ld_reoutamt = 0
			ld_pypkqty = 0
			ld_pypkamt = 0
			ld_wasteqty = 0
			ld_wasteamt = 0
		ELSE
			ld_outqty = 0
			ld_outamt = 0
			ld_reoutqty = 0 - arg_qty
			ld_reoutamt = 0 - Round(arg_qty * arg_price,2)
			ld_pypkqty = 0
			ld_pypkamt = 0
			ld_wasteqty = 0
			ld_wasteamt = 0
		END IF
		
	CASE 9
		ld_outqty = 0
		ld_outamt = 0
		ld_reoutqty = 0
		ld_reoutamt = 0
		ld_pypkqty = 0 - arg_qty
		ld_pypkamt = 0 - Round(arg_qty * arg_price,2)
		ld_wasteqty = 0
		ld_wasteamt = 0
	CASE 10
		ld_outqty = 0
		ld_outamt = 0
		ld_reoutqty = 0
		ld_reoutamt = 0
		ld_pypkqty = 0 
		ld_pypkamt = 0
		ld_wasteqty = arg_qty
		ld_wasteamt = Round(arg_qty * arg_price,2)
END CHOOSE

UPDATE ow_wfjgbalc
	SET
	balcqty = balcqty - :ld_balcqty,
	balcamt = case when :sys_option_wfjgware_nocost = 1 then 0 else balcamt - :ld_balcamt end,
	outqty = outqty + :ld_outqty ,
	outamt  = case when :sys_option_wfjgware_nocost = 1 then 0 else outamt + :ld_outamt end,
	reoutqty = reoutqty + :ld_reoutqty ,
	reoutamt  = case when :sys_option_wfjgware_nocost = 1 then 0 else reoutamt + :ld_reoutamt end,
	pypkqty = pypkqty + :ld_pypkqty,
	pypkamt = case when :sys_option_wfjgware_nocost = 1 then 0 else pypkamt + :ld_pypkamt end,
	wasteqty = wasteqty + :ld_wasteqty,
	wasteamt = case when :sys_option_wfjgware_nocost = 1 then 0 else wasteamt + :ld_wasteamt end
	WHERE ( mtrlid = :arg_mtrlid ) AND
	( sptid = :arg_sptid ) AND
	( balcdateint  = 0) 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 ow_wfjgbalc
			( balcdateint,
			mtrlid,
			sptid,
			bgqty,
			bgamt,
			inqty,
			inamt,
			outqty,
			outamt,
			reoutqty,
			reoutamt,
			thqty,
			thamt,
			balcqty,
			balcamt,
			wasteqty,
			wasteamt,
			pypkqty,
			pypkamt,
			status,
			woodcode,
			pcode,
			scid)
			VALUES (
			0,
			:arg_mtrlid,
			:arg_sptid,
			0,
			0,
			0,
			0,
			:ld_outqty,
			case when :sys_option_wfjgware_nocost = 1 then 0 else :ld_outamt end,
			:ld_reoutqty,
			case when :sys_option_wfjgware_nocost = 1 then 0 else :ld_reoutamt end,
			0,
			0,
			0 - :ld_balcqty,
			case when :sys_option_wfjgware_nocost = 1 then 0 else 0 - :ld_balcamt end,
			:ld_wasteqty,
			case when :sys_option_wfjgware_nocost = 1 then 0 else :ld_wasteamt end,
			:ld_pypkqty,
			case when :sys_option_wfjgware_nocost = 1 then 0 else :ld_pypkamt end,
			:arg_status,
			:arg_woodcode,
			:arg_pcode,
			:scid) Using commit_transaction ;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			IF Pos(Lower(commit_transaction.SQLErrText),'pk_ow_wfjgbalc') > 0 THEN
				arg_msg = '插入外协商结存操作失败,关键字重复'
			ELSE
				arg_msg = "物料["+arg_mtrlcode+"]外协商结存建立操作失败"+"~n"+commit_transaction.SQLErrText
			END IF
			GOTO ext
		END IF
	END IF
ELSE
	rslt = 0
	or_err_part = 'column insert or update conflicts with a rule imposed by a previous create rule statement'
	IF commit_transaction.SQLCode = 513 Or Pos(Lower(commit_transaction.SQLErrText),or_err_part) > 0 THEN
		arg_msg = "物料["+arg_mtrlcode+"]同外协商内同批号没有足够的结存支持冲减"
	ELSE
		arg_msg = "物料["+arg_mtrlcode+"]外协商结存更新操作失败"+"~n"+commit_transaction.SQLErrText
	END IF
	GOTO ext
END IF



ext:
IF rslt = 0 THEN
	ROLLBACK;
END IF
RETURN rslt





end function

public function integer newbegin (long arg_scid, integer arg_billtype, ref string arg_msg);//====================================================================
// Function: newbegin(long arg_scid,int arg_billtype,ref string arg_msg)
//--------------------------------------------------------------------
// Description: 从置对象,设定业务类型,准备建立新进仓单
//--------------------------------------------------------------------
// Arguments: 
//		value    	long   	arg_scid    		
//		value    	integer	arg_billtype		
//		reference	string 	arg_msg     		
//--------------------------------------------------------------------
// Returns:  integer
//--------------------------------------------------------------------
// Author:	yyx		Date: 2003.11.12
//--------------------------------------------------------------------
// Modify History: 
//	
//====================================================================
Int rslt = 1

IF arg_scid < 0 THEN
	arg_msg = '请选择分部'
	rslt = 0
	GOTO ext
END IF

p_reset()
scid = arg_scid
billtype = arg_billtype

it_newbegin = True
it_updatebegin = False

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

end function

public function integer updatebegin (long arg_scid, long arg_inwareid, integer arg_billtype, ref string arg_msg);//====================================================================
// Function: updatebegin(arg_scid,arg_inwareid,arg_billtype,arg_msg)
//--------------------------------------------------------------------
// Description: 从置对象,设定业务类型与关联ID,准备更新进仓单
//--------------------------------------------------------------------
// Arguments: 
//		value    	long   	arg_scid    		
//		value    	long   	arg_inwareid		
//		value    	integer	arg_billtype		
//		reference	string 	arg_msg     		
//--------------------------------------------------------------------
// Returns:  integer
//--------------------------------------------------------------------
// Author:	yyx		Date: 2003.11.12
//--------------------------------------------------------------------
// Modify History: 
//	
//====================================================================
Long rslt = 1

IF arg_scid < 0 THEN
	arg_msg = '请选择分部'
	rslt = 0
	GOTO ext
END IF

IF arg_inwareid <= 0 THEN
	rslt = 0
	GOTO ext
END IF



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

IF flag = 1 THEN
	rslt = 0
	arg_msg = '单据已经审核,不可以修改'
	GOTO ext
END IF

inwareid = arg_inwareid
scid = arg_scid
billtype = arg_billtype

it_newbegin = False
it_updatebegin = True
p_clearmx() //清除明细

ext:
IF rslt = 0 THEN p_reset()
IF billtype = 4 THEN
	IF thflag = 0 THEN
		arg_msg = '仓库外协收货单,'+ arg_msg
	ELSE
		arg_msg = '仓库外协返工单,'+ arg_msg
	END IF
ELSEIF billtype = 5 THEN
	IF thflag = 0 THEN
		arg_msg = '车间外协收货单,'+ arg_msg
	ELSE
		arg_msg = '车间外协返工单,'+ arg_msg
	END IF
END IF
RETURN rslt

end function

public function integer p_update_cost (long arg_mtrlwareid, string arg_mtrlcode, long arg_printid, ref decimal arg_ref_cost, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Decimal ld_cost

//IF sys_option_wfjgth_wareamt = 0 THEN
SELECT cost INTO :ld_cost
	FROM ow_wfjgware
	WHERE sptid = :sptid
	And mtrlwareid = :arg_mtrlwareid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询'+arg_mtrlcode+'供应商库存成本价失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF
//ELSE
//	SELECT price INTO :ld_cost
//		FROM ow_wfjgmx_in_bef
//		WHERE inwareid = :inwareid
//		And printid = :arg_printid Using commit_transaction;
//	IF commit_transaction.SQLCode <> 0 THEN
//		arg_msg = '查询'+arg_mtrlcode+'退货单价价失败,'+commit_transaction.SQLErrText
//		rslt = 0
//		GOTO ext
//	END IF
//END IF

UPDATE ow_wfjgmx_in_bef
	SET fprice = :ld_cost
	WHERE inwareid = :inwareid
	And printid = :arg_printid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '更新'+arg_mtrlcode+'成本价失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

arg_ref_cost = ld_cost

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



end function

public function integer acceptmx_bef (long arg_mtrlwareid, decimal arg_qty, decimal arg_price, string arg_mxdscrp, long arg_printid, ref string arg_msg, string arg_unit, decimal arg_uqty, decimal arg_rate);Long rslt = 1,cnt = 0,LS_i
Long i_mtrlid,i_sptid
String i_plancode,i_mtrlcode,i_status,i_woodcode,i_pcode
Double i_cost,i_newprice
Decimal i_allouseqty
String ls_relcode
Decimal ld_rate = 1

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


IF IsNull(arg_mtrlwareid) THEN arg_mtrlwareid = 0
IF IsNull(arg_printid) THEN arg_printid = 0
IF IsNull(arg_qty) THEN arg_qty = 0
IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = ''

//messagebox("",arg_mtrlwareid)
IF arg_mtrlwareid = 0 Or arg_qty = 0  THEN
	rslt = 1
	GOTO ext
END IF

SELECT ow_wfjgware.mtrlid,
	ow_wfjgware.sptid,
	ow_wfjgware.plancode,
	ow_wfjgware.status,
	ow_wfjgware.cost,
	u_mtrldef.mtrlcode,
	ow_wfjgware.woodcode,
	ow_wfjgware.pcode,
	ow_wfjgware.noallocqty
	INTO :i_mtrlid,
	:i_sptid,
	:i_plancode,
	:i_status,
	:i_cost,
	:i_mtrlcode,
	:i_woodcode,
	:i_pcode,
	:i_allouseqty
	FROM ow_wfjgware ,u_mtrldef
	WHERE ( ow_wfjgware.mtrlwareid = :arg_mtrlwareid )
	AND	( ow_wfjgware.mtrlid = u_mtrldef.mtrlid )
	And ( ow_wfjgware.scid = :scid ) Using commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	IF Pos(Lower(commit_transaction.SQLErrText),'more than') > 0 THEN
		arg_msg = '库存查询操作失败,查询数据返回值多于一个'
	ELSE
		arg_msg = "查询操作失败(错误库存编号唯一码)"
	END IF
	GOTO ext
END IF

IF IsNull(i_cost) THEN i_cost = 0
IF IsNull(i_plancode) THEN i_plancode = ''
IF IsNull(i_status) THEN i_status = ''
IF IsNull(i_mtrlid) THEN i_mtrlid = 0
IF IsNull(i_sptid) THEN i_sptid = 0
IF IsNull(i_woodcode) THEN i_woodcode = ''
IF IsNull(i_pcode) THEN i_pcode = ''


IF sptid <> i_sptid THEN
	arg_msg =  "物料:" + String(i_mtrlcode) + '所属加工商资料不对应'
	rslt = 0
	GOTO ext
END IF


IF i_cost  < 0 THEN //检查进仓价
	rslt = 0
	arg_msg = "物料:" + String(i_mtrlcode)+" 单价错误"
	GOTO ext
END IF

IF sys_option_2unit = 0 THEN
	arg_uqty = arg_qty
END IF


//写入内容
it_mxbt_bef++
inwaremx_bef[it_mxbt_bef].mtrlwareid = arg_mtrlwareid
inwaremx_bef[it_mxbt_bef].mtrlid = i_mtrlid
inwaremx_bef[it_mxbt_bef].status = i_status
inwaremx_bef[it_mxbt_bef].qty = arg_qty
inwaremx_bef[it_mxbt_bef].sptid = i_sptid
inwaremx_bef[it_mxbt_bef].cost = i_cost
inwaremx_bef[it_mxbt_bef].costamt = Round(i_cost * arg_qty,2)
inwaremx_bef[it_mxbt_bef].plancode = i_plancode
inwaremx_bef[it_mxbt_bef].mtrlcode = i_mtrlcode
inwaremx_bef[it_mxbt_bef].mxdscrp = arg_mxdscrp
inwaremx_bef[it_mxbt_bef].printid = arg_printid
inwaremx_bef[it_mxbt_bef].woodcode = i_woodcode
inwaremx_bef[it_mxbt_bef].pcode = i_pcode


//messagebox("",it_mxbt_bef)
IF thflag = 0 THEN
	inwaremx_bef[it_mxbt_bef].fprice = i_cost
ELSE
	inwaremx_bef[it_mxbt_bef].fprice = arg_price
END IF



IF sys_option_2unit = 0 THEN 
	IF arg_rate = 0 THEN
		arg_rate = arg_qty/arg_uqty
	ELSE
		arg_uqty = arg_qty/arg_rate
	END IF
END IF

IF arg_uqty <> 0 THEN
	inwaremx_bef[it_mxbt_bef].rate = arg_qty / arg_uqty
ELSE
	inwaremx_bef[it_mxbt_bef].rate = 0
END IF

inwaremx_bef[it_mxbt_bef].unit = arg_unit
inwaremx_bef[it_mxbt_bef].uqty = arg_uqty

ext:
IF rslt = 0 THEN p_clearmx()
IF billtype = 4 THEN
	IF thflag = 0 THEN
		arg_msg = '仓库外协收货单,'+ arg_msg
	ELSE
		arg_msg = '仓库外协返工单,'+ arg_msg
	END IF
ELSEIF billtype = 5 THEN
	IF thflag = 0 THEN
		arg_msg = '车间外协收货单,'+ arg_msg
	ELSE
		arg_msg = '车间外协返工单,'+ arg_msg
	END IF
END IF
RETURN rslt







end function

public function integer acceptmx_bef_th (long arg_mtrlwareid, decimal arg_qty, decimal arg_price, string arg_mxdscrp, long arg_printid, ref string arg_msg, string arg_unit, decimal arg_uqty, decimal arg_rate, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, string arg_woodcode, string arg_pcode);Long rslt = 1,cnt = 0,LS_i
Long i_mtrlid,i_sptid
String i_plancode,i_mtrlcode,i_status,i_woodcode,i_pcode
Double i_cost,i_newprice
Decimal i_allouseqty
String ls_relcode
Decimal ld_rate = 1
Long ls_newid

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


IF IsNull(arg_mtrlwareid) THEN arg_mtrlwareid = 0
IF IsNull(arg_printid) THEN arg_printid = 0
IF IsNull(arg_qty) THEN arg_qty = 0
IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = ''


SELECT ow_wfjgware.mtrlid,
	ow_wfjgware.sptid,
	ow_wfjgware.plancode,
	ow_wfjgware.status,
	ow_wfjgware.cost,
	u_mtrldef.mtrlcode,
	ow_wfjgware.woodcode,
	ow_wfjgware.pcode,
	ow_wfjgware.noallocqty
	INTO :i_mtrlid,
	:i_sptid,
	:i_plancode,
	:i_status,
	:i_cost,
	:i_mtrlcode,
	:i_woodcode,
	:i_pcode,
	:i_allouseqty
	FROM ow_wfjgware ,u_mtrldef
	WHERE ( ow_wfjgware.mtrlwareid = :arg_mtrlwareid )
	AND	( ow_wfjgware.mtrlid = u_mtrldef.mtrlid )
	And ( ow_wfjgware.scid = :scid ) Using commit_transaction;
IF commit_transaction.SQLCode = 0 THEN
	IF commit_transaction.SQLNRows = 0 THEN
		
	END IF
//ELSEIF  commit_transaction.SQLCode = 100 THEN
//	ls_newid = f_sys_scidentity(0,"ow_wfjgware","mtrlwareid",arg_msg,False,commit_transaction)
//	IF ls_newid <= 0 THEN
//		rslt = 0
//		GOTO ext
//	END IF
//	///////////////////////// //
//	INSERT INTO ow_wfjgware
//		(
//		scid,
//		mtrlwareid,
//		mtrlid,
//		plancode,
//		status,
//		noallocqty,
//		allocqty,
//		wareamt,
//		sptid,
//		woodcode,
//		pcode,
//		cost,
//		indate)
//		VALUES (
//		:scid,
//		:ls_newid,
//		:arg_mtrlid,
//		:arg_plancode,
//		:arg_status,
//		0,
//		0,
//		0,
//		:sptid,
//		:arg_woodcode,
//		:arg_pcode,
//		0,
//		getdate()) Using commit_transaction ;
//	IF commit_transaction.SQLCode <> 0 THEN
//		rslt = 0
//		IF Pos(Lower(commit_transaction.SQLErrText),'pk_ow_wfjgware') > 0 THEN
//			arg_msg = '插入外协商库存操作失败,关键字分部ID、库存ID重复'
//		ELSE
//			arg_msg = "物料["+arg_mtrlcode+"]库存建立操作失败"+"~n"+commit_transaction.SQLErrText
//		END IF
//		GOTO ext
//	END IF
//	arg_mtrlwareid = ls_newid
//	i_sptid=sptid
ELSEIF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败(错误库存编号唯一码)"
	GOTO ext
END IF

IF IsNull(i_cost) THEN i_cost = 0
IF IsNull(i_plancode) THEN i_plancode = ''
IF IsNull(i_status) THEN i_status = ''
IF IsNull(i_mtrlid) THEN i_mtrlid = 0
IF IsNull(i_sptid) THEN i_sptid = 0
IF IsNull(i_woodcode) THEN i_woodcode = ''
IF IsNull(i_pcode) THEN i_pcode = ''


IF sptid <> i_sptid THEN
	arg_msg =  "物料:" + String(i_mtrlcode) + '所属加工商资料不对应'
	rslt = 0
	GOTO ext
END IF


IF i_cost  < 0 THEN //检查进仓价
	rslt = 0
	arg_msg = "物料:" + String(i_mtrlcode)+" 单价错误"
	GOTO ext
END IF



//写入内容
it_mxbt_bef++
inwaremx_bef[it_mxbt_bef].mtrlwareid = arg_mtrlwareid
inwaremx_bef[it_mxbt_bef].mtrlid = i_mtrlid
inwaremx_bef[it_mxbt_bef].status = i_status
inwaremx_bef[it_mxbt_bef].qty = arg_qty
inwaremx_bef[it_mxbt_bef].sptid = i_sptid
inwaremx_bef[it_mxbt_bef].cost = i_cost
inwaremx_bef[it_mxbt_bef].costamt = Round(i_cost * arg_qty,2)
inwaremx_bef[it_mxbt_bef].plancode = i_plancode
inwaremx_bef[it_mxbt_bef].mtrlcode = i_mtrlcode
inwaremx_bef[it_mxbt_bef].mxdscrp = arg_mxdscrp
inwaremx_bef[it_mxbt_bef].printid = arg_printid
inwaremx_bef[it_mxbt_bef].woodcode = i_woodcode
inwaremx_bef[it_mxbt_bef].pcode = i_pcode

IF thflag = 0 THEN
	inwaremx_bef[it_mxbt_bef].fprice = i_cost
ELSE
	inwaremx_bef[it_mxbt_bef].fprice = arg_price
END IF



IF sys_option_2unit = 0 THEN 
	IF arg_rate = 0 THEN
		arg_rate = arg_qty/arg_uqty
	ELSE
		arg_uqty = arg_qty/arg_rate
	END IF
END IF

IF arg_uqty <> 0 THEN
	inwaremx_bef[it_mxbt_bef].rate = arg_qty / arg_uqty
ELSE
	inwaremx_bef[it_mxbt_bef].rate = 0
END IF

inwaremx_bef[it_mxbt_bef].unit = arg_unit
inwaremx_bef[it_mxbt_bef].uqty = arg_uqty

ext:
IF rslt = 0 THEN p_clearmx()
IF billtype = 4 THEN
	IF thflag = 0 THEN
		arg_msg = '仓库外协收货单,'+ arg_msg
	ELSE
		arg_msg = '仓库外协返工单,'+ arg_msg
	END IF
ELSEIF billtype = 5 THEN
	IF thflag = 0 THEN
		arg_msg = '车间外协收货单,'+ arg_msg
	ELSE
		arg_msg = '车间外协返工单,'+ arg_msg
	END IF
END IF
RETURN rslt








end function

public function integer mod_price (long arg_scid, long arg_inwareid, long arg_printid, decimal arg_fprice, decimal arg_jgprice, decimal arg_rebate, decimal arg_tax, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1

uo_inware uo_in
uo_in = CREATE uo_inware
uo_in.commit_transaction = sqlca

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

IF flag = 0 THEN
	rslt = 0
	arg_msg = '待审核状态不能执行修改单价功能'
	GOTO ext
END IF

IF secflag = 1 THEN
	rslt = 0
	arg_msg = '已财审状态不能执行修改单价功能'
	GOTO ext
END IF

Decimal ld_jgprice,ld_fprice,ld_uqty,ld_rate,ld_qty,ld_rebate,lde_tax
Long ll_mtrlid
String ls_status,ls_woodcode,ls_pcode
Long ll_storageid

SELECT jgprice,
	fprice,
	tax,
	uqty,
	qty,
	rebate,
	mtrlid,
	status,
	woodcode,
	pcode,
	storageid
	INTO :ld_jgprice,
	:ld_fprice,
	:lde_tax,
	:ld_uqty,
	:ld_qty,
	:ld_rebate,
	:ll_mtrlid,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:ll_storageid
	FROM ow_wfjgmx_in_aft
	WHERE scid = :arg_scid
	AND inwareid = :arg_inwareid
	AND printid = :arg_printid
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询单据明细内容失败'+commit_transaction.SQLErrText
	GOTO ext
END IF

if arg_tax = -1 then arg_tax = lde_tax
if arg_rebate = -1 then arg_rebate = ld_rebate

IF arg_jgprice = ld_jgprice AND arg_fprice = ld_fprice AND ld_rebate = arg_rebate and lde_tax = arg_tax THEN
	rslt = 0
	arg_msg = '加工价、材料成本价、折扣、税率没有任何修改,不能保存'
	GOTO ext
END IF

Decimal ld_uprice_new,ld_price_new,ld_cost_new
IF ld_qty <> 0 THEN
	ld_uprice_new = Round(arg_jgprice * ld_uqty/ld_qty,5)
ELSE
	ld_uprice_new = 0
END IF

ld_cost_new = ld_uprice_new * arg_rebate + arg_fprice

ld_price_new = ld_uprice_new * arg_rebate + arg_fprice

UPDATE ow_wfjgmx_in_aft
	SET jgprice = :arg_jgprice,
	fprice = :arg_fprice,
	uprice = :ld_uprice_new,
	price = :ld_price_new,
	cost = :ld_cost_new
	WHERE scid = :arg_scid
	AND inwareid = :arg_inwareid
	AND printid = :arg_printid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新单据明细失败'+commit_transaction.SQLErrText
	GOTO ext
END IF

IF billtype = 4  THEN
	
	Long ll_inwareid
	SELECT inwareid
		INTO :ll_inwareid
		FROM u_inware
		WHERE scid = :arg_scid
		AND relid = :arg_inwareid
		AND storageid = :ll_storageid
		AND billtype = 4  USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询相关进仓单失败'+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	//进仓单用库存单位进仓
	IF uo_in.mod_price(arg_scid,ll_inwareid,arg_printid,ld_uprice_new * arg_rebate + arg_fprice,arg_jgprice,-1,-1,arg_msg,false) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
END IF
ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF
RETURN rslt


end function

public function integer acceptmx (long arg_printid, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, decimal arg_uqty, decimal arg_fprice, decimal arg_rebate, string arg_mxdscrp, ref string arg_msg, decimal arg_jgprice, long arg_relid, long arg_relprintid, integer arg_ifrel, string arg_woodcode, string arg_pcode, long arg_cusid_sptid, string arg_unit, decimal arg_qty, long arg_storageid, decimal arg_rate, decimal arg_addqty, string arg_mxdscrp2, string arg_mxdscrp3, string arg_mxdscrp4);
Decimal ld_planprice,ld_cost
Decimal ld_noauditqty,ld_bootqty
String ls_relcode,ls_saletaskcode
Int li_iflimitprice
Long rslt = 1,cnt = 0,ls_i

uo_spt_price uo_sptprice
uo_sptprice = Create uo_spt_price

String ls_sptmtrlname

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

//清除空值
IF IsNull(arg_printid) THEN arg_printid = 0
IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0
IF IsNull(arg_mtrlcode) THEN arg_mtrlcode = ''
IF IsNull(arg_plancode) THEN arg_plancode = ''
IF IsNull(arg_status) THEN arg_status = ''
IF IsNull(arg_uqty) THEN arg_uqty = 0
IF IsNull(arg_fprice) THEN arg_fprice = 0
IF IsNull(arg_rebate) THEN arg_rebate = 0
IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = ''
IF IsNull(arg_jgprice) THEN arg_jgprice = 0
IF IsNull(arg_relid) THEN arg_relid = 0
IF IsNull(arg_relprintid) THEN arg_relprintid = 0
IF IsNull(arg_ifrel) THEN arg_ifrel = 0
IF IsNull(arg_mxdscrp) THEN arg_woodcode = ''
IF IsNull(arg_pcode) THEN arg_pcode = ''
IF IsNull(arg_cusid_sptid) THEN arg_cusid_sptid = 0
IF IsNull(arg_storageid) THEN arg_storageid = 0
IF IsNull(arg_unit) THEN arg_unit = ''
IF IsNull(arg_rate) THEN arg_rate = 1
IF IsNull(arg_addqty) THEN arg_addqty = 0

IF IsNull(arg_mxdscrp2) THEN arg_mxdscrp2 = ''
IF IsNull(arg_mxdscrp3) THEN arg_mxdscrp3 = ''
IF IsNull(arg_mxdscrp4) THEN arg_mxdscrp4 = ''

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


IF sys_option_2unit = 1 THEN
	IF arg_uqty = 0 THEN
		arg_msg = '行:'+String(arg_printid)+ ',请输入计价数量'
		rslt = 0
		GOTO ext
	END IF
	
	IF Trim(arg_unit) = '' THEN
		arg_msg = '行:'+String(arg_printid)+ ',请输入计价单位'
		rslt = 0
		GOTO ext
	END IF
ELSE
	arg_uqty = arg_qty/arg_rate
END IF

IF billtype = 4 THEN
	Decimal ol_mtrl_qty = 0
	Int ls_noallocflag
	Decimal lde_nouseqty
	
	SELECT noallocflag INTO :ls_noallocflag
		FROM u_storage
		Where storageid = :arg_storageid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询仓库允许使用未开单库存属性失败'+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	IF ls_noallocflag = 1 AND thflag = 1  THEN
		SELECT sum(u_mtrlware.noallocqty - isnull(uv_mtrlware_noauditingqty.noauditingqty, 0))
		INTO :lde_nouseqty
		FROM u_mtrlware LEFT OUTER JOIN uv_mtrlware_noauditingqty 
		ON (u_mtrlware.mtrlwareid = uv_mtrlware_noauditingqty.mtrlwareid)
		AND (u_mtrlware.scid = uv_mtrlware_noauditingqty.scid)
		WHERE u_mtrlware.scid = :scid
			AND u_mtrlware.mtrlid = :arg_mtrlid
			AND u_mtrlware.STATUS = :arg_status
			AND u_mtrlware.plancode = :arg_plancode
			AND u_mtrlware.woodcode = :arg_woodcode
			AND u_mtrlware.pcode = :arg_pcode
			AND u_mtrlware.storageid = :arg_storageid
			AND u_mtrlware.dxflag = :dxflag
			AND u_mtrlware.sptid = :arg_cusid_sptid Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "查询操作失败,仓库"
			GOTO ext
		END IF
		
		If (Abs(arg_qty) > lde_nouseqty )  THEN
			rslt = 0
			arg_msg =  '行:'+String(arg_printid)+"物料:" + arg_mtrlcode+' 未开单数:'+String(lde_nouseqty,'#,##0.##########')+'少于本次返工数量:'+String(Abs(arg_qty),'#,##0.##########')
			GOTO ext
		END IF
	END IF
	
END IF

IF f_check_status(1, arg_status) = 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,可能颜色未定义,"+arg_mtrlcode+",颜色:"+arg_status
	GOTO ext
END IF

//检查物料id
SELECT planprice
	INTO :ld_planprice
	FROM u_mtrldef
	Where u_mtrldef.mtrlid = :arg_mtrlid Using commit_transaction ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,编码:"+arg_mtrlcode
	GOTO ext
END IF

//检查物料限价属性
SELECT iflimitprice
	INTO :li_iflimitprice
	FROM u_mtrldef
	Where u_mtrldef.mtrlid = :arg_mtrlid Using commit_transaction ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询物料限价属性失败:"+arg_mtrlcode
	GOTO ext
END IF

//查询采购限价并检查进仓价
IF billtype = 1 Or billtype = 4 THEN
	IF li_iflimitprice = 1 THEN
		IF uo_sptprice.uf_check_price_save(thflag,sptid,arg_mtrlid,arg_mtrlcode,arg_unit,arg_status,arg_woodcode,arg_pcode,arg_jgprice,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
END IF

IF arg_ifrel > 0 THEN
	IF arg_relid = 0 THEN
		arg_msg = '请先择相应的加工计划'
		rslt = 0
		GOTO ext
	END IF
	
	SELECT u_order_wfjg.taskcode,a = CASE when u_order_wfjg.billtype = 1 THEN  u_order_wfjgmx.relcode ELSE '' END
Into :ls_relcode,:ls_saletaskcode
From u_order_wfjgmx,u_order_wfjg
Where u_order_wfjgmx.wfjgid = :arg_relid
And u_order_wfjgmx.printid = :arg_relprintid
And u_order_wfjgmx.mtrlid = :arg_mtrlid
And u_order_wfjgmx.status = :arg_status
And u_order_wfjgmx.woodcode = :arg_woodcode
And u_order_wfjgmx.pcode = :arg_pcode
And u_order_wfjgmx.wfjgid =  u_order_wfjg.wfjgid
And u_order_wfjgmx.scid =  u_order_wfjg.scid
Using commit_transaction;

IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询加工计划是否有加工产品:'+arg_mtrlcode+'失败'
	rslt = 0
	GOTO ext
END IF

END IF

IF arg_fprice * arg_rebate < 0 THEN //检查进仓价
	rslt = 0
	arg_msg = "编码:" + String(arg_mtrlcode)+" 单价错误"
	GOTO ext
END IF

//写入内容
it_mxbt++
inwaremx[it_mxbt].noauditqty = ld_noauditqty
inwaremx[it_mxbt].printid = arg_printid
inwaremx[it_mxbt].mtrlid = arg_mtrlid
inwaremx[it_mxbt].mtrlcode = arg_mtrlcode
inwaremx[it_mxbt].unit = arg_unit
inwaremx[it_mxbt].storageid = arg_storageid
inwaremx[it_mxbt].bootqty = ld_bootqty

Long ll_if_plancode,ll_inwaretype
IF arg_storageid > 0 THEN
	SELECT if_plancode,inwaretype
		INTO   :ll_if_plancode,:ll_inwaretype
		FROM   u_storage
		Where  storageid = :arg_storageid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询仓库资料失败'
		GOTO ext
	END IF
	
	IF ll_if_plancode = 0 THEN
		inwaremx[it_mxbt].plancode = ''
	ELSEIF ll_inwaretype = 1 THEN
		inwaremx[it_mxbt].plancode = arg_plancode
	ELSEIF ll_inwaretype = 2 THEN
		inwaremx[it_mxbt].plancode = String(Round(arg_fprice * arg_rebate,5))
	ELSEIF ll_inwaretype = 3 THEN
		IF ls_saletaskcode <> '' THEN
			inwaremx[it_mxbt].plancode = ls_saletaskcode
		ELSE
			inwaremx[it_mxbt].plancode = arg_plancode
		END IF
	END IF
END IF



inwaremx[it_mxbt].uqty = arg_uqty
inwaremx[it_mxbt].jgprice = arg_jgprice
inwaremx[it_mxbt].rebate = arg_rebate

IF arg_qty <> 0 THEN
	inwaremx[it_mxbt].uprice = Round(arg_jgprice * arg_uqty/arg_qty,5) //加工价,本位币,库存单位
ELSE
	inwaremx[it_mxbt].uprice = 0
END IF

IF arg_uqty <> 0 THEN
	inwaremx[it_mxbt].rate = arg_qty/arg_uqty
ELSE
	inwaremx[it_mxbt].rate = 0
END IF

inwaremx[it_mxbt].qty = arg_qty
inwaremx[it_mxbt].addqty = arg_addqty
inwaremx[it_mxbt].fprice = arg_fprice //材料成本价
inwaremx[it_mxbt].price = inwaremx[it_mxbt].uprice * arg_rebate + arg_fprice //进仓成本价,本位币,库存单位

inwaremx[it_mxbt].planprice = ld_planprice

inwaremx[it_mxbt].mxdscrp = arg_mxdscrp
inwaremx[it_mxbt].dxflag = dxflag

inwaremx[it_mxbt].ifrel = arg_ifrel
inwaremx[it_mxbt].relid = arg_relid
inwaremx[it_mxbt].relprintid = arg_relprintid
inwaremx[it_mxbt].relcode = ls_relcode

inwaremx[it_mxbt].status = arg_status
inwaremx[it_mxbt].woodcode = arg_woodcode
inwaremx[it_mxbt].pcode = arg_pcode
IF dxflag = 0 THEN
	inwaremx[it_mxbt].sptid = arg_cusid_sptid
ELSE
	inwaremx[it_mxbt].sptid = sptid
END IF


inwaremx[it_mxbt].mxdscrp2 = arg_mxdscrp2
inwaremx[it_mxbt].mxdscrp3 = arg_mxdscrp3
inwaremx[it_mxbt].mxdscrp4 = arg_mxdscrp4







IF billtype = 1 THEN
	IF uo_sptprice.uf_getmtrlname(sptid,arg_mtrlid,ls_sptmtrlname,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	inwaremx[it_mxbt].sptmtrlname = ls_sptmtrlname
END IF

IF thflag = 1 THEN
	IF sys_option_wfjgth_wareamt = 0 THEN
		SELECT cost
			INTO :ld_cost
			FROM u_mtrlware
			WHERE scid = :scid
			AND mtrlid = :arg_mtrlid
			AND status = :arg_status
			AND plancode = :arg_plancode
			AND woodcode = :arg_woodcode
			AND pcode = :arg_pcode
			AND storageid = :arg_storageid
			AND dxflag = :dxflag
			And sptid = :arg_cusid_sptid;
		IF sqlca.SQLCode <> 0 Or IsNull(ld_cost) THEN ld_cost = 0
		inwaremx[it_mxbt].cost = ld_cost
	ELSE
		inwaremx[it_mxbt].cost = inwaremx[it_mxbt].price
	END IF
ELSE
	inwaremx[it_mxbt].cost = inwaremx[it_mxbt].price
END IF


ext:
Destroy uo_sptprice
IF rslt = 0 THEN p_clearmx()
IF billtype = 4 THEN
	IF thflag = 0 THEN
		arg_msg = '仓库外协收货单,'+ arg_msg
	ELSE
		arg_msg = '仓库外协返工单,'+ arg_msg
	END IF
ELSEIF billtype = 5 THEN
	IF thflag = 0 THEN
		arg_msg = '车间外协收货单,'+ arg_msg
	ELSE
		arg_msg = '车间外协返工单,'+ arg_msg
	END IF
END IF

Return(rslt)



end function

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

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