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

$PBExportHeader$uo_associat_sptcust.sru
forward
global type uo_associat_sptcust from nonvisualobject
end type
type s_bmsttakemx from structure within uo_associat_sptcust
end type
end forward

type s_bmsttakemx from structure
	long		scid
	long		takeid
	string		billcode
	datetime		takedate
	string		taketype
	decimal { 2 }		msttakeamt
	decimal { 2 }		takeamt
	decimal { 2 }		oriamt
	decimal { 2 }		mainmsttakeamt
	decimal { 2 }		maintakeamt
	string		opemp
	string		dscrp
	string		inrep
	integer		buildtype
	long		banktypeid
	string		relbillcode
end type

global type uo_associat_sptcust from nonvisualobject
end type
global uo_associat_sptcust uo_associat_sptcust

type variables
PUBLIC PROTECTEDWRITE Long scid=0
PUBLIC PROTECTEDWRITE Long salebillid //销售收入单表自动增量ID
PUBLIC PROTECTEDWRITE String salebillcode  //所有单据的唯一编号
PUBLIC PROTECTEDWRITE DateTime opdate   //建立时间,自动
PUBLIC PROTECTEDWRITE Int flag = 0                 //审核标志
PUBLIC PROTECTEDWRITE DateTime Auditdate  //审核时间
PUBLIC PROTECTEDWRITE String auditREP       //审核操作员
PUBLIC PROTECTEDWRITE Long reissueid
PUBLIC PROTECTEDWRITE String reissuecode
PUBLIC PROTECTEDWRITE Decimal sumamt = 0 

String relcode = '' //交易单号
String opemp     //建立操作员
DateTime takedate    //发生时间
String taketype = ''           //付款方式
String dscrp = ''         //备注
Long cusid = 0          //客户id
Long sptid =0 //供应商ID
Decimal msttakeamt //收入金额
Decimal takeamt //收入金额
String inrep
Long ywrepid //业务员ID
Long banktypeid   //结算方式
Long rapmoneyid   //出纳帐ID
Long accountsid   //帐号ID
Long itemid   //收支项目ID
long buildtype //建立类型
int billtype
long moneyid=0
PRIVATE:
S_BmsttakeMX mx[] //明细结构数组
Long it_MXBT = 0      //明细结构数组末指针
Boolean IT_NEWBEGIN = FALSE       //新建标志
Boolean IT_UPDATEBEGIN = FALSE//修改标志


Long relid
DateTime reissuedate

String cuscode
String reissueemp
String cusname
Long r_type
Long relint_3
Int cwauditingflag = 0           //总账审核标记 
DateTime cwauditingdate          //总账审核时间
String cwauditingrep            //总账审核操作员


 
Boolean if_getid_ture = TRUE
s_reissuemx  reissuemx[] 
Transaction  commit_transaction


end variables

forward prototypes
public function integer p_clearmx ()
public function integer p_reset ()
public function integer newbegin ()
public function integer save_ds (ref string arg_msg, boolean arg_ifcommt)
public function integer save_sptcust (ref string arg_msg, boolean arg_ifcommt, ref long oldsptid, ref long oldcustid)
public function integer del (long al_spt, long al_cusid, ref string as_msg)
public function integer save (ref string arg_msg, boolean arg_ifcommit)
public function integer getinfo (long arg_scid, long arg_reissueid, ref string arg_msg)
public function integer p_getinfo (long arg_scid, long arg_reissueid, ref string arg_msg)
public function integer auditing (boolean arg_ifcommit, ref string arg_msg)
end prototypes

public function integer p_clearmx ();//INT p_clearmx()
//清除明细
it_mxbt=0

RETURN 1 
end function

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

salebillid=0
salebillcode=''
opemp=''
flag=0
it_newbegin=FALSE
it_updatebegin=FALSE
//清除明细
P_CLEARMX()
RETURN 1
end function

public function integer newbegin ();//newbegin()
//从置对象,设定业务类型,准备建立新单
//0 fail 1 success
LONG RSLT=1

p_reset()
it_newbegin=TRUE
it_updatebegin=FALSE

return RSLT
end function

public function integer save_ds (ref string arg_msg, boolean arg_ifcommt);//save(arg_msg,arg_ifcommt)
// 新建(salebillid=0)\更新(salebillid>0)
//0 fail 1 success

uo_musttake uo_take
uo_take = CREATE uo_musttake

