From 06705dd2b794e91cecc7e4a0903081c93a871f1b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 20 Feb 2023 22:41:23 -0700
Subject: [PATCH] -- cambio globaldtcuentascleintes

---
 Ventas/Clientes.aspx.vb | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index f5de6760a..eee4538b8 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -6533,7 +6533,7 @@ Partial Class Clientes
         DTCuentasBancos = New DataTable
         TempDTCuentasBancos = New DataTable
 
-        If ObjCuentasBancos.GetCuentasDepositos(CveCliente:=CveCliente) Then
+        If ObjCuentasBancos.GetCuentasDepositos(CveCliente:=CveCliente, CveEmpresa:=UsuarioActual.CveEmpresa) Then
             DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
         Else
             Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
@@ -6617,9 +6617,9 @@ Partial Class Clientes
 
                 If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
                     DTCuentasBancos.Clear()
-                    DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveCliente = {0}", CveCliente)))
                     Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
                     RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
+                    CargaCuentasBancarias()
                 Else
                     Alert("Error al registrar la cuenta bancaria. Por favor intente nuevamente", TipoMensaje.MsgError)
                 End If
@@ -6652,8 +6652,8 @@ Partial Class Clientes
             If CveCliente > 0 Then
 
                 If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda, UsuarioActual.CveEmpresa) Then
-                    DTCuentasBancos.Clear()
-                    DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveCliente = {0}", CveCliente)))
+                    DTCuentasBancos.Clear()
+                    CargaCuentasBancarias()
                     Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
                     RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
                 Else
@@ -6706,9 +6706,8 @@ Partial Class Clientes
                     TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index
                 Next
                 TempDTCuentasBancos.AcceptChanges()
-            End If
-
-
+            End If
+
             If e.Row.DBCampo("Estatus") = "True" Then
                 e.Row.FCLabel("LlbEstatusTexto").Text = "Activo"
             Else
@@ -6726,7 +6725,7 @@ Partial Class Clientes
         If CveCliente > 0 Then
             If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 DTCuentasBancos.Clear()
-                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveCliente = {0}", CveCliente)))
+                CargaCuentasBancarias()
 
                 Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
             Else