From 115362be49c5fc0a3d8cf5b7304a4eb33f61ba03 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sun, 16 Apr 2023 16:18:07 -0700
Subject: [PATCH] -- mejora en recarga de global de cuentas bancos

---
 Compras/Proveedores.aspx.vb | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 15dc5bff8..17f4b9ac2 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -1823,11 +1823,8 @@ Partial Class Compras_Proveedores
                     If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
 
                     'ACTUALIZAR GLOBAL
-                    'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
                     GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
-                    'Else
-                    '    ErrorBancos = True
-                    'End If
+                    GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
 
                     Alert("El Proveedor se guardó correctamente. " & "<br />" & MsgCuentaContable, TipoMensaje.MsgInformacion, If(Request("CveFactura") Is Nothing, "document.location.href=""/Compras/CatProveedores.aspx""", "window.opener.location.href = window.opener.location.href; window.close();"))
                     RecargaGlobalCuentasBancarias()
@@ -3416,7 +3413,9 @@ Partial Class Compras_Proveedores
         If CveProveedor > 0 Then
             If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 DTCuentasBancos.Clear()
-                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
+                'recargar las cuentas 
+                GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
+                DTCuentasBancos = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor)
 
                 Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
             Else
@@ -3430,12 +3429,11 @@ Partial Class Compras_Proveedores
 
         CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
         ObjCuentasBancos.Dispose()
-        RecargaGlobalCuentasBancarias()
+
     End Sub
     Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
         If CveProveedor > 0 Then
             GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
-
         End If
     End Sub