cuentas de bancos se actualizan con estatus del banco

Bancos/CatBancos.aspx.vb

@@ -119,6 +119,7 @@ Partial Class Bancos_CatBancos
     Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
 
         Dim ObjBancos As New ClsBancos
+        ObjBancos.IniciaTransacSQL()
 
         Dim Banco As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtBanco"), TextBox).Text.Trim
         Dim Ejecutivo As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtEjecutivo"), TextBox).Text.Trim
@@ -126,13 +127,27 @@ Partial Class Bancos_CatBancos
         Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
         Dim CveBanco As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
 
+        Dim TieneError As Boolean = False
 
         If ObjBancos.UpdateBancos(Banco, Ejecutivo, Telefono, Estatus, CveBanco) Then
-            GvDatos.EditIndex = -1
-            ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTBancos = ObjBancos.DtResultados
-            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+            If ObjBancos.InhabilitarCuentasBancos(CveBanco, Estatus) Then
+                GvDatos.EditIndex = -1
+                ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                GlobalDTBancos = ObjBancos.DtResultados
+                Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+            Else
+                TieneError = True
+            End If
+        Else
+            TieneError = True
+        End If
+
+        If TieneError Then
+            ObjBancos.RollBack()
+        Else
+            ObjBancos.Commit()
+            GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
         End If
 
         ObjBancos.Dispose()