IE cahcar error en treger al eliminar

App_Code/ClsBancos.vb

@@ -173,6 +173,9 @@ Public Class ClsBancos
     Public Property FacturaDescripcion As String
     Public Property FacturaFecha As Date
 #End Region
+
+
+
     Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
 
         If TransaccionCompartida Is Nothing Then
@@ -240,6 +243,18 @@ Public Class ClsBancos
     End Sub
 #End Region
 
+
+
+    Public Function ExisteConeccion() As Boolean
+
+        If SqlTransacc.Connection Is Nothing Then
+            Return False
+        Else
+            Return True
+        End If
+
+    End Function
+
     Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlCommand
             .Parameters.Clear()
@@ -1613,17 +1628,20 @@ Public Class ClsBancos
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveIE", SqlDbType.Int).Value = CveIE
+            .Add("@TerminoCorrecto", SqlDbType.Bit).Direction = ParameterDirection.Output
         End With
 
         Try
             SqlAdapter.Fill(Data)
-            Retorno = True
+
+
+            Retorno = Boolean.Parse(SqlAdapter.SelectCommand.Parameters("@TerminoCorrecto").Value.ToString)
+
+
             'Catch Ex1 As SqlException
-            '	If Ex1.Message.Contains("Número: 2627;") Then
-            '		Alert("Ya existe un Banco con el mismo nombre: " & Banco & ".", TipoMensaje.MsgAdvertencia)
-            '	Else
+
             '    Me.OnError("Ocurrió un error al guardar los cambios en el Banco", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            '	End If
+
         Catch ex As Exception
             OnError("Ocurrió un error al cancelar el movimiento en bancos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try

Bancos/IE.aspx.vb

@@ -4752,13 +4752,26 @@ Partial Class Bancos_IE
                 End If
 
                 If Not ErrorCompra Then
-                    Alert("El documento bancario quedó eliminado.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
+
                     If ObjAC IsNot Nothing Then ObjAC.Commit()
+
+                    If Banc.ExisteConeccion Then
                         Banc.Commit()
+                        Alert("El documento bancario quedó eliminado.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
+                    End If
+
                 Else
+
                     Alert("El documento no ha sido eliminado.", TipoMensaje.MsgAdvertencia)
+
                     If ObjAC IsNot Nothing Then ObjAC.RollBack()
+
+                    If Banc.ExisteConeccion Then
                         Banc.RollBack()
+
+
+                    End If
+
                 End If
 
                 If ObjAC IsNot Nothing Then ObjAC.Dispose()