Integer rslt = 1,cnt = 0,i
Decimal LS_KTSL
Long LS_NEWoutWAREID
DateTime server_datetime
Long ls_newid
Long ref_dateint
String ls_cusname
Decimal ls_msttakeamt
Decimal ls_takeamt
Long ll_itemid
Long ll_dateint
DateTime ld_takedate

IF IsNull(dscrp) THEN dscrp = ''
IF IsNull(relcode) THEN relcode = ''
IF IsNull(inrep) THEN inrep = ''
IF IsNull(taketype) THEN taketype = ''
IF IsNull(accountsid) THEN accountsid = 0
IF IsNull(itemid) THEN itemid = 0

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

IF it_newbegin = FALSE AND it_updatebegin = FALSE 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 it_mxbt = 0 THEN //如果输入库存物料资料错则已经清空
	rslt = 0
	arg_msg = "没有正确单据内容"
	GOTO ext
END IF

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

//cnt = 0
//SELECT count(*) INTO :cnt
//	FROM cw_banktype
//	Where banktypeid = :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

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_cust
	Where cusid = :cusid ;
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 name
	INTO :ls_cusname
	FROM u_cust
	Where u_cust.cusid = :cusid   ;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询操作失败,客户唯一码'
	rslt = 0
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_user
	Where username = :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
opdate = server_datetime //填写单据建立时间(最近修改时间)
////////////////////////////////////////////////开始区分:新建/更新 处理
IF salebillid = 0 THEN //新建
	ls_newid = f_sys_scidentity(0,"U_salebill","salebillid",arg_msg,false,sqlca)
	IF ls_newid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	salebillcode = getid(0,"SB",Date(server_datetime),false,sqlca) //取得新单据编号
	IF salebillcode = "err" THEN
		salebillcode = ''
		rslt = 0
		arg_msg = "无法获取收入单编号"
		GOTO ext
	END IF
	
	INSERT INTO U_salebill (
		
		salebillid,
		salebillcode,
		takedate,
		Relcode,
		Msttakeamt,
		takeamt,
		cusid,
		dscrp,
		taketype,
		inrep,
		opdate,
		opemp,
		YwrepID,
		banktypeid,
		rapmoneyid ,
		accountsid,
		itemid,
		buildtype,
		moneyid)
		VALUES (
		:ls_newid,
		:salebillcode,
		:takedate,
		:Relcode,
		:Msttakeamt,
		:takeamt,
		:cusid,
		:dscrp,
		:taketype,
		:inrep,
		:opdate,
		:opemp,
		:YwrepID,
		:banktypeid,
		:ref_dateint ,
		:accountsid,
		:itemid,
		:buildtype,
		:moneyid)  ;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "插入操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	
	
	FOR i = 1 TO it_mxbt
		IF mx[i].relbillcode = '' THEN mx[i].relbillcode = salebillcode
		IF uo_take.add_takerecmx(mx[i].scid,mx[i].takeid,mx[i].relbillcode,mx[i].takedate,mx[i].banktypeid,mx[i].Msttakeamt,&
			mx[i].takeamt,mx[i].opemp,mx[i].dscrp,mx[i].inrep,2,ls_newid,0,cusid,moneyid,arg_msg,FALSE,'') = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	NEXT
	salebillid = ls_newid
	FOR i = 1 TO it_mxbt
		INSERT INTO u_salebillmx
			(scid,
			salebillid,
			takeid,
			takedate,
			msttakeamt,
			takeamt,
			billcode,
			relbillcode,
			oriamt,
			mainmsttakeamt,
			maintakeamt
			)
			VALUES
			(:mx[i].scid,
			:ls_newid,
			:mx[i].takeid,
			:mx[i].takedate,
			:mx[i].msttakeamt,
			:mx[i].takeamt,
			:mx[i].billcode,
			:mx[i].relbillcode,
			:mx[i].oriamt,
			:mx[i].mainmsttakeamt,
			:mx[i].maintakeamt
			);
		IF sqlca.SQLCode <> 0 THEN
			salebillid = 0
			rslt = 0
			arg_msg = "插入明细操作失败"+"~n"+sqlca.SQLErrText
			ROLLBACK USING sqlca;
			GOTO ext
		END IF
	NEXT
