From 093d511a6caec84838698b38e36bed20766f03b4 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 31 Dec 2020 14:17:32 -0700
Subject: [PATCH] cuentas de bancos se actualizan con estatus del banco

---
 App_Code/ClsBancos.vb    | 15 +++++++++++++++
 Bancos/CatBancos.aspx.vb | 25 ++++++++++++++++++++-----
 2 files changed, 35 insertions(+), 5 deletions(-)

diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index a2129f8a1..4e3b0b213 100644
--- a/App_Code/ClsBancos.vb
+++ b/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")
diff --git a/Bancos/CatBancos.aspx.vb b/Bancos/CatBancos.aspx.vb
index 9a57ab193..0aee43f9b 100644
--- a/Bancos/CatBancos.aspx.vb
+++ b/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()