From 98e1d6f97fb28d9d3f8e08f25dcaba00b9bb0611 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Thu, 18 Jun 2020 21:25:32 -0700
Subject: [PATCH] -globaldtcuentas despostios

---
 Bancos/IE.aspx.vb                   |  2 +-
 Bancos/MovimientosBancarios.aspx.vb |  4 ++--
 Ventas/Clientes.aspx.vb             | 18 +++++++-----------
 3 files changed, 10 insertions(+), 14 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index c8a70dd0d..bd81b0c7c 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -4742,7 +4742,7 @@ Partial Class Bancos_IE
         If CveProveedor > 0 Then
             Dim ObjCuentasBancos As New ClsGenerales
 
-            If ObjCuentasBancos.GetCuentasDepositos() Then
+            If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
                 GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
             End If
             ObjCuentasBancos.Dispose()
diff --git a/Bancos/MovimientosBancarios.aspx.vb b/Bancos/MovimientosBancarios.aspx.vb
index a750829c5..ff1c36c07 100644
--- a/Bancos/MovimientosBancarios.aspx.vb
+++ b/Bancos/MovimientosBancarios.aspx.vb
@@ -151,7 +151,7 @@ Partial Class Bancos_MovimientosBancarios
             If GvProveedores.Rows(i).FCCheckBox("CheckAgregar").Checked = True Then
                 DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = {0}", GvProveedores.Rows(i).DataKey("CveProveedor")))
 
-                If ObjCuentasBancos.GetCuentasDepositos(21109) Then
+                If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21109) Then
                     DTProveedorBancos = ObjCuentasBancos.DtResultados
                     RowBanco = DTProveedorBancos.Rows(0)
                 Else
@@ -319,7 +319,7 @@ Partial Class Bancos_MovimientosBancarios
 
         DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = 21114"))
 
-        If ObjCuentasBancos.GetCuentasDepositos(21114) Then
+        If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21114) Then
             DTProveedorBancos = ObjCuentasBancos.DtResultados
             RowBanco = DTProveedorBancos.Rows(0)
         Else
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index a08c794e6..882f36ef2 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -5983,7 +5983,7 @@ Partial Class Clientes
 
 #Region "C U E N T A S - B A N C A R I A S"
 
-    Private Sub CargaCuentasBancarias()
+    Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False)
 
         If CveCliente <= 0 Then Exit Sub
 
@@ -6004,9 +6004,8 @@ Partial Class Clientes
         End If
 
         ObjCuentasBancos.Dispose()
-        CargaPSGridCuentasBancos()
-
-        RecargaGlobalCuentasBancarias()
+        CargaPSGridCuentasBancos()
+
         CargaMonedas()
     End Sub
     Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
@@ -6208,13 +6207,10 @@ Partial Class Clientes
         RecargaGlobalCuentasBancarias()
     End Sub
     Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
-        If CveCliente > 0 Then
-            Dim ObjCuentasBancos As New ClsGenerales
-
-            If ObjCuentasBancos.GetCuentasDepositos() Then
-                GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
-            End If
-            ObjCuentasBancos.Dispose()
+        If CveCliente > 0 Then
+
+            GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing
+
         End If
     End Sub