ELSE //////////////////////////////////////////////////更新
	
	SELECT msttakeamt,
		takeamt,
		itemid,
		rapmoneyid,
		takedate
		INTO :ls_msttakeamt,
		:ls_takeamt,
		:ll_itemid,
		:ll_dateint,
		:ld_takedate
		FROM u_salebill
		Where U_salebill.salebillid = :salebillid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = "查询应收帐建立类型失败,请重试!"+'~n'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	
	
	UPDATE U_salebill
		SET takedate = :takedate,
		Relcode = :Relcode,
		Msttakeamt = :Msttakeamt,
		takeamt = :takeamt,
		cusid = :cusid,
		dscrp = :dscrp,
		taketype = :taketype,
		inrep = :inrep,
		opdate = :opdate,
		opemp = :opemp,
		YwrepID = :YwrepID,
		banktypeid = :banktypeid,
		rapmoneyid = :ref_dateint,
		accountsid = :accountsid,
		itemid = :itemid,
		moneyid = :moneyid
		Where U_salebill.salebillid = :salebillid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "更新单据操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	//删除原有明细
	DELETE FROM U_salebillmx
		Where u_salebillmx.salebillid = :salebillid USING sqlca;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "删除旧有明细操作失败"+"~n"+sqlca.SQLErrText
		ROLLBACK USING sqlca;
		GOTO ext
	END IF
	FOR i = 1 TO it_mxbt
		INSERT INTO u_salebillmx
			(scid,
			salebillid,
			takeid,
			takedate,
			msttakeamt,
			takeamt,
			billcode,
			relbillcode,
			oriamt,
			mainmsttakeamt,
			maintakeamt
			)
			VALUES
			(:mx[i].scid,
			:ls_newid,
			:mx[i].takeid,
			:mx[i].takedate,
			:mx[i].msttakeamt,
			:mx[i].takeamt,
			:mx[i].billcode,
			:mx[i].relbillcode,
			:mx[i].oriamt,
			:mx[i].mainmsttakeamt,
			:mx[i].maintakeamt
			);
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "插入明细操作失败"+"~n"+sqlca.SQLErrText
			ROLLBACK USING sqlca;
			GOTO ext
		END IF
	NEXT
	
	IF uo_take.salebill_del_mx(salebillid,arg_msg,FALSE) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	FOR i = 1 TO it_mxbt
		IF uo_take.add_takerecmx(mx[i].scid,mx[i].takeid,mx[i].billcode,mx[i].takedate,mx[i].banktypeid,mx[i].Msttakeamt,&
			mx[i].takeamt,mx[i].opemp,mx[i].dscrp,mx[i].inrep,2,salebillid,0,cusid,moneyid,arg_msg,FALSE,'') = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	NEXT
	
END IF

it_newbegin = FALSE
it_updatebegin = FALSE
salebillid = ls_newid
ext:
DESTROY uo_take
IF rslt = 0 THEN
	ROLLBACK;
	//salebillid=0
	p_clearmx()
ELSEIF rslt = 1 AND arg_ifcommt THEN
	COMMIT;
END IF
RETURN rslt




end function

public function integer save_sptcust (ref string arg_msg, boolean arg_ifcommt, ref long oldsptid, ref long oldcustid);//save_sptcust(arg_msg,arg_ifcommt,oldsptid,oldcustid)
// 新建(oldsptid=0)\更新(oldsptid>0)
//0 fail 1 success
Integer rslt = 1,cnt = 0 
  
SELECT count(*) INTO :cnt
	FROM u_spt
	Where sptid = :sptid ;
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

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_cust
	Where cusid = :cusid ;
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 oldsptid = 0 THEN //新建
  
	INSERT INTO u_associat_sptcust (
	sptid,
	cusid,
	dscrp
	)
		VALUES (
		:sptid,
		:cusid,
		:dscrp 
	 		)  ;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "插入操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
 
ELSE //////////////////////////////////////////////////更新
	
	UPDATE u_associat_sptcust
		SET sptid = :sptid,
		cusid = :cusid,
		dscrp = :dscrp
		Where u_associat_sptcust.sptid = :oldsptid
		and u_associat_sptcust.cusid=:oldcustid ;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "更新单据操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
	
END IF

it_newbegin = FALSE
it_updatebegin = FALSE
oldsptid = 0 
oldcustid = 0
ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 AND arg_ifcommt THEN
	COMMIT;
END IF
RETURN rslt

end function

public function integer del (long al_spt, long al_cusid, ref string as_msg);//0 FAIL, 1 SUCCESS
Int rslt = 1


delete from  u_associat_sptcust
where u_associat_sptcust.cusid  =  :al_cusid
and u_associat_sptcust.sptid  = :al_spt  ; 

