From f6ef4c58d183361d673a8e79b8e32a8dd60a59b6 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 13 May 2025 09:22:06 -0700
Subject: [PATCH] =?UTF-8?q?--=20al=20actualizar=20datos=20de=20cr=C3=A9dit?=
 =?UTF-8?q?os,=20que=20se=20actualice=20el=20globaldtproveedores?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Proveedores.aspx.vb | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index fb5d7c9be..cc1892977 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -4180,18 +4180,14 @@ Partial Class Compras_Proveedores
             Dim ObjPro As New ClsCompProveedores
             If ObjPro.UpdateProveedorLimiteCredito(CveProveedor, TxtLimiteCredito.Text.ToDecimal, TxtPlazoCobranza.Text.ToEntero, ChkUsaLimiteCredito.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                                    DdlTipoFechaVencimiento.SelectedValue.ToEntero) Then
-
-                Alert("Limite de crédito modificado correctamente.")
+                Alert("Límite de crédito modificado correctamente.")
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros"))
+                GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
             End If
             ObjPro.Dispose()
         Else
             RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros"))
         End If
-
-
-
-
         UPPCxP.Update()
         UpParametros.Update()