From 2b0fdf5e8816ca2cf1884bdba7cd10d2584026da Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 22 Feb 2023 09:21:58 -0700
Subject: [PATCH] cambio en globalDTdepositos

---
 Bancos/ProveedoresAbonar.aspx.vb |  2 +-
 Ventas/Clientes.aspx.vb          |  2 +-
 Ventas/ClientesAbonar.aspx.vb    | 26 +++++++++++++-------------
 3 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index d96237c96..1160ede4b 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1400,7 +1400,7 @@ Partial Class Bancos_ProveedoresAbonar
 
     Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
 
-        Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor)
+        Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero)
         If dtc IsNot Nothing AndAlso dtc.Rows.Count = 1 Then
 
             If dtc.Rows.Count > 0 Then
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 0ee976b6b..6b33e261a 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -6753,7 +6753,7 @@ Partial Class Clientes
     Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
         If CveCliente > 0 Then
 
-            GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing
+            GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1) = Nothing
 
         End If
     End Sub
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index b95bf73dc..ac075bd59 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -2235,30 +2235,29 @@ Partial Class Ventas_ClientesAbonar
         If DdlTipoTransaccion.SelectedValue > 0 Then ' transferencias y layout
             trCuentaDeposito.Visible = False
 
-            Dim Dep As New ClsGenerales
-            If Dep.GetCuentasDepositos(CveCliente:=CveCliente) Then
+            Dim dtc As DataTable = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente)
+
+            If dtc IsNot Nothing Then
                 If DdlTipoTransaccion.SelectedValue = "9" Then
 
-                    DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
+                    DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
 
-                    If Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then
+                    If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then
                         trCuentaDeposito.Visible = True
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     Else
                         BtnIEGuardar.Enabled = False
                         Alert("El Cliente no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia)
                     End If
-
                 Else
-                    DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
-                    If Dep.DtResultados.Rows.Count >= 1 Then
+                    DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'")
+                    If dtc.Rows.Count >= 1 Then
                         trCuentaDeposito.Visible = True
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     End If
                 End If
 
             End If
-            Dep.Dispose()
             DdlCuentaDeposito.DataBind()
         Else
             trCuentaDeposito.Visible = False
@@ -2280,16 +2279,17 @@ Partial Class Ventas_ClientesAbonar
         CargaCuentasDepositos()
     End Sub
     Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
-        Dim Dep As New ClsGenerales
-        If Dep.GetCuentasDepositos(CveCliente:=CveCliente, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then
-            If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then
+        Dim dtc As DataTable = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero)
+
+        If dtc IsNot Nothing AndAlso dtc.Rows.Count = 1 Then
+            If dtc.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then
                 TrReferenciaCIE.Visible = True
-                TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString
+                TxtReferenciaCIE.Text = dtc.Rows(0)("Referencia").ToString
             Else
                 TrReferenciaCIE.Visible = False
             End If
         End If
-        Dep.Dispose()
+
         UpCuentaDeposito.Update()
     End Sub
 #End Region