IF sqlca.SQLCode <> 0 THEN 
	rslt = 0
	as_msg = "删除出仓单明细操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF

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

Return (rslt)


return 1 
end function

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

IF IsNull(relid) THEN relid = 0
IF IsNull(cusid) THEN cusid = 0
IF IsNull(moneyid) THEN moneyid = 0
IF IsNull(relcode) THEN relcode = ''
IF IsNull(reissueemp) THEN reissueemp = ''
IF IsNull(dscrp) THEN dscrp = ''
IF IsNull(itemid) THEN itemid = 0

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 r_type = 2 THEN
	IF cusid = 0 THEN
		arg_msg = '请选择供应商'
		rslt = 0
		GOTO ext
	END IF
	
	SELECT count(*) INTO :cnt
		FROM u_spt
		WHERE sptid = :cusid
		USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '查询供应商资料失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF cnt = 0 THEN
		rslt = 0
		arg_msg = '错误的供应商资料'
		GOTO ext
	END IF

ELSE
	
	IF cusid = 0 THEN
		arg_msg = '请选择客户'
		rslt = 0
		GOTO ext
	END IF
	
	SELECT count(*) INTO :cnt
		FROM u_cust
		WHERE cusid = :cusid
		USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		arg_msg = '查询客户资料失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF cnt = 0 THEN
		rslt = 0
		arg_msg = '错误的客户资料'
		GOTO ext
	END IF
END IF

IF it_mxbt = 0 THEN //如果输入物料资料错则已经清空
	rslt = 0
	arg_msg = "没有正确进仓内容"
	GOTO ext
END IF

IF itemid = 0 THEN
	rslt = 0
	arg_msg = '请选择项目'
	GOTO ext
END IF

SELECT count(*) INTO :cnt
	FROM u_itemdef
	WHERE itemid = :itemid
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	arg_msg = '查询项目资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF cnt = 0 THEN
	rslt = 0
	arg_msg = '错误的项目资料'
	GOTO ext
END IF


