Q5/ws_objects/Ew_sms.pbl.src/uo_spring_sendway.sru

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

global type uo_spring_sendway from nonvisualobject
end type
global uo_spring_sendway uo_spring_sendway

type variables
Transaction  commit_transaction //数据commit事务
end variables

forward prototypes
public function integer uf_save (ref s_spring_sendway arg_s_sendway, ref string arg_msg)
public function integer uf_del (long arg_sendwayid, ref string arg_msg)
end prototypes

public function integer uf_save (ref s_spring_sendway arg_s_sendway, ref string arg_msg);Int rslt = 1
IF IsNull(arg_s_sendway.sendwayid) THEN arg_s_sendway.sendwayid = 0
IF IsNull(arg_s_sendway.sendwaytype) THEN arg_s_sendway.sendwaytype = 0
IF IsNull(arg_s_sendway.url) THEN arg_s_sendway.url = ''
IF IsNull(arg_s_sendway.sn) THEN arg_s_sendway.sn = ''
IF IsNull(arg_s_sendway.psw) THEN arg_s_sendway.psw = ''
IF IsNull(arg_s_sendway.sendwayname) THEN arg_s_sendway.sendwayname = ''

IF arg_s_sendway.sendwayid = 0 THEN
	Long ll_sendwayid
	ll_sendwayid = f_sys_scidentity(0,"u_spring_sendway","sendwayid",arg_msg,True,id_sqlca)
	IF ll_sendwayid = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	INSERT INTO u_spring_sendway(sendwayid,
		sendwaytype,
		url,
		sn,
		psw,
		sendwayname)
		VALUES(:ll_sendwayid,
		:arg_s_sendway.sendwaytype,
		:arg_s_sendway.url,
		:arg_s_sendway.sn,
		:arg_s_sendway.psw,
		:arg_s_sendway.sendwayname) Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '插入短信通道失败,' + commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	arg_s_sendway.sendwayid = ll_sendwayid
	
ELSE
	
	Long ll_cnt
	SELECT COUNT(0)
		INTO :ll_cnt
		FROM u_spring_sendway
		WHERE sendwayid = :arg_s_sendway.sendwayid
		Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询短信通道失败,' + commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	IF ll_cnt = 0 THEN
		rslt = 0
		arg_msg = '短信通道已经被删除,请刷新后再试'
		GOTO ext
	END IF
	
	UPDATE u_spring_sendway SET
		sendwaytype = :arg_s_sendway.sendwaytype,
		url = :arg_s_sendway.url,
		sn = :arg_s_sendway.sn,
		psw = :arg_s_sendway.psw,
		sendwayname = :arg_s_sendway.sendwayname
		WHERE sendwayid = :arg_s_sendway.sendwayid
		Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '' + commit_transaction.SQLErrText
		GOTO ext
	END IF
	
END IF

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

RETURN rslt



end function

public function integer uf_del (long arg_sendwayid, ref string arg_msg);Int rslt = 1

Long ll_cnt
SELECT COUNT(0)
	INTO :ll_cnt
	FROM u_spring_sendway
	WHERE sendwayid = :arg_sendwayid
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询短信通道失败,' + commit_transaction.SQLErrText
	GOTO ext
END IF

IF ll_cnt = 0 THEN
	rslt = 0
	arg_msg = '短信通道已经被删除,请刷新后重试'
	GOTO ext
END IF

DELETE From u_spring_sendway Where sendwayid = :arg_sendwayid Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '删除短信通道失败,' + commit_transaction.SQLErrText
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSE
	COMMIT Using commit_transaction;
END IF
RETURN rslt


end function

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

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