cuentas de bancos se actualizan con estatus del banco

App_Code/ClsBancos.vb

@@ -4463,6 +4463,21 @@ Public Class ClsBancos
         Return Retorno
     End Function
 
+    Public Function InhabilitarCuentasBancos(CveBanco As Integer, Estatus As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_InhabilitarCuentas")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveBanco", SqlDbType.Int).Value = CveBanco
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al inhabilitar las Cuentas Bancarias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
     Public Function GetBancosSAT() As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Nom_Sat_BancosGet")

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()