错误处理

           set  ANSI_NULLS  ON
set  QUOTED_IDENTIFIER  ON
go


ALTER   Procedure   [ dbo ] . [ prInsertLeasedAsset_6 ]
--  Insert leased asset and update total in LeaseSchedule.
    (
         @intEquipmentId   int ,
         @intLocationId   int ,
         @intStatusId   int ,
         @intLeaseId   int ,
         @intLeaseScheduleId   int ,    
         @intOwnerId   int , 
         @mnyLease   money ,        
         @intAcquisitionTypeID   int ,
         @intInventoryId   int  OUTPUT
    )
As
set  nocount  on
SET  XACT_ABORT  ON -- 当SQL SERVER在出现错误时候回滚整个事务
Declare   @intErrorCode   int ,
         @intTransactionCountOnEntry   int

Select   @intErrorCode   =   @@Error

If   @intErrorCode   =   0   and   @@trancount   =   0 --
Begin
     Select   @intTransactionCountOnEntry   =   @@TranCount
     BEGIN   TRANSACTION
End

If   @intErrorCode   =   0
begin
     --  insert asset
     insert  Inventory(EquipmentId,     LocationId,              StatusId, 
                     LeaseId,         LeaseScheduleId,         OwnerId, 
                     Lease,           AcquisitionTypeID)
     values  (          @intEquipmentId ,  @intLocationId ,           @intStatusId ,
                      @intLeaseId ,      @intLeaseScheduleId ,      @intOwnerId , 
                      @mnyLease ,        @intAcquisitionTypeID )
     Select   @intErrorCode   =   @@Error ,
            @intInventoryId   =   @@identity
end

If   @intErrorCode   =   0
begin
     --  update total
     update  LeaseSchedule
     Set  PeriodicTotalAmount  =  PeriodicTotalAmount  +   @mnyLease
     where  LeaseId  =   @intLeaseId
     Select   @intErrorCode   =   @@Error
end

If   @@TranCount   >   @intTransactionCountOnEntry
Begin
     If   @intErrorCode   =   0
         COMMIT   TRANSACTION
     Else
         ROLLBACK   TRANSACTION
End

return   @intErrorCode