Q5/ws_objects/Ew_money.pbl.src/uo_mustpay.sru

$PBExportHeader$uo_mustpay.sru
forward
global type uo_mustpay from nonvisualobject
end type
type delmx from structure within uo_mustpay
end type
end forward

type delmx from structure
	long		payid
	long		listno
end type

global type uo_mustpay from nonvisualobject
end type
global uo_mustpay uo_mustpay

type variables
long ref_payid = 0
end variables

forward prototypes
public function integer del_payrecmx (integer arg_del, long arg_payid, long arg_listno, ref string arg_msg, boolean arg_ifcommit)
public function integer buybill_del_mx (long arg_buybillid, ref string arg_msg, boolean arg_ifcommit)
public function integer del_payrec (long arg_scid, integer arg_del, long arg_payid, long arg_sptid, ref string arg_msg, boolean arg_ifcommit)
public function integer add_payrec (long arg_scid, long arg_sptid, datetime arg_paydate, string arg_inrep, decimal arg_oriamt, decimal arg_mstpayamt, decimal arg_payamt, string arg_dscrp, string arg_billcode, long arg_banktypeid, integer arg_buildtype, string arg_opemp, long arg_inwareid, long arg_buybillid, ref string arg_msg, boolean arg_ifcommit, datetime arg_viewdate, long arg_accountsid, long arg_itemid, long arg_moneyid, string arg_relcode)
public function integer add_payrecmx (long arg_scid, long arg_payid, string arg_billcode, datetime arg_paydate, long arg_banktypeid, decimal arg_mstpayamt, decimal arg_payamt, string arg_opemp, string arg_dscrp, string arg_inrep, integer arg_buildtype, long arg_buybillid, long arg_itemid, long arg_sptid, ref string arg_msg, boolean arg_ifcommit, long arg_moneyid, string arg_relcode)
public function integer add_payrecmx (ref s_bmstpay arg_s_mx, ref string arg_msg, boolean arg_ifcommit)
public function integer add_payrec (ref s_bmstpay arg_s_mx, ref string arg_msg, boolean arg_ifcommit)
end prototypes

public function integer del_payrecmx (integer arg_del, long arg_payid, long arg_listno, ref string arg_msg, boolean arg_ifcommit);//删除应收帐
//del_payrecmx(arg_del,arg_payid,arg_listno,arg_msg,arg_ifcommit)
//arg_del 0:手动删除,1:应付帐删除,2:支出单删除;3:采购单删除
Int rslt = 1 
long  cnt = 0
Long buildtype = 0
Decimal mstpayamt,payamt
DateTime null_datetime

SELECT count(*)
	INTO :cnt
	FROM u_bmstpaymx
	WHERE u_bmstpaymx.payid = :arg_payid
	AND u_bmstpaymx.listno = :arg_listno;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询操作失败,应付明细帐唯一码'
	rslt = 0
	GOTO ext
END IF
IF cnt = 0 THEN
	arg_msg = '错误应付明细帐唯一码'
	rslt = 0
	GOTO ext
END IF

SELECT buildtype,mstpayamt,payamt 
INTO :buildtype,:mstpayamt,:payamt 
FROM u_bmstpaymx
	WHERE  u_bmstpaymx.payid = :arg_payid
	AND u_bmstpaymx.listno = :arg_listno;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "查询应付明细帐失败,请重试!"+'~n'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF arg_del = 0 THEN
	IF buildtype <> 0  THEN
		arg_msg = '系统自动建立的应付明细帐不可以删除'
		rslt = 0
		GOTO ext
	END IF
END IF
SetNull(null_datetime)

UPDATE U_bmstpay
	SET mstpayamt = mstpayamt - :mstpayamt,
	payamt = payamt - :payamt,
	finishflag = 0,
	finishdate = :null_datetime
	Where U_bmstpay.payid = :arg_payid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '更新应付帐金额失败,请重试>>'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

DELETE U_bmstpaymx
	WHERE  u_bmstpaymx.payid = :arg_payid
	AND u_bmstpaymx.listno = :arg_listno;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "删除应付明细帐操作失败,请重试!"+'~n'+sqlca.SQLErrText
	rslt = 0
	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 buybill_del_mx (long arg_buybillid, ref string arg_msg, boolean arg_ifcommit);delmx del_mx[]
Long it_mxt
Long ls_payid,ls_listno,i
Int rslt = 1
DECLARE listno_cur CURSOR FOR
	SELECT U_BmstpayMX.payid,
	U_BmstpayMX.listno
	FROM U_BmstpayMX
	Where buybillid = :arg_buybillid;
OPEN listno_cur;
FETCH listno_cur Into :ls_payid,:ls_listno;
DO WHILE sqlca.SQLCode = 0
	it_mxt++
	del_mx[it_mxt].payid = ls_payid
	del_mx[it_mxt].listno = ls_listno
	FETCH listno_cur Into :ls_payid,:ls_listno;
LOOP
CLOSE listno_cur;


FOR i = 1 To it_mxt
	IF del_payrecmx (2,del_mx[i].payid, del_mx[i].listno,arg_msg,False) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

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

RETURN rslt







end function

