Q5/ws_objects/Ew_bsnobj.pbl.src/uo_inware.sru

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

global type uo_inware from nonvisualobject
end type
global uo_inware uo_inware

type variables
PUBLIC PROTECTEDWRITE Long scid = 0 //分部id
PUBLIC PROTECTEDWRITE Long inwareid      //进仓单表自动增量id
PUBLIC PROTECTEDWRITE String inwarecode  //单据的唯一编号
PUBLIC PROTECTEDWRITE Int billtype = 0     //业务类型
//业务类型
//1-采购进仓[记帐模式]
//2-采购进仓[不记帐模式]
//3-成品进仓
//8-其他进仓
//9-盘盈进仓
//12-调拨入仓

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 sum_amt_en = 0 //单据总金额
PUBLIC PROTECTEDWRITE Decimal sum_uamt = 0         //单据总金额(原币)
PUBLIC PROTECTEDWRITE Decimal sum_uamt_tax = 0         //税金(原币)
PUBLIC PROTECTEDWRITE Decimal sum_bsamt = 0         //单据总金额(本位币)
PUBLIC PROTECTEDWRITE Decimal sum_bsamt_tax = 0      //税金(本位币)

PUBLIC PROTECTEDWRITE Decimal jgsum_amt = 0 //单据加工总金额
PUBLIC PROTECTEDWRITE Int secflag = 0             //财务审核标志
PUBLIC PROTECTEDWRITE DateTime secauditingdate    //二审核时间
PUBLIC PROTECTEDWRITE String secauditingrep       //二审核操作员

Long staticid
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
Long relint_4 = 0
Long relint_5 = 0
String relstr_1 = ''
String relstr_2 = ''
String relstr_3 = ''
Boolean sysautobuild = FALSE //自动操作标记
Decimal mrate = 0
Long priceflag
datetime pricedate
string priceemp
Boolean if_getid_ture = TRUE
Transaction  commit_transaction //数据commit事务

long storage_plancode_flag=0  //仓库中是否设置了使用 “进仓单号” 作为批号

Int cwauditingflag = 0           //总账审核标记 
DateTime cwauditingdate          //总账审核时间
String cwauditingrep            //总账审核操作员
DateTime viewdate


s_inwaremx  inwaremx[] //明细结构数组
Long it_mxbt = 0               //明细结构数组末指针
Boolean it_newbegin = FALSE     //新建标志
Boolean it_updatebegin = FALSE //修改标志
String billname



end variables

