From 5d4253ef95e32878131b22e8406062193212e359 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 31 Jan 2025 12:36:17 -0700
Subject: [PATCH] activar el refrescado del GlobalDTMedidas

---
 General/CatMedidas.aspx.vb | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/General/CatMedidas.aspx.vb b/General/CatMedidas.aspx.vb
index c5d6058a0..3d5c389c1 100644
--- a/General/CatMedidas.aspx.vb
+++ b/General/CatMedidas.aspx.vb
@@ -56,6 +56,7 @@ Partial Class General_CatMedidas
         Dim CveMedida = gvRow.DataKey("CveMedida").ToEntero()
         If ObjGral.RemoveMedidas(CveMedida) Then
             Alert("La medida se eliminó correctamente.", TipoMensaje.MsgInformacion)
+            GlobalDTPSMedidas(UsuarioActual.CveEmpresa) = Nothing
         Else
             Alert("La medida esta siendo utilizada por un Producto", TipoMensaje.MsgError)
         End If
@@ -75,11 +76,13 @@ Partial Class General_CatMedidas
             If ObjPS.AddMedidas(DdlClasificacion.SelectedValue.ToEntero(), TxtCodigo.Text.Trim(), TxtMedida.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 RegistraScript("$('#DModal').modal('hide')")
                 Alert("La medida se agregó correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTPSMedidas(UsuarioActual.CveEmpresa) = Nothing
             End If
         ElseIf Modalidad = "U" Then
             If ObjPS.UpdateMedidas(CveMedida, DdlClasificacion.SelectedValue.ToEntero(), TxtCodigo.Text.Trim(), TxtMedida.Text.Trim()) Then
                 RegistraScript("$('#DModal').modal('hide')")
                 Alert("La medida se actualizo correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTPSMedidas(UsuarioActual.CveEmpresa) = Nothing
             End If
         End If
         ObjPS.Dispose()