public function integer del_payrec (long arg_scid, integer arg_del, long arg_payid, long arg_sptid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 
long cnt = 0
Long maxid = 0
Long buildtype = 0
Decimal ls_mstpayamt,ls_payamt
Long ll_itemid,ll_dateint
Int ll_buildtype
Long ll_ctmint
DateTime ld_paydate
uo_iteminput uo_item
uo_item = Create uo_iteminput

SELECT count(*)
	INTO :cnt
	FROM u_spt
	Where u_spt.sptid = :arg_sptid   ;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询操作失败,供应商唯一码'
	rslt = 0
	GOTO ext
END IF
IF cnt = 0 THEN
	arg_msg = '错误供应商唯一码'
	rslt = 0
	GOTO ext
END IF

SELECT buildtype,
	mstpayamt,
	payamt,
	itemid,
	rapmoneyid,
	paydate,
	ctmint
	INTO :ll_buildtype,
	:ls_mstpayamt,
	:ls_payamt,
	:ll_itemid,
	:ll_dateint,
	:ld_paydate,
	:ll_ctmint
	FROM u_bmstpay
	Where u_bmstpay.payid = :arg_payid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "查询应付帐建立类型失败,请重试!"+'~n'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ll_ctmint > 0 THEN
	arg_msg = '该记录资料已被截数,不能处理'
	rslt = 0
	GOTO ext
END IF

If (ll_buildtype = 1 Or ll_buildtype = 4) And arg_del = 0  THEN
	arg_msg = '系统自动建立的应付帐不可以删除'
	rslt = 0
	GOTO ext
END IF

cnt = 0
IF ll_buildtype = 0 THEN //手动建立的,
	SELECT count(*) INTO :cnt FROM u_bmstpaymx
		WHERE payid = :arg_payid
		And (buildtype  <> 0);
ELSEIF ll_buildtype = 1 THEN //销售单据建立
	SELECT count(*) INTO :cnt FROM u_bmstpaymx
		WHERE payid = :arg_payid
		And (buildtype  <> 1 And buildtype  <> 3);
ELSEIF ll_buildtype = 4 THEN //收款单据建立
	SELECT count(*) INTO :cnt FROM u_bmstpaymx
		WHERE payid = :arg_payid
		And (buildtype  <> 4);
ELSE
	SELECT count(*) INTO :cnt FROM u_bmstpaymx
		WHERE  payid = :arg_payid
		And buildtype  = 2;
END IF
IF sqlca.SQLCode <> 0  THEN
	arg_msg = '查询应付帐明细帐失败'
	rslt = 0
	GOTO ext
END IF

IF cnt > 0 THEN
	arg_msg = '该应付帐记录已存在明细帐记录,不能删除>>如果要删除,请先删除明细帐'
	rslt = 0
	GOTO ext
END IF

//********删除出纳帐
IF ls_payamt <> 0 THEN
	IF uo_item.del_iteminput(ll_itemid,ll_dateint,1,arg_msg,False) = 0  THEN
		arg_msg = '删除出纳明细帐失败!~n' + arg_msg
		rslt = 0
		GOTO ext
	END IF
END IF

DELETE U_bmstpaymx
	Where u_bmstpaymx.payid = :arg_payid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "删除应付明细帐操作失败,请重试!"+'~n'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


DELETE U_bmstpay
	Where u_bmstpay.payid = :arg_payid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "删除应付帐操作失败,请重试!"+'~n'+sqlca.SQLErrText
	rslt = 0
	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 add_payrec (long arg_scid, long arg_sptid, datetime arg_paydate, string arg_inrep, decimal arg_oriamt, decimal arg_mstpayamt, decimal arg_payamt, string arg_dscrp, string arg_billcode, long arg_banktypeid, integer arg_buildtype, string arg_opemp, long arg_inwareid, long arg_buybillid, ref string arg_msg, boolean arg_ifcommit, datetime arg_viewdate, long arg_accountsid, long arg_itemid, long arg_moneyid, string arg_relcode);	
s_bmstpay s_pay

s_pay.scid = arg_scid
s_pay.sptid = arg_sptid
s_pay.paydate = arg_paydate
s_pay.inrep = arg_inrep
s_pay.oriamt = arg_oriamt
s_pay.mstpayamt = arg_mstpayamt
s_pay.payamt = arg_payamt
s_pay.dscrp = arg_dscrp
s_pay.billcode = arg_billcode
s_pay.banktypeid = arg_banktypeid
s_pay.buildtype = arg_buildtype
s_pay.opemp = arg_opemp
s_pay.inwareid = arg_inwareid
s_pay.buybillid = arg_buybillid
s_pay.viewdate = arg_viewdate
s_pay.accountsid = arg_accountsid
s_pay.itemid = arg_itemid
s_pay.moneyid = arg_moneyid
s_pay.relcode = arg_relcode


return add_payrec(s_pay,arg_msg,arg_ifcommit)



//Int rslt = 1,cnt = 0
//DateTime server_datetime
//Long ls_newpayid
//Long ref_dateint,li_native
//String ls_sptname
//Int li_item_dfttype,li_itemflag
//Decimal ld_payamt
//
//uo_iteminput uo_item
//uo_item = CREATE uo_iteminput
//
//IF IsNull(arg_dscrp) THEN arg_dscrp = ''
//IF IsNull(arg_inrep) THEN arg_inrep = ''
//IF IsNull(arg_banktypeid) THEN arg_banktypeid = 0
//IF IsNull(arg_billcode) THEN arg_billcode = ''
//IF IsNull(arg_opemp) THEN arg_opemp = ''
//IF IsNull(arg_scid) THEN arg_scid = 0
//IF IsNull(arg_accountsid) THEN arg_accountsid = 0
//IF IsNull(arg_itemid) THEN arg_itemid = 0
//IF IsNull(arg_moneyid) THEN arg_moneyid = 0
//IF IsNull(arg_relcode) THEN arg_relcode = ''
//
////未注册限制
//IF sys_if_register = 0 THEN
//	Long ll_bill_count
//	SELECT count(*)
//		INTO :ll_bill_count
//		FROM U_Bmstpay;
//	IF sqlca.SQLCode <> 0 THEN
//		rslt = 0
//		arg_msg = "查询操作失败,应付帐数量 "
//		GOTO ext
//	END IF
//	
//	IF  ll_bill_count > 80 THEN
//		rslt = 0
//		arg_msg = "未注册版本,应付帐只能保存30条记录!"
//		GOTO ext
//	END IF
//END IF
//
//IF arg_moneyid <= 0 THEN
//	rslt = 0
//	arg_msg = '请选择币种.'
//	GOTO ext
//END IF
//
//IF arg_itemid <= 0 THEN
//	rslt = 0
//	arg_msg = '请选择收支项目.'
//	GOTO ext
//END IF
////1 判断新内容的合法性
//IF Not (arg_buildtype = 0 OR arg_buildtype = 1 OR arg_buildtype = 4) THEN
//	arg_msg = '错误建立类型,必须为:0-手工记帐;1-单据记帐;4-付款单记账'
//	rslt = 0
//	GOTO ext
//END IF
//
//IF arg_billcode = '' THEN
//	arg_msg = '请输入凭证号码'
//	rslt = 0
//	GOTO ext
//END IF
//
//IF Date(arg_paydate) <= 1990-01-01 THEN
//	arg_msg = '错误发生日期'
//	rslt = 0
//	GOTO ext
//END IF
//
//IF Trim(arg_inrep) = '' THEN
//	arg_msg = '请输入经手人'
//	rslt = 0
//	GOTO ext
//END IF
//
//cnt = 0
//SELECT count(*) INTO :cnt
//	FROM cw_banktype
//	Where banktypeid = :arg_banktypeid;
//IF sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	arg_msg = "查询操作失败,结算方式!"
//	GOTO ext
//END IF
//IF cnt = 0 THEN
//	rslt = 0
//	arg_msg = "结算方式未登记或已取消!"
//	GOTO ext
//END IF
//
////IF arg_moneyid = 0 THEN
////	arg_msg = '没有币种'
////	rslt = 0
////	GOTO ext
////END IF
//
//////币种
////cnt = 0
////SELECT count(*) INTO :cnt FROM cw_currency Where moneyid = :arg_moneyid;
////IF sqlca.SQLCode <> 0 THEN
////	rslt = 0
////	arg_msg = '查询币种失败!'
////	GOTO ext
////END IF
////
////IF cnt = 0 THEN
////	rslt = 0
////	arg_msg = '无效的币种，不存在该币种!'
////	GOTO ext
////END IF
//
//SELECT native INTO :li_native FROM cw_currency Where moneyid = :arg_moneyid;
//IF sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	arg_msg = '查询币种失败!'
//	GOTO ext
//END IF
//
//////////
//
//
//cnt = 0
//SELECT count(*) INTO :cnt FROM u_scdef Where scid = :arg_scid;
//IF sqlca.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 ;
////取得系统时间,借用操作员表
//IF sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	arg_msg = "查询操作失败,系统时间"
//	GOTO ext
//END IF
//
//
//
//
//IF arg_oriamt = 0 THEN
//	arg_msg = '请输入单据金额'
//	rslt = 0
//	GOTO ext
//END IF
//
//
//IF arg_mstpayamt = 0 AND arg_payamt = 0 THEN
//	arg_msg = "应付金额与已付金额不能同时为0!"
//	rslt = 0
//	GOTO ext
//END IF
//
//IF arg_oriamt <> arg_mstpayamt - arg_payamt THEN
//	arg_oriamt = arg_mstpayamt - arg_payamt
//END IF
//
////2 判断是否已经选择当前客户和操作员
//SELECT name
//	INTO :ls_sptname
//	FROM u_spt
//	Where u_spt.sptid = :arg_sptid ;
//IF sqlca.SQLCode <> 0 THEN
//	arg_msg = '查询操作失败,供应商唯一码'
//	rslt = 0
//	GOTO ext
//END IF
//
//cnt = 0
//SELECT count(*) INTO :cnt
//	FROM u_user
//	Where username = :arg_opemp ;
//IF sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	arg_msg = "查询操作失败,操作员!"
//	GOTO ext
//END IF
//IF cnt = 0 THEN
//	rslt = 0
//	arg_msg = "操作员姓名未登记或已取消!"
//	GOTO ext
//END IF
//
//Long ll_moneyid
//
////****************加出纳帐
//IF arg_payamt <> 0 THEN
//	
//	SELECT dfttype,itemflag
//		INTO :li_item_dfttype,:li_itemflag
//		FROM u_itemdef
//		Where u_itemdef.itemid = :arg_itemid;
//	IF sqlca.SQLCode <> 0 THEN
//		arg_msg = '查询当前付支项目核算类型和核算方向失败!'
//		rslt = 0
//		GOTO ext
//	END IF
//	
//	CHOOSE CASE li_item_dfttype
//		CASE 2,5
//			ld_payamt = -1 * arg_payamt * li_itemflag
//		CASE ELSE
//			ld_payamt = arg_payamt
//	END CHOOSE
//	
//	IF uo_item.add_iteminput(arg_scid,arg_itemid,0,arg_paydate,ls_sptname +' '+arg_dscrp,ld_payamt,arg_accountsid,&
//		arg_msg,FALSE,arg_banktypeid,1,arg_billcode,arg_moneyid,arg_relcode) = 0  THEN
//		arg_msg = '增加付支明细帐失败!~n' + arg_msg
//		rslt = 0
//		GOTO ext
//	END IF
//	
//	ref_dateint = uo_item.ref_dateint
//	
//	IF ref_dateint = 0 THEN
//		arg_msg = '增加付支出纳明细帐失败!'
//		rslt = 0
//		GOTO ext
//	END IF
//ELSE
//	arg_accountsid = 0
//END IF
////3 向应付帐表插入新记录，失败则回滚
//ls_newpayid = f_sys_scidentity(0,"U_Bmstpay","payid",arg_msg,FALSE,sqlca)
//IF ls_newpayid <= 0 THEN
//	rslt = 0
//	GOTO ext
//END IF
//
//INSERT INTO U_Bmstpay
//	(   scid,
//	payid,
//	sptid,
//	paydate,
//	inrep,
//	oriamt,
//	mstpayamt,
//	payamt,
//	Dscrp,
//	billcode,
//	banktypeid,
//	buildtype,
//	opdate,
//	opemp,
//	inwareid,
//	viewdate,
//	rapmoneyid,
//	accountsid,
//	itemid,
//	buybillid,
//	moneyid,
//	relcode)
//	VALUES ( :arg_scid,
//	:ls_newpayid,
//	:arg_sptid,
//	:arg_paydate,
//	:arg_inrep,
//	:arg_oriamt,
//	:arg_mstpayamt,
//	:arg_payamt,
//	:arg_dscrp,
//	:arg_billcode,
//	:arg_banktypeid,
//	:arg_buildtype,
//	:server_datetime,
//	:arg_opemp,
//	:arg_inwareid,
//	:arg_viewdate,
//	:ref_dateint,
//	:arg_accountsid,
//	:arg_itemid,
//	:arg_buybillid,
//	:arg_moneyid,
//	:arg_relcode)  ;
//IF sqlca.SQLCode <> 0 THEN
//	
//	IF Pos(Lower(sqlca.SQLErrText),'pk_U_Bmstpay') > 0 THEN
//		arg_msg = '插入应付帐表操作失败,关键字单据ID重复'
//	ELSE
//		arg_msg = "插入应付帐表操作失败"+"~n"+sqlca.SQLErrText
//	END IF
//	rslt = 0
//	GOTO ext
//END IF
//
////4 向应付帐明细表插入新记录，失败则回滚
//IF add_payrecmx(arg_scid,ls_newpayid,arg_billcode,arg_paydate,arg_banktypeid,arg_mstpayamt,&
//	arg_payamt,arg_opemp,arg_dscrp,arg_inrep,1,0,arg_itemid,arg_sptid,arg_msg,FALSE,arg_moneyid,arg_relcode) = 0 THEN
//	rslt = 0
//	GOTO ext
//END IF
//
//ref_payid = ls_newpayid
//
//ext:
//IF rslt = 0 THEN
//	ROLLBACK;
//ELSEIF rslt = 1 AND arg_ifcommit THEN
//	COMMIT;
//END IF
//RETURN rslt





end function

public function integer add_payrecmx (long arg_scid, long arg_payid, string arg_billcode, datetime arg_paydate, long arg_banktypeid, decimal arg_mstpayamt, decimal arg_payamt, string arg_opemp, string arg_dscrp, string arg_inrep, integer arg_buildtype, long arg_buybillid, long arg_itemid, long arg_sptid, ref string arg_msg, boolean arg_ifcommit, long arg_moneyid, string arg_relcode);//====================================================================
// 事件: uo_mustpay.Script - add_payrecmx ( long arg_scid, long arg_payid, string arg_billcode, datetime arg_paydate, long arg_banktypeid, decimal arg_mstpayamt, decimal arg_payamt, string arg_opemp, string arg_dscrp, string arg_inrep, integer arg_buildtype, long arg_buybill()
//--------------------------------------------------------------------
// 描述:
//--------------------------------------------------------------------
// 参数:
// 	value    	long    	arg_scid      	
// 	value    	long    	arg_payid     	
// 	value    	string  	arg_billcode  	
// 	value    	datetime	arg_paydate   	
// 	value    	long    	arg_banktypeid	
// 	value    	decimal 	arg_mstpayamt 	
// 	value    	decimal 	arg_payamt    	
// 	value    	string  	arg_opemp     	
// 	value    	string  	arg_dscrp     	
// 	value    	string  	arg_inrep     	
// 	value    	integer 	arg_buildtype 	
// 	value    	long    	arg_buybillid 	
// 	value    	long    	arg_itemid    	
// 	value    	long    	arg_sptid     	
// 	reference	string  	arg_msg       	
// 	value    	boolean 	arg_ifcommit  	
// 	value    	long    	arg_moneyid   	
// 	value    	string  	arg_relcode   	
//--------------------------------------------------------------------
// 返回:  (none)
//--------------------------------------------------------------------
// 作者:	LHD		日期: 2013年06月27日
//--------------------------------------------------------------------
//	Copyright (c) 2002-2018 RICHTA(TM), All rights reserved.
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================

s_bmstpay s_pay

s_pay.scid = arg_scid
s_pay.payid = arg_payid
s_pay.billcode = arg_billcode
s_pay.paydate = arg_paydate
s_pay.banktypeid = arg_banktypeid
s_pay.mstpayamt = arg_mstpayamt
s_pay.payamt = arg_payamt
s_pay.opemp = arg_opemp
s_pay.dscrp = arg_dscrp
s_pay.inrep = arg_inrep
s_pay.buildtype = arg_buildtype
s_pay.buybillid = arg_buybillid
s_pay.itemid = arg_itemid
s_pay.sptid = arg_sptid
s_pay.moneyid = arg_moneyid
s_pay.relcode = arg_relcode


return add_payrecmx(s_pay,arg_msg,arg_ifcommit)

/*
Int rslt = 1
Long cnt = 0,list_no
DateTime server_datetime,null_datetime
Decimal balcamt

IF IsNull(arg_dscrp) THEN arg_dscrp = ''
IF IsNull(arg_inrep) THEN arg_inrep = ''
IF IsNull(arg_banktypeid) THEN arg_banktypeid = 0
IF IsNull(arg_billcode) THEN arg_billcode = ''
IF IsNull(arg_opemp) THEN arg_opemp = ''
IF IsNull(arg_scid) THEN arg_scid = 0
IF IsNull(arg_itemid) THEN arg_itemid = 0
IF IsNull(arg_sptid) THEN arg_sptid = 0
IF IsNull(arg_moneyid) THEN arg_moneyid = 0
IF IsNull(arg_relcode) THEN arg_relcode = ''

//防止超长
arg_billcode = lefta(arg_billcode, 30)

cnt = 0
SELECT count(*) INTO :cnt FROM u_scdef Where scid = :arg_scid;
IF sqlca.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 ;
//取得系统时间,借用操作员表
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,系统时间"
	GOTO ext
END IF

//1 判断新内容的合法性
IF Not (arg_buildtype = 0 OR &
	arg_buildtype = 1 OR &
	arg_buildtype = 2 OR &
	arg_buildtype = 3 OR &
	arg_buildtype = 4) THEN
	arg_msg = '错误建立类型,必须为:0-手工记帐;1-单据记帐;2-对数记帐;3-项目记帐;4-付款单记帐'
	rslt = 0
	GOTO ext
END IF



IF arg_billcode = '' THEN
	arg_msg = '请输入凭证号码'
	rslt = 0
	GOTO ext
END IF

IF Date(arg_paydate) <= 1990-01-01 THEN
	arg_msg = '错误发生日期'
	rslt = 0
	GOTO ext
END IF

IF Trim(arg_inrep) = '' THEN
	arg_msg = '请输入经手人'
	rslt = 0
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM cw_banktype
	Where banktypeid = :arg_banktypeid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,结算方式!"
	GOTO ext
END IF
IF cnt = 0 THEN
	rslt = 0
	arg_msg = "结算方式未登记或已取消!"
	GOTO ext
END IF


IF arg_mstpayamt = 0 AND arg_payamt = 0 THEN
	arg_msg = "应付金额与已付金额不能同时为0!"
	rslt = 0
	GOTO ext
END IF

//2 判断是否已经选择当前操作员
cnt = 0
SELECT count(*) INTO :cnt
	FROM u_user
	Where username = :arg_opemp ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,操作员!"
	GOTO ext
END IF
IF cnt = 0 THEN
	rslt = 0
	arg_msg = "操作员姓名未登记或已取消!"
	GOTO ext
END IF


IF arg_buildtype = 0 OR arg_buildtype = 2   OR arg_buildtype = 3 OR arg_buildtype = 4  THEN
	SELECT max(listno) INTO :List_no FROM u_bmstpaymx
		Where  payid = :arg_payid;
	IF sqlca.SQLCode = -1 THEN
		arg_msg = '查询应付明细帐最大编号失败>>'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	ELSEIF sqlca.SQLCode = 100 OR IsNull(list_no) THEN
		list_no = 0
	END IF
	list_no = list_no + 1
ELSE
	list_no = 0
END IF


//3 向应付帐明细表插入新记录，失败则回滚
INSERT INTO U_Bmstpaymx
	(scid,
	payid,
	Listno,
	billcode,
	paydate,
	banktypeid,
	mstpayamt,
	payamt,
	opdate,
	opemp,
	Dscrp,
	inrep,
	buildtype,
	buybillid,
	itemid,
	sptid,
	moneyid,
	relcode)
	VALUES (:arg_scid,
	:arg_payid,
	:list_no,
	:arg_billcode,
	:arg_paydate,
	:arg_banktypeid,
	:arg_mstpayamt,
	:arg_payamt,
	:server_datetime,
	:arg_opemp,
	:arg_dscrp,
	:arg_inrep,
	:arg_buildtype,
	:arg_buybillid,
	:arg_itemid,
	:arg_sptid,
	:arg_moneyid,
	:arg_relcode
	)  ;
IF sqlca.SQLCode <> 0 THEN
	
	IF Pos(Lower(sqlca.SQLErrText),'pk_u_buyTask') > 0 THEN
		arg_msg = '向应付帐表插入应付明细帐记录失败,关键字ID重复'
	ELSE
		arg_msg = "向应付帐表插入应付明细帐记录失败"+"~n"+sqlca.SQLErrText
	END IF
	
	rslt = 0
	GOTO ext
END IF

//IF arg_buildtype <> 1 THEN
SELECT mstpayamt - payamt INTO :balcamt FROM u_bmstpay Where payid = :arg_payid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询当前单据结余金额失败'
	rslt = 0
	GOTO ext
END IF

//	if balcamt<=0 then
//	   IF ( arg_payamt - arg_mstpayamt)>0 THEN
//		   arG_MSG = '当前处理金额大于单据结余金额,请检查'
//		   rslt = 0
//		   GOTO ext
//	   END IF
//	else
//		if ( arg_payamt - arg_mstpayamt)>balcamt then
//			arG_MSG = '当前处理金额大于单据结余金额,请检查'
//		   rslt = 0
//		   GOTO ext
//	   END IF
//	end if

IF arg_buildtype <> 1 THEN
	UPDATE u_bmstpay
		SET mstpayamt = mstpayamt + :arg_mstpayamt,
		payamt = payamt + :arg_payamt
		Where  payid = :arg_payid;
		
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '更新应付帐应付已付款失败,请重试!'
		rslt = 0
		GOTO ext
	END IF
END IF
IF balcamt = arg_payamt - arg_mstpayamt THEN
	UPDATE u_bmstpay
		SET finishflag = 1,
		finishdate = :server_datetime
		Where  payid = :arg_payid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '更新应付帐完成标记失败'
		rslt = 0
		GOTO ext
	END IF
ELSE
	SetNull(null_datetime)
	UPDATE u_bmstpay
		SET finishflag = 0,
		finishdate = :null_datetime
		Where  payid = :arg_payid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '更新应付帐完成标记失败'
		rslt = 0
		GOTO ext
	END IF
END IF
//END IF

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

RETURN rslt
*/


end function

public function integer add_payrecmx (ref s_bmstpay arg_s_mx, ref string arg_msg, boolean arg_ifcommit);
Int rslt = 1
Long cnt = 0,list_no
DateTime server_datetime,null_datetime
Decimal balcamt

IF IsNull(arg_s_mx.dscrp) THEN arg_s_mx.dscrp = ''
IF IsNull(arg_s_mx.inrep) THEN arg_s_mx.inrep = ''
IF IsNull(arg_s_mx.banktypeid) THEN arg_s_mx.banktypeid = 0
IF IsNull(arg_s_mx.billcode) THEN arg_s_mx.billcode = ''
IF IsNull(arg_s_mx.opemp) THEN arg_s_mx.opemp = ''
IF IsNull(arg_s_mx.scid) THEN arg_s_mx.scid = 0
IF IsNull(arg_s_mx.itemid) THEN arg_s_mx.itemid = 0
IF IsNull(arg_s_mx.sptid) THEN arg_s_mx.sptid = 0
IF IsNull(arg_s_mx.moneyid) THEN arg_s_mx.moneyid = 0
IF IsNull(arg_s_mx.relcode) THEN arg_s_mx.relcode = ''

//防止超长
arg_s_mx.billcode = lefta(arg_s_mx.billcode, 30)

cnt = 0
SELECT count(*) INTO :cnt FROM u_scdef Where scid = :arg_s_mx.scid;
IF sqlca.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 ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,系统时间"
	GOTO ext
END IF

//1 判断新内容的合法性
IF Not (arg_s_mx.buildtype = 0 OR &
	arg_s_mx.buildtype = 1 OR &
	arg_s_mx.buildtype = 2 OR &
	arg_s_mx.buildtype = 3 OR &
	arg_s_mx.buildtype = 4) THEN
	arg_msg = '错误建立类型,必须为:0-手工记帐;1-单据记帐;2-对数记帐;3-项目记帐;4-付款单记帐'
	rslt = 0
	GOTO ext
END IF



IF arg_s_mx.billcode = '' THEN
	arg_msg = '请输入凭证号码'
	rslt = 0
	GOTO ext
END IF

IF Date(arg_s_mx.paydate) <= 1990-01-01 THEN
	arg_msg = '错误发生日期'
	rslt = 0
	GOTO ext
END IF

IF Trim(arg_s_mx.inrep) = '' THEN
	arg_msg = '请输入经手人'
	rslt = 0
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM cw_banktype
	Where banktypeid = :arg_s_mx.banktypeid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,结算方式!"
	GOTO ext
END IF
IF cnt = 0 THEN
	rslt = 0
	arg_msg = "不存在结算方式!"
	GOTO ext
END IF


//IF arg_s_mx.mstpayamt = 0 AND arg_s_mx.payamt = 0 THEN
//	arg_msg = "应付金额与已付金额不能同时为0!"
//	rslt = 0
//	GOTO ext
//END IF

//2 判断是否已经选择当前操作员
cnt = 0
SELECT count(*) INTO :cnt
	FROM u_user
	Where username = :arg_s_mx.opemp ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,操作员!"
	GOTO ext
END IF
IF cnt = 0 THEN
	rslt = 0
	arg_msg = "操作员姓名未登记或已取消!"
	GOTO ext
END IF

IF 	arg_s_mx.mstpayamt<>0 or arg_s_mx.payamt<>0 then
	IF arg_s_mx.buildtype = 0 OR arg_s_mx.buildtype = 2   OR arg_s_mx.buildtype = 3 OR arg_s_mx.buildtype = 4  THEN
		SELECT max(listno) + 1 INTO :List_no FROM u_bmstpaymx
			Where  payid = :arg_s_mx.payid;
		IF sqlca.SQLCode = -1 THEN
			arg_msg = '查询应付明细帐最大编号失败>>'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		ELSEIF sqlca.SQLCode = 100 OR IsNull(list_no) THEN
			list_no = 0
		END IF
	ELSE
		list_no = 0
	END IF
	
	
	//3 向应付帐明细表插入新记录，失败则回滚
	INSERT INTO U_Bmstpaymx
		(scid,
		payid,
		Listno,
		billcode,
		paydate,
		banktypeid,
		mstpayamt,
		payamt,
		opdate,
		opemp,
		Dscrp,
		inrep,
		buildtype,
		buybillid,
		itemid,
		sptid,
		moneyid,
		relcode)
		VALUES (:arg_s_mx.scid,
		:arg_s_mx.payid,
		:list_no,
		:arg_s_mx.billcode,
		:arg_s_mx.paydate,
		:arg_s_mx.banktypeid,
		:arg_s_mx.mstpayamt,
		:arg_s_mx.payamt,
		:server_datetime,
		:arg_s_mx.opemp,
		:arg_s_mx.dscrp,
		:arg_s_mx.inrep,
		:arg_s_mx.buildtype,
		:arg_s_mx.buybillid,
		:arg_s_mx.itemid,
		:arg_s_mx.sptid,
		:arg_s_mx.moneyid,
		:arg_s_mx.relcode
		)  ;
	IF sqlca.SQLCode <> 0 THEN
		
		IF Pos(Lower(sqlca.SQLErrText),'pk_u_buyTask') > 0 THEN
			arg_msg = '向应付帐表插入应付明细帐记录失败,关键字ID重复'
		ELSE
			arg_msg = "向应付帐表插入应付明细帐记录失败"+"~n"+sqlca.SQLErrText
		END IF
		
		rslt = 0
		GOTO ext
	END IF
end if

SELECT mstpayamt - payamt INTO :balcamt FROM u_bmstpay Where payid = :arg_s_mx.payid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询当前单据结余金额失败'
	rslt = 0
	GOTO ext
END IF

IF arg_s_mx.buildtype = 3 THEN //采购单据, 增加税率应用
	IF arg_s_mx.dscrp = arg_s_mx.billcode + '税金' THEN
		UPDATE u_bmstpay
			SET oriamt = oriamt + :arg_s_mx.mstpayamt
			Where  payid = :arg_s_mx.payid;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '更新应付帐单据金额失败,请重试!'
			rslt = 0
			GOTO ext
		END IF
	END IF
END IF

IF list_no <> 0 and (arg_s_mx.mstpayamt<>0 or arg_s_mx.payamt<>0)THEN
	UPDATE u_bmstpay
		SET mstpayamt = mstpayamt + :arg_s_mx.mstpayamt,
		payamt = payamt + :arg_s_mx.payamt
		Where  payid = :arg_s_mx.payid;
		
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '更新应付帐应付已付款失败,请重试!'
		rslt = 0
		GOTO ext
	END IF
END IF

IF balcamt = arg_s_mx.payamt - arg_s_mx.mstpayamt THEN
	UPDATE u_bmstpay
		SET finishflag = 1,
		finishdate = :arg_s_mx.paydate
		Where  payid = :arg_s_mx.payid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '更新应付帐完成标记失败'
		rslt = 0
		GOTO ext
	END IF
ELSE
	SetNull(null_datetime)
	UPDATE u_bmstpay
		SET finishflag = 0,
		finishdate = :null_datetime
		Where  payid = :arg_s_mx.payid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '更新应付帐完成标记失败'
		rslt = 0
		GOTO ext
	END IF
END IF

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

RETURN rslt



end function

public function integer add_payrec (ref s_bmstpay arg_s_mx, ref string arg_msg, boolean arg_ifcommit);//====================================================================
// 事件: uo_mustpay.add_payrec()
//--------------------------------------------------------------------
// 描述:
//--------------------------------------------------------------------
// 参数:
// 	reference	s_bmstpay	arg_s_mx    	
// 	reference	string   	arg_msg     	
// 	value    	boolean  	arg_ifcommit	
//--------------------------------------------------------------------
// 返回:  integer
//--------------------------------------------------------------------
// 作者:	LHD		日期: 2013年06月27日
//--------------------------------------------------------------------
//	Copyright (c) 2002-2018 RICHTA(TM), All rights reserved.
//--------------------------------------------------------------------
// 修改历史:
////arg_s_mx.buildtype = 0 - 手动;1 -自动;2-对单; 3-项目;4-收付款单; (2,3只用在明细中)
//====================================================================


Int rslt = 1
long cnt = 0
DateTime server_datetime
Long ls_newpayid
Long ref_dateint
String ls_sptname, ls_dscrp,ls_sptcode
String ls_relcode
Int li_item_dfttype,li_itemflag
Decimal ld_payamt

IF IsNull(arg_s_mx.dscrp) THEN arg_s_mx.dscrp = ''
IF IsNull(arg_s_mx.inrep) THEN arg_s_mx.inrep = ''
IF IsNull(arg_s_mx.banktypeid) THEN arg_s_mx.banktypeid = 0
IF IsNull(arg_s_mx.billcode) THEN arg_s_mx.billcode = ''
IF IsNull(arg_s_mx.opemp) THEN arg_s_mx.opemp = ''
IF IsNull(arg_s_mx.scid) THEN arg_s_mx.scid = 0
IF IsNull(arg_s_mx.accountsid) THEN arg_s_mx.accountsid = 0
IF IsNull(arg_s_mx.itemid) THEN arg_s_mx.itemid = 0
IF IsNull(arg_s_mx.moneyid) THEN arg_s_mx.moneyid = 0
IF IsNull(arg_s_mx.relcode) THEN arg_s_mx.relcode = ''

uo_iteminput uo_item
uo_item = Create uo_iteminput

//未注册限制
IF sys_if_register = 0 THEN
	Long ll_bill_count
	SELECT count(*)
		INTO :ll_bill_count
		From U_Bmstpay;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询操作失败,应付帐数量 "
		GOTO ext
	END IF
	
	IF  ll_bill_count > 80 THEN
		rslt = 0
		arg_msg = "未注册版本,应付帐只能保存80条记录!"
		GOTO ext
	END IF
END IF

IF Not (arg_s_mx.buildtype = 0 Or arg_s_mx.buildtype = 1 Or arg_s_mx.buildtype = 4) THEN
	arg_msg = '错误建立类型,必须为:0-手工记帐;1-单据记帐;4-付款单记账'
	rslt = 0
	GOTO ext
END IF

IF arg_s_mx.moneyid <= 0 THEN
	rslt = 0
	arg_msg = '请选择币种.'
	GOTO ext
END IF

IF arg_s_mx.banktypeid = 0 THEN
	arg_msg = '没有结算方式'
	rslt = 0
	GOTO ext
END IF

IF arg_s_mx.itemid <= 0 THEN
	rslt = 0
	arg_msg = '请选择收支项目.'
	GOTO ext
END IF

IF arg_s_mx.billcode = '' THEN
	arg_msg = '请输入凭证号码'
	rslt = 0
	GOTO ext
END IF

IF Date(arg_s_mx.paydate) <= 1990-01-01 THEN
	arg_msg = '错误发生日期'
	rslt = 0
	GOTO ext
END IF

IF Trim(arg_s_mx.inrep) = '' THEN
	arg_msg = '请输入经手人'
	rslt = 0
	GOTO ext
END IF

cnt = 0
SELECT count(*) Into :cnt From u_scdef Where scid = :arg_s_mx.scid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询分部资料失败!'
	GOTO ext
END IF
IF cnt = 0 THEN
	rslt = 0
	arg_msg = '无效的分部，不存在该分部!'
	GOTO ext
END IF

Int li_btype,li_native
SELECT btype Into :li_btype  From cw_banktype Where banktypeid = :arg_s_mx.banktypeid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询结算方式失败!'
	GOTO ext
END IF

SELECT native Into :li_native From cw_currency Where moneyid = :arg_s_mx.moneyid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询币种失败!'
	GOTO ext
END IF

////// //
IF arg_s_mx.inwareid > 0 And arg_s_mx.buildtype = 1 THEN
	SELECT part Into :ls_relcode From u_inware Where inwareid = :arg_s_mx.inwareid;
	IF sqlca.SQLCode <> 0 THEN
		ls_relcode = ''
	END IF
END IF



SELECT Top 1 getdate() Into :server_datetime From u_user ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,系统时间"
	GOTO ext
END IF

IF arg_s_mx.mstpayamt = 0 And arg_s_mx.payamt = 0 THEN
	arg_msg = "应付金额与已付金额不能同时为0!"
	rslt = 0
	GOTO ext
END IF

arg_s_mx.oriamt = arg_s_mx.mstpayamt - arg_s_mx.payamt

//2 判断是否已经选择当前供应商和操作员
SELECT sptcode,name
	INTO :ls_sptcode,:ls_sptname
	FROM u_spt
	Where u_spt.sptid = :arg_s_mx.sptid ;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询操作失败,供应商唯一码'
	rslt = 0
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_user
	Where username = :arg_s_mx.opemp ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,操作员!"
	GOTO ext
END IF
IF cnt = 0 THEN
	rslt = 0
	arg_msg = "操作员姓名未登记或已取消!"
	GOTO ext
END IF

//Long ll_moneyid

//****************加出纳帐
DateTime ldt_viewdate
IF arg_s_mx.payamt <> 0 THEN
	
	IF arg_s_mx.accountsid = 0 THEN
		arg_msg = '请选择账号'
		rslt = 0
		GOTO ext
	END IF
	
	SELECT dfttype,itemflag
		INTO :li_item_dfttype,:li_itemflag
		FROM u_itemdef
		Where u_itemdef.itemid = :arg_s_mx.itemid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询当前付支项目核算类型和核算方向失败!'
		rslt = 0
		GOTO ext
	END IF
	
	CHOOSE CASE li_item_dfttype
		CASE 2,5
			ld_payamt = -1 * arg_s_mx.payamt * li_itemflag
		CASE ELSE
			ld_payamt = arg_s_mx.payamt
	END CHOOSE
	
	//客户收款/供应商付款单的选项, 暂时无法区别是否供应商付款单?
	//不过其他单据,默认paydate = viewdate
	IF sys_option_cusamt_dftdate = 0 THEN
		ldt_viewdate = arg_s_mx.paydate
	ELSE
		ldt_viewdate = arg_s_mx.viewdate
	END IF
	
	//Int sys_option_rap_money_dscrp_mode= 0 // 281 出纳帐摘要生成模式
	IF  sys_option_rap_money_dscrp_mode = 0  THEN
		ls_dscrp  = ls_sptcode + ' ' + ls_sptname + ' ' +arg_s_mx.dscrp
	ELSEIF  sys_option_rap_money_dscrp_mode = 1  THEN
		ls_dscrp  = ls_sptname + ' ' +arg_s_mx.dscrp
	ELSE
		ls_dscrp  = ls_sptcode + ' ' + ls_sptname + ' ' +arg_s_mx.dscrp
	END IF
	
	s_iteminput s_input
	
	s_input.itemid = arg_s_mx.itemid
	s_input.dateint = 0
	s_input.outdate = ldt_viewdate
	s_input.dscrp = ls_dscrp
	s_input.outamt = ld_payamt
	s_input.accountsid = arg_s_mx.accountsid
	s_input.banktypeid = arg_s_mx.banktypeid
	s_input.billcode = arg_s_mx.billcode
	s_input.relcode = arg_s_mx.relcode
	s_input.buildtype = 1
	s_input.opemp = publ_operator
	s_input.relrep = ''
	s_input.scid = arg_s_mx.scid
	s_input.moneyid = arg_s_mx.moneyid
	
	IF uo_item.add_iteminput(s_input,arg_msg,False) = 0  THEN
		arg_msg = '增加收支明细帐失败!~n' + arg_msg
		rslt = 0
		GOTO ext
	END IF
	//	IF uo_item.add_iteminput(arg_s_mx.scid,arg_s_mx.itemid,0,ldt_viewdate,ls_dscrp,ld_payamt,arg_s_mx.accountsid,&
	//		arg_msg,False,arg_s_mx.banktypeid,1,arg_s_mx.billcode,arg_s_mx.moneyid,arg_s_mx.relcode) = 0  THEN
	//		arg_msg = '增加付支明细帐失败!~n' + arg_msg
	//		rslt = 0
	//		GOTO ext
	//	END IF
	
	ref_dateint = uo_item.ref_dateint
	
	IF ref_dateint = 0 THEN
		arg_msg = '增加收支出纳明细帐失败!'
		rslt = 0
		GOTO ext
	END IF
ELSE
	arg_s_mx.accountsid = 0
END IF

//3 向应付帐表插入新记录，失败则回滚
ls_newpayid = f_sys_scidentity(0,"U_Bmstpay","payid",arg_msg,False,sqlca)
IF ls_newpayid <= 0 THEN
	rslt = 0
	GOTO ext
END IF

INSERT INTO U_Bmstpay
	(   scid,
	payid,
	sptid,
	paydate,
	inrep,
	oriamt,
	mstpayamt,
	payamt,
	Dscrp,
	billcode,
	banktypeid,
	buildtype,
	opdate,
	opemp,
	inwareid,
	viewdate,
	rapmoneyid,
	accountsid,
	itemid,
	buybillid,
	moneyid,
	relcode)
	VALUES ( :arg_s_mx.scid,
	:ls_newpayid,
	:arg_s_mx.sptid,
	:arg_s_mx.paydate,
	:arg_s_mx.inrep,
	:arg_s_mx.oriamt,
	:arg_s_mx.mstpayamt,
	:arg_s_mx.payamt,
	:arg_s_mx.dscrp,
	:arg_s_mx.billcode,
	:arg_s_mx.banktypeid,
	:arg_s_mx.buildtype,
	:server_datetime,
	:arg_s_mx.opemp,
	:arg_s_mx.inwareid,
	:arg_s_mx.viewdate,
	:ref_dateint,
	:arg_s_mx.accountsid,
	:arg_s_mx.itemid,
	:arg_s_mx.buybillid,
	:arg_s_mx.moneyid,
	:arg_s_mx.relcode)  ;
IF sqlca.SQLCode <> 0 THEN
	
	IF Pos(Lower(sqlca.SQLErrText),'pk_U_Bmstpay') > 0 THEN
		arg_msg = '插入应付帐表操作失败,关键字单据ID重复'
	ELSE
		arg_msg = "插入应付帐表操作失败"+"~n"+sqlca.SQLErrText
	END IF
	rslt = 0
	GOTO ext
END IF


//4 向应付帐明细表插入新记录，失败则回滚
arg_s_mx.payid = ls_newpayid

s_bmstpay s_paymx

s_paymx = arg_s_mx
IF arg_s_mx.buildtype = 0 Or arg_s_mx.buildtype = 4 THEN
	s_paymx.buildtype = arg_s_mx.buildtype
ELSE
	s_paymx.buildtype = 1
END IF
s_paymx.buybillid = 0

IF add_payrecmx(s_paymx,arg_msg,False) = 0 THEN
	rslt = 0
	GOTO ext
END IF

//IF add_payrecmx(arg_s_mx.scid,ls_newpayid,arg_s_mx.billcode,arg_s_mx.paydate,arg_s_mx.banktypeid,arg_s_mx.mstpayamt,&
//	arg_s_mx.payamt,arg_s_mx.opemp,arg_s_mx.dscrp,arg_s_mx.inrep,1,0,arg_s_mx.itemid,arg_s_mx.sptid,arg_msg,False,arg_s_mx.moneyid,arg_s_mx.relcode) = 0 THEN
//	rslt = 0
//	GOTO ext
//END IF

ref_payid = ls_newpayid

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







end function

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

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