forward prototypes
public function integer newbegin (long arg_scid, integer arg_billtype, ref string arg_msg)
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 updatebegin (long arg_scid, long arg_inwareid, integer arg_billtype, 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_update_cost (long arg_scid, long arg_mtrlid, long arg_sptid_cusid, long arg_storageid, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, long arg_dxflag, ref string arg_msg, boolean arg_ifcommit)
public function integer acceptmx (s_inwaremx s_mx, ref string arg_msg)
public function integer uof_check_warepdb_audit (long arg_storageid, ref string arg_msg)
public function integer auditing_chk (ref string arg_msg)
public function integer auditing_end (ref string arg_msg)
public function integer c_auditing_chk (ref string arg_msg)
public function integer c_auditing_end (ref string arg_msg)
public function integer save_chk (ref string arg_msg)
public function integer save_end (ref string arg_msg)
public function integer uf_chk_updatecost (ref string arg_msg)
public function integer acceptmx_chk (s_inwaremx s_mx, ref string arg_msg)
public function integer mod_price (long arg_scid, long arg_inwareid, long arg_printid, decimal arg_uprice, decimal arg_jgprice, decimal arg_rebate, decimal arg_tax, ref string arg_msg, boolean arg_ifcommit)
public function integer mod_buyqty (long arg_scid, long arg_inwareid, long arg_printid, decimal arg_buyqty, ref string arg_msg, boolean arg_ifcommit)
public subroutine uf_get_billname (integer arg_billtype)
public function decimal uof_get_mtrlware_cost (long arg_scid, long arg_storageid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, long arg_sptid, long arg_dxflag)
public function integer uf_w_cmp_fifo_cb_bill (long ll_scid, long ll_mtrlwareid, boolean arg_ifcommit, ref string arg_msg)
public function integer audit_subject (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg)
public function integer c_audit_subject (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg)
public function integer p_update_mtrlware (ref long arg_mtrlwareid, long arg_mtrlid, string arg_mtrlcode, long arg_storageid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_addqty, decimal arg_price, decimal arg_planprice, long arg_sptid, integer arg_dxflag, string arg_woodcode, string arg_pcode, ref string arg_msg, string arg_waredscrp, datetime arg_inworkdate, decimal arg_cost_notax)
public function decimal uof_get_mtrlware_cost_notax (long arg_scid, long arg_storageid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, long arg_sptid, long arg_dxflag)
public function integer p_update_th_cost (long arg_printid, string arg_mtrlcode, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, long arg_dxflag, long arg_sptid, ref decimal arg_ref_cost, decimal arg_ref_cost_notax, 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_addqty, decimal arg_uprice, 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, string arg_mtrlcuscode, long arg_cusid_sptid, string arg_unit, decimal arg_rate, string arg_formula, string arg_waredscrp, datetime arg_inworkdate, decimal arg_cost_notax)
public function integer mod_part (long arg_scid, long arg_inwareid, string arg_newpart, ref string arg_msg)
end prototypes

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

IF Not (arg_billtype = 1 OR arg_billtype = 2 OR arg_billtype = 3 OR arg_billtype = 4 &
	OR arg_billtype = 8 OR arg_billtype = 9 OR arg_billtype = 12 OR arg_billtype = 15 &
	OR arg_billtype = 20 OR arg_billtype = 22) THEN
	rslt = 0
	arg_msg = '此单据类型必须为:'
	arg_msg = arg_msg+'1-采购进仓[记帐模式],'
	arg_msg = arg_msg+'2-采购进仓[不记帐模式],'
	arg_msg = arg_msg+'3-成品进仓,'
	arg_msg = arg_msg+'4-外协进仓,'
	arg_msg = arg_msg+'8-其他进仓,'
	arg_msg = arg_msg+'9-盘盈进仓,'
	arg_msg = arg_msg+'12-调拨进仓'
	arg_msg = arg_msg+'15-拆装进仓'
	arg_msg = arg_msg+'20-来料加工收料进仓'
	arg_msg = arg_msg+'22-库存配置调整'
	GOTO ext
END IF

uf_get_billname(arg_billtype)
//CHOOSE CASE arg_billtype
//	CASE 1
//		billname = '采购进仓单'
//	CASE 2
//		billname = '采购进仓单'
//	CASE 3
//		billname = '生产进仓单'
//	CASE 4
//		billname = '外协进仓单'
//	CASE 8
//		billname = '其他进仓单'
//	CASE 9
//		billname = '盘盈进仓单'
//	CASE 12
//		billname = '调拨进仓单'
//	CASE 15
//		billname = '拆装进仓单'
//	CASE 20
//		billname = '来料加工收料进仓单'
//	CASE 22
//		billname = '库存配置调整单'
//END CHOOSE


p_reset()
billtype = arg_billtype
scid = arg_scid


it_newbegin = TRUE
it_updatebegin = FALSE

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


end function

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(relint_4) THEN relint_4 = 0
IF IsNull(relint_5) THEN relint_5 = 0

IF IsNull(relstr_1) THEN relstr_1 = ''
IF IsNull(relstr_2) THEN relstr_2 = ''
IF IsNull(relstr_3) THEN relstr_3 = ''
IF IsNull(mrate) THEN mrate = 0
if isnull(staticid) then staticid = 0

IF mrate = 0 THEN mrate = 1
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 save_chk(arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

////////////////////////////////////////////// //开始区分:新建/更新 处理
IF inwareid = 0 THEN //新建
	ls_newid = f_sys_scidentity(scid,"u_inware","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 1,2
			IF thflag = 0 THEN
				inwarecode = getid(scid,ls_sccode + 'CG',Date(server_dt),if_getid_ture,commit_transaction)
			ELSE
				inwarecode = getid(scid,ls_sccode + 'CT',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
		CASE 3
			inwarecode = getid(scid,ls_sccode + 'CP',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 4
			IF thflag = 0 THEN
				inwarecode = getid(scid,ls_sccode + 'WN',Date(server_dt),if_getid_ture,commit_transaction)
			ELSE
				inwarecode = getid(scid,ls_sccode + 'WH',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
		CASE 8
			inwarecode = getid(scid,ls_sccode + 'JC',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 9
			inwarecode = getid(scid,ls_sccode + 'PY',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 12
			inwarecode = getid(scid,ls_sccode + 'IC',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 15
			inwarecode = getid(scid,ls_sccode + 'DC',Date(server_dt),if_getid_ture,commit_transaction)
		CASE 20
			IF thflag = 0 THEN
				inwarecode = getid(scid,ls_sccode + 'RI',Date(server_dt),if_getid_ture,commit_transaction)
			ELSE
				inwarecode = getid(scid,ls_sccode + 'RT',Date(server_dt),if_getid_ture,commit_transaction)
			END IF
		CASE 22
			inwarecode = getid(scid,ls_sccode + 'TI',Date(server_dt),if_getid_ture,commit_transaction)
	END CHOOSE
	
	IF inwarecode = "err" THEN
		inwarecode = ''
		rslt = 0
		arg_msg = "无法获取进仓单编号"+"~n"
		GOTO ext
	END IF
	
	INSERT INTO u_inware (
		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,
		mrate,
		relint_4,
		relint_5,
		staticid)
		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,
		:mrate,
		:relint_4,
		:relint_5,
		:staticid) Using commit_transaction ;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		
		IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_inware') > 0 THEN
			arg_msg = '插入单据资料失败,关键字ID重复'
		ELSEIF Pos(Lower(commit_transaction.SQLErrText),'IX_u_inware') > 0 THEN
			arg_msg = '插入单据资料失败,单据编号重复'
		ELSE
			arg_msg = '插入单据资料失败,'+commit_transaction.SQLErrText
		END IF
		//arg_msg = "插入操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	//读取新inwareid
	inwareid = ls_newid
	
ELSE //////////////////////////////////////////////// //更新
	UPDATE u_inware
		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,
		mrate = :mrate,
		relint_4 = :relint_4,
		relint_5 = :relint_5,
		staticid = :staticid
		WHERE u_inware.inwareid = :inwareid
		AND u_inware.scid = :scid
		Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 Or commit_transaction.SQLNRows <= 0  THEN
		rslt = 0
		
		IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_inware') > 0 THEN
			arg_msg = '更新单据资料失败,关键字ID重复'
		ELSEIF Pos(Lower(commit_transaction.SQLErrText),'IX_u_inware') > 0 THEN
			arg_msg = '更新单据资料失败,单据编号重复'
		ELSE
			arg_msg = '更新单据资料失败,'+commit_transaction.SQLErrText
		END IF
		
		
		arg_msg = "更新单据操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	IF billtype > 1 Or billtype = 1 And flag = 0 THEN
		
		
		//删除原有明细
		DELETE FROM u_inwaremx
			WHERE u_inwaremx.inwareid = :inwareid
			And u_inwaremx.scid = :scid Using commit_transaction;
			
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "删除旧有单据明细操作失败"+"~n"
			GOTO ext
		END IF
		
	ELSE
		
	END IF
END IF


IF billtype > 1 Or billtype = 1 And flag = 0 THEN
	FOR i = 1 To it_mxbt
		IF storage_plancode_flag = 1 THEN //仓库中是否设置了使用 “进仓单号” 作为批号
			inwaremx[i].plancode = inwarecode
		END IF
		INSERT INTO u_inwaremx
			(scid,
			inwareid,
			printid,
			mtrlid,
			plancode,
			status,
			qty,
			addqty,
			packqty,
			fprice,
			rebate,
			price,
			planprice,
			mxdscrp,
			jgprice,
			relid,
			relprintid,
			ifrel,
			woodcode,
			relcode,
			pcode,
			sptid_cusid,
			cost,
			sptmtrlname,
			unit,
			rate,
			uprice,
			uqty,
			bootqty,
			noauditqty,
			mtrlcuscode,
			dftsptprice,
			formula,
			waredscrp,
			inworkdate,
			tax,
			buyqty,
			uamt,
			uamt_tax,
			bsamt,
			bsamt_tax,
			costamt,
			uprice_notax,
			cost_notax)
			VALUES (
			:scid,
			:inwareid,
			:inwaremx[i].printid,
			:inwaremx[i].mtrlid,
			:inwaremx[i].plancode,
			:inwaremx[i].status,
			:inwaremx[i].qty,
			:inwaremx[i].addqty,
			:inwaremx[i].packqty,
			: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].mtrlcuscode,
			:inwaremx[i].dftsptprice,
			:inwaremx[i].formula,
			:inwaremx[i].waredscrp,
			:inwaremx[i].inworkdate,
			:inwaremx[i].tax,
			:inwaremx[i].buyqty,
			:inwaremx[i].uamt,
			:inwaremx[i].uamt_tax,
			:inwaremx[i].bsamt,
			:inwaremx[i].bsamt_tax,
			:inwaremx[i].costamt,
			:inwaremx[i].uprice_notax,
			:inwaremx[i].cost_notax) Using commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			IF it_newbegin THEN inwareid = 0
			rslt = 0
			
			IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_inwaremx') > 0 THEN
				arg_msg = '插入单据明细内容失败,关键字ID重复'
			ELSEIF Pos(Lower(commit_transaction.SQLErrText),'IX_u_inwaremx') > 0 THEN
				arg_msg = '插入单据明细内容失败,三个属性字段重复'
			ELSE
				arg_msg = '插入单据明细内容失败,'+commit_transaction.SQLErrText
			END IF
			GOTO ext
		END IF
	NEXT
	
ELSE
	FOR i = 1 To it_mxbt
		UPDATE u_inWAREmx
			SET uprice = :inWAREmx[i].uprice,
			mxdscrp = :inwaremx[I].mxdscrp,
			fprice = :inwaremx[I].fprice,
			rebate = :inwaremx[I].rebate,
			price = :inwaremx[I].price,
			tax = :inwaremx[i].tax,
			uamt = :inwaremx[i].uamt,
			uamt_tax  = :inwaremx[i].uamt_tax,
			bsamt = :inwaremx[i].bsamt,
			bsamt_tax = :inwaremx[i].bsamt_tax,
			uprice_notax =:inwaremx[i].uprice_notax
			WHERE  ( scid = :scid AND
			inWAREid = :inwareid AND
			printid = :inwaremx[i].printid);
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "更新明细价格、备注操作失败"+"~n"
			GOTO ext
		END IF
	NEXT
END IF

IF save_end(arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

it_newbegin = False
it_updatebegin = False

ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
	p_clearmx()
	arg_msg = billname + ',' + arg_msg
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
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

jgsum_amt = 0
sum_amt = 0
sum_amt_en = 0 

sum_uamt = 0
sum_uamt_tax = 0
sum_bsamt = 0
sum_bsamt_tax = 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 u_inwaremx.printid,
	u_inwaremx.mtrlid,
	u_inwaremx.plancode,
	u_inwaremx.status,
	u_inwaremx.qty,
	u_inwaremx.addqty,
	u_inwaremx.fprice,
	u_inwaremx.rebate,
	u_inwaremx.price,
	u_inwaremx.planprice,
	u_inwaremx.mxdscrp,
	u_mtrldef.mtrlcode,
	u_inwaremx.jgprice,
	u_inwaremx.relid,
	u_inwaremx.relprintid,
	u_inwaremx.ifrel,
	u_inwaremx.woodcode,
	u_inwaremx.pcode,
	u_inwaremx.plancode,
	u_inwaremx.sptid_cusid,
	u_inwaremx.cost,
	u_inwaremx.sptmtrlname,
	u_inwaremx.unit,
	u_inwaremx.uqty,
	u_inwaremx.uprice,
	u_inwaremx.rate,
	u_inwaremx.bootqty,
	u_inwaremx.noauditqty,
	u_inwaremx.mtrlcuscode,
	u_inwaremx.dftsptprice,
	u_inwaremx.waredscrp,
	u_inwaremx.inworkdate,
	u_inwaremx.tax,
	u_inwaremx.uamt,
	u_inwaremx.uamt_tax,
	u_inwaremx.bsamt,
	u_inwaremx.bsamt_tax,
	u_inwaremx.buyqty,
	u_mtrldef.iflimitprice,
	u_inwaremx.cost_notax
	FROM u_inwaremx,u_mtrldef,u_inware
	WHERE u_inware.inwareid = :arg_inwareid  AND
	u_inwaremx.mtrlid = u_mtrldef.mtrlid AND
	u_inware.scid = :arg_scid AND
	u_inware.inwareid = u_inwaremx.inwareid AND
	u_inware.scid = u_inwaremx.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].addqty,: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].mtrlcuscode,
	:inwaremx[i].dftsptprice,
	:inwaremx[i].waredscrp,
	:inwaremx[i].inworkdate,
	:inwaremx[i].tax,:inwaremx[i].uamt,:inwaremx[i].uamt_tax,:inwaremx[i].bsamt,:inwaremx[i].bsamt_tax,
	:inwaremx[i].buyqty,
	:inwaremx[i].iflimitprice,
	:inwaremx[i].cost_notax;
	
inwaremx[i].dxflag = dxflag
IF dxflag = 1 THEN inwaremx[i].sptid = sptid

DO WHILE commit_transaction.SQLCode = 0
	jgsum_amt = jgsum_amt+round(inwaremx[i].uqty * inwaremx[i].jgprice,2) //计算单据加工费总金额
//	//淘汰
//	sum_amt = sum_amt+round(inwaremx[i].uqty * inwaremx[i].uprice * inwaremx[i].rebate * mrate ,2) //计算单据总本位币金额
//	sum_amt_en = sum_amt_en+round(inwaremx[i].uqty * inwaremx[i].uprice * inwaremx[i].rebate,2) //计算单据外币总金额
	
	//新增的,以此为标准
	sum_uamt += inwaremx[i].uamt//计算单据原币总金额
	sum_uamt_tax += inwaremx[i].uamt_tax//计算单据原币总税金
	sum_bsamt += inwaremx[i].bsamt//计算单据本位币总金额
	sum_bsamt_tax  += inwaremx[i].bsamt_tax//计算单据本位币总税金
	
	i++
	FETCH cur_inwaermx INTO :inwaremx[i].printid,:inwaremx[i].mtrlid,:inwaremx[i].plancode,
		:inwaremx[i].status,:inwaremx[i].qty,:inwaremx[i].addqty,: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].mtrlcuscode,
		:inwaremx[i].dftsptprice,
		:inwaremx[i].waredscrp,
		:inwaremx[i].inworkdate,
	:inwaremx[i].tax,:inwaremx[i].uamt,:inwaremx[i].uamt_tax,:inwaremx[i].bsamt,:inwaremx[i].bsamt_tax,
	:inwaremx[i].buyqty,
	:inwaremx[i].iflimitprice,
	:inwaremx[i].cost_notax;
		
	inwaremx[i].dxflag = dxflag
	IF dxflag = 1 THEN inwaremx[i].sptid = sptid
LOOP
CLOSE cur_inwaermx;

//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck
	FROM u_inwaremx
	WHERE u_inwaremx.inwareid = :arg_inwareid
	AND scid = :arg_scid  USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,进仓单明细数量"
	GOTO ext
END IF

IF i <> (no_mxcheck+1) THEN
	rslt = 0
	arg_msg = "查询操作失败,进仓单明细"
	GOTO ext
END IF

inwareid = arg_inwareid
scid = arg_scid

it_mxbt = i - 1
it_newbegin = FALSE
it_updatebegin = FALSE
ext:
IF rslt = 0 THEN
	arg_msg = billname + ',' + arg_msg
	p_reset()
END IF
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

IF Not(arg_billtype = 1 Or arg_billtype = 2 Or arg_billtype = 3 Or arg_billtype = 4 Or arg_billtype = 8 &
	Or arg_billtype = 9 Or arg_billtype = 12 Or arg_billtype = 20 Or arg_billtype = 22 ) THEN
	rslt = 0
	arg_msg = '此单据类型必须为:'
	arg_msg = arg_msg+'1-采购进仓[记帐模式],'
	arg_msg = arg_msg+'2-采购进仓[不记帐模式],'
	arg_msg = arg_msg+'3-成品进仓,'
	arg_msg = arg_msg+'4-外发加工进仓,'
	arg_msg = arg_msg+'8-其他进仓,'
	arg_msg = arg_msg+'9-盘盈进仓,'
	arg_msg = arg_msg+'12-调拨进仓'
	arg_msg = arg_msg+'20-来料加工收料进仓'
	arg_msg = arg_msg+'22-库存配置调整'
	GOTO ext
END IF

uf_get_billname(arg_billtype)

IF arg_billtype = 12 THEN
	rslt = 0
	arg_msg = '单据类型:12-调拨进仓>>不能修改'
	GOTO ext
END IF



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

//if arg_billtype = 1 then 
//	if flag=1 and secflag = 1 then 
//		rslt=0
//		arg_msg='单据已经经过仓库和财务审核,不可以修改'
//		goto ext
//	end if	
//else
IF flag = 1 THEN
	rslt = 0
	arg_msg = '单据已经审核,不可以修改'
	GOTO ext
END IF
//end if 

inwareid = arg_inwareid
billtype = arg_billtype
scid = arg_scid

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

ext:
IF rslt = 0 THEN p_reset()
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

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

IF auditing_chk(arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

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


Long li_if_fifo = 0
SELECT if_fifo
	INTO :li_if_fifo
	FROM u_storage
	Where storageid = :storageid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg =  "查询仓库存货核算方法错误！"
	rslt = 0
	GOTO ext
END IF





//Long ll_mxsptid = 0
Long ll_mtrlwareid

IF sys_option_hide_ware = 0 THEN
	FOR i = 1 To it_mxbt
		//	ll_mxsptid = inwaremx[i].sptid
		IF f_power_ind(1665) And Not sys_power_issuper THEN
			IF inwaremx[i].uprice = 0 THEN
				rslt = 0
				arg_msg = '特殊权限限制:限制进仓单审核时单价必须不为0~r~n行:'+String(i)+',物料编码:'+inwaremx[i].mtrlcode+',单价为0,请检查'
				GOTO ext
			END IF
		END IF
		//查询采购限价并检查进仓价
		IF billtype = 1 Or billtype = 4 THEN
			IF inwaremx[i].iflimitprice = 1 THEN
				IF uo_sptprice.uf_check_price_audit(thflag,sptid,inwaremx[i].mtrlid,inwaremx[i].mtrlcode,inwaremx[i].unit,inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode,inwaremx[i].uprice * inwaremx[i].rebate,arg_msg) = 0 THEN
					arg_msg = '行:'+String(i)+',' + arg_msg
					rslt = 0
					GOTO ext
				END IF
			END IF
		END IF
		IF billtype = 1 THEN
			IF thflag = 1 THEN
				IF p_update_th_cost(inwaremx[i].printid,&
					inwaremx[i].mtrlcode,&
					inwaremx[i].mtrlid,&
					inwaremx[i].status,&
					inwaremx[i].woodcode,&
					inwaremx[i].pcode,&
					inwaremx[i].plancode,&
					inwaremx[i].dxflag,&
					inwaremx[i].sptid,&
					inwaremx[i].cost,inwaremx[i].cost_notax,arg_msg,False) = 0 THEN
					rslt = 0
					arg_msg = '行:'+String(i)+','+arg_msg
					GOTO ext
				END IF
			ELSE
				//			ld_cost = inwaremx[i].cost
			END IF
		END IF
		
		ll_mtrlwareid = 0
		
		
		
		//
		Decimal dec_fifo_cost, dec_fifo_cost_notax//如果进仓单价为0 取库存成本价作为进仓成本价
		dec_fifo_cost = uof_get_mtrlware_cost(scid,storageid,inwaremx[i].mtrlid,inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode,inwaremx[i].plancode,inwaremx[i].sptid,inwaremx[i].dxflag)
		dec_fifo_cost_notax = uof_get_mtrlware_cost_notax(scid,storageid,inwaremx[i].mtrlid,inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode,inwaremx[i].plancode,inwaremx[i].sptid,inwaremx[i].dxflag)
		
		IF sys_option_outware_if_buyqty = 1 and billtype = 1 and li_if_fifo = 0 THEN		
			decimal ld_cost,ld_cost_notax
			IF inwaremx[i].uqty = 0 THEN 
				ld_cost = 0
				ld_cost_notax = 0
			ELSE
				ld_cost = round(inwaremx[i].buyqty * inwaremx[i].cost / inwaremx[i].uqty ,2)
				ld_cost_notax = round(ld_cost / (1 + inwaremx[it_mxbt].tax),2)
			END IF

			IF p_update_mtrlware(ll_mtrlwareid, inwaremx[i].mtrlid,inwaremx[i].mtrlcode,&
				storageid,inwaremx[i].plancode,inwaremx[i].status,&
				inwaremx[i].uqty,inwaremx[i].addqty,ld_cost,inwaremx[i].planprice,&
				inwaremx[i].sptid,inwaremx[i].dxflag,inwaremx[i].woodcode,&
				inwaremx[i].pcode,arg_msg,inwaremx[i].waredscrp,inwaremx[i].inworkdate,ld_cost_notax) = 0 THEN
				arg_msg = "第" + String(i) + "行," + arg_msg
				rslt = 0
				GOTO ext
			END IF
		ELSE
			IF p_update_mtrlware(ll_mtrlwareid, inwaremx[i].mtrlid,inwaremx[i].mtrlcode,&
				storageid,inwaremx[i].plancode,inwaremx[i].status,&
				inwaremx[i].qty,inwaremx[i].addqty,inwaremx[i].cost,inwaremx[i].planprice,&
				inwaremx[i].sptid,inwaremx[i].dxflag,inwaremx[i].woodcode,&
				inwaremx[i].pcode,arg_msg,inwaremx[i].waredscrp,inwaremx[i].inworkdate,inwaremx[i].cost_notax) = 0 THEN
				arg_msg = "第" + String(i) + "行," + arg_msg
				rslt = 0
				GOTO ext
			END IF
		END IF
		

		Decimal aa,bb
		select cost,cost_notax into :aa,:bb from  u_mtrlware
		where mtrlwareid = :ll_mtrlwareid;
		
		AA = AA
		BB =BB
		
		
		

		
		IF ll_mtrlwareid > 0 THEN
			UPDATE u_inwaremx
				SET mtrlwareid = :ll_mtrlwareid
				WHERE scid = :scid
				AND inwareid = :inwareid
				AND printid = :inwaremx[i].printid
				Using commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				rslt = 0
				arg_msg = "更新单据明细库存ID操作失败"+"~n" +commit_transaction.SQLErrText
				GOTO ext
			END IF
			
		END IF
		
		
		
		
		
		
		
		
		
		
		//先进先出法 ，加入进仓批 u_mtrlware_inmx star
		
		Long li_mtrlwaremxid = 0
		
		
		Decimal dec_fifo_inprice,dec_fifo_inprice_notax
//		IF  inwaremx[i].fprice *  inwaremx[i].rebate <> 0 THEN
//			dec_fifo_inprice = inwaremx[i].fprice *  inwaremx[i].rebate
//		ELSE
//			dec_fifo_inprice = dec_fifo_cost //如果进仓单价为0 取库存成本价作为进仓成本价
//		END IF
//		
//		IF  inwaremx[i].uprice / (1 + inwaremx[i].tax) * inwaremx[i].rebate <> 0 THEN
//			dec_fifo_inprice_notax = inwaremx[i].uprice / (1 + inwaremx[i].tax) * inwaremx[i].rebate
//		ELSE
//			dec_fifo_inprice_notax = dec_fifo_cost_notax //如果进仓单价为0 取库存成本价作为进仓成本价
//		END IF
		
		dec_fifo_inprice = inwaremx[i].fprice *  inwaremx[i].rebate
		dec_fifo_inprice_notax = inwaremx[i].uprice / (1 + inwaremx[i].tax) * inwaremx[i].rebate
		
		IF li_if_fifo = 1 And  ll_mtrlwareid > 0 And inwaremx[i].qty > 0 THEN // 正数  使用先进先出
			IF f_add_mtrlware_inmx(scid,ll_mtrlwareid,inwareid,inwaremx[i].printid,inwarecode,indate,inwaremx[i].qty,dec_fifo_inprice,dec_fifo_inprice_notax,0,False,commit_transaction,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			IF  f_trigger_fifo_procedure(scid,ll_mtrlwareid,indate,1,inwareid,li_mtrlwaremxid,False,commit_transaction,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			
			//重算结存表
			IF  f_cmp_fifo_warebalc(scid,ll_mtrlwareid,False,commit_transaction,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
		END IF
		
		
		
		IF li_if_fifo = 1 And  ll_mtrlwareid > 0 And inwaremx[i].qty < 0 THEN // 负数 等于出仓
			li_mtrlwaremxid = 0
			IF f_trigger_fifo_procedure(scid,ll_mtrlwareid,indate,2,inwareid,li_mtrlwaremxid,False,commit_transaction,arg_msg) = 0 THEN //等于出仓
				rslt = 0
				GOTO ext
			END IF
			
			
			//重算结存表
			IF f_cmp_fifo_warebalc(scid,ll_mtrlwareid,False,commit_transaction,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			
		END IF
		
		
		//检查是否正确生成进仓批
		IF  li_if_fifo = 1 THEN
			inwaremx[i].mtrlwareid_xjxc = ll_mtrlwareid
			
			
		END IF
		
		
		//先进先出法 ，加入进仓批 u_mtrlware_inmx end 	
		
		
		
		
		
		
	NEXT
	
	//检查是否正确生成进仓批
	IF  li_if_fifo = 1 THEN
		FOR i = 1 To it_mxbt
			IF f_check_mtrlware_inmx(scid,ll_mtrlwareid,commit_transaction,arg_msg) = 0 THEN
				
				IF uf_w_cmp_fifo_cb_bill(scid,ll_mtrlwareid,False,arg_msg) = 0 THEN //尝试修复
					rslt = 0
					arg_msg = '第' + String(i) + '行 ' +  arg_msg
					GOTO ext
				ELSE
					IF f_check_mtrlware_inmx(scid,ll_mtrlwareid,commit_transaction,arg_msg) = 0 THEN //再检查一次
						rslt = 0
						arg_msg = '第' + String(i) + '行 ' +  arg_msg
						GOTO ext
					END IF
					
				END IF
				
				
				
				
				
			END IF
		NEXT
	END IF
	
	
END IF

IF auditing_end(arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

flag = 1
ext:
Destroy uo_sptprice
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
	IF billname <> "" THEN
		arg_msg = billname + ',' + arg_msg
	END IF
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF
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 u_inwaremx
	WHERE u_inwaremx.inwareid = :arg_inwareid
	AND scid = :arg_scid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "删除进仓单明细操作失败"+"~n" 
	GOTO ext
END IF

DELETE FROM u_inware
	WHERE u_inware.inwareid = :arg_inwareid
	AND scid = :arg_scid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "删除进仓单操作失败"+"~n" 
	GOTO ext
END IF

it_newbegin = FALSE
it_updatebegin = FALSE

ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
	arg_msg = billname + ',' + arg_msg
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF

p_reset()
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 u_inware
	SET dscrp = dscrp+' '+:arg_newdescppart
	WHERE u_inware.inwareid = :inwareid
	AND scid = :scid
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "添加单据备注操作失败"+"~n"
	GOTO ext
END IF

dscrp = dscrp+' '+arg_newdescppart

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


end function

public function integer c_auditing (boolean arg_ifcommit, ref string arg_msg);//====================================================================
// Function: c_auditing(arg_ifcommit,arg_msg)
//--------------------------------------------------------------------
// Description: 撤审
//--------------------------------------------------------------------
// Arguments: 
//		value    	boolean	arg_ifcommit		
//		reference	string 	arg_msg     		
//--------------------------------------------------------------------
// Returns:  integer
//--------------------------------------------------------------------
// Author:	yyx		Date: 2003.11.19
//--------------------------------------------------------------------
// Modify History: 
//	
//====================================================================


Long rslt = 1,cnt = 0,i
Dec new_noallocqty = 0
Long ls_newid
DateTime null_dt

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 cwauditingflag = 1 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

IF c_auditing_chk(arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

UPDATE u_inware
	SET auditingrep = '',
	auditingdate = :null_dt,
	flag = 0
	WHERE u_inware.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 = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

Long li_if_fifo = 0
SELECT if_fifo
	INTO :li_if_fifo
	FROM u_storage
	Where storageid = :storageid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg =  "查询仓库存货核算方法错误！"
	rslt = 0
	GOTO ext
END IF





Long ll_mtrlwareid
IF sys_option_hide_ware = 0 THEN
	FOR i = 1 To it_mxbt
		
		IF sys_option_outware_if_buyqty = 1 and billtype = 1 and li_if_fifo = 0 THEN		
			decimal ld_cost,ld_cost_notax
			IF inwaremx[i].uqty = 0 THEN 
				ld_cost = 0
				ld_cost_notax = 0
			ELSE
				ld_cost = round(inwaremx[i].buyqty * inwaremx[i].cost / inwaremx[i].uqty ,2)
				ld_cost_notax = round(ld_cost / (1 + inwaremx[it_mxbt].tax),2)
			END IF

			IF p_update_mtrlware(ll_mtrlwareid, inwaremx[i].mtrlid,inwaremx[i].mtrlcode,&
				storageid,inwaremx[i].plancode,inwaremx[i].status,&
				0 - inwaremx[i].uqty,0 - inwaremx[i].addqty,ld_cost,inwaremx[i].planprice,&
				inwaremx[i].sptid,inwaremx[i].dxflag,inwaremx[i].woodcode,&
				inwaremx[i].pcode,arg_msg,inwaremx[i].waredscrp,inwaremx[i].inworkdate,ld_cost_notax) = 0 THEN
				arg_msg = "第" + String(i) + "行," + arg_msg
				rslt = 0
				GOTO ext
			END IF
		ELSE
			IF p_update_mtrlware(ll_mtrlwareid, inwaremx[i].mtrlid,inwaremx[i].mtrlcode,&
				storageid,inwaremx[i].plancode,inwaremx[i].status,&
				0 - inwaremx[i].qty,0 - inwaremx[i].addqty,inwaremx[i].cost,inwaremx[i].planprice,&
				inwaremx[i].sptid,inwaremx[i].dxflag,inwaremx[i].woodcode,&
				inwaremx[i].pcode,arg_msg,inwaremx[i].waredscrp,inwaremx[i].inworkdate,inwaremx[i].cost_notax) = 0 THEN
				arg_msg = "第" + String(i) + "行," + arg_msg
				rslt = 0
				GOTO ext
			END IF
		END IF
		

		
		
		//先进先出法 ，删除进仓批 u_mtrlware_inmx star
		
		Long li_mtrlwaremxid
		
		
		IF li_if_fifo = 1  And inwaremx[i].qty > 0   THEN //正数 使用先进先出
			li_mtrlwaremxid = 0
			SELECT top 1 mtrlwaremxid INTO  :li_mtrlwaremxid FROM u_mtrlware_inmx
				WHERE scid = :scid AND
				inwareid = :inwareid AND
				printid = :inwaremx[i].printid AND
				if_outware = 0
				Using commit_transaction;
				
			IF f_del_mtrlware_inmx(li_mtrlwaremxid,False,commit_transaction,arg_msg)  = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			IF  f_trigger_fifo_procedure(scid,ll_mtrlwareid,indate,1,inwareid,li_mtrlwaremxid,False,commit_transaction,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			
			//重算结存表
			IF f_cmp_fifo_warebalc(scid,ll_mtrlwareid,False,commit_transaction,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
		END IF
		
		
		IF li_if_fifo = 1 And  ll_mtrlwareid > 0 And inwaremx[i].qty < 0 THEN // 负数  等于出仓
			IF  f_trigger_fifo_procedure(scid,ll_mtrlwareid,indate,2,inwareid,li_mtrlwaremxid,False,commit_transaction,arg_msg) = 0 THEN //等于出仓
				rslt = 0
				GOTO ext
			END IF
			
			//重算结存表
			IF f_cmp_fifo_warebalc(scid,ll_mtrlwareid,False,commit_transaction,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
		END IF
		
		
		
		//检查是否正确生成进仓批
		IF  li_if_fifo = 1 THEN
			inwaremx[i].mtrlwareid_xjxc = ll_mtrlwareid
			
		END IF
		//先进先出法 ，删除进仓批 u_mtrlware_inmx end 	
		
		
		
		
		
		
	NEXT
	
	
	//检查是否正确生成进仓批
	IF  li_if_fifo = 1 THEN
		FOR i = 1 To it_mxbt
			IF f_check_mtrlware_inmx(scid,inwaremx[i].mtrlwareid_xjxc,commit_transaction,arg_msg) = 0 THEN
				
				IF uf_w_cmp_fifo_cb_bill(scid,inwaremx[i].mtrlwareid_xjxc,False,arg_msg) = 0 THEN //尝试修复
					rslt = 0
					arg_msg = '第' + String(i) + '行 ' +  arg_msg
					GOTO ext
				ELSE
					IF f_check_mtrlware_inmx(scid,inwaremx[i].mtrlwareid_xjxc,commit_transaction,arg_msg) = 0 THEN //再检查一次
						rslt = 0
						arg_msg = '第' + String(i) + '行 ' +  arg_msg
						GOTO ext
					END IF
					
				END IF
				
				
				
			END IF
		NEXT
	END IF
	
	
	
	
	
END IF

IF c_auditing_end(arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

flag = 0
ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
	IF billname <> "" THEN
		arg_msg = billname + ',' + arg_msg
	END IF
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF
RETURN rslt

















end function

public function integer p_clearmx ();//int p_clearmx()
//清除明细
it_mxbt=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  u_inware.inwarecode,
	u_inware.billtype,
	u_inware.relid,
	u_inware.storageid,
	u_inware.indate,
	u_inware.inrep,
	u_inware.part,
	u_inware.sptid,
	u_inware.sptname,
	u_inware.dscrp,
	u_inware.thflag,
	u_inware.secflag,
	u_inware.dxflag,
	u_inware.flag,
	u_inware.balcflag,
	u_inware.otheramt,
	u_inware.relint_1,
	u_inware.relint_2,
	u_inware.relint_3,
	u_inware.relstr_1,
	u_inware.relstr_2,
	u_inware.relstr_3,
	u_inware.mrate,
	u_inware.relint_4,
	u_inware.relint_5,
	u_inware.cwauditingflag,
	u_inware.cwauditingrep,
	u_inware.cwauditingdate,
	u_inware.priceflag,
	u_inware.pricedate,
	u_inware.priceemp,
	u_inware.viewdate
	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,
	:mrate,
	:relint_4,
	:relint_5,
	:cwauditingflag,
	:cwauditingrep,
	:cwauditingdate,
	:priceflag,
	:pricedate,
	:priceemp,
	:viewdate
	FROM u_inware
	WHERE u_inware.inwareid = :arg_inwareid
	AND scid = :arg_scid
	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
uf_get_billname(billtype)

ext:
IF rslt = 0 THEN
	p_reset()
	arg_msg = billname + ',' + arg_msg
END IF
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 

sum_uamt = 0
sum_uamt_tax = 0
sum_bsamt = 0
sum_bsamt_tax = 0

it_newbegin=false
it_updatebegin=false

storage_plancode_flag=0  //仓库中是否设置了使用 “进仓单号” 作为批号

//清除明细
p_clearmx()
return 1


end function

public function integer p_update_cost (long arg_scid, long arg_mtrlid, long arg_sptid_cusid, long arg_storageid, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, long arg_dxflag, ref string arg_msg, boolean arg_ifcommit);//貌似没有用的
//p_update_cost(arg_scid,arg_mtrlid,arg_sptid_cusid,arg_storageid,arg_status,arg_woodcode,arg_pcode,arg_msg,arg_ifcommit)
Int rslt = 1
Dec ld_newcost


SELECT incamt/incqty
	INTO :ld_newcost
	FROM u_warebalc
	WHERE scid = :Arg_scid
	AND balcdateint = 0
	AND sptid_cusid = :arg_sptid_cusid
	AND mtrlid = :arg_mtrlid
	AND Storageid = :arg_storageid
	AND status = :arg_status
	AND woodcode = :arg_woodcode
	And pcode = :arg_pcode Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arG_msg = '查询均价失败!~r~n'+commit_transaction.SQLErrText
	GOTO ext
END IF

ld_newcost = Round(ld_newcost,10)

UPDATE u_outwaremx
	SET cost = :ld_newcost,
	costamt = round(qty*:ld_newcost,2)
	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_outware.balcflag = 0 AND
	u_outwaremx.sptid = :arg_sptid_cusid AND u_outwaremx.mtrlid = :arg_mtrlid
	AND u_outware.Storageid = :arg_storageid AND u_outwaremx.status = :arg_status AND
	u_outwaremx.woodcode = :arg_woodcode And u_outwaremx.pcode = :arg_pcode And u_outwaremx.plancode = :Arg_plancode Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arG_msg = '更新均价失败！'
	GOTO ext
END IF


UPDATE u_mtrlware
	SET
	wareamt = round(noallocqty*:ld_newcost,2),
	waredate = getdate(),
	cost = :ld_newcost
	WHERE ( mtrlid = :arg_mtrlid ) AND
	( plancode = :arg_plancode ) AND
	( storageid = :arg_storageid ) AND
	( scid = :scid ) AND
	( status = :arg_status ) AND
	( sptid = :arg_sptid_cusid) AND
	( dxflag = :arg_dxflag) AND
	( woodcode = :arg_woodcode) AND
	( pcode = :arg_pcode) Using commit_transaction  ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arG_msg = '更新库存均价失败！'
	GOTO ext
END IF


UPDATE u_warebalc 
	SET balcamt = balcqty*:ld_newcost,
	desamt = desqty*:ld_newcost,
	saleoutamt = saleoutqty*:ld_newcost,
	cpoutamt = cpoutqty*:ld_newcost,
	jgoutamt = jgoutqty*:ld_newcost,
	mvoutamt = mvoutqty*:ld_newcost,
	dioutamt = dioutqty*:ld_newcost,
	otoutamt = otoutqty*:ld_newcost,
	pkoutamt = pkoutqty*:ld_newcost,
	saleoutamt_th = saleoutqty_th*:ld_newcost
	WHERE ( mtrlid = :arg_mtrlid ) AND
	( storageid = :arg_storageid ) AND
	( balcdateint  = 0) AND
	( status = :arg_status )  AND
	(woodcode = :arg_woodcode) AND
	(pcode = :arg_pcode)  AND
	(sptid_cusid = :arg_sptid_cusid) Using commit_transaction  ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arG_msg = '更新库存结存均价失败！'
	GOTO ext
END IF



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

end function

public function integer acceptmx (s_inwaremx s_mx, ref string arg_msg);Long rslt = 1,cnt = 0,ls_i
Decimal ld_planprice,ld_cost,ld_dftsptprice
Decimal ld_noauditqty,ld_bootqty
String ls_relcode,ls_unit,ls_saletaskcode
Int li_iflimitprice

Dec ld_round = 100

uo_spt_price uo_sptprice
uo_sptprice = Create uo_spt_price

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

//清除空值
If IsNull(s_mx.printid) Then s_mx.printid = 0
If IsNull(s_mx.mtrlid) Then s_mx.mtrlid = 0
If IsNull(s_mx.mtrlcode) Then s_mx.mtrlcode = ''
If IsNull(s_mx.plancode) Then s_mx.plancode = ''
If IsNull(s_mx.status) Then s_mx.status = ''
If IsNull(s_mx.uqty) Then s_mx.uqty = 0
If IsNull(s_mx.addqty) Then s_mx.addqty = 0
If IsNull(s_mx.packqty) Then s_mx.packqty = 0
If IsNull(s_mx.uprice) Then s_mx.uprice = 0
If IsNull(s_mx.rebate) Then s_mx.rebate = 0
If IsNull(s_mx.mxdscrp) Then s_mx.mxdscrp = ''
If IsNull(s_mx.jgprice) Then s_mx.jgprice = 0
If IsNull(s_mx.ifrel) Then s_mx.ifrel = 0
If IsNull(s_mx.relid) Then s_mx.relid = 0
If IsNull(s_mx.relprintid) Then s_mx.relprintid = 0
If IsNull(s_mx.mxdscrp) Then s_mx.woodcode = ''
If IsNull(s_mx.pcode) Then s_mx.pcode = ''
If IsNull(s_mx.sptid) Then s_mx.sptid = 0
If IsNull(s_mx.mtrlcuscode) Then s_mx.mtrlcuscode = ''
If IsNull(s_mx.unit) Then s_mx.unit = ''
If IsNull(s_mx.rate) Then s_mx.rate = 1
If s_mx.rate = 0  Then s_mx.rate = 1
If IsNull(s_mx.formula) Then s_mx.formula = ''
If IsNull(s_mx.waredscrp) Then s_mx.waredscrp = ''

If IsNull(s_mx.uamt_tax) Then s_mx.uamt_tax = 0
If mrate = 0 Then mrate = 1

If IsNull(s_mx.tax) Then s_mx.tax = 0
If IsNull(s_mx.buyqty) Then s_mx.buyqty = 0
If IsNull(s_mx.cost_notax) Then s_mx.cost_notax = 0

If IsNull(s_mx.uprice_notax) Then s_mx.uprice_notax = 0
If  s_mx.uprice_notax = 0  Then
	s_mx.uprice_notax =  s_mx.uprice /   (1  +   s_mx.tax)
End If




s_mx.uqty = Round(s_mx.uqty,5)
s_mx.addqty = Round(s_mx.addqty,5)

If sys_option_outware_if_buyqty = 1 And billtype = 1 Then //采购 , 采购数与进仓数分离
Else //不分离
	s_mx.buyqty = s_mx.uqty
End If

If s_mx.mtrlid = 0 Or (s_mx.buyqty = 0 And s_mx.uqty = 0 And s_mx.addqty = 0) Then
	rslt = 1
	Goto ext
End If


If acceptmx_chk(s_mx, arg_msg) = 0 Then
	rslt = 0
	Goto ext
End If


//检查物料id
Select unit,planprice,iflimitprice
	Into :ls_unit,:ld_planprice,:li_iflimitprice
	From u_mtrldef
	Where u_mtrldef.mtrlid = :s_mx.mtrlid Using commit_transaction ;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = "第" + String(s_mx.printid) + "行,查询物料资料信息失败,编码:"+s_mx.mtrlcode
	Goto ext
End If

//确实有=1的情况
//IF ls_unit <> s_mx.unit And s_mx.rate = 1 THEN
//	arg_msg = "第" + String(s_mx.printid) + "行,库存单位与采购单位不同,但转换率为1,请检查!"
//	rslt = 0
//	GOTO ext
//END IF

If ls_unit = s_mx.unit And s_mx.rate <> 1 Then
	arg_msg = "第" + String(s_mx.printid) + "行,库存单位与采购单位相同,但转换率不为1,请检查!"
	rslt = 0
	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,s_mx.mtrlid,s_mx.mtrlcode,s_mx.unit,s_mx.status,s_mx.woodcode,s_mx.pcode,s_mx.uprice * s_mx.rebate,arg_msg) = 0 Then
			arg_msg = "第" + String(s_mx.printid) + "行," + arg_msg
			rslt = 0
			Goto ext
		End If
	End If
End If



Int li_if_cus_mtrlware, li_if_plancode, li_inwaretype
If sys_option_hide_ware = 0 Then
	Select  balctype , if_plancode, inwaretype
		Into :li_if_cus_mtrlware, :li_if_plancode, :li_inwaretype
		From u_storage
		Where storageid = :storageid;
	If sqlca.SQLCode <> 0 Then
		arg_msg =  "第" + String(s_mx.printid) + "行,查询仓库是否使用客户库存失败"
		rslt = 0
		Goto ext
	End If
End If

//关于客户库存处理,sptid
Long ll_cusid
Int li_bhflag
If dxflag = 0 Then
	If li_if_cus_mtrlware = 1 Then
		If billtype = 3 Then
			//特殊情况 20140104
			//生产进仓单,按订单进仓的产品,如果订单的客户为 备货客户, 进仓时不按客户库存; 
			If s_mx.ifrel > 0 Then
				If s_mx.relid = 0 Then
					arg_msg = "第" + String(s_mx.printid) + '行,请先择相应的销售订单'
					rslt = 0
					Goto ext
				End If
				
				Select  top 1 cusid Into :ll_cusid
					From u_saletaskmx,u_saletask
					Where u_saletaskmx.scid = u_saletask.scid
					And u_saletaskmx.taskid = u_saletask.taskid
					And u_saletaskmx.scid = :scid
					And u_saletaskmx.taskid = :s_mx.relid
					And u_saletaskmx.printid = :s_mx.relprintid
					And u_saletaskmx.mtrlid = :s_mx.mtrlid
					Using commit_transaction;
				If commit_transaction.SQLCode <> 0 Then
					arg_msg = "第" + String(s_mx.printid) + '行,查询销售订单客户资料失败,'+commit_transaction.SQLErrText
					rslt = 0
					Goto ext
				End If
				// s_mx.mtrlid 以后有可能是 下级的生产物料!!!!
				
				If IsNull(ll_cusid) Then ll_cusid = 0
				
				If ll_cusid > 0 Then
					Select bhflag Into :li_bhflag From u_cust Where cusid = :ll_cusid
						Using commit_transaction;
					If commit_transaction.SQLCode <> 0 Then
						arg_msg = "第" + String(s_mx.printid) + '行,查询销售订单客户资料失败,'+commit_transaction.SQLErrText
						rslt = 0
						Goto ext
					End If
				Else
					li_bhflag = 0
				End If
				If IsNull(li_bhflag) Then li_bhflag = 0
				
				If li_bhflag = 1 Then
					s_mx.sptid = 0
				Else
					s_mx.sptid = s_mx.sptid
				End If
			End If
			
		Else
			s_mx.sptid = s_mx.sptid
		End If
	Else
		s_mx.sptid = 0
	End If
Else
	If li_if_cus_mtrlware <> 1 Then
		arg_msg = "仓库没有使用客户库存,不能建立代销单据"
		rslt = 0
		Goto ext
	End If
	s_mx.sptid = sptid
End If


Choose Case billtype
	Case 1 //采购
		If s_mx.ifrel > 0 Then
			If s_mx.relid = 0 Then
				arg_msg = "第" + String(s_mx.printid) + "行,请先择相应的订单!"
				rslt = 0
				Goto ext
			End If
			
			Select taskcode ,uqty - consignedqty,
				CASE when u_buytask.billtype = 1 THEN u_buytaskmx.relcode ELSE '' End
				Into :ls_relcode,:ld_bootqty,:ls_saletaskcode
				From u_buytaskmx,u_buytask
				Where u_buytaskmx.taskid =  u_buytask.taskid
				And u_buytaskmx.scid =  u_buytask.scid
				And u_buytaskmx.scid = :scid
				And u_buytaskmx.taskid = :s_mx.relid
				And u_buytaskmx.printid = :s_mx.relprintid
				Using commit_transaction;
				
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = "第" + String(s_mx.printid) + "行,查询采购订单是否有订购:"+s_mx.mtrlcode+'失败!'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			//查相关销售订单已开单数
			ld_noauditqty = 0
			Select sum(uqty) Into :ld_noauditqty
				From u_inwaremx
				Where scid = :scid
				And relid = :s_mx.relid
				And relprintid = :s_mx.relprintid
				And inwareid <> :inwareid;
			If sqlca.SQLCode <> 0 Then
				arg_msg = "第" + String(s_mx.printid) + "行,查询"+s_mx.mtrlcode+'相关订单单据已开单数失败!'
				rslt = 0
				Goto ext
			End If
			If IsNull(ld_noauditqty) Then ld_noauditqty = 0
		Else
			s_mx.relid = 0
			s_mx.relprintid = 0
		End If
	Case 3 //生产
		
		If s_mx.ifrel > 0 Then
			If s_mx.relid = 0 Then
				arg_msg = "第" + String(s_mx.printid) + '行,请先择相应的销售订单'
				rslt = 0
				Goto ext
			End If
			
			Select  top 1 taskcode Into :ls_relcode
				From u_saletaskmx,u_saletask
				Where u_saletaskmx.scid = u_saletask.scid
				And u_saletaskmx.taskid = u_saletask.taskid
				And u_saletaskmx.scid = :scid
				And u_saletaskmx.taskid = :s_mx.relid
				And u_saletaskmx.printid = :s_mx.relprintid
				And u_saletaskmx.mtrlid = :s_mx.mtrlid
				Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = "第" + String(s_mx.printid) + '行,查询销售订单是否有排产:'+s_mx.mtrlcode+'失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
		Else
			s_mx.relid = 0
			s_mx.relprintid = 0
		End If
	Case 4 //外协
		If s_mx.ifrel > 0 Then
			If s_mx.relid = 0 Then
				arg_msg = "第" + String(s_mx.printid) + '行,请先择相应的外协订单'
				rslt = 0
				Goto ext
			End If
			
			Select u_order_wfjg.taskcode,
				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.scid =  u_order_wfjg.scid
				And u_order_wfjgmx.wfjgid =  u_order_wfjg.wfjgid
				And u_order_wfjgmx.wfjgid = :s_mx.relid
				And u_order_wfjgmx.printid = :s_mx.relprintid
				And u_order_wfjgmx.mtrlid = :s_mx.mtrlid
				And u_order_wfjgmx.status = :s_mx.status
				And u_order_wfjgmx.woodcode = :s_mx.woodcode
				And u_order_wfjgmx.pcode = :s_mx.pcode
				Using commit_transaction;
				
			If commit_transaction.SQLCode <> 0 Then
				arg_msg = "第" + String(s_mx.printid) + '行,查询外协订单是否有加工:'+s_mx.mtrlcode+'失败,'+commit_transaction.SQLErrText
				rslt = 0
				Goto ext
			End If
		End If
End Choose

//处理plancode
storage_plancode_flag = 0
If li_if_plancode = 0 Then //不使用
	s_mx.plancode = ''
Else
	If thflag <> 1 Then //退货不处理
		If li_inwaretype = 1 Then //无(不变)
			//inwaremx[it_mxbt].plancode = s_mx.plancode
		ElseIf li_inwaretype = 2 Then //价格
			s_mx.plancode = String(Round(s_mx.uprice * s_mx.rebate,5))
		ElseIf li_inwaretype = 3 Then //订单
			If ls_relcode <> '' And billtype = 3 Then
				s_mx.plancode = ls_relcode
			ElseIf ls_saletaskcode <> '' And (billtype = 1 Or billtype = 4 ) Then
				s_mx.plancode = ls_saletaskcode
			Else
				s_mx.plancode = s_mx.plancode //(不变)
			End If
		ElseIf li_inwaretype = 5 Then //进仓单号
			storage_plancode_flag = 1 //仓库中是否设置了使用 “进仓单号” 作为批号
			
		ElseIf  li_inwaretype = 6 Then //数值
			
			s_mx.plancode = String(s_mx.uqty,'#,##0.####')
		ElseIf  li_inwaretype = 7 Then //日期时间顺序
			
			If s_mx.plancode = '' Then
				s_mx.plancode = String(Today(), 'yymmddhhmm')	 + '-' + String(s_mx.printid)
			End If
		End If
	End If //退货不处理
End If

//处理 sptmtrlname
String ls_sptmtrlname
If billtype = 1 Then
	If uo_sptprice.uf_getmtrlname(sptid,s_mx.mtrlid,ls_sptmtrlname,arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
Else
	ls_sptmtrlname = ""
End If


//处理价格===============================
//取默认报价
If billtype = 1 Then
	f_get_defsptprice(sptid,s_mx.mtrlid,s_mx.unit,s_mx.status,s_mx.pcode,s_mx.woodcode,ld_dftsptprice)
Else
	ld_dftsptprice = 0
End If


//不是自动的单价
If sysautobuild = False Then
	If s_mx.uprice * s_mx.rebate < 0 Then //检查进仓价
		rslt = 0
		arg_msg = "第" + String(s_mx.printid) + '行,' + String(s_mx.mtrlcode)+" 单价错误"
		Goto ext
	End If
End If

If s_mx.tax < 0 Then
	rslt = 0
	arg_msg = "税率不能为负数"
	Goto ext
End If

//检查成本价调整单
Long ll_mtrlwareid
If sys_option_hide_ware = 0 Then
	Select mtrlwareid
		Into :ll_mtrlwareid
		From u_mtrlware
		Where ( mtrlid = :s_mx.mtrlid ) And
		( plancode = :s_mx.plancode ) And
		( storageid = :storageid ) And
		( scid = :scid ) And
		( status = :s_mx.status ) And
		( sptid = :s_mx.sptid) And
		( dxflag = :dxflag) And
		( woodcode = :s_mx.woodcode) And
		( pcode = :s_mx.pcode) Using commit_transaction;
	If commit_transaction.SQLCode  = -1 Then
		arg_msg = "第" + String(s_mx.printid) + "行,查询库存信息失败!"
		rslt = 0
		Goto ext
	End If
	
	If IsNull(ll_mtrlwareid) Then ll_mtrlwareid = 0
	If ll_mtrlwareid > 0  Then
		If Not (billtype = 8 And sptname = '成本价调整单审核自动生成') Then
			cnt = 0
			Select count(*)
				Into :cnt
				From u_updatecost,u_updatecostmx
				Where u_updatecost.wareid = u_updatecostmx.wareid And
				u_updatecost.flag = 0 And
				u_updatecostmx.mtrlwareid = :ll_mtrlwareid And
				u_updatecost.scid = :scid  Using commit_transaction;
			If commit_transaction.SQLCode <> 0 Then
				rslt = 0
				arg_msg = "第" + String(s_mx.printid) + "行,查询成本价调整单操作失败"
				Goto ext
			End If
			If cnt > 0 Then
				rslt = 0
				arg_msg = "第" + String(s_mx.printid) + "行," + s_mx.mtrlcode + "已开成本价调整单,请先审核"
				Goto ext
			End If
		End If
		
		//出仓的, 查询成本价
		
	Else
		
	End If
End If

//s_mx.price = Round(s_mx.enprice * mrate * s_mx.rebate,10) //进仓实价, 本位币,库存单位
s_mx.qty =  Round(s_mx.uqty * s_mx.rate, sys_option_unit_dec) //库存单位,进仓数量

//写入内容
it_mxbt++
inwaremx[it_mxbt].mtrlwareid = ll_mtrlwareid

inwaremx[it_mxbt].printid = s_mx.printid

inwaremx[it_mxbt].mtrlid = s_mx.mtrlid
inwaremx[it_mxbt].mtrlcode = s_mx.mtrlcode
inwaremx[it_mxbt].unit = s_mx.unit
inwaremx[it_mxbt].rate = s_mx.rate

inwaremx[it_mxbt].noauditqty = ld_noauditqty
inwaremx[it_mxbt].bootqty = ld_bootqty

inwaremx[it_mxbt].addqty = s_mx.addqty
inwaremx[it_mxbt].uqty = s_mx.uqty
inwaremx[it_mxbt].qty = s_mx.qty
inwaremx[it_mxbt].buyqty = s_mx.buyqty
inwaremx[it_mxbt].packqty = s_mx.packqty

inwaremx[it_mxbt].uprice = s_mx.uprice //进仓价, 原币, 进仓单位
If s_mx.buyqty <> 0 Then
	inwaremx[it_mxbt].fprice =  Round((s_mx.uprice * s_mx.buyqty) /(Round(s_mx.buyqty * s_mx.rate,sys_option_unit_dec)) * mrate ,10) //进仓价, 本位币, 库存单位
Else
	inwaremx[it_mxbt].fprice =  Round(s_mx.uprice * s_mx.rate * mrate,10)
End If
inwaremx[it_mxbt].fprice_notax = inwaremx[it_mxbt].fprice / (1 + s_mx.tax) //不含税价
inwaremx[it_mxbt].price = Round(inwaremx[it_mxbt].fprice * s_mx.rebate,10) //进仓实价, 本位币,库存单位
inwaremx[it_mxbt].rebate = s_mx.rebate
inwaremx[it_mxbt].tax = s_mx.tax

If billtype = 1 Then
	ld_round = 10.0 ^ (2 - sys_option_inware_buy_amt_round)
	If sys_option_inware_buy_amt_round = 5 Then ld_round = 1000
End If
inwaremx[it_mxbt].uamt = Round(s_mx.buyqty * s_mx.uprice * s_mx.rebate * ld_round, 0) / ld_round //原币,实价含税金额
If s_mx.uamt_tax = 0 Then
	inwaremx[it_mxbt].uamt_tax = Round((s_mx.buyqty * s_mx.uprice * s_mx.rebate)  * s_mx.tax / (1 + s_mx.tax) * ld_round, 0) / ld_round //原币, 税金
Else
	inwaremx[it_mxbt].uamt_tax = s_mx.uamt_tax
End If
inwaremx[it_mxbt].bsamt = Round(s_mx.buyqty * s_mx.uprice * s_mx.rebate * mrate * ld_round, 0) / ld_round //本位币, 实价含税金额
inwaremx[it_mxbt].bsamt_tax = Round((s_mx.buyqty * s_mx.uprice * s_mx.rebate * mrate)  * s_mx.tax / (1 + s_mx.tax) * ld_round, 0) / ld_round //本位币, 税金

inwaremx[it_mxbt].planprice = ld_planprice
inwaremx[it_mxbt].jgprice = s_mx.jgprice

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

inwaremx[it_mxbt].relid = s_mx.relid
inwaremx[it_mxbt].relprintid = s_mx.relprintid
inwaremx[it_mxbt].ifrel = s_mx.ifrel

inwaremx[it_mxbt].status = s_mx.status
inwaremx[it_mxbt].woodcode = s_mx.woodcode
inwaremx[it_mxbt].pcode = s_mx.pcode

inwaremx[it_mxbt].relcode = ls_relcode
inwaremx[it_mxbt].mtrlcuscode = s_mx.mtrlcuscode
inwaremx[it_mxbt].dftsptprice = ld_dftsptprice
inwaremx[it_mxbt].formula = s_mx.formula
inwaremx[it_mxbt].waredscrp = s_mx.waredscrp
inwaremx[it_mxbt].inworkdate = s_mx.inworkdate

inwaremx[it_mxbt].plancode = s_mx.plancode

inwaremx[it_mxbt].sptid = s_mx.sptid


inwaremx[it_mxbt].sptmtrlname = ls_sptmtrlname //供应商别名

inwaremx[it_mxbt].uprice_notax = s_mx.uprice_notax //不含税单价

//IF sys_option_buyth_wareamt = 0 THEN
//
Decimal ld_cost_notax
If (billtype = 1 And thflag = 1 And sys_option_buyth_wareamt = 0 ) &
	Or (s_mx.uqty < 0 And billtype <> 3 And billtype <> 1) Then //采购退货单 或者 非采购/生产进仓
	Select cost,cost_notax
		Into :ld_cost,:ld_cost_notax
		From u_mtrlware
		Where scid = :scid
		And mtrlid = :s_mx.mtrlid
		And storageid = :storageid
		And status = :s_mx.status
		And plancode = :s_mx.plancode
		And woodcode = :s_mx.woodcode
		And pcode = :s_mx.pcode
		And dxflag = :dxflag
		And sptid = :s_mx.sptid;
	If sqlca.SQLCode <> 0 Or IsNull(ld_cost) Then ld_cost = 0
	If sqlca.SQLCode <> 0 Or IsNull(ld_cost_notax) Then ld_cost_notax = 0
	
	inwaremx[it_mxbt].cost = ld_cost
	inwaremx[it_mxbt].cost_notax = ld_cost_notax
Else
	inwaremx[it_mxbt].cost = inwaremx[it_mxbt].fprice * s_mx.rebate
	If s_mx.cost_notax = 0 Then
		inwaremx[it_mxbt].cost_notax = inwaremx[it_mxbt].fprice_notax * s_mx.rebate
	Else
		inwaremx[it_mxbt].cost_notax = s_mx.cost_notax
	End If
End If

inwaremx[it_mxbt].costamt = Round(inwaremx[it_mxbt].cost * inwaremx[it_mxbt].qty, 2) //成本金额,库存单位

ext:

Destroy uo_sptprice

If rslt = 0 Then
	p_clearmx()
	arg_msg = billname + ',' + arg_msg
End If

Return(rslt)






































end function

public function integer uof_check_warepdb_audit (long arg_storageid, ref string arg_msg);//如果有盘点表未审核 , 则不能审核通过
Int rslt = 1
Long cnt

SELECT count(*)
	INTO :cnt
	FROM u_warepdb
	WHERE storageid = :arg_storageid
	And flag = 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 = '仓库有盘点表未审核,不能仓审或仓撤单据,请检查'
	GOTO ext
END IF

ext:
RETURN rslt

end function

public function integer auditing_chk (ref string arg_msg);//uo_inware_buy 重写
//uo_inware_cp 重写

Long rslt = 1

IF sys_option_hide_ware = 0 THEN
	IF billtype <> 9 THEN
		IF uof_check_warepdb_audit(storageid,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	ELSE
		IF Not sysautobuild THEN
			IF dscrp  = '盘点表审核自动生成盘盈单' THEN
				arg_msg = '系统自动生成的单据不能手动审核'
				rslt = 0
				GOTO ext
			END IF
		END IF
	END IF
END IF

ext:
RETURN rslt

end function

public function integer auditing_end (ref string arg_msg);long rslt = 1


return rslt 
end function

public function integer c_auditing_chk (ref string arg_msg);//uo_inware_buy 重写

Long rslt = 1

IF sys_option_hide_ware = 0 THEN
	IF Not sysautobuild THEN
		IF billtype = 8 And relid > 0 THEN
			rslt = 0
			arg_msg = "该进仓单是系统生成（如成本调整单）,不能手动撤审！"
			GOTO ext
		END IF
		
		IF billtype = 9 And dscrp  = '盘点表审核自动生成盘盈单' THEN
			arg_msg = '系统自动生成的单据不能手动撤审'
			rslt = 0
			GOTO ext
		END IF
		
	END IF
	
	IF billtype <> 9 THEN
		IF uof_check_warepdb_audit(storageid,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
//	ELSE
//		IF Not sysautobuild THEN
//			
//		END IF
	END IF
END IF

ext:
RETURN rslt

end function

public function integer c_auditing_end (ref string arg_msg);long rslt = 1


return rslt 
end function

public function integer save_chk (ref string arg_msg);
long rslt = 1
long cnt

//未注册限制
IF sys_if_register = 0 THEN
	Long ll_bill_count
	SELECT count(*)
		INTO :ll_bill_count
		From u_inware Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,单据数量 "
		GOTO ext
	END IF
	
	IF  ll_bill_count > 100 THEN  //我
		rslt = 0
		arg_msg = "未注册版本,进仓单只能保存100张!"
		GOTO ext
	END IF
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 it_mxbt = 0 THEN //如果输入物料资料错则已经清空
	rslt = 0
	arg_msg = "没有正确进仓内容"
	GOTO ext
END IF

IF sys_option_hide_ware = 0 THEN
	cnt = 0
	//检查仓库
	SELECT count(*)
		INTO :cnt
		FROM u_storage
		Where u_storage.storageid = :storageid 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 = "错误的仓库编号: "+String(storageid)
		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

IF f_check_inoutdate(storageid,indate,True,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF
//====================================================================


IF billtype = 1 Or billtype = 4 THEN
	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
	
	IF relint_1 = 0 THEN
		arg_msg = '请选择结算方式'
		rslt = 0
		GOTO ext
	END IF
	
ELSEIF billtype = 8 THEN
	IF Trim(sptname) = '' Or IsNull(sptname) THEN
		rslt = 0
		arg_msg = "请输入进仓原因!"
		GOTO ext
	END IF
	
ELSEIF billtype = 9 THEN
	IF Trim(sptname) = '' Or IsNull(sptname) THEN
		sptname = "盘盈"
	END IF
END IF

if lena(sptname) > 30 then sptname = lefta(sptname, 30)
ext:
return rslt 
end function

public function integer save_end (ref string arg_msg);long rslt = 1


return rslt 
end function

public function integer uf_chk_updatecost (ref string arg_msg);//撤审限制，迟于本出仓单审核时间的成本价调整单审核后本出仓单不能撤审
//否则单价会出现错误;
int rslt = 1
Long i, ll_count
FOR i = 1 TO it_mxbt
//	ll_count = 0
//	SELECT count(*)
//		INTO :ll_count
//		FROM u_updatecostmx,
//			u_updatecost
//		WHERE ( u_updatecostmx.scid = u_updatecost.scid )  AND
//		( u_updatecost.wareid = u_updatecostmx.wareid) AND
//		( u_updatecost.flag = 1 ) AND
//		( u_updatecostmx.mtrlwareid = :outwaremx[i].mtrlwareid) AND
//		( u_updatecostmx.scid = :scid) and
//		( u_updatecost.Auditingdate > :Auditingdate ) USING commit_transaction;
//	IF sqlca.SQLCode = 0 THEN
//		IF ll_count > 0 THEN
//			rslt = 0
//			arg_msg = '第'+ string(i) +'行,' + outwaremx[i].mtrlcode + "已调整成本价,不能撤审,涉及成本价调整单数量:" + string(ll_count)
//			GOTO ext
//		END IF
//	ELSE
//		rslt = 0
//		arg_msg = '第'+ string(i) +'行,' + outwaremx[i].mtrlcode + "查询成本价调整单失败"
//		GOTO ext
//	END IF
NEXT

//ext:
return rslt
end function

public function integer acceptmx_chk (s_inwaremx s_mx, ref string arg_msg);int rslt = 1

//检查物料id
Int li_statusflag,li_woodcodeflag,li_pcodeflag
Int li_status_check,li_woodcode_check,li_pcode_check

Decimal ld_capacity,ld_capacity_zj
s_mtrlcfg_expr s_pz[]
String ls_status_zj
Long ll_i

//检查物料id
SELECT
	statusflag,
	woodcodeflag,
	pcodeflag,
	status_check,
	woodcode_check,
	pcode_check
	INTO 
	:li_statusflag,
	:li_woodcodeflag,
	:li_pcodeflag,
	:li_status_check,
	:li_woodcode_check,
	:li_pcode_check
	FROM u_mtrldef
	Where u_mtrldef.mtrlid = :s_mx.mtrlid USING commit_transaction ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "第" + String(s_mx.printid) + "行,查询操作失败,编码:"+s_mx.mtrlcode
	GOTO ext
END IF


IF li_statusflag = 2 THEN
	IF s_mx.status = '' THEN
		arg_msg = '行:'+String(s_mx.printid)+',物料'+sys_option_change_status + '字段使用组合配置,请输入'
		rslt = 0
		GOTO ext
	END IF
ELSEIF li_statusflag = 4 And li_status_check = 1  THEN
	IF s_mx.status = '' THEN
		arg_msg = '行:'+String(s_mx.printid)+',物料'+sys_option_change_woodcode + '字段使用部件选配,请输入'
		rslt = 0
		GOTO ext
	END IF
ELSEIF li_statusflag = 1 Or li_statusflag = 0 THEN
	IF f_check_status(1,s_mx.status) = 0 THEN
		rslt = 0
		arg_msg = '行:'+String(s_mx.printid)+",查询操作失败,可能"+sys_option_change_status+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.status
		GOTO ext
	END IF
END IF

IF li_woodcodeflag = 4  And li_woodcode_check = 1 THEN
	IF s_mx.woodcode = '' THEN
		arg_msg = '行:'+String(s_mx.printid)+',物料'+sys_option_change_woodcode + '字段使用部件选配,请输入'
		rslt = 0
		GOTO ext
	END IF
ELSEIF li_woodcodeflag = 1 Or li_woodcodeflag = 0 THEN
	IF f_check_status(2,s_mx.woodcode) = 0 THEN
		rslt = 0
		arg_msg = '行:'+String(s_mx.printid)+",查询操作失败,可能"+sys_option_change_woodcode+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.woodcode
		GOTO ext
	END IF
END IF

IF li_pcodeflag = 4  And li_pcode_check = 1 THEN
	IF s_mx.pcode = '' THEN
		arg_msg = '行:'+String(s_mx.printid)+',物料'+sys_option_change_pcode + '字段使用部件选配,请输入'
		rslt = 0
		GOTO ext
	END IF
ELSEIF li_pcodeflag = 1 Or li_pcodeflag = 0 THEN
	IF f_check_status(3,s_mx.pcode) = 0 THEN
		rslt = 0
		arg_msg = '行:'+String(s_mx.printid)+",查询操作失败,可能"+sys_option_change_pcode+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.pcode
		GOTO ext
	END IF
END IF

//IF li_statusflag = 2 THEN
//	ld_capacity = 0
//	f_checkpz(s_mx.status,s_pz[])
//	FOR ll_i = 1 To  UpperBound(s_pz)
//		ls_status_zj = s_pz[ll_i].cfgname
		
//		SELECT capacity
//			INTO :ld_capacity_zj
//			FROM u_mtrl_configure
//			WHERE mtrlid = :s_mx.mtrlid
//			And Name = :ls_status_zj;
//		IF commit_transaction.SQLCode <> 0 THEN
//			rslt = 0
//			arg_msg = "第"+String(s_mx.printid)+"行,查询子件 "+ls_status_zj+" 产能参数操作失败"
//			GOTO ext
//		END IF
//		
//		ld_capacity = ld_capacity + ld_capacity_zj * Dec(s_pz[ll_i].qty)
		
//	NEXT
//END IF

ext:
return rslt
end function

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

uo_spt_price uo_sptprice
uo_sptprice = Create uo_spt_price
//MessageBox('','sss')
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_uprice,ld_uqty,lde_buyqty,ld_rate,ld_qty,ld_rebate,ld_cost,lde_tax,lde_mrate
Long ll_mtrlid,ll_sptid
String ls_status,ls_woodcode,ls_pcode,ld_plancode
Decimal ld_fprice_new,ld_price_new,ld_cost_new
Decimal lde_uamt, lde_uamt_tax, lde_bsamt, lde_bsamt_tax
Long ll_storageid
decimal ld_uprice_notax_new

SELECT mrate,storageid
	INTO :lde_mrate,:ll_storageid
	FROM u_inware
	WHERE scid = :arg_scid
	AND inwareid = :arg_inwareid
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询进仓单内容失败'
	GOTO ext
END IF

Long li_if_fifo = 0

SELECT if_fifo
	INTO :li_if_fifo
	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 li_if_fifo = 1 THEN
	arg_msg =  "仓库存货核算使用先进先出法，不能使用该功能！"
	rslt = 0
	GOTO ext
END IF




SELECT uprice,
	buyqty,
	uqty,
	rate,
	qty,
	rebate,
	mtrlid,
	status,
	woodcode,
	pcode,
	cost,
	plancode,
	sptid_cusid,
	tax
	INTO :ld_uprice,
	:lde_buyqty,
	:ld_uqty,
	:ld_rate,
	:ld_qty,
	:ld_rebate,
	:ll_mtrlid,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:ld_cost,
	:ld_plancode,
	:ll_sptid,
	:lde_tax
	FROM u_inwaremx
	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 = '查询进仓单明细内容失败'
	GOTO ext
END IF

IF arg_tax = -1 THEN arg_tax = lde_tax
IF arg_rebate = -1 THEN arg_rebate = ld_rebate

IF arg_uprice = ld_uprice And  arg_tax = lde_tax  And arg_rebate = ld_rebate THEN
	rslt = 0
	arg_msg = '单价、折扣、税率没有任何修改,不能保存'
	GOTO ext
END IF

//库存单位单价 本位币
IF Round(lde_buyqty * ld_rate,sys_option_unit_dec) <> 0 THEN
	ld_fprice_new = Round((arg_uprice * lde_buyqty ) / (Round(lde_buyqty * ld_rate,sys_option_unit_dec)) * lde_mrate,10)
ELSE
	ld_fprice_new = Round(arg_uprice * ld_rate * mrate,10)
END IF

ld_price_new = ld_fprice_new * arg_rebate //库存单位实价 本位币

ld_cost_new = ld_fprice_new * arg_rebate //进仓成本价


lde_uamt = Round(lde_buyqty * arg_uprice * arg_rebate, 2) //原币,实价含税金额
lde_uamt_tax =  Round(lde_buyqty * arg_uprice * arg_rebate * arg_tax / ( 1 + arg_tax), 2) //原币, 税金
lde_bsamt = Round(lde_buyqty * arg_uprice * arg_rebate * lde_mrate, 2) //本位币, 实价含税金额
lde_bsamt_tax = Round(lde_buyqty * arg_uprice * arg_rebate * lde_mrate * arg_tax / ( 1 + arg_tax), 2) //本位币, 税金

ld_uprice_notax_new = arg_uprice /  ( 1 + arg_tax ) //不含税单价=单价/（1+税率）

//更新单据
UPDATE u_inwaremx
	SET uprice = :arg_uprice,
	fprice = :ld_fprice_new,
	price = :ld_price_new,
	cost = :ld_cost_new,
	costamt = round(:ld_cost_new * qty, 2),
	jgprice = :arg_jgprice,
	rebate = :arg_rebate,
	tax = :arg_tax,
	uamt = :lde_uamt,
	uamt_tax = :lde_uamt_tax,
	bsamt = :lde_bsamt,
	bsamt_tax = :lde_bsamt_tax,
	uprice_notax = :ld_uprice_notax_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 = '更新单据明细的单价失败'
	GOTO ext
END IF

Decimal ld_bgamt,ld_incamt,ld_bgqty,ld_incqty
Decimal ld_newcost

SELECT bgamt,
	incamt,
	bgqty,
	incqty
	INTO :ld_bgamt,
	:ld_incamt,
	:ld_bgqty,
	:ld_incqty
	FROM u_warebalc
	WHERE mtrlid = :ll_mtrlid
	AND balcdateint = 0
	AND storageid = :storageid
	AND status = :ls_status
	AND woodcode = :ls_woodcode
	AND pcode = :ls_pcode
	AND sptid_cusid = :ll_sptid
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询相关结存信息失败'
	GOTO ext
END IF

IF ld_bgqty + ld_incqty <> 0 THEN
	ld_newcost = Round((ld_bgamt + ld_incamt - ld_cost * ld_qty + ld_cost_new * ld_qty) / (ld_bgqty + ld_incqty),10)
ELSE
	ld_newcost = 0
END IF

IF ld_newcost < 0 THEN ld_newcost = 0
//更新结存
UPDATE u_warebalc
	SET incamt = incamt + round((:ld_cost_new - :ld_cost) * :ld_qty,2),
	desamt = round(desqty * :ld_newcost,2),
	balcamt = round(balcqty * :ld_newcost,2)
	WHERE mtrlid = :ll_mtrlid
	AND balcdateint = 0
	AND Storageid = :storageid
	AND status = :ls_status
	AND woodcode = :ls_woodcode
	AND pcode = :ls_pcode
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新结存表失败'
	GOTO ext
END IF

Long cnt //100823
SELECT count(*)
	INTO :cnt
	FROM u_mtrlware
	WHERE mtrlid = :ll_mtrlid
	AND Storageid = :storageid
	AND status = :ls_status
	AND woodcode = :ls_woodcode
	AND pcode = :ls_pcode
	AND plancode = :ld_plancode
	AND Sptid = :ll_sptid
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询库存表信息失败'
	GOTO ext
END IF

IF cnt > 1 THEN
	rslt = 0
	arg_msg = '物料库存多批号,不能更新单价'
	GOTO ext
END IF



Long ll_mtrlwareid
Decimal ld_cost_mtrlware,ld_wareamt_mtrlware,ld_noallocqty_mtrlware
SELECT mtrlwareid,
	cost,
	wareamt,
	noallocqty
	INTO :ll_mtrlwareid,
	:ld_cost_mtrlware,
	:ld_wareamt_mtrlware	,
	:ld_noallocqty_mtrlware
	FROM u_mtrlware
	WHERE mtrlid = :ll_mtrlid
	AND Storageid = :storageid
	AND status = :ls_status
	AND woodcode = :ls_woodcode
	AND pcode = :ls_pcode
	AND plancode = :ld_plancode
	AND Sptid = :ll_sptid
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询库存表信息失败'
	GOTO ext
END IF



//原来是 SET cost = :ld_newcost,
//原来是 wareamt = round(noallocqty * :ld_newcost,2)
//因为结存表不含plancode字  所以 结存表计算出来的 ld_newcost 不是正确的单价 应该重新算ld_newcost
Decimal ld_newcost_mtrlware
IF ld_noallocqty_mtrlware <> 0 THEN
	ld_newcost_mtrlware = Round((ld_wareamt_mtrlware - ld_cost_mtrlware * ld_qty + ld_cost_new * ld_qty) / (ld_noallocqty_mtrlware),10)
ELSE
	ld_newcost_mtrlware = 0
END IF

//

Decimal dec_sum_amt
Decimal dec_sum_uqty
SELECT sum(u_inwaremx.uqty * u_inwaremx.rebate * u_inwaremx.uprice) AS uamt
	,sum(u_inwaremx.uqty) AS uqty
INTO :dec_sum_amt
	,:dec_sum_uqty
FROM u_inwaremx
INNER JOIN u_inware ON u_inware.scid = u_inwaremx.scid
	AND u_inware.inwareid = u_inwaremx.inwareid
WHERE flag = 1
	AND u_inwaremx.mtrlid = :ll_mtrlid
	AND u_inware.storageid = :storageid
	AND u_inwaremx.STATUS = :ls_status
	AND u_inwaremx.woodcode = :ls_woodcode
	AND u_inwaremx.pcode = :ls_pcode
	AND u_inwaremx.sptid_cusid = :ll_sptid
	AND u_inwaremx.plancode = :ld_plancode Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询库存表1信息失败'
	GOTO ext
END IF

IF IsNull(dec_sum_amt) THEN dec_sum_amt = 0
IF IsNull(dec_sum_uqty) THEN dec_sum_uqty = 0
IF dec_sum_uqty <> 0 THEN
	ld_newcost_mtrlware = Round((dec_sum_amt ) / (dec_sum_uqty),10)
ELSE
	ld_newcost_mtrlware = 0
END IF


//判断系统有没有用批号 如果没有用回原来的模式 20171218
Long llk_cnt
llk_cnt = 0
SELECT count(*) Into :llk_cnt From u_mtrlware Where Len(plancode) > 0 Using commit_transaction;
IF IsNull(llk_cnt) THEN llk_cnt = 0
IF llk_cnt = 0 THEN
	ld_newcost_mtrlware = ld_newcost
END IF












//更新库存
UPDATE u_mtrlware
	SET cost = :ld_newcost_mtrlware,
	wareamt = round(noallocqty * :ld_newcost_mtrlware,2)
	WHERE mtrlid = :ll_mtrlid
	AND Storageid = :storageid
	AND status = :ls_status
	AND woodcode = :ls_woodcode
	AND pcode = :ls_pcode
	AND plancode = :ld_plancode
	AND Sptid = :ll_sptid
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新库存表成本价、金额失败'
	GOTO ext
END IF

//原来是 SET u_outwaremx.costamt = round(u_outwaremx.qty * :ld_newcost,2)
//更新出仓
UPDATE u_outwaremx
	SET u_outwaremx.costamt = round(u_outwaremx.qty * :ld_newcost_mtrlware,2)
	FROM u_outwaremx INNER JOIN
	u_outware ON u_outwaremx.scid = u_outware.scid AND
	u_outwaremx.outwareid = u_outware.outwareid
	WHERE u_outwaremx.mtrlid = :ll_mtrlid
	AND u_outware.storageid = :storageid
	AND u_outwaremx.status = :ls_status
	AND u_outwaremx.woodcode = :ls_woodcode
	AND u_outwaremx.pcode = :ls_pcode
	AND u_outware.balcflag  = 0
	AND  u_outwaremx.plancode = :ld_plancode
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新未结存的出仓单金额失败'
	GOTO ext
END IF

//更新供应商价格历史
Dec lde_newprice
Long ll_inwareid
IF billtype = 4 THEN //外协
	lde_newprice = arg_jgprice
	ll_inwareid = relid
ELSE
	lde_newprice = arg_uprice
	ll_inwareid = arg_inwareid
END IF
IF uo_sptprice.uf_update_sptprice_mx(thflag,ll_inwareid,arg_printid,0,lde_newprice,ld_rebate,False,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
	arg_msg = billname + ',' + arg_msg
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF
Destroy uo_sptprice
RETURN rslt











end function

public function integer mod_buyqty (long arg_scid, long arg_inwareid, long arg_printid, decimal arg_buyqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1

uo_spt_price uo_sptprice
uo_sptprice = CREATE uo_spt_price

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_uprice,ld_uqty,lde_buyqty,ld_rate,ld_qty,ld_rebate,ld_cost,lde_tax,lde_mrate
Long ll_mtrlid,ll_sptid
String ls_status,ls_woodcode,ls_pcode,ld_plancode
Decimal ld_fprice_new,ld_price_new,ld_cost_new
decimal lde_uamt, lde_uamt_tax, lde_bsamt, lde_bsamt_tax
long ll_storageid

select mrate,storageid
into :lde_mrate,:ll_storageid
	FROM u_inware
	WHERE scid = :arg_scid
	AND inwareid = :arg_inwareid
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询进仓单内容失败'
	GOTO ext
END IF


Long li_if_fifo = 0

SELECT if_fifo
	INTO :li_if_fifo
	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 li_if_fifo = 1 THEN
	arg_msg =  "仓库存货核算使用先进先出法，不能使用该功能！"
	rslt = 0
	GOTO ext
END IF










SELECT uprice,
	buyqty,
	uqty,
	rate,
	qty,
	rebate,
	mtrlid,
	status,
	woodcode,
	pcode,
	cost,
	plancode,
	sptid_cusid,
	tax
	INTO :ld_uprice,
	:lde_buyqty,
	:ld_uqty,
	:ld_rate,
	:ld_qty,
	:ld_rebate,
	:ll_mtrlid,
	:ls_status,
	:ls_woodcode,
	:ls_pcode,
	:ld_cost,
	:ld_plancode,
	:ll_sptid,
	:lde_tax
	FROM u_inwaremx
	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 = '查询进仓单明细内容失败'
	GOTO ext
END IF

IF arg_buyqty = lde_buyqty THEN
	rslt = 0
	arg_msg = '收货数量没有任何修改,不能保存'
	GOTO ext
END IF

////库存单位收货数量 本位币
//IF Round(lde_buyqty * ld_rate,sys_option_unit_dec) <> 0 THEN
//	ld_fprice_new = Round((arg_uprice * lde_buyqty ) / (Round(lde_buyqty * ld_rate,sys_option_unit_dec)) * lde_mrate,10)
//ELSE
//	ld_fprice_new = Round(arg_uprice * ld_rate * mrate,10)
//END IF
//
//ld_price_new = ld_fprice_new * arg_rebate//库存单位实价 本位币
//
//ld_cost_new = ld_fprice_new * arg_rebate //进仓成本价

lde_uamt = round(arg_buyqty * ld_uprice * ld_rebate, 2) //原币,实价含税金额
lde_uamt_tax =  round(arg_buyqty * ld_uprice * ld_rebate * lde_tax / ( 1 + lde_tax), 2) //原币, 税金
lde_bsamt = round(arg_buyqty * ld_uprice * ld_rebate * lde_mrate, 2) //本位币, 实价含税金额
lde_bsamt_tax = round(arg_buyqty * ld_uprice * ld_rebate * lde_mrate * lde_tax / ( 1 + lde_tax), 2) //本位币, 税金



//更新单据
UPDATE u_inwaremx
	SET buyqty = :arg_buyqty,
	uamt = :lde_uamt,
	uamt_tax = :lde_uamt_tax,
	bsamt = :lde_bsamt,
	bsamt_tax = :lde_bsamt_tax
	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 = '更新单据明细的收货数量失败'
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
	arg_msg = billname + ',' + arg_msg
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF
DESTROY uo_sptprice
RETURN rslt





end function

public subroutine uf_get_billname (integer arg_billtype);CHOOSE CASE arg_billtype
	CASE 1
		billname = '采购进仓单'
	CASE 2
		billname = '采购进仓单'
	CASE 3
		billname = '生产进仓单'
	CASE 4
		billname = '外协进仓单'
	CASE 8
		billname = '其他进仓单'
	CASE 9
		billname = '盘盈进仓单'
	CASE 12
		billname = '调拨进仓单'
	CASE 15
		billname = '拆装进仓单'
	CASE 20
		billname = '来料加工收料进仓单'
	CASE 22
		billname = '库存配置调整单'
END CHOOSE

end subroutine

public function decimal uof_get_mtrlware_cost (long arg_scid, long arg_storageid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, long arg_sptid, long arg_dxflag);Decimal dec_fifo_cost
//
////如果进仓单价为0自动取库存成本价作为进仓成本
dec_fifo_cost = 0


SELECT cost INTO :dec_fifo_cost FROM u_mtrlware
	WHERE ( scid = :arg_scid ) AND
	( storageid = :arg_storageid ) AND
	( mtrlid = :arg_mtrlid ) AND
	( status = :arg_status ) AND
	( woodcode = :arg_woodcode) AND
	( pcode = :arg_pcode) AND
	( plancode = :arg_plancode ) AND
	( sptid = :arg_sptid) AND
	( dxflag = :arg_dxflag) Using commit_transaction  ;
	

IF 		dec_fifo_cost > 0 THEN
	RETURN dec_fifo_cost
ELSE
	RETURN 0
END IF



end function

public function integer uf_w_cmp_fifo_cb_bill (long ll_scid, long ll_mtrlwareid, boolean arg_ifcommit, ref string arg_msg);//
Long rslt = 1
Long contractcnt,i
datastore ds




//ll_row = dw_1.GetRow()
//IF ll_row <= 0 THEN RETURN
//
//
//
//ll_scid = dw_1.Object.u_mtrlware_scid[ll_row]
//ll_mtrlwareid = dw_1.Object.u_mtrlware_mtrlwareid[ll_row]
//
//IF ll_mtrlwareid <= 0 THEN RETURN


ds = Create datastore
ds.DataObject = "ddds_cs_cmp_xjxc"
ds.SetTransObject(commit_transaction)
contractcnt = ds.Retrieve(ll_scid,ll_mtrlwareid)

//MessageBox('',String(contractcnt))

DELETE u_mtrlware_inmx Where scid = :ll_scid And mtrlwareid = :ll_mtrlwareid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "删除库存进仓批失败"
	GOTO ext
END IF

Long ll_inwareid,ll_printid
DateTime dt_indate
String ls_inwarecode
Decimal dec_inqty
Decimal dec_inprice,dec_inprice_notax
FOR i = 1 To contractcnt
	ll_inwareid = 0
	ll_printid = 0
	ls_inwarecode = ''
	dec_inqty = 0
	dec_inprice = 0
	
	ll_inwareid = ds.Object.inwareid[i]
	ll_printid = ds.Object.printid[i]
	dt_indate = ds.Object.inwaredate[i]
	ls_inwarecode = ds.Object.inwarecode[i]
	dec_inqty = ds.Object.inqty[i]
	dec_inprice = ds.Object.inprice[i]
	dec_inprice_notax = ds.Object.inprice_notax[i]
	
	IF f_add_mtrlware_inmx(ll_scid,ll_mtrlwareid,ll_inwareid,ll_printid,ls_inwarecode,dt_indate,dec_inqty,dec_inprice,dec_inprice_notax,0,False,commit_transaction,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

IF f_cmp_fifo_cb_mtrlware(ll_scid,ll_mtrlwareid,False,commit_transaction,arg_msg) = 0 THEN
	rslt = 0
	
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 audit_subject (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg);
Int rslt = 1,cnt = 0

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


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

IF billtype = 1 THEN
	IF secflag = 0  THEN
		rslt = 0
		arg_msg = "单据没有财审"
		GOTO ext
	END IF
ELSE
	
	IF flag = 0  THEN
		rslt = 0
		arg_msg = "单据没有仓审"
		GOTO ext
	END IF
END IF



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



UPDATE u_inware
	SET cwauditingflag = 1,
	cwauditingdate = getdate(),
	cwauditingrep = :publ_operator
	WHERE ( u_inware.inwareid = :arg_billid ) AND
	( u_inware.scid = :arg_scid) Using commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致总账审核操作失败"+"~n"+commit_transaction.SQLErrText
	ROLLBACK Using commit_transaction;
	GOTO ext
END IF

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

Return (rslt)






end function

public function integer c_audit_subject (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg);
Int rslt = 1,cnt = 0

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


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

IF cwauditingflag = 0 THEN
	rslt = 0
	arg_msg = "单据没有总账审核"
	GOTO ext
END IF



UPDATE u_inware
	SET cwauditingflag = 0,
	cwauditingdate =null,
	cwauditingrep = ''
	WHERE ( u_inware.inwareid = :arg_billid ) AND
	( u_inware.scid = :arg_scid) Using commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致总账撤审操作失败"+"~n"+commit_transaction.SQLErrText
	ROLLBACK Using commit_transaction;
	GOTO ext
END IF

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

Return (rslt)



end function

public function integer p_update_mtrlware (ref long arg_mtrlwareid, long arg_mtrlid, string arg_mtrlcode, long arg_storageid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_addqty, decimal arg_price, decimal arg_planprice, long arg_sptid, integer arg_dxflag, string arg_woodcode, string arg_pcode, ref string arg_msg, string arg_waredscrp, datetime arg_inworkdate, decimal arg_cost_notax);Int rslt = 1
//Long ls_newid
String or_err_part
Decimal ld_cost
Long ll_Mtrlwareid
String ls_msg

Int li_if_cus_mtrlware, li_if_plancode, li_inwaretype
Int li_incheck
Decimal i_auditingqty,ld_noallocqty,ld_allocqty,ld_cost_notax
String ls_storagename
//sys_option_noallocaddqty 仓审进出仓辅数 0-考虑辅数 1-不考虑辅数 20190107
IF sys_option_noallocaddqty <>0 then
	arg_addqty = 0
END IF
 
SELECT  balctype , if_plancode, inwaretype,incheck,storagename
	INTO :li_if_cus_mtrlware, :li_if_plancode, :li_inwaretype,:li_incheck,:ls_storagename
	FROM u_storage
	Where storageid = :arg_storageid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询仓库资料失败'
	rslt = 0
	GOTO ext
END IF

IF li_if_cus_mtrlware = 1 THEN //使用客户库存
	
ELSE
	IF arg_sptid <> 0 THEN
		arg_sptid = 0
		ls_msg = '仓库不使用客户库存~r~n'
	END IF
END IF

IF li_if_plancode = 1 THEN //使用批号

ELSE
	IF arg_plancode <> '' THEN
		arg_plancode = ''
		ls_msg = '仓库不使用批号库存~r~n'
	END IF
END IF

//检查库存
If (arg_qty < 0 And li_incheck = 1) And Not (billtype = 8 And Pos(sptname,'调整成本价') > 0 ) THEN
	SELECT u_mtrlware.noallocqty - isnull(uv_mtrlware_noauditingqty.noauditingqty,0),
		u_mtrlware.noallocqty,u_mtrlware.allocqty
		INTO :i_auditingqty,:ld_noallocqty,:ld_allocqty
		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.mtrlid = :arg_mtrlid ) AND
		( u_mtrlware.plancode = :arg_plancode ) AND
		( u_mtrlware.storageid = :arg_storageid ) AND
		( u_mtrlware.scid = :scid ) AND
		( u_mtrlware.status = :arg_status ) AND
		( u_mtrlware.sptid = :arg_sptid) AND
		( u_mtrlware.dxflag = :arg_dxflag) AND
		( u_mtrlware.woodcode = :arg_woodcode) AND
		( u_mtrlware.pcode = :arg_pcode)  Using commit_transaction  ;
	IF commit_transaction.SQLCode <> 0 THEN
		IF commit_transaction.SQLCode = 100 THEN
			i_auditingqty = 0
		ELSE
			rslt = 0
			arg_msg = '仓库:'+ls_storagename+",因网络或其它原因导致查询物料["+arg_mtrlcode+"]库存未开单数操作失败"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
	END IF
	
	IF IsNull(i_auditingqty) THEN i_auditingqty = 0
	IF IsNull(ld_noallocqty) THEN ld_noallocqty = 0
	IF IsNull(ld_allocqty) THEN ld_allocqty = 0
	
	IF arg_qty < 0 And li_incheck = 1 And Not (billtype = 8 And Pos(sptname,'调整成本价') > 0 ) THEN
		IF arg_qty + i_auditingqty < 0 THEN
			rslt = 0
			arg_msg = '仓库:'+ls_storagename+",物料["+arg_mtrlcode+"]未开单库存数只有"+String(i_auditingqty,'#####,0.00#######')+',不能扣减数量:'+String(0 - arg_qty,'#####,0.00#######')
			GOTO ext
		END IF
	END IF
	
END IF



//-------------------------------------------更新库存
//仓库调拨单，拆装单生成的进出仓单不更新库存表的最近进出时间 090925
//newprice 只有当arg_price > 0 时才更新 lhd20120115
IF billtype = 12 Or billtype = 15 THEN
	UPDATE u_mtrlware
		SET noallocqty = noallocqty + :arg_qty ,
		noallocaddqty =  noallocaddqty + :arg_addqty,
		wareamt = wareamt + round(:arg_qty * :arg_price,2),
		wareamt_notax = wareamt_notax + round(:arg_qty * :arg_cost_notax,2),
		newprice = case when :arg_price > 0 then :arg_price else newprice END,
		cost = case noallocqty + :arg_qty when 0 then case when cost < 0 then 0 else cost END   else round((wareamt + round(:arg_qty * :arg_price,10)) / ( noallocqty + :arg_qty ),:sys_option_cost_dec) END,
		cost_notax = case noallocqty + :arg_qty when 0 then case when cost_notax < 0 then 0 else cost_notax END   else round((wareamt_notax + round(:arg_qty * :arg_cost_notax,10)) / ( noallocqty + :arg_qty ),:sys_option_cost_dec) END
		WHERE ( scid = :scid ) AND
		( storageid = :arg_storageid ) AND
		( mtrlid = :arg_mtrlid ) AND
		( status = :arg_status ) AND
		( woodcode = :arg_woodcode) AND
		( pcode = :arg_pcode) AND
		( plancode = :arg_plancode ) AND
		( sptid = :arg_sptid) AND
		( dxflag = :arg_dxflag) Using commit_transaction  ;
		
ELSE
	UPDATE u_mtrlware
		SET noallocqty = noallocqty + :arg_qty ,
		noallocaddqty =  noallocaddqty + :arg_addqty,
		wareamt = wareamt + Round(:arg_qty * :arg_price,2),
		wareamt_notax = wareamt_notax + round(:arg_qty * :arg_cost_notax,2),
		waredate = getdate(),
		newprice = case when :arg_price > 0 then :arg_price else newprice END,
		cost = CASE noallocqty + :arg_qty when 0 THEN case when cost < 0 then 0 else cost END   ELSE Round((wareamt + Round(:arg_qty * :arg_price,10)) / ( noallocqty + :arg_qty ),:sys_option_cost_dec) END,
		cost_notax = case noallocqty + :arg_qty when 0 then case when cost_notax < 0 then 0 else cost_notax END   else round((wareamt_notax + round(:arg_qty * :arg_cost_notax,10)) / ( noallocqty + :arg_qty ),:sys_option_cost_dec) END,
		waredscrp = case when :arg_waredscrp = '' then waredscrp else :arg_waredscrp END,
		inworkdate = :arg_inworkdate
		WHERE ( scid = :scid ) AND
		( storageid = :arg_storageid ) AND
		( mtrlid = :arg_mtrlid ) AND
		( status = :arg_status ) AND
		( woodcode = :arg_woodcode) AND
		( pcode = :arg_pcode) AND
		( plancode = :arg_plancode ) AND
		( sptid = :arg_sptid) AND
		( dxflag = :arg_dxflag) Using commit_transaction  ;
END IF

IF commit_transaction.SQLCode = 0 THEN
	IF commit_transaction.SQLNRows = 0 THEN
		///////////////////////// //
		ll_Mtrlwareid = f_sys_scidentity(scid,"u_mtrlware","mtrlwareid",arg_msg,False,commit_transaction)
		IF ll_Mtrlwareid <= 0 THEN
			rslt = 0
			GOTO ext
		END IF
		///////////////////////// //
		ld_cost = Round(arg_price,sys_option_cost_dec)
		ld_cost_notax = Round(arg_cost_notax,sys_option_cost_dec)
		INSERT INTO u_mtrlware
			( scid,
			mtrlwareid,
			mtrlid,
			storageid,
			plancode,
			status,
			noallocqty,
			noallocaddqty,
			allocqty,
			wareamt,
			planprice,
			sptid,
			dxflag,
			woodcode,
			pcode,
			cost,
			newprice,
			waredscrp ,
			inworkdate,
			cost_notax,
			wareamt_notax)
			VALUES (
			:scid,
			:ll_mtrlwareid,
			:arg_mtrlid,
			:arg_storageid,
			:arg_plancode,
			:arg_status,
			:arg_qty,
			:arg_addqty,
			0,
			round(:arg_price * :arg_qty,2),
			:arg_planprice,
			:arg_sptid,
			:arg_dxflag,
			:arg_woodcode,
			:arg_pcode,
			:ld_cost,
			:arg_price,
			:arg_waredscrp,
			:arg_inworkdate,
			:arg_cost_notax,
			round(:arg_qty * :arg_cost_notax,2)) Using commit_transaction ;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "编码["+arg_mtrlcode+"]库存建立操作失败~n"
			IF Pos(Lower(commit_transaction.SQLErrText),"noallocqty") > 0 THEN
				arg_msg += "库存负数"
			ELSEIF Pos(Lower(commit_transaction.SQLErrText),"noallocaddqty") > 0 THEN
				arg_msg += "库存辅数负数"
			ELSEIF Pos(Lower(commit_transaction.SQLErrText),"cost") > 0 THEN
				arg_msg += "库存金额负数"
			ELSE
				arg_msg += commit_transaction.SQLErrText
			END IF
			GOTO ext
		END IF
		
	ELSE
		//检查成本价调整单	
		
	END IF
ELSE
	//or_err_part = 'create rule'
	//String ls_str
	rslt = 0
	IF Pos(Lower(commit_transaction.SQLErrText),"noallocqty") > 0 THEN
		arg_msg = "编码["+arg_mtrlcode+"]同仓库内同批号没有足够的库存支持冲减"
	ELSEIF Pos(Lower(commit_transaction.SQLErrText),"noallocaddqty") > 0 THEN
		arg_msg = "编码["+arg_mtrlcode+"]同仓库内同批号没有足够的库存辅数支持冲减"
	ELSEIF Pos(Lower(commit_transaction.SQLErrText),"cost") > 0 THEN
		arg_msg = "编码["+arg_mtrlcode+"]库存金额不足够支持冲减"
	ELSE
		arg_msg = "编码["+arg_mtrlcode+"]库存更新操作失败"+"~n"+commit_transaction.SQLErrText
	END IF
	GOTO ext
END IF

//更新进仓明细mtrlwareid 过度的
IF ll_Mtrlwareid = 0 THEN
	SELECT mtrlwareid
		INTO :ll_mtrlwareid
		FROM u_mtrlware
		WHERE ( scid = :scid ) AND
		( storageid = :arg_storageid ) AND
		( mtrlid = :arg_mtrlid ) AND
		( status = :arg_status ) AND
		( woodcode = :arg_woodcode) AND
		( pcode = :arg_pcode) AND
		( sptid = :arg_sptid) AND
		( plancode = :arg_plancode ) AND
		( dxflag = :arg_dxflag) Using commit_transaction  ;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "编码["+arg_mtrlcode+"]查询库存信息失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
END IF
IF IsNull(ll_Mtrlwareid) THEN ll_Mtrlwareid = 0
arg_mtrlwareid = ll_Mtrlwareid



//Int sys_option_check_mtrware_amt= 0 // 282   限制仓库库存表的库存金额不能为负数
//IF  sys_option_check_mtrware_amt = 1 THEN
//	Decimal  dec_wareamt
//	dec_wareamt = 0
//	SELECT wareamt
//		INTO :dec_wareamt
//		FROM u_mtrlware
//		WHERE ( scid = :scid ) AND
//		( storageid = :arg_storageid ) AND
//		( mtrlid = :arg_mtrlid ) AND
//		( status = :arg_status ) AND
//		( woodcode = :arg_woodcode) AND
//		( pcode = :arg_pcode) AND
//		( sptid = :arg_sptid) AND
//		( plancode = :arg_plancode ) AND
//		( dxflag = :arg_dxflag) Using commit_transaction  ;
//	IF sqlca.SQLCode <> 0 THEN
//		rslt = 0
//		arg_msg = "编码["+arg_mtrlcode+"]查询库存信息失败"+"~n"+commit_transaction.SQLErrText
//		GOTO ext
//	END IF
//	
//	IF IsNull(dec_wareamt) THEN dec_wareamt = 0
//	
//	IF  dec_wareamt < 0 THEN
//		rslt = 0
//		arg_msg = "编码["+arg_mtrlcode+"] 系统选项282限制库存金额不能为负数！"+"~n"+commit_transaction.SQLErrText
//		GOTO ext
//	END IF
//	
//END IF






//-----------------------------------更新结存
Decimal ld_pypkqty,ld_pypkaddqty
Decimal ld_buyinqty,ld_buyinamt,ld_buyinaddqty
Decimal ld_cpinqty,ld_cpinamt,ld_cpinaddqty
Decimal ld_jginqty,ld_jginamt,ld_jginaddqty
Decimal ld_diinqty,ld_diinamt,ld_diinaddqty
Decimal ld_mvinqty,ld_mvinamt,ld_mvinaddqty
Decimal ld_otinqty,ld_otinamt,ld_otinaddqty
Decimal ld_pyinqty,ld_pyinamt,ld_pyinaddqty
Decimal ld_recinqty,ld_recinamt,ld_recinaddqty
Decimal ld_recinqty_th,ld_recinamt_th,ld_recinaddqty_th

Decimal ld_buyinamt_notax,ld_cpinamt_notax,ld_jginamt_notax,ld_otinamt_notax
Decimal ld_pyinamt_notax,ld_mvinamt_notax,ld_diinamt_notax
Decimal ld_recinamt_notax,ld_recinamt_th_notax

CHOOSE CASE billtype
	CASE 1
		ld_buyinqty = arg_qty
		ld_buyinaddqty = arg_addqty
		ld_buyinamt = Round(arg_qty * arg_price,2)
		ld_buyinamt_notax = Round(arg_qty * arg_cost_notax,2)
	CASE 3
		ld_cpinqty = arg_qty
		ld_cpinaddqty = arg_addqty
		ld_cpinamt = Round(arg_qty * arg_price,2)
		ld_cpinamt_notax = Round(arg_qty * arg_cost_notax,2)
	CASE 4
		ld_jginqty = arg_qty
		ld_jginaddqty = arg_addqty
		ld_jginamt = Round(arg_qty * arg_price,2)
		ld_jginamt_notax = Round(arg_qty * arg_cost_notax,2)
	CASE 8
		ld_otinqty = arg_qty
		ld_otinaddqty = arg_addqty
		ld_otinamt = Round(arg_qty * arg_price,2)
		ld_otinamt_notax = Round(arg_qty * arg_cost_notax,2)
	CASE 9
		ld_pyinqty = arg_qty
		ld_pyinaddqty = arg_addqty
		ld_pyinamt = Round(arg_qty * arg_price,2)
		ld_pyinamt_notax = Round(arg_qty * arg_cost_notax,2)
		ld_pypkqty = arg_qty
		ld_pypkaddqty = arg_addqty
	CASE 12
		ld_mvinqty = arg_qty
		ld_mvinaddqty = arg_addqty
		ld_mvinamt = Round(arg_qty * arg_price,2)
		ld_mvinamt_notax = Round(arg_qty * arg_cost_notax,2)
	CASE 15
		ld_diinqty = arg_qty
		ld_diinaddqty = arg_addqty
		ld_diinamt = Round(arg_qty * arg_price,2)
		ld_diinamt_notax = Round(arg_qty * arg_cost_notax,2)
	CASE 20
		IF thflag = 1 THEN
			ld_recinqty_th = Abs(arg_qty)
			ld_recinamt_th = Abs(Round(arg_qty * arg_price,2))
			ld_recinamt_th_notax = Round(arg_qty * arg_cost_notax,2)
			ld_recinaddqty_th = Abs(arg_addqty)
			ld_recinqty = 0
			ld_recinamt = 0
			ld_recinaddqty = 0
		ELSE
			ld_recinqty = arg_qty
			ld_recinaddqty = arg_addqty
			ld_recinamt = Round(arg_qty * arg_price,2)
			ld_recinamt_notax = Round(arg_qty * arg_cost_notax,2)
			ld_recinqty_th = 0
			ld_recinamt_th = 0
			ld_recinaddqty_th = 0
		END IF
		
END CHOOSE


UPDATE u_warebalc
	SET incqty = incqty + :arg_qty ,
	incaddqty = incaddqty + :arg_addqty ,
	incamt  = incamt + round(:arg_qty * :arg_price,2),
	incamt_notax  = incamt_notax + round(:arg_qty * :arg_cost_notax,2),
	
	balcqty = balcqty + :arg_qty,
	balcaddqty = balcaddqty + :arg_addqty,
	balcamt = balcamt + round(:arg_qty * :arg_price,2),
	balcamt_notax  = balcamt_notax + round(:arg_qty * :arg_cost_notax,2),
	
	pypk = pypk + :ld_pypkqty,
	pypkaddqty = pypkaddqty + :ld_pypkaddqty,
	
	
	buyinqty = buyinqty + :ld_buyinqty,
	buyinaddqty = buyinaddqty + :ld_buyinaddqty,
	buyinamt = buyinamt + :ld_buyinamt,
	buyinamt_notax  = buyinamt_notax + :ld_buyinamt_notax,
	
	cpinqty = cpinqty + :ld_cpinqty,
	cpinaddqty = cpinaddqty + :ld_cpinaddqty,
	cpinamt = cpinamt + :ld_cpinamt,
	cpinamt_notax  = cpinamt_notax + :ld_cpinamt_notax,
	
	jginqty = jginqty + :ld_jginqty,
	jginaddqty = jginaddqty + :ld_jginaddqty,
	jginamt = jginamt + :ld_jginamt,
	jginamt_notax  = jginamt_notax + :ld_jginamt_notax,
	
	otinqty = otinqty + :ld_otinqty,
	otinaddqty = otinaddqty + :ld_otinaddqty,
	otinamt = otinamt + :ld_otinamt,
	otinamt_notax  = otinamt_notax + :ld_otinamt_notax,
	
	mvinqty = mvinqty + :ld_mvinqty,
	mvinaddqty = mvinaddqty + :ld_mvinaddqty,
	mvinamt = mvinamt + :ld_mvinamt,
	mvinamt_notax  = mvinamt_notax + :ld_mvinamt_notax,
	 
	diinqty = diinqty + :ld_diinqty,
	diinaddqty = diinaddqty + :ld_diinaddqty,
	diinamt = diinamt + :ld_diinamt,
	diinamt_notax  = diinamt_notax + :ld_diinamt_notax,
	
	pyinqty = pyinqty + :ld_pyinqty,
	pyinaddqty = pyinaddqty + :ld_pyinaddqty,
	pyinamt = pyinamt + :ld_pyinamt,
	pyinamt_notax  = pyinamt_notax + :ld_pyinamt_notax,
	
	recinqty = recinqty+:ld_recinqty,
	recinaddqty = recinaddqty+:ld_recinaddqty,
	recinamt = recinamt+:ld_recinamt,
	recinamt_notax  = recinamt_notax + :ld_recinamt_notax,
	
	recinqty_th = recinqty_th+:ld_recinqty_th,
	recinaddqty_th = recinaddqty_th+:ld_recinaddqty_th,
	recinamt_th = recinamt_th+:ld_recinamt_th,
	recinamt_th_notax  = recinamt_th_notax + :ld_recinamt_th_notax
	
	WHERE ( mtrlid = :arg_mtrlid ) AND
	( storageid = :arg_storageid ) AND
	( balcdateint  = 0) AND
	( status = :arg_status )  AND
	(woodcode = :arg_woodcode) AND
	(pcode = :arg_pcode)  AND
	(sptid_cusid = :arg_sptid) Using commit_transaction  ;
IF commit_transaction.SQLCode = 0 THEN
	IF commit_transaction.SQLNRows = 0 THEN
		INSERT INTO u_warebalc
			( balcdateint,
			sptid_cusid,
			mtrlid,
			storageid,
			bgqty,
			bgamt,
			incqty,
			incaddqty,
			incamt,
			desqty,
			desaddqty,
			desamt,
			balcqty,
			balcaddqty,
			balcamt,
			pypk,
			pypkaddqty,
			status,
			woodcode,
			pcode,
			scid,
			buyinqty,
			buyinaddqty,
			buyinamt,
			cpinqty,
			cpinaddqty,
			cpinamt,
			jginqty,
			jginaddqty,
			jginamt,
			diinqty,
			diinaddqty,
			diinamt,
			mvinqty,
			mvinaddqty,
			mvinamt,
			otinqty,
			otinaddqty,
			otinamt,
			pyinqty,
			pyinaddqty,
			pyinamt,
			recinqty,
			recinaddqty,
			recinamt,
			recinqty_th,
			recinaddqty_th,
			recinamt_th,
			incamt_notax,
			balcamt_notax,
			buyinamt_notax,
			cpinamt_notax,
			jginamt_notax,
			otinamt_notax,
			mvinamt_notax,
			diinamt_notax,
			pyinamt_notax,
			recinamt_notax,
			recinamt_th_notax)
			VALUES (
			0,
			:arg_sptid,
			:arg_mtrlid,
			:arg_storageid,
			0,
			0,
			:arg_qty,
			:arg_addqty,
			round(:arg_qty * :arg_price,2),
			0,
			0,
			0,
			:arg_qty,
			:arg_addqty,
			round(:arg_qty * :arg_price,2),
			:ld_pypkqty,
			:ld_pypkaddqty,
			:arg_status,
			:arg_woodcode,
			:arg_pcode,
			:scid,
			:ld_buyinqty,
			:ld_buyinaddqty,
			:ld_buyinamt,
			:ld_cpinqty,
			:ld_cpinaddqty,
			:ld_cpinamt,
			:ld_jginqty,
			:ld_jginaddqty,
			:ld_jginamt,
			:ld_diinqty,
			:ld_diinaddqty,
			:ld_diinamt,
			:ld_mvinqty,
			:ld_mvinaddqty,
			:ld_mvinamt,
			:ld_otinqty,
			:ld_otinaddqty,
			:ld_otinamt,
			:ld_pyinqty,
			:ld_pyinaddqty,
			:ld_pyinamt,
			:ld_recinqty,
			:ld_recinaddqty,
			:ld_recinamt,
			:ld_recinqty_th,
			:ld_recinaddqty_th,
			:ld_recinamt_th,
			round(:arg_qty * :arg_cost_notax,2),
			round(:arg_qty * :arg_cost_notax,2),
			:ld_buyinamt_notax,
			:ld_cpinamt_notax,
			:ld_jginamt_notax,
			:ld_otinamt_notax,
			:ld_mvinamt_notax,
			:ld_diinamt_notax,
			:ld_pyinamt_notax,
			:ld_recinamt_notax,
			:ld_recinamt_th_notax) Using commit_transaction ;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "编码["+arg_mtrlcode+"]结存建立操作失败"+"~n"+commit_transaction.SQLErrText
			GOTO ext
		END IF
	END IF
ELSE
	rslt = 0
	or_err_part = 'create rule'
	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
	arg_msg = ls_msg + arg_msg
	ROLLBACK;
END IF
RETURN rslt











end function

public function decimal uof_get_mtrlware_cost_notax (long arg_scid, long arg_storageid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, long arg_sptid, long arg_dxflag);Decimal dec_fifo_cost_notax
//
////如果进仓单价为0自动取库存成本价作为进仓成本
dec_fifo_cost_notax = 0


SELECT cost_notax INTO :dec_fifo_cost_notax FROM u_mtrlware
	WHERE ( scid = :arg_scid ) AND
	( storageid = :arg_storageid ) AND
	( mtrlid = :arg_mtrlid ) AND
	( status = :arg_status ) AND
	( woodcode = :arg_woodcode) AND
	( pcode = :arg_pcode) AND
	( plancode = :arg_plancode ) AND
	( sptid = :arg_sptid) AND
	( dxflag = :arg_dxflag) Using commit_transaction  ;
	

IF 		dec_fifo_cost_notax > 0 THEN
	RETURN dec_fifo_cost_notax
ELSE
	RETURN 0
END IF



end function

public function integer p_update_th_cost (long arg_printid, string arg_mtrlcode, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, long arg_dxflag, long arg_sptid, ref decimal arg_ref_cost, decimal arg_ref_cost_notax, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Decimal ld_cost,ld_cost_notax

IF sys_option_buyth_wareamt = 0 THEN
	SELECT cost,cost_notax INTO :ld_cost,:ld_cost_notax
		FROM u_mtrlware
		WHERE storageid = :storageid
		AND mtrlid = :arg_mtrlid
		AND status = :arg_status
		AND woodcode = :arg_woodcode
		AND pcode = :arg_pcode
		AND plancode = :arg_plancode
		AND dxflag = :arg_dxflag
		AND sptid = :arg_sptid
		And scid = :scid Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '查询'+arg_mtrlcode+'库存成本价失败,'+commit_transaction.SQLErrText
		rslt = 0
		GOTO ext
	END IF
ELSE
	SELECT price,u_inwaremx.uprice_notax * u_inwaremx.rebate INTO :ld_cost,:ld_cost_notax
		FROM u_inwaremx
		WHERE scid = :scid
		AND 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 u_inwaremx
	SET cost = :ld_cost,
	cost_notax = :ld_cost_notax,
	costamt = round(qty * :ld_cost, 2)
	WHERE scid = :scid
	AND 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

arg_ref_cost = ld_cost
arg_ref_cost_notax = ld_cost_notax
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_addqty, decimal arg_uprice, 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, string arg_mtrlcuscode, long arg_cusid_sptid, string arg_unit, decimal arg_rate, string arg_formula, string arg_waredscrp, datetime arg_inworkdate, decimal arg_cost_notax);
s_inwaremx s_mx

s_mx.printid = arg_printid
s_mx.mtrlid = arg_mtrlid
s_mx.mtrlcode = arg_mtrlcode
s_mx.plancode = arg_plancode
s_mx.status = arg_status
s_mx.uqty = arg_uqty
s_mx.addqty = arg_addqty
s_mx.uprice = arg_uprice
s_mx.rebate = arg_rebate
s_mx.mxdscrp = arg_mxdscrp
s_mx.jgprice = arg_jgprice
s_mx.relid = arg_relid
s_mx.relprintid = arg_relprintid
s_mx.ifrel = arg_ifrel
s_mx.woodcode = arg_woodcode
s_mx.pcode = arg_pcode
s_mx.mtrlcuscode = arg_mtrlcuscode
s_mx.sptid = arg_cusid_sptid
s_mx.unit = arg_unit
s_mx.rate = arg_rate
s_mx.formula = arg_formula
s_mx.waredscrp = arg_waredscrp
s_mx.inworkdate = arg_inworkdate
s_mx.cost_notax = arg_cost_notax
return acceptmx(s_mx, arg_msg)

/*
Long rslt = 1,cnt = 0,ls_i
Decimal ld_planprice,ld_cost,ld_dftsptprice
Decimal ld_noauditqty,ld_bootqty
String ls_relcode,ls_unit,ls_saletaskcode
Int li_iflimitprice

uo_spt_price uo_sptprice
uo_sptprice = CREATE uo_spt_price

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_addqty) THEN arg_addqty = 0
IF IsNull(arg_uprice) THEN arg_uprice = 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_ifrel) THEN arg_ifrel = 0
IF IsNull(arg_relid) THEN arg_relid = 0
IF IsNull(arg_relprintid) THEN arg_relprintid = 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_mtrlcuscode) THEN arg_mtrlcuscode = ''
IF IsNull(arg_unit) THEN arg_unit = ''
IF IsNull(arg_rate) THEN arg_rate = 1
IF arg_rate = 0  THEN arg_rate = 1
IF IsNull(arg_formula) THEN arg_formula = ''
IF IsNull(arg_waredscrp) THEN arg_waredscrp = ''
IF mrate = 0 THEN mrate = 1

arg_uqty = Round(arg_uqty,5)
arg_addqty = Round(arg_addqty,5)

IF arg_mtrlid = 0 Or (arg_uqty = 0 AND arg_addqty = 0) THEN
	rslt = 1
	GOTO ext
END IF

IF f_check_status(arg_status) = 0 THEN
	rslt = 0
	arg_msg = "第" + String(arg_printid) + "行,查询操作失败,可能" + sys_option_change_status + "未定义,编码:"+arg_mtrlcode+"," + sys_option_change_status +":"+arg_status
	GOTO ext
END IF

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

IF ls_unit <> arg_unit AND arg_rate = 1 THEN
	arg_msg = "第" + String(arg_printid) + "行,库存单位与采购单位不同,但转换率为1,请检查!"
	rslt = 0
	GOTO ext
END IF

IF ls_unit = arg_unit AND arg_rate <> 1 THEN
	arg_msg = "第" + String(arg_printid) + "行,库存单位与采购单位相同,但转换率不为1,请检查!"
	rslt = 0
	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 = "第" + String(arg_printid) + "行,查询限价属性失败:"+arg_mtrlcode
	GOTO ext
END IF

//查询采购限价并检查进仓价
IF billtype = 1 OR billtype = 4 THEN
	IF li_iflimitprice = 1 THEN
		IF uo_sptprice.uf_check_price(thflag,sptid,arg_mtrlid,arg_mtrlcode,arg_unit,arg_status,arg_woodcode,arg_pcode,arg_uprice * arg_rebate,arg_msg) = 0 THEN
			arg_msg = "第" + String(arg_printid) + "行," + arg_msg
			rslt = 0
			GOTO ext
		END IF
	END IF
END IF


		
Int li_if_cus_mtrlware, li_if_plancode, li_inwaretype
SELECT  balctype , if_plancode, inwaretype
INTO :li_if_cus_mtrlware, :li_if_plancode, :li_inwaretype
	FROM u_storage
	Where storageid = :storageid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg =  "第" + String(arg_printid) + "行,查询仓库是否使用客户库存失败"
	rslt = 0
	GOTO ext
END IF


CHOOSE CASE billtype
	CASE 1
		IF arg_ifrel > 0 THEN
			IF arg_relid = 0 THEN
				arg_msg = "第" + String(arg_printid) + "行,请先择相应的订单!"
				rslt = 0
				GOTO ext
			END IF
			
			SELECT taskcode ,uqty - consignedqty,a = case when u_buytask.billtype = 1 then u_buytaskmx.relcode else '' end 
				INTO :ls_relcode,:ld_bootqty,:ls_saletaskcode
				FROM u_buytaskmx,u_buytask
				WHERE u_buytaskmx.taskid =  u_buytask.taskid
				AND u_buytaskmx.scid =  u_buytask.scid
				AND u_buytaskmx.scid = :scid
				AND u_buytaskmx.taskid = :arg_relid
				AND u_buytaskmx.printid = :arg_relprintid
				USING commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = "第" + String(arg_printid) + "行,查询采购订单是否有订购:"+arg_mtrlcode+'失败!'+commit_transaction.sqlerrtext
				rslt = 0
				GOTO ext
			END IF
			
			//查已开单数
			ld_noauditqty = 0
			SELECT sum(uqty) INTO :ld_noauditqty
				FROM u_inwaremx
				WHERE scid = :scid
				AND relid = :arg_relid
				AND relprintid = :arg_relprintid
				AND inwareid <> :inwareid;
			IF sqlca.SQLCode <> 0 THEN
				arg_msg = "第" + String(arg_printid) + "行,查询"+arg_mtrlcode+'相关订单单据已开单数失败!'
				rslt = 0
				GOTO ext
			END IF
			IF IsNull(ld_noauditqty) THEN ld_noauditqty = 0
		END IF
	CASE 3
		
		IF li_if_cus_mtrlware = 1 THEN
			cnt = 0
			SELECT count(*) INTO :cnt
				FROM u_cust
				Where cusid = :arg_cusid_sptid;
			IF sqlca.SQLCode <> 0 THEN
				arg_msg =  "第" + String(arg_printid) + '行,查询客户资料失败'
				rslt = 0
				GOTO ext
			END IF
		END IF
		
		IF arg_ifrel > 0 THEN
			IF arg_relid = 0 THEN
				arg_msg = "第" + String(arg_printid) + '行,请先择相应的订单'
				rslt = 0
				GOTO ext
			END IF
			
			
			SELECT  top 1 taskcode INTO :ls_relcode
				FROM u_saletaskmx,u_saletask
				WHERE u_saletaskmx.scid = u_saletask.scid
				AND u_saletaskmx.taskid = u_saletask.taskid
				AND u_saletaskmx.scid = :scid
				AND u_saletaskmx.taskid = :arg_relid
				AND u_saletaskmx.printid = :arg_relprintid
				AND u_saletaskmx.mtrlid = :arg_mtrlid
				USING commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = "第" + String(arg_printid) + '行,查询销售订单是否有订购:'+arg_mtrlcode+'失败,'+commit_transaction.sqlerrtext
				rslt = 0
				GOTO ext
			END IF
			
		END IF
	CASE 4
		IF arg_ifrel > 0 THEN
			IF arg_relid = 0 THEN
				arg_msg = "第" + String(arg_printid) + '行,请先择相应的外协订单'
				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.scid =  u_order_wfjg.scid
				AND u_order_wfjgmx.wfjgid =  u_order_wfjg.wfjgid
				AND 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
				USING commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = "第" + String(arg_printid) + '行,查询外协订单是否有加工:'+arg_mtrlcode+'失败'
				rslt = 0
				GOTO ext
			END IF
		END IF
END CHOOSE


//取默认报价
IF billtype = 1 THEN
	f_get_defsptprice(sptid,arg_mtrlid,arg_unit,arg_status,arg_pcode,arg_woodcode,ld_dftsptprice)
ELSE
	ld_dftsptprice = 0
END IF

IF sysautobuild = FALSE THEN
	IF arg_uprice * arg_rebate < 0 THEN //检查进仓价
		rslt = 0
		arg_msg = "第" + String(arg_printid) + '行,' + String(arg_mtrlcode)+" 单价错误"
		GOTO ext
	END IF
END IF

//检查成本价调整单
Long mtrlwareid
SELECT mtrlwareid
	INTO :mtrlwareid
	FROM u_mtrlware
	WHERE ( mtrlid = :arg_mtrlid ) AND
	( plancode = :arg_plancode ) AND
	( storageid = :storageid ) AND
	( scid = :scid ) AND
	( status = :arg_status ) AND
	( sptid = :arg_cusid_sptid) AND
	( dxflag = :dxflag) AND
	( woodcode = :arg_woodcode) AND
	( pcode = :arg_pcode) USING commit_transaction;
IF commit_transaction.SQLCode  = -1 THEN
	arg_msg = "第" + String(arg_printid) + "行,查询库存信息失败!"
	rslt = 0
	GOTO ext
ELSEIF mtrlwareid > 0  THEN
	cnt = 0
	SELECT count(*)
		INTO :cnt
		FROM u_updatecost,u_updatecostmx
		WHERE u_updatecost.wareid = u_updatecostmx.wareid AND
		u_updatecost.flag = 0 AND
		u_updatecostmx.mtrlwareid = :mtrlwareid AND
		u_updatecost.scid = :scid  USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "第" + String(arg_printid) + "行,查询成本价调整单操作失败"
		GOTO ext
	END IF
	IF cnt > 0 THEN
		rslt = 0
		arg_msg = "第" + String(arg_printid) + "行," + arg_mtrlcode + "已开成本价调整单,请先审核"
		GOTO ext
	END IF
END IF

//写入内容
it_mxbt++
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].rate = arg_rate

inwaremx[it_mxbt].noauditqty = ld_noauditqty
inwaremx[it_mxbt].bootqty = ld_bootqty

//IF sys_option_buyprice_type = 1 THEN
//	inwaremx[it_mxbt].plancode = arg_plancode
//ELSE
//	inwaremx[it_mxbt].plancode = String(Round(arg_uprice * arg_rebate,5))
//END IF

//Long ll_if_plancode,ll_inwaretype
//IF storageid > 0 THEN
//	SELECT if_plancode,inwaretype
//		INTO :ll_if_plancode,:ll_inwaretype
//		FROM u_storage
//		Where storageid = :storageid;
//	IF sqlca.SQLCode <> 0 THEN
//		arg_msg = '查询仓库资料失败'
//		rslt = 0
//		GOTO ext
//	END IF
	
	IF li_if_plancode = 0 THEN
		inwaremx[it_mxbt].plancode = ''
	ELSE
		IF li_inwaretype = 1 THEN //无
			inwaremx[it_mxbt].plancode = arg_plancode
		ELSEIF li_inwaretype = 2 THEN //价格
			inwaremx[it_mxbt].plancode = String(Round(arg_uprice * arg_rebate,5))
		ELSEIF li_inwaretype = 3 THEN //订单
			IF ls_relcode <> '' AND billtype = 3 THEN
				inwaremx[it_mxbt].plancode = ls_relcode
			ELSEIF ls_saletaskcode <> '' AND (billtype = 1 or billtype = 4 ) THEN
				inwaremx[it_mxbt].plancode = ls_saletaskcode 
			ELSE
				inwaremx[it_mxbt].plancode = arg_plancode
			END IF
			
		END IF
		
	END IF
//END IF


inwaremx[it_mxbt].uprice = arg_uprice
inwaremx[it_mxbt].rebate = arg_rebate

inwaremx[it_mxbt].addqty = arg_addqty
inwaremx[it_mxbt].uqty = arg_uqty
inwaremx[it_mxbt].qty = Round(arg_uqty * arg_rate,sys_option_unit_dec)

IF arg_uqty <> 0 THEN
	inwaremx[it_mxbt].fprice =  Round((arg_uprice * arg_uqty)/(Round(arg_uqty * arg_rate,sys_option_unit_dec)) * mrate ,10)
ELSE
	inwaremx[it_mxbt].fprice =  Round(arg_uprice * arg_rate * mrate,10)
END IF

inwaremx[it_mxbt].price = Round(inwaremx[it_mxbt].fprice * arg_rebate,10)

inwaremx[it_mxbt].planprice = ld_planprice
inwaremx[it_mxbt].mxdscrp = arg_mxdscrp
inwaremx[it_mxbt].dxflag = dxflag
inwaremx[it_mxbt].jgprice = arg_jgprice

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

inwaremx[it_mxbt].status = arg_status
inwaremx[it_mxbt].woodcode = arg_woodcode
inwaremx[it_mxbt].pcode = arg_pcode

inwaremx[it_mxbt].relcode = ls_relcode
inwaremx[it_mxbt].mtrlcuscode = arg_mtrlcuscode
inwaremx[it_mxbt].dftsptprice = ld_dftsptprice
inwaremx[it_mxbt].formula = arg_formula
inwaremx[it_mxbt].waredscrp = arg_waredscrp
inwaremx[it_mxbt].inworkdate = arg_inworkdate

IF dxflag = 0 THEN
	inwaremx[it_mxbt].sptid = arg_cusid_sptid
ELSE
	inwaremx[it_mxbt].sptid = sptid
END IF

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

IF thflag = 1 Or (arg_uqty < 0 AND billtype <> 3) THEN
	SELECT cost
		INTO :ld_cost
		FROM u_mtrlware
		WHERE scid = :scid
		AND mtrlid = :arg_mtrlid
		AND storageid = :storageid
		AND status = :arg_status
		AND plancode = :arg_plancode
		AND woodcode = :arg_woodcode
		AND pcode = :arg_pcode
		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].fprice * arg_rebate
END IF


ext:

DESTROY uo_sptprice

IF rslt = 0 THEN
	p_clearmx()
	arg_msg = billname + ',' + arg_msg
END IF

Return(rslt)

*/














end function

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

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


UPDATE u_inware
	SET part = :arg_newpart
	WHERE u_inware.inwareid = :inwareid
	AND scid = :scid
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "修改单据相关号操作失败"+"~n"
	GOTO ext
END IF

part = arg_newpart

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


end function

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

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