一个关于支付的SQL-Procedure

今天测试了一下，昨天的没过,重新改了一下

------------------------------------
--用途：增加一条记录
--项目名称：CodematicDemo
--说明：
--时间：2009-10-28 11:03:09
------------------------------------
Create PROCEDURE [dbo].[UP_RegPay_ADD]
@RID int output,
@R_UserName nvarchar(500),
@R_UserType int,
@R_PayMoney money,
@R_CommissionMoney money,
@R_RegUserIP nvarchar(50),
@R_RegDate datetime,
@R_Remarks nvarchar(4000)

AS
Declare @ErrorMessage varchar(1000),@R_PayBankName nvarchar(250),
@R_PayBankNumer varchar(100),@R_PayBankAddress varchar(1000),
@R_PayBankUserName varchar(150),@R_PayLog nvarchar(4000),
@returnValue int

Set @returnValue=0
Set @R_PayLog = Convert(varchar,@R_RegDate,20)+':用户'+@R_UserName+'申请账户提现,提现金额:'+Convert(varchar,@R_PayMoney,1)+',手续费:'+
Convert(varchar,@R_CommissionMoney,1)
Set @R_PayLog = @R_PayLog + ',备注:'+@R_Remarks
--Set @ErrorMessage = '操作失败,SQL错误,错误号:'
Begin Transaction
IF @R_UserType = 1
Begin
Update [WebSiteHost] Set
[Money] = [Money] - @R_PayMoney - @R_CommissionMoney,[W_FreezingMoney] = [W_FreezingMoney] + @R_PayMoney
Where [Money] > @R_PayMoney + @R_CommissionMoney And [Appearance] = 1 And [UserName] = @R_UserName

if @@rowCount < 1 Or @@Error <> 0 GOTO Error

Select @R_PayBankName = [Bank],@R_PayBankNumer = [CardNumber],@R_PayBankAddress = [BankAddress],@R_PayBankUsername=[BankName]
From [WebSiteHost] Where [Appearance] = 1 And [UserName] = @R_UserName

if @R_PayBankNumer is null or @@error <> 0 GOTO Error

INSERT INTO [RegPay](
[R_UserName],[R_UserType],[R_PayMoney],[R_CommissionMoney],[R_RegUserIP],[R_RegDate],
[R_Remarks],[R_PayLog],[R_PayBankName],[R_PayBankNumer],[R_PayBankAddress],[R_PayBankUserName]
)VALUES(
@R_UserName,@R_UserType,@R_PayMoney,@R_CommissionMoney,@R_RegUserIP,@R_RegDate,
@R_Remarks,@R_PayLog,@R_PayBankName,@R_PayBankNumer,@R_PayBankAddress,@R_PayBankUserName
)

if @@rowCount < 1 Or @@Error <> 0 GOTO Error

SET @RID = @@IDENTITY

Set @ErrorMessage = '提现申请成功'
Set @returnValue = 1
Exec [UP_FinanceLogin_ADD] null,'1','申请提现',@R_UserName,@R_RegDate,@R_RegUserIP,'','',@ErrorMessage
End
Commit Transaction
return 0
Error:
Set @ErrorMessage = '提现申请操作失败,SQL错误,错误号:' + str(@@Error)
Set @RID = 0
Exec [UP_FinanceLogin_ADD] null,'1','申请提现',@R_UserName,@R_RegDate,@R_RegUserIP,'','',@ErrorMessage
RollBack Transaction --回滚操作
--记录操作