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

$PBExportHeader$uo_mtrldef_adjust.sru
forward
global type uo_mtrldef_adjust from nonvisualobject
end type
type s_mtrldef from structure within uo_mtrldef_adjust
end type
end forward

TYPE s_mtrldef FROM structure
Long		billid[]
String		mtrlcode[]
Long		mtrlid[]
String		zxmtrlmode[]
Decimal { 5 }		rate[]
String		unit_buy[]
Decimal { 5 }		rate_buy[]
String		unit_scll[]
Decimal { 5 }		rate_scll[]
String		unit_sale[]
Decimal { 5 }		rate_sale[]
Decimal { 5 }		net_weight[]
Decimal { 5 }		gross_weight[]
String		zxmtrlmode1[]
Decimal { 5 }		rate1[]
String		unit_buy1[]
Decimal { 5 }		rate_buy1[]
String		unit_scll1[]
Decimal { 5 }		rate_scll1[]
String		unit_sale1[]
Decimal { 5 }		rate_sale1[]
Decimal { 5 }		net_weight1[]
Decimal { 5 }		gross_weight1[]
END TYPE

global type uo_mtrldef_adjust from nonvisualobject
end type
global uo_mtrldef_adjust uo_mtrldef_adjust

type variables
PUBLIC PROTECTEDWRITE Long scid = 0
PUBLIC PROTECTEDWRITE Long billid = 0
PUBLIC PROTECTEDWRITE String billcode = ''
PUBLIC PROTECTEDWRITE  DateTime opdate
PUBLIC PROTECTEDWRITE  String operator = ''
PUBLIC PROTECTEDWRITE  DateTime  Accomplishdate
PUBLIC PROTECTEDWRITE  String Permit_emp = ''

Int billtype
DateTime billdate
Int flag,secflag
Long relid = 0
Int Kind = 0
Long empid = 0

String dscrp
String relcode


Transaction  commit_transaction

PRIVATE:

s_mtrldef_adjust s_mx
Long it_MXBT = 0 //明细结构数组末指针
Boolean IT_NEWBEGIN = TRUE       //新建标志
Boolean IT_UPDATEBEGIN = FALSE//修改标志


end variables

forward prototypes
public function integer p_reset ()
PUBLIC FUNCTION Integer p_clearmx ()
public function integer savesubmit (string arg_operator, ref string arg_msg, boolean arg_ifcommit)
public function integer getinfo (long arg_taskid, ref string arg_msg)
PUBLIC FUNCTION Integer newbegin (Long arg_scid, REF String arg_msg)
public function integer p_getinfo (long arg_billid, ref string arg_msg)
public function integer add_dscrp (long arg_billid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit)
public function integer cancel (long arg_billid, ref string arg_msg, boolean arg_ifcommit)
PUBLIC FUNCTION Integer updatebegin (Long arg_billid, REF String arg_msg)
public function integer cancelpermit (long arg_billid, ref string arg_msg, boolean arg_ifcommit)
public function integer auditing (long arg_billid, ref string arg_msg, boolean arg_ifcommit)
public function integer c_auditing (long arg_billid, ref string arg_msg, boolean arg_ifcommit)
PUBLIC FUNCTION Integer secauditing (Long arg_billid, REF String arg_msg, Boolean arg_ifcommit)
PUBLIC FUNCTION Integer c_secauditing (Long arg_billid, REF String arg_msg, Boolean arg_ifcommit)
public function integer acceptmx (s_mtrldef_adjust arg_mx, ref string arg_msg)
end prototypes

public function integer p_reset ();
//INT p_RESET()
//清除对象及其明细

billid = 0
billcode = ''
operator = ''
relcode = ''
SetNull(opdate)
SetNull(Accomplishdate)
Permit_emp = ''
flag = 0
secflag = 0

IT_NEWBEGIN = FALSE
IT_UPDATEBEGIN = FALSE
//清除明细
P_CLEARMX()
RETURN 1

end function

PUBLIC FUNCTION Integer p_clearmx ();
//INT p_clearmx()
//清除明细
it_MXBT = 0
RETURN 1
END FUNCTION

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

If IsNull(dscrp) Then dscrp = ''
If IsNull(arg_operator) Then arg_operator = ''

//====================================================================
// Script - save ( ref string arg_msg, boolean arg_ifcommit )  
// Reason: 
//--------------------------------------------------------------------
// Modified By: yyx		Date: 2004.02.20
//--------------------------------------------------------------------
If Len(dscrp) > 0 Then dscrp = ' ' + dscrp
//====================================================================

operator = arg_operator

If IT_NEWBEGIN = False And IT_UPDATEBEGIN = False Then
	rslt = 0
	arg_msg = "非编辑状态不可以提交"
	Goto ext
End If


cnt = 0
Select count(*) Into :cnt
	From u_rs_empinfo
	Where empid = :empid  Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = "查询操作失败,员工资料"
	Goto ext
End If
If cnt = 0 Then
	rslt = 0
	arg_msg = "员工资料未定义或错误"
	Goto ext
End If



