再来一个。。

ALTER PROC [dbo].[sp_OrderOperaIntroUpdate]
(
 @Order_ID Numeric(24, 0), --订单号
 @Status Char(1),   --订单状态
 @Letter VarChar(4000),  --备注说明
 @System_UserID Int,   --后台用户ID
 @ErrNum Int OutPut,    --返回错误代码
 @ErrMsg VarChar(200) OutPut  --返回错误信息
)
 
As
Begin Tran OrderOperaIntroUpdate
--定义变量-----------------------------------------------------------------------------------------------------
 Declare @Order_OperaIntro VarChar(4000)
 Declare @Status_Name VarChar(50)
 Declare @System_UserName VarChar(200)
---------------------------------------------------------------------------------------------------------------

--初始变量-----------------------------------------------------------------------------------------------------
 Set @ErrNum = 0
 Set @ErrMsg = ''
---------------------------------------------------------------------------------------------------------------

 Select @Order_OperaIntro = Order_OperaIntro From Order_Info Where Order_ID = @Order_ID
 If @@RowCount = 0
 Begin
  Set @ErrNum = 101
  Set @ErrMsg = '订单不存在'
  Goto theEnd
 End
 Select @Status_Name = Status_Name From System_Status Where [Status] = @Status And Status_Class = 'Order_Status'
 If @@RowCount = 0
 Begin
  Set @ErrNum = 102
  Set @ErrMsg = '订单状态数据读取错误'
  Goto theEnd
 End
 Select @System_UserName = User_RealName From System_Users Where [User_ID] = @System_UserID
 If @@RowCount = 0
 Begin
  Set @ErrNum = 103
  Set @ErrMsg = '后台用户不存在'
  Goto theEnd
 End
 If @Order_OperaIntro <> '' And @Order_OperaIntro Is Not Null Set @Order_OperaIntro = @Order_OperaIntro + '<BR/>'
 Set @Order_OperaIntro = IsNull(@Order_OperaIntro, '') + Convert(VarChar(19), GetDate(), 121) + ' ' + @System_UserName + '<BR/><span class="mark">[' + @Status_Name + ']</span> <span class="money">' + @Letter + '</span>'
 Update Order_Info Set Order_OperaIntro = @Order_OperaIntro Where Order_ID = @Order_ID
 If @@Error <> 0
 Begin
  Set @ErrNum = 104
  Set @ErrMsg = '执行更新订单后台备注失败'
  Goto theEnd
 End

--异常处理-----------------------------------------------------------------------------------------------------
theEnd:
 If @@Error = 0
 Begin
  Commit Tran
  Return
 End
 Else
 Begin
  If @@TranCount > 1
   Commit Tran OrderOperaIntroUpdate
  Else
   Rollback Tran OrderOperaIntroUpdate
  Return
 End