IF f_check_inoutdate(0,reissuedate,true,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

////////////////////////////////////////////// //开始区分:新建/更新 处理
IF reissueid = 0 THEN //新建
	ls_newid = f_sys_scidentity(scid,"u_reissue","reissueid",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
	
	//取得新单据编号	
	IF r_type = 0 THEN
		reissuecode = getid(scid,ls_sccode + 'FJ',Date(server_dt),if_getid_ture,commit_transaction)
	ELSEIF r_type = 1 THEN
		reissuecode = getid(scid,ls_sccode + 'FY',Date(server_dt),if_getid_ture,commit_transaction)
	ELSE
		reissuecode = getid(scid,ls_sccode + 'FS',Date(server_dt),if_getid_ture,commit_transaction)
	END IF
	
	IF reissuecode = "err" THEN
		reissuecode = ''
		rslt = 0
		arg_msg = "无法获取单据编号"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	INSERT INTO u_reissue (
		scid,
		reissueid,
		reissuecode,
		cusid,
		reissuedate,
		relid,
		relcode,
		dscrp,
		opdate,
		opemp,
		flag,
		reissueemp,
		type,
		moneyid,
		itemid)
		VALUES (
		:scid,
		:ls_newid,
		:reissuecode,
		:cusid,
		:reissuedate,
		:relid,
		:relcode,
		:dscrp,
		:server_dt,
		:publ_operator,
		:flag,
		:reissueemp,
		:r_type,
		:moneyid,
		:itemid) USING commit_transaction ;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		
		IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_reissue') > 0 THEN
			arg_msg = '插入操作失败,关键字单据ID重复'
		ELSEIF Pos(Lower(commit_transaction.SQLErrText),'IX_u_reissue') > 0 THEN
			arg_msg = '插入操作失败,关键字单据编号重复'
		ELSE
			arg_msg = "因网络或其它原因导致插入操作失败"+"~n"+commit_transaction.SQLErrText
		END IF
		
		GOTO ext
	END IF
	
	//读取新reissueid
	reissueid = ls_newid
	
	FOR i = 1 TO it_mxbt
		INSERT INTO u_reissuemx
			(scid,
			reissueid,
			mtrlid,
			printid,
			qty,
			price,
			amt,
			dscrp,
			mtrlname)
			VALUES (
			:scid,
			:ls_newid,
			:reissuemx[i].mtrlid,
			:reissuemx[i].printid,
			:reissuemx[i].qty,
			:reissuemx[i].price,
			:reissuemx[i].amt,
			:reissuemx[i].mxdscrp,
			:reissuemx[i].mtrlname) USING commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
		//	reissueid = 0 //还原reissueid
			rslt = 0
			
			IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_reissuemx') > 0 THEN
				arg_msg = '插入明细操作失败,关键字单据ID,序号重复'
			ELSE
				arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText
			END IF
			
			GOTO ext
		END IF
	NEXT
ELSE //////////////////////////////////////////////// //更新
	UPDATE u_reissue
		SET cusid = :cusid,
		reissuedate = :reissuedate,
		relid = :relid,
		relcode = :relcode,
		dscrp = :dscrp,
		moddate = : server_dt,
		modemp = :publ_operator,
		reissueemp = :reissueemp,
		type = :r_type,
		moneyid = :moneyid,
		itemid = :itemid
		WHERE u_reissue.reissueid = :reissueid
		AND u_reissue.scid = :scid
		AND flag = 0 USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 OR commit_transaction.SQLNRows <= 0 THEN
		rslt = 0
		arg_msg = "因网络或其它原因导致更新单据操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	//删除原有明细
	DELETE FROM u_reissuemx
		WHERE u_reissuemx.reissueid = :reissueid
		AND u_reissuemx.scid = :scid USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "删除旧有明细操作失败"+"~n"+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	FOR i = 1 TO it_mxbt
		INSERT INTO u_reissuemx
			(scid,
			reissueid,
			mtrlid,
			printid,
			qty,
			price,
			amt,
			dscrp,
			mtrlname)
			VALUES (
			:scid,
			:reissueid,
			:reissuemx[i].mtrlid,
			:reissuemx[i].printid,
			:reissuemx[i].qty,
			:reissuemx[i].price,
			:reissuemx[i].amt,
			:reissuemx[i].mxdscrp,
			:reissuemx[i].mtrlname) USING commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_reissuemx') > 0 THEN
				arg_msg = '插入明细操作失败,关键字单据ID,序号重复'
			ELSE
				arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText
			END IF
			GOTO ext
		END IF
	NEXT
END IF

it_newbegin = FALSE
it_updatebegin = FALSE

ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
	p_clearmx()
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF
RETURN rslt








end function

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

IF arg_reissueid <= 0 THEN
	rslt = 0
	arg_msg = "非法补件单唯一码"
	GOTO ext
END IF
sumamt = 0
rslt = p_getinfo(arg_scid,arg_reissueid,arg_msg)
IF rslt = 0 THEN GOTO ext

//用游标读取明细

IF r_type = 0 THEN
	DECLARE cur_inwaermx_0 CURSOR FOR
		SELECT u_reissuemx.printid,
		u_reissuemx.mtrlid,
		u_mtrldef.mtrlcode,
		u_mtrldef.mtrlname,
		u_reissuemx.qty,
		u_reissuemx.price,
		u_reissuemx.dscrp,
		u_reissuemx.amt,
		u_reissuemx.relid
		FROM u_reissuemx left OUTER join u_mtrldef on
		u_reissuemx.mtrlid = u_mtrldef.mtrlid
		WHERE u_reissuemx.reissueid = :arg_reissueid  AND
		u_reissuemx.scid = :arg_scid  USING commit_transaction;
		
	OPEN cur_inwaermx_0;
	FETCH cur_inwaermx_0 INTO :reissuemx[i].printid,
		:reissuemx[i].mtrlid,:reissuemx[i].mtrlcode,
		:reissuemx[i].mtrlname,:reissuemx[i].qty,
		:reissuemx[i].price,
		:reissuemx[i].mxdscrp,
		:reissuemx[i].amt,
		:reissuemx[i].relid;
	DO WHILE commit_transaction.SQLCode = 0
		
		sumamt += reissuemx[i].amt
		
		i++
		
		FETCH cur_inwaermx_0 INTO :reissuemx[i].printid,
			:reissuemx[i].mtrlid,:reissuemx[i].mtrlcode,
			:reissuemx[i].mtrlname,:reissuemx[i].qty,
			:reissuemx[i].price,
			:reissuemx[i].mxdscrp,
			:reissuemx[i].amt,
			:reissuemx[i].relid;
	LOOP
	CLOSE cur_inwaermx_0;
ELSEIF r_type = 1 THEN
	DECLARE cur_inwaermx_1 CURSOR FOR
		SELECT u_reissuemx.printid,
		u_reissuemx.mtrlid,
		U_Expenses.Expensescode,
		U_Expenses.Expensesname,
		u_reissuemx.qty,
		u_reissuemx.price,
		u_reissuemx.dscrp,
		u_reissuemx.amt,
		u_reissuemx.relid
		FROM u_reissuemx left OUTER join U_Expenses on
		u_reissuemx.mtrlid = U_Expenses.Expensesid
		WHERE u_reissuemx.reissueid = :arg_reissueid  AND
		u_reissuemx.scid = :arg_scid  USING commit_transaction;
		
	OPEN cur_inwaermx_1;
	FETCH cur_inwaermx_1 INTO :reissuemx[i].printid,
		:reissuemx[i].mtrlid,:reissuemx[i].mtrlcode,
		:reissuemx[i].mtrlname,:reissuemx[i].qty,
		:reissuemx[i].price,
		:reissuemx[i].mxdscrp,
		:reissuemx[i].amt,
		:reissuemx[i].relid;
	DO WHILE commit_transaction.SQLCode = 0
		
		sumamt += reissuemx[i].amt
		
		i++
		
		FETCH cur_inwaermx_1 INTO :reissuemx[i].printid,
			:reissuemx[i].mtrlid,:reissuemx[i].mtrlcode,
			:reissuemx[i].mtrlname,:reissuemx[i].qty,
			:reissuemx[i].price,
			:reissuemx[i].mxdscrp,
			:reissuemx[i].amt,
			:reissuemx[i].relid;
	LOOP
	CLOSE cur_inwaermx_1;
	
ELSEIF r_type = 2 THEN
	DECLARE cur_inwaermx_2 CURSOR FOR
		SELECT u_reissuemx.printid,
		u_reissuemx.mtrlid,
		U_Expenses.Expensescode,
		u_reissuemx.mtrlname,
		u_reissuemx.qty,
		u_reissuemx.price,
		u_reissuemx.dscrp,
		u_reissuemx.amt,
		u_reissuemx.relid
		FROM u_reissuemx left OUTER join U_Expenses on
		u_reissuemx.mtrlid = U_Expenses.Expensesid
		WHERE u_reissuemx.reissueid = :arg_reissueid  AND
		u_reissuemx.scid = :arg_scid  USING commit_transaction;
		
	OPEN cur_inwaermx_2;
	FETCH cur_inwaermx_2 INTO :reissuemx[i].printid,
		:reissuemx[i].mtrlid,:reissuemx[i].mtrlcode,
		:reissuemx[i].mtrlname,:reissuemx[i].qty,
		:reissuemx[i].price,
		:reissuemx[i].mxdscrp,
		:reissuemx[i].amt,
		:reissuemx[i].relid;
	DO WHILE commit_transaction.SQLCode = 0
		
		sumamt += reissuemx[i].amt
		
		i++
		
		FETCH cur_inwaermx_2 INTO :reissuemx[i].printid,
			:reissuemx[i].mtrlid,:reissuemx[i].mtrlcode,
			:reissuemx[i].mtrlname,:reissuemx[i].qty,
			:reissuemx[i].price,
			:reissuemx[i].mxdscrp,
			:reissuemx[i].amt,
			:reissuemx[i].relid;
	LOOP
	CLOSE cur_inwaermx_2;
END IF

//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck
	FROM u_reissuemx
	WHERE u_reissuemx.reissueid = :arg_reissueid
	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

reissueid = arg_reissueid
scid = arg_scid

it_mxbt = i - 1
it_newbegin = FALSE
it_updatebegin = FALSE
ext:
IF rslt = 0 THEN p_reset()
RETURN rslt




end function

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

IF arg_reissueid <= 0 THEN
	rslt = 0
	arG_MSG = "非法补件单唯一码"
	GOTO ext
END IF

SELECT  u_reissue.reissuecode,
	u_reissue.cusid,
	u_reissue.cuscode,
	u_reissue.cusname,
	u_reissue.reissuedate,
	u_reissue.relid,
	u_reissue.relcode,
	u_reissue.dscrp,
	u_reissue.flag,
	u_reissue.reissueemp,
	u_reissue.type,
	u_reissue.moneyid,
	u_reissue.relint_3,
	u_reissue.itemid,
	u_reissue.cwauditingflag,
	u_reissue.cwauditingrep,
	u_reissue.cwauditingdate
	INTO :reissuecode,
	:cusid,
	:cuscode,
	:cusname,
	:reissuedate,
	:relid,
	:relcode,
	:dscrp,
	:flag,
	:reissueemp,
	:r_type,
	:moneyid,
	:relint_3,
	:itemid,
	:cwauditingflag,
	:cwauditingrep,
	:cwauditingdate
	FROM u_reissue
	WHERE u_reissue.reissueid = :arg_reissueid
	AND scid = :arg_scid
	USING commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arG_MSG = "查询操作失败(错误补件单唯一码),补件单"+commit_transaction.SQLErrText
	GOTO ext
END IF

reissueid = arg_reissueid
scid = arg_scid

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,ll_i
//DateTime ld_viewdate
//SetNull(ld_viewdate)
uo_musttake  uo_take
uo_mustpay uo_pay

uo_take = CREATE uo_musttake
uo_pay = CREATE uo_mustpay

String ls_about,ls_dscrp
Decimal ld_takeamt = 0,ld_msttakeamt = 0
Decimal ld_payamt = 0,ld_mstpayamt = 0

IF reissueid = 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


Int li_btype
Long ll_accountsid
SELECT btype,accountsid INTO :li_btype,:ll_accountsid
	FROM cw_banktype
	Where banktypeid = :relid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询结算方式类型失败,'+ commit_transaction.SQLErrText
	GOTO ext
END IF

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


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

IF r_type = 0 THEN //补件单
	
	IF sumamt <> 0 THEN
		ls_about = reissuecode + "补件款"
		
		ls_dscrp = ls_about
		ld_msttakeamt = sumamt
		IF li_btype = 1 THEN
			ld_takeamt = ld_msttakeamt
		ELSE
			ld_takeamt = 0
		END IF
		
		s_bmsttake s_take
		
		s_take.scid = scid
		s_take.cusid = cusid
		s_take.takedate = reissuedate
		s_take.inrep = reissueemp
		s_take.oriamt = ld_msttakeamt
		s_take.msttakeamt = ld_msttakeamt
		s_take.takeamt = ld_takeamt
		s_take.dscrp = ls_dscrp
		s_take.billcode = reissuecode
		s_take.banktypeid = relid
		s_take.opemp = publ_operator
		s_take.buildtype = 1
		s_take.outwareid = reissueid
		s_take.accountsid = ll_accountsid
		s_take.itemid = itemid
		s_take.moneyid = moneyid
		
		//		IF uo_take.add_takerec (s_take,arg_msg,FALSE) = 0  THEN
		//			rslt = 0
		//			GOTO ext
		//		END IF
		
		IF uo_take.add_takerec(scid,cusid,reissuedate,reissueemp,ld_msttakeamt,Round(ld_msttakeamt,sys_saleamt_round),Round(ld_takeamt,sys_saleamt_round),ls_dscrp,&
			reissuecode,relid,1,publ_operator,reissueid,0,arg_msg,FALSE,reissuedate,ll_accountsid,itemid,moneyid,relcode) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		UPDATE u_reissue
			SET relint_3 = :uo_take.ref_takeid
			WHERE u_reissue.reissueid = :reissueid
			AND scid = :scid
			AND flag = 1 USING commit_transaction;
			
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '更新补件单相关应收帐ID失败'
			rslt = 0
			GOTO ext
		END IF
	END IF
ELSEIF  r_type = 1 THEN //费用单
	
	FOR ll_i = 1 TO it_mxbt
		
		IF reissuemx[ll_i].amt <> 0 THEN
			
			IF Trim(reissuemx[ll_i].mxdscrp) = '' THEN
				ls_about = reissuecode + ',' + reissuemx[ll_i].mtrlname
			ELSE
				ls_about = reissuecode + ',' + reissuemx[ll_i].mtrlname + ',' + reissuemx[ll_i].mxdscrp
			END IF
			
			ls_dscrp = ls_about
			ld_msttakeamt = 0 - reissuemx[ll_i].amt
			IF li_btype = 1 THEN
				ld_takeamt = ld_msttakeamt
			ELSE
				ld_takeamt = 0
			END IF
			
			s_bmsttake s_take2
			
			s_take2.scid = scid
			s_take2.cusid = cusid
			s_take2.takedate = reissuedate
			s_take2.inrep = reissueemp
			s_take2.oriamt = ld_msttakeamt
			s_take2.msttakeamt = ld_msttakeamt
			s_take2.takeamt = ld_takeamt
			s_take2.dscrp = ls_dscrp
			s_take2.billcode = reissuecode
			s_take2.banktypeid = relid
			s_take2.opemp = publ_operator
			s_take2.buildtype = 1
			s_take2.outwareid = reissueid
			s_take2.accountsid = ll_accountsid
			s_take2.itemid = itemid
			s_take2.moneyid = moneyid
			
			
			//			IF uo_take.add_takerec (s_take2,arg_msg,FALSE) = 0  THEN
			//				rslt = 0
			//				GOTO ext
			//			END IF
			IF uo_take.add_takerec(scid,cusid,reissuedate,reissueemp,ld_msttakeamt,Round(ld_msttakeamt,sys_saleamt_round),Round(ld_takeamt,sys_saleamt_round),ls_dscrp,&
				reissuecode,relid,1,publ_operator,reissueid,0,arg_msg,FALSE,reissuedate,ll_accountsid,itemid,moneyid,relcode) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			
			UPDATE u_reissuemx
				SET relid = :uo_take.ref_takeid
				FROM u_reissuemx,u_reissue
				WHERE u_reissuemx.reissueid = :reissueid
				AND u_reissuemx.printid = :reissuemx[ll_i].printid
				AND u_reissuemx.scid = :scid
				AND u_reissuemx.scid = u_reissue.scid
				AND u_reissuemx.reissueid = u_reissue.reissueid
				AND u_reissue.flag = 1 USING commit_transaction;
				
			IF commit_transaction.SQLCode <> 0 THEN
				arg_msg = '更新费用单相关应收帐ID失败'
				rslt = 0
				GOTO ext
			END IF
		END IF
	NEXT
ELSEIF  r_type = 2 THEN //?
	FOR ll_i = 1 TO it_mxbt
		IF Trim(reissuemx[ll_i].mxdscrp) = '' THEN
			ls_about = reissuecode + ',' + reissuemx[ll_i].mtrlname
		ELSE
			ls_about = reissuecode + ',' + reissuemx[ll_i].mtrlname + ',' + reissuemx[ll_i].mxdscrp
		END IF
		
		ls_dscrp = ls_about
		
		ld_mstpayamt = reissuemx[ll_i].amt
		
		IF li_btype = 1 THEN
			ld_payamt = ld_mstpayamt
		ELSE
			ld_payamt = 0
		END IF
		
		s_bmstpay s_pay
		s_pay.scid = scid
		s_pay.sptid = cusid
		s_pay.paydate = reissuedate
		s_pay.inrep = reissueemp
		s_pay.oriamt = ld_mstpayamt
		s_pay.mstpayamt = ld_mstpayamt
		s_pay.payamt = ld_payamt
		s_pay.dscrp = ls_dscrp
		s_pay.billcode = reissuecode
		s_pay.banktypeid = relid
		//s_pay.viewdate 
		s_pay.opemp = publ_operator
		s_pay.buildtype = 1
		s_pay.inwareid = reissueid
		s_pay.accountsid = ll_accountsid
		s_pay.itemid = itemid
		
		//		IF uo_pay.add_payrec (s_pay,arg_msg,FALSE) = 0  THEN
		//			rslt = 0
		//			GOTO ext
		//		END IF
		
		DateTime plandate
		SetNull(plandate)
		IF uo_pay.add_payrec (scid,cusid,reissuedate,reissueemp,ld_mstpayamt,ld_mstpayamt,ld_payamt,ls_dscrp,&
			reissuecode,relid,1,publ_operator,reissueid,0,arg_msg,FALSE,plandate,ll_accountsid,itemid,moneyid ,relcode) = 0  THEN
			rslt = 0
			GOTO ext
		END IF
		
		UPDATE u_reissuemx
			SET relid = :uo_pay.ref_payid
			FROM u_reissuemx,u_reissue
			WHERE u_reissuemx.reissueid = :reissueid
			AND u_reissuemx.printid = :reissuemx[ll_i].printid
			AND u_reissuemx.scid = :scid
			AND u_reissuemx.scid = u_reissue.scid
			AND u_reissuemx.reissueid = u_reissue.reissueid
			AND u_reissue.flag = 1 USING commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			arg_msg = '更新相关应收帐ID失败'
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF
flag = 1

ext:
DESTROY uo_take
DESTROY uo_pay
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF
reissueid = 0 //还原reissueid
RETURN rslt





end function

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

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