Select Top 1 getdate() Into :server_datetime From u_user  Using commit_transaction;
//取得系统时间,借用操作员表
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	Goto ext
End If

If it_MXBT = 0 Then //如果输入物料资料错则已经清空
	rslt = 0
	arg_msg = "没有正确调整单明细内容"
	Goto ext
End If

cnt = 0
Select count(*) Into :cnt
	From u_user
	Where username = :operator Using commit_transaction ;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = "查询操作失败,操作员!"
	Goto ext
End If
If cnt = 0 Then
	rslt = 0
	arg_msg = "操作员姓名未登记或已取消!"
	Goto ext
End If
opdate = server_datetime //填写单据建立时间(最近修改时间)


////////////////////////////////////////////// //开始区分:新建/更新 处理
If billid = 0 Then //新建

	
	ll_billid = f_sys_scidentity(0,"u_mtrldef_adjust","billid",arg_msg,False, commit_transaction) //数据commit事务)
	If ll_billid <= 0 Then
		rslt = 0
		Goto ext
	End If
	
	If f_get_sccode(0,commit_transaction,ls_sccode,arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
	
	billcode = getid(0,ls_sccode + 'MG',Date(server_datetime),False,commit_transaction)
	If billcode = "err" Then
		billcode = ''
		rslt = 0
		arg_msg = "无法获取调整单编号"+"~n"+commit_transaction.SQLErrText
		Goto ext
	End If
	
	Insert Into u_mtrldef_adjust
		(
		billid,
		billcode,
		empid,
		Opemp,
		Dscrp,
		opdate,
		relcode,
		relid,
		billdate,
		billtype)
		Values (
		:ll_billid,
		:billcode,
		:empid,
		:Operator,
		:Dscrp,
		:opdate,
		:relcode,
		:relid,
		:billdate,
		:billtype) 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
	
	//读取新billid
	billid = ll_billid
	
	
	
Else //////////////////////////////////////////////// //更新
	Update u_mtrldef_adjust
		Set modemp = :publ_operator ,
		Dscrp = :Dscrp,
		moddate = getdate(),
		relid = :relid,
		relcode = :relcode,
		billdate = :billdate,
		billtype = :billtype
		Where u_mtrldef_adjust.billid = :billid
		And flag = 0 Using commit_transaction;
	If commit_transaction.SQLCode <> 0 Or sqlca.SQLNRows <= 0   Then
		rslt = 0
		arg_msg = "因网络或其它原因导致更新调整单操作失败"+"~n"+commit_transaction.SQLErrText
		Rollback Using commit_transaction;
		Goto ext
	End If
	
	//删除原有明细
	Delete From u_mtrldef_adjustmx
		Where u_mtrldef_adjustmx.billid = :billid  Using commit_transaction;
	If commit_transaction.SQLCode <> 0 Then
		rslt = 0
		arg_msg = "删除旧有明细操作失败"+"~n"+commit_transaction.SQLErrText
		Rollback Using commit_transaction;
		Goto ext
	End If
	
End If


For i = 1 To it_MXBT
	Insert Into u_mtrldef_adjustmx
		(
		billid,
		mtrlid,
		zxmtrlmode,
		unit_buy,
		rate_buy,
		unit_scll,
		rate_scll,
		unit_sale,
		rate_sale,
		net_weight,
		gross_weight,
		zxmtrlmode1,
		unit_buy1,
		rate_buy1,
		unit_scll1,
		rate_scll1,
		unit_sale1,
		rate_sale1,
		net_weight1,
		gross_weight1,
		dftsptid,
		dftsptid1,
		billtype,
		buydays1,
		buydays,
		wfjgdays1,
		wfjgdays,
		rebuylot,
		buy_autoday,
		rebuytype,
		minbuyqty,
		ifsendlot,
		upbuyqty,
		buydec,
		buy_ceiling,
		cubage,
		rebuylot1,
		buy_autoday1,
		rebuytype1,
		minbuyqty1,
		ifsendlot1,
		upbuyqty1,
		buydec1,
		buy_ceiling1,
		cubage1,
		expday,
		expday1,
		orderdays,
		orderdays1,
		maxzjday,
		maxzjday1,
		wfjgdays_bx,
		wfjgdays_bx1,
		buydays_bx,
		buydays_bx1,
		buyer,buyer1,
		mtrlarea,
		mtrlarea1,
		mtrlarea2
		)
		Values (
		:billid,
		:s_mx.mtrlid[i],
		:s_mx.zxmtrlmode[i],
		:s_mx.unit_buy[i],
		:s_mx.rate_buy[i],
		:s_mx.unit_scll[i],
		:s_mx.rate_scll[i],
		:s_mx.unit_sale[i],
		:s_mx.rate_sale[i],
		:s_mx.net_weight[i],
		:s_mx.gross_weight[i],
		:s_mx.zxmtrlmode1[i],
		:s_mx.unit_buy1[i],
		:s_mx.rate_buy1[i],
		:s_mx.unit_scll1[i],
		:s_mx.rate_scll1[i],
		:s_mx.unit_sale1[i],
		:s_mx.rate_sale1[i],
		:s_mx.net_weight1[i],
		:s_mx.gross_weight1[i],
		:s_mx.dftsptid[i],
		:s_mx.dftsptid1[i],
		:s_mx.billtype[i],
		:s_mx.buydays1[i],
		:s_mx.buydays[i],
		:s_mx.wfjgdays1[i],
		:s_mx.wfjgdays[i],
		:s_mx.rebuylot[i],
		:s_mx.buy_autoday[i],
		:s_mx.rebuytype[i],
		:s_mx.minbuyqty[i],
		:s_mx.ifsendlot[i],
		:s_mx.upbuyqty[i],
		:s_mx.buydec[i],
		:s_mx.buy_ceiling[i],
		:s_mx.cubage[i],
		:s_mx.rebuylot1[i],
		:s_mx.buy_autoday1[i],
		:s_mx.rebuytype1[i],
		:s_mx.minbuyqty1[i],
		:s_mx.ifsendlot1[i],
		:s_mx.upbuyqty1[i],
		:s_mx.buydec1[i],
		:s_mx.buy_ceiling1[i],
		:s_mx.cubage1[i],
		:s_mx.expday[i],
		:s_mx.expday1[i],
		:s_mx.orderdays[i],
		:s_mx.orderdays1[i],
		:s_mx.maxzjday[i],
		:s_mx.maxzjday1[i],
		:s_mx.wfjgdays_bx[i],
		:s_mx.wfjgdays_bx1[i],
		:s_mx.buydays_bx[i],
		:s_mx.buydays_bx1[i],
		:s_mx.buyer[i],
		:s_mx.buyer1[i],
		:s_mx.mtrlarea[i],
		:s_mx.mtrlarea1[i],
		:s_mx.mtrlarea2[i]) Using commit_transaction;
	If commit_transaction.SQLCode <> 0 Then
		If IT_NEWBEGIN Then billid = 0 //还原billid
		rslt = 0
		arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText
		Rollback Using commit_transaction;
		Goto ext
	End If
Next

IT_NEWBEGIN = False
IT_UPDATEBEGIN = False
ext:

If rslt = 0 Then
	p_clearmx()
	Rollback Using commit_transaction;
ElseIf arg_ifcommit And  rslt = 1 Then
	Commit Using commit_transaction;
End If

Return(rslt)








end function

public function integer getinfo (long arg_taskid, ref string arg_msg);
//getinfo(long arg_taskid,string arg_msg)
//0 失败  1成功
Int rslt = 1,i = 1,NO_MXCHECK = 0

IF arg_taskid <= 0 THEN
	rslt = 0
	arg_msg = '错误调整单唯一码'
	GOTO ext
END IF

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

//用游标读取明细
DECLARE CUR_INWAERMX CURSOR FOR
	SELECT
	u_mtrldef_adjustmx.billid,
	u_mtrldef_adjustmx.mtrlid,
	u_mtrldef_adjustmx.zxmtrlmode,
	u_mtrldef_adjustmx.unit_buy,
	u_mtrldef_adjustmx.rate_buy,
	u_mtrldef_adjustmx.unit_scll,
	u_mtrldef_adjustmx.rate_scll,
	u_mtrldef_adjustmx.unit_sale,
	u_mtrldef_adjustmx.rate_sale,
	u_mtrldef_adjustmx.net_weight,
	u_mtrldef_adjustmx.gross_weight,
	u_mtrldef_adjustmx.zxmtrlmode1,
	u_mtrldef_adjustmx.unit_buy1,
	u_mtrldef_adjustmx.rate_buy1,
	u_mtrldef_adjustmx.unit_scll1,
	u_mtrldef_adjustmx.rate_scll1,
	u_mtrldef_adjustmx.unit_sale1,
	u_mtrldef_adjustmx.rate_sale1,
	u_mtrldef_adjustmx.net_weight1,
	u_mtrldef_adjustmx.gross_weight1,
	u_mtrldef_adjustmx.dftsptid1,
	u_mtrldef_adjustmx.dftsptid,
	u_mtrldef_adjustmx.billtype,
	u_mtrldef_adjustmx.buydays1,
	u_mtrldef_adjustmx.buydays,
	u_mtrldef_adjustmx.wfjgdays1,
	u_mtrldef_adjustmx.wfjgdays
	FROM u_mtrldef_adjustmx INNER JOIN
	u_mtrldef ON u_mtrldef_adjustmx.mtrlid = u_mtrldef.mtrlid
	WHERE u_mtrldef_adjustmx.billid = :arg_taskid  USING commit_transaction;
	
OPEN CUR_INWAERMX;
FETCH CUR_INWAERMX INTO :s_mx.billid[i],
	:s_mx.mtrlid[i],
	:s_mx.zxmtrlmode[i],
	:s_mx.unit_buy[i],
	:s_mx.rate_buy[i],
	:s_mx.unit_scll[i],
	:s_mx.rate_scll[i],
	:s_mx.unit_sale[i],
	:s_mx.rate_sale[i],
	:s_mx.net_weight[i],
	:s_mx.gross_weight[i],
	:s_mx.zxmtrlmode1[i],
	:s_mx.unit_buy1[i],
	:s_mx.rate_buy1[i],
	:s_mx.unit_scll1[i],
	:s_mx.rate_scll1[i],
	:s_mx.unit_sale1[i],
	:s_mx.rate_sale1[i],
	:s_mx.net_weight1[i],
	:s_mx.gross_weight1[i],
	:s_mx.dftsptid1[i],
	:s_mx.dftsptid[i],
	:s_mx.billtype[i],
	:s_mx.buydays1[i],
	:s_mx.buydays[i],
	:s_mx.wfjgdays1[i],
	:s_mx.wfjgdays[i];
DO WHILE commit_transaction.SQLCode = 0
	i++
	FETCH CUR_INWAERMX INTO :s_mx.billid[i],
		:s_mx.mtrlid[i],
		:s_mx.zxmtrlmode[i],
		:s_mx.unit_buy[i],
		:s_mx.rate_buy[i],
		:s_mx.unit_scll[i],
		:s_mx.rate_scll[i],
		:s_mx.unit_sale[i],
		:s_mx.rate_sale[i],
		:s_mx.net_weight[i],
		:s_mx.gross_weight[i],
		:s_mx.zxmtrlmode1[i],
		:s_mx.unit_buy1[i],
		:s_mx.rate_buy1[i],
		:s_mx.unit_scll1[i],
		:s_mx.rate_scll1[i],
		:s_mx.unit_sale1[i],
		:s_mx.rate_sale1[i],
		:s_mx.net_weight1[i],
		:s_mx.gross_weight1[i],
		:s_mx.dftsptid1[i],
		:s_mx.dftsptid[i],
		:s_mx.billtype[i],
		:s_mx.buydays1[i],
		:s_mx.buydays[i],
		:s_mx.wfjgdays1[i],
		:s_mx.wfjgdays[i];
LOOP
CLOSE CUR_INWAERMX;

//检验明细是否读入完整
SELECT COUNT(*) INTO :NO_MXCHECK
	FROM u_mtrldef_adjustmx INNER JOIN
	u_mtrldef ON u_mtrldef_adjustmx.mtrlid = u_mtrldef.mtrlid
	Where u_mtrldef_adjustmx.billid = :arg_taskid  USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,调整单明细数量"
	GOTO ext
END IF

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

it_MXBT = i - 1
IT_NEWBEGIN = FALSE
IT_UPDATEBEGIN = FALSE

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




end function

PUBLIC FUNCTION Integer newbegin (Long arg_scid, REF String arg_msg);
//重置对象,设定业务类型与关联ID,准备建立新单
//0 fail 1 success

Long rslt = 1,cnt = 0

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

p_reset()
IT_NEWBEGIN = TRUE
IT_UPDATEBEGIN = FALSE
scid = arg_scid

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

END FUNCTION

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

SELECT billid,
	billCode,
	empid,
	Dscrp,
	relcode,
	flag,
	secflag
	INTO :billid,
	:billCode,
	:empid,
	:Dscrp,
	:relcode,
	:flag,
	:secflag
	FROM u_mtrldef_adjust
	Where u_mtrldef_adjust.billid = :arg_billid  USING commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询订单内容失败(错误订单唯一码)'
	GOTO ext
END IF

ext:
RETURN rslt


end function

public function integer add_dscrp (long arg_billid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit);
//add_dscrp(string arg_newdescppart)
//0 fail 1 SUCCESS
Int rslt = 1
arg_newdescppart = Trim(arg_newdescppart)
IF 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

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

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

UPDATE u_mtrldef_adjust
	SET DSCRP = DSCRP+' '+:arg_newdescppart
	Where u_mtrldef_adjust.billid = :arg_billid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致添加单据备注操作失败"+"~n"+commit_transaction.SQLErrText
	ROLLBACK USING commit_transaction;
	GOTO ext
END IF

dscrp = dscrp+' '+arg_newdescppart
IT_NEWBEGIN = FALSE
IT_UPDATEBEGIN = FALSE

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


end function

public function integer cancel (long arg_billid, ref string arg_msg, boolean arg_ifcommit);
//删除未审核的单据
//0 FAIL, 1 SUCCESS

Int rslt = 1
IF arg_billid <= 0 THEN
	rslt = 0
	arg_msg = '错误单据唯一码'
	GOTO ext
END IF

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

if flag <> 0 then
	rslt = 0
	arg_msg = "单据已经审核,不可以删除"
	GOTO ext
end if

Long cnt
cnt = 0


DELETE FROM u_mtrldef_adjust
	Where u_mtrldef_adjust.billid = :arg_billid   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

DELETE FROM u_mtrldef_adjustmx
	Where u_mtrldef_adjustmx.billid = :arg_billid  USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "删除单据明细操作失败"+"~n"+sqlca.SQLErrText
	ROLLBACK USING commit_transaction;
	GOTO ext
END IF


IT_NEWBEGIN = FALSE
IT_UPDATEBEGIN = FALSE

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

end function

PUBLIC FUNCTION Integer updatebegin (Long arg_billid, REF String arg_msg);
//UPDATEbegin(long arg_billid,ref string arg_msg)
//从置对象,设定业务类型与关联ID,准备更新进仓单
//0 fail 1 success

Long rslt = 1,cnt = 0


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

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

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

IT_NEWBEGIN = FALSE
IT_UPDATEBEGIN = TRUE
p_clearmx() //清除明细
ext:
IF rslt = 0 THEN p_reset()
RETURN rslt
END FUNCTION

public function integer cancelpermit (long arg_billid, ref string arg_msg, boolean arg_ifcommit);
Int rslt = 1,cnt = 0
DateTime NULLDT
SetNull(NULLDT)


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

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

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


UPDATE u_mtrldef_adjust
	SET Status = 0,Permit_date = :NULLDT,
	Permit_Emp = ''
	Where billid = :arg_billid AND status = 1 USING commit_transaction ;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致单据撤消审核操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF


IT_NEWBEGIN = FALSE
IT_UPDATEBEGIN = FALSE

ext:

IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEIF arg_ifcommit AND rslt = 1 THEN
	COMMIT USING commit_transaction;
END IF
p_reset()
Return (rslt)


end function

public function integer auditing (long arg_billid, ref string arg_msg, boolean arg_ifcommit);

Int rslt = 1,i


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


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

IF flag = 1 THEN
	rslt = 0
	arg_msg = "调价单还没有审核，请核对"
	GOTO ext
END IF

//更新审核标记
UPDATE u_mtrldef_adjust
	SET auditingrep = :publ_operator ,
	Auditingdate = getdate(),
	flag = 1
	WHERE billid = :arg_billid
	AND flag = 0;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致单据审核操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF
 

UPDATE u_mtrldef SET
	zxmtrlmode = u_mtrldef_adjustmx.zxmtrlmode,
	unit_buy = u_mtrldef_adjustmx.unit_buy,
	rate_buy = u_mtrldef_adjustmx.rate_buy,
	unit_scll = u_mtrldef_adjustmx.unit_scll,
	rate_scll = u_mtrldef_adjustmx.rate_scll,
	unit_sale = u_mtrldef_adjustmx.unit_sale,
	rate_sale = u_mtrldef_adjustmx.rate_sale,
	net_weight = u_mtrldef_adjustmx.net_weight,
	gross_weight = u_mtrldef_adjustmx.gross_weight, 
   dftsptid = u_mtrldef_adjustmx.dftsptid,
	mtrlarea = u_mtrldef_adjustmx.mtrlarea,
	mtrlarea1 = u_mtrldef_adjustmx.mtrlarea1,
	mtrlarea2 = u_mtrldef_adjustmx.mtrlarea2
	FROM u_mtrldef_adjustmx INNER JOIN
	u_mtrldef ON u_mtrldef_adjustmx.mtrlid = u_mtrldef.mtrlid
	Where u_mtrldef_adjustmx.billid = :arg_billid AND u_mtrldef_adjustmx.billtype = 0;
	
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新物料/产品资料常规属性失败'+sqlca.SQLErrText
	GOTO ext
END IF


UPDATE u_mtrldef SET
	wfjgdays = u_mtrldef_adjustmx.wfjgdays,
	expday = u_mtrldef_adjustmx.expday,
	orderdays = u_mtrldef_adjustmx.orderdays,
	maxzjday = u_mtrldef_adjustmx.maxzjday,
	wfjgdays_bx = u_mtrldef_adjustmx.wfjgdays_bx
	FROM u_mtrldef_adjustmx INNER JOIN
	u_mtrldef ON u_mtrldef_adjustmx.mtrlid = u_mtrldef.mtrlid
	Where u_mtrldef_adjustmx.billid = :arg_billid AND u_mtrldef_adjustmx.billtype = 1;
	
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新物料/产品资料生产属性失败'+sqlca.SQLErrText
	GOTO ext
END IF


UPDATE u_mtrldef SET
	net_weight = u_mtrldef_adjustmx.net_weight,
	gross_weight = u_mtrldef_adjustmx.gross_weight, 
	dftsptid = u_mtrldef_adjustmx.dftsptid,
	buydays = u_mtrldef_adjustmx.buydays,
	rebuylot = u_mtrldef_adjustmx.rebuylot,
	buy_autoday = u_mtrldef_adjustmx.buy_autoday,
	rebuytype = u_mtrldef_adjustmx.rebuytype,
	minbuyqty = u_mtrldef_adjustmx.minbuyqty,
	ifsendlot = u_mtrldef_adjustmx.ifsendlot,
	upbuyqty = u_mtrldef_adjustmx.upbuyqty,
	buydec = u_mtrldef_adjustmx.buydec,
	buy_ceiling = u_mtrldef_adjustmx.buy_ceiling,
	cubage = u_mtrldef_adjustmx.cubage,
	buydays_bx = u_mtrldef_adjustmx.buydays_bx,
	buyer = u_mtrldef_adjustmx.buyer
	FROM u_mtrldef_adjustmx INNER JOIN
	u_mtrldef ON u_mtrldef_adjustmx.mtrlid = u_mtrldef.mtrlid
	Where u_mtrldef_adjustmx.billid = :arg_billid AND u_mtrldef_adjustmx.billtype = 2;
	
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新物料/产品资料采购属性失败'+sqlca.SQLErrText
	GOTO ext
END IF

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


RETURN rslt









end function

public function integer c_auditing (long arg_billid, ref string arg_msg, boolean arg_ifcommit);

Int rslt = 1,i
Long cnt
DateTime ls_null
SetNull(ls_null)


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


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

IF flag = 0 THEN
	rslt = 0
	arg_msg = "调价单还没有审核，请核对"
	GOTO ext
END IF

//更新审核标记
UPDATE u_mtrldef_adjust
	SET auditingrep = '' ,
	Auditingdate = :ls_null,
	flag = 0
	WHERE billid = :arg_billid
	AND flag = 1;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致单据撤审操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF

cnt = 0
SELECT count(1) INTO :cnt
	FROM u_mtrldef_adjustmx INNER JOIN
	u_mtrldef ON u_mtrldef_adjustmx.mtrlid = u_mtrldef.mtrlid
	WHERE u_mtrldef_adjustmx.billid = :arg_billid AND
	u_mtrldef_adjustmx.BILLTYPE = 0 AND
	(u_mtrldef.zxmtrlmode <> u_mtrldef_adjustmx.zxmtrlmode OR
	u_mtrldef.unit_buy <> u_mtrldef_adjustmx.unit_buy OR
	u_mtrldef.rate_buy <> u_mtrldef_adjustmx.rate_buy OR
	u_mtrldef.unit_scll <> u_mtrldef_adjustmx.unit_scll OR
	u_mtrldef.rate_scll <> u_mtrldef_adjustmx.rate_scll OR
	u_mtrldef.unit_sale <> u_mtrldef_adjustmx.unit_sale OR
	u_mtrldef.rate_sale <> u_mtrldef_adjustmx.rate_sale OR
	u_mtrldef.net_weight <> u_mtrldef_adjustmx.net_weight OR
	u_mtrldef.gross_weight <> u_mtrldef_adjustmx.gross_weight OR
	u_mtrldef.dftsptid <> u_mtrldef_adjustmx.dftsptid  );
	
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询物料/产品资料失败'+sqlca.SQLErrText
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '部分资料数据与当前物料资料数据已不同,不能撤审'
	GOTO ext
END IF


cnt = 0
SELECT count(1) INTO :cnt
	FROM u_mtrldef_adjustmx INNER JOIN
	u_mtrldef ON u_mtrldef_adjustmx.mtrlid = u_mtrldef.mtrlid
	WHERE u_mtrldef_adjustmx.billid = :arg_billid AND
	u_mtrldef_adjustmx.BILLTYPE = 1 AND
	(	u_mtrldef_adjustmx.wfjgdays <> u_mtrldef.wfjgdays   );
	
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询物料/产品资料失败'+sqlca.SQLErrText
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '部分资料数据与当前物料资料数据已不同,不能撤审'
	GOTO ext
END IF

//检查采购属性
cnt = 0
SELECT count(1) INTO :cnt
	FROM u_mtrldef_adjustmx INNER JOIN
	u_mtrldef ON u_mtrldef_adjustmx.mtrlid = u_mtrldef.mtrlid
	WHERE u_mtrldef_adjustmx.billid = :arg_billid AND
	u_mtrldef_adjustmx.BILLTYPE = 2 AND
	(	u_mtrldef_adjustmx.buydays <> u_mtrldef.buydays or
   u_mtrldef.net_weight <> u_mtrldef_adjustmx.net_weight OR
	u_mtrldef.gross_weight <> u_mtrldef_adjustmx.gross_weight OR
	u_mtrldef.dftsptid <> u_mtrldef_adjustmx.dftsptid OR
	u_mtrldef.rebuylot <> u_mtrldef_adjustmx.rebuylot OR
	u_mtrldef.buy_autoday <> u_mtrldef_adjustmx.buy_autoday OR
	u_mtrldef.rebuytype <> u_mtrldef_adjustmx.rebuytype OR
	u_mtrldef.minbuyqty <> u_mtrldef_adjustmx.minbuyqty OR
	u_mtrldef.ifsendlot <> u_mtrldef_adjustmx.ifsendlot OR
	u_mtrldef.upbuyqty <> u_mtrldef_adjustmx.upbuyqty OR
	u_mtrldef.buydec <> u_mtrldef_adjustmx.buydec OR
	u_mtrldef.buy_ceiling <> u_mtrldef_adjustmx.buy_ceiling OR
	u_mtrldef.cubage <> u_mtrldef_adjustmx.cubage);

IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询物料/产品资料失败'+sqlca.SQLErrText
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '部分资料数据与当前物料资料数据已不同,不能撤审'
	GOTO ext
END IF

UPDATE u_mtrldef SET
	zxmtrlmode = u_mtrldef_adjustmx.zxmtrlmode1,
	unit_buy = u_mtrldef_adjustmx.unit_buy1,
	rate_buy = u_mtrldef_adjustmx.rate_buy1,
	unit_scll = u_mtrldef_adjustmx.unit_scll1,
	rate_scll = u_mtrldef_adjustmx.rate_scll1,
	unit_sale = u_mtrldef_adjustmx.unit_sale1,
	rate_sale = u_mtrldef_adjustmx.rate_sale1
	FROM u_mtrldef_adjustmx INNER JOIN
	u_mtrldef ON u_mtrldef_adjustmx.mtrlid = u_mtrldef.mtrlid
	Where u_mtrldef_adjustmx.billid = :arg_billid and u_mtrldef_adjustmx.billtype=0;
	
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新物料/产品资料失败'+sqlca.SQLErrText
	GOTO ext
END IF


UPDATE u_mtrldef SET
	wfjgdays = u_mtrldef_adjustmx.wfjgdays1
	FROM u_mtrldef_adjustmx INNER JOIN
	u_mtrldef ON u_mtrldef_adjustmx.mtrlid = u_mtrldef.mtrlid
	Where u_mtrldef_adjustmx.billid = :arg_billid and u_mtrldef_adjustmx.billtype=1;
	
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新物料/产品资料失败'+sqlca.SQLErrText
	GOTO ext
END IF




UPDATE u_mtrldef SET
	net_weight = u_mtrldef_adjustmx.net_weight1,
	gross_weight = u_mtrldef_adjustmx.gross_weight1, 
	dftsptid = u_mtrldef_adjustmx.dftsptid,
	buydays = u_mtrldef_adjustmx.buydays1,
	rebuylot = u_mtrldef_adjustmx.rebuylot1,
	buy_autoday = u_mtrldef_adjustmx.buy_autoday1,
	rebuytype = u_mtrldef_adjustmx.rebuytype1,
	minbuyqty = u_mtrldef_adjustmx.minbuyqty1,
	ifsendlot = u_mtrldef_adjustmx.ifsendlot1,
	upbuyqty = u_mtrldef_adjustmx.upbuyqty1,
	buydec = u_mtrldef_adjustmx.buydec1,
	buy_ceiling = u_mtrldef_adjustmx.buy_ceiling1,
	cubage = u_mtrldef_adjustmx.cubage1,
	buyer = u_mtrldef_adjustmx.buyer1
	FROM u_mtrldef_adjustmx INNER JOIN
	u_mtrldef ON u_mtrldef_adjustmx.mtrlid = u_mtrldef.mtrlid
	Where u_mtrldef_adjustmx.billid = :arg_billid AND u_mtrldef_adjustmx.billtype = 2;
	
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新物料/产品资料采购属性失败'+sqlca.SQLErrText
	GOTO ext
END IF

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


RETURN rslt









end function

PUBLIC FUNCTION Integer secauditing (Long arg_billid, REF String arg_msg, Boolean arg_ifcommit);

Int rslt = 1,i


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


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

IF flag = 2 THEN
	rslt = 0
	arg_msg = "调价单已高审，请核对"
	GOTO ext
END IF

//更新审核标记
UPDATE u_mtrldef_adjust
	SET secauditingrep = :publ_operator ,
	secauditingdate = getdate(),
	flag = 2
	WHERE billid = :arg_billid
	AND flag = 1;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致单据审核操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF



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


RETURN rslt






END FUNCTION

PUBLIC FUNCTION Integer c_secauditing (Long arg_billid, REF String arg_msg, Boolean arg_ifcommit);

Int rslt = 1,i
DateTime ls_null
SetNull(ls_null)

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


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

IF flag <> 2 THEN
	rslt = 0
	arg_msg = "调价单未高审,不能撤审，请核对"
	GOTO ext
END IF

//更新审核标记
UPDATE u_mtrldef_adjust
	SET secauditingrep = '' ,
	secauditingdate = :ls_null,
	flag = 1
	WHERE billid = :arg_billid
	AND flag = 2;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致单据撤审操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF



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


RETURN rslt






END FUNCTION

public function integer acceptmx (s_mtrldef_adjust arg_mx, ref string arg_msg);Long rslt = 1,cnt = 0,LS_i

//写入内容
For LS_i = 1 To UpperBound(arg_mx.mtrlid)
	If arg_mx.mtrlid[LS_i] = 0 Then Continue
	
	it_mxbt++
	
	s_mx.mtrlid[it_mxbt] = arg_mx.mtrlid[LS_i]
	s_mx.zxmtrlmode[it_mxbt] = arg_mx.zxmtrlmode[LS_i]
	s_mx.unit_buy[it_mxbt] = arg_mx.unit_buy[LS_i]
	s_mx.rate_buy[it_mxbt] = arg_mx.rate_buy[LS_i]
	s_mx.unit_scll[it_mxbt] = arg_mx.unit_scll[LS_i]
	s_mx.rate_scll[it_mxbt] = arg_mx.rate_scll[LS_i]
	s_mx.unit_sale[it_mxbt] = arg_mx.unit_sale[LS_i]
	s_mx.rate_sale[it_mxbt] = arg_mx.rate_sale[LS_i]
	
	s_mx.zxmtrlmode1[it_mxbt] = arg_mx.zxmtrlmode1[LS_i]
	
	s_mx.unit_buy1[it_mxbt] = arg_mx.unit_buy1[LS_i]
	s_mx.rate_buy1[it_mxbt] = arg_mx.rate_buy1[LS_i]
	s_mx.unit_scll1[it_mxbt] = arg_mx.unit_scll1[LS_i]
	s_mx.rate_scll1[it_mxbt] = arg_mx.rate_scll1[LS_i]
	s_mx.unit_sale1[it_mxbt] = arg_mx.unit_sale1[LS_i]
	s_mx.rate_sale1[it_mxbt] = arg_mx.rate_sale1[LS_i]
	
	s_mx.wfjgdays1[it_mxbt] = arg_mx.wfjgdays1[LS_i]
	s_mx.wfjgdays[it_mxbt] = arg_mx.wfjgdays[LS_i]
	
	s_mx.billtype[it_mxbt] = arg_mx.billtype[LS_i]

	s_mx.mtrlarea[it_mxbt] = arg_mx.mtrlarea[LS_i]
	s_mx.mtrlarea1[it_mxbt] = arg_mx.mtrlarea1[LS_i]
	s_mx.mtrlarea2[it_mxbt] = arg_mx.mtrlarea2[LS_i]
	
	
	//采购属性
	s_mx.buydays1[it_mxbt] = arg_mx.buydays1[LS_i]
	s_mx.buydays[it_mxbt] = arg_mx.buydays[LS_i]
	s_mx.net_weight[it_mxbt] = arg_mx.net_weight[LS_i]
	s_mx.gross_weight[it_mxbt] = arg_mx.gross_weight[LS_i]
	s_mx.dftsptid[it_mxbt] = arg_mx.dftsptid[LS_i]
	s_mx.net_weight1[it_mxbt] = arg_mx.net_weight1[LS_i]
	s_mx.gross_weight1[it_mxbt] = arg_mx.gross_weight1[LS_i]
	s_mx.dftsptid1[it_mxbt] = arg_mx.dftsptid1[LS_i]
	
	s_mx.rebuylot[it_mxbt] = arg_mx.rebuylot[LS_i]
	s_mx.rebuylot1[it_mxbt] = arg_mx.rebuylot1[LS_i]
	s_mx.buy_autoday[it_mxbt] = arg_mx.buy_autoday[LS_i]
	s_mx.buy_autoday1[it_mxbt] = arg_mx.buy_autoday1[LS_i]
	s_mx.rebuytype[it_mxbt] = arg_mx.rebuytype[LS_i]
	s_mx.rebuytype1[it_mxbt] = arg_mx.rebuytype1[LS_i]
	s_mx.minbuyqty[it_mxbt] = arg_mx.minbuyqty[LS_i]
	s_mx.minbuyqty1[it_mxbt] = arg_mx.minbuyqty1[LS_i]
	s_mx.ifsendlot[it_mxbt] = arg_mx.ifsendlot[LS_i]
	s_mx.ifsendlot1[it_mxbt] = arg_mx.ifsendlot1[LS_i]
	s_mx.upbuyqty[it_mxbt] = arg_mx.upbuyqty[LS_i]
	s_mx.upbuyqty1[it_mxbt] = arg_mx.upbuyqty1[LS_i]
	s_mx.buydec[it_mxbt] = arg_mx.buydec[LS_i]
	s_mx.buydec1[it_mxbt] = arg_mx.buydec1[LS_i]
	s_mx.buy_ceiling[it_mxbt] = arg_mx.buy_ceiling[LS_i]
	s_mx.buy_ceiling1[it_mxbt] = arg_mx.buy_ceiling1[LS_i]
	s_mx.cubage[it_mxbt] = arg_mx.cubage[LS_i]
	s_mx.cubage1[it_mxbt] = arg_mx.cubage1[LS_i]
	
	s_mx.expday[it_mxbt] = arg_mx.expday[LS_i]
	s_mx.expday1[it_mxbt] = arg_mx.expday1[LS_i]
	s_mx.orderdays[it_mxbt] = arg_mx.orderdays[LS_i]
	s_mx.orderdays1[it_mxbt] = arg_mx.orderdays1[LS_i]
	s_mx.maxzjday[it_mxbt] = arg_mx.maxzjday[LS_i]
	s_mx.maxzjday1[it_mxbt] = arg_mx.maxzjday1[LS_i]
	s_mx.wfjgdays_bx[it_mxbt] = arg_mx.wfjgdays_bx[LS_i]
	s_mx.wfjgdays_bx1[it_mxbt] =  arg_mx.wfjgdays_bx1[LS_i]
	s_mx.buydays_bx[it_mxbt] = arg_mx.buydays_bx[LS_i]
	s_mx.buydays_bx1[it_mxbt] = arg_mx.buydays_bx1[LS_i]
	
	s_mx.buyer1[it_mxbt] = arg_mx.buyer1[LS_i]
	s_mx.buyer[it_mxbt] = arg_mx.buyer[LS_i]
	
Next

//ext:

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

end function

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

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