diff --git a/Ventas/CatUnidadesMedida.aspx.vb b/Ventas/CatUnidadesMedida.aspx.vb
index 259a38460..f075d3b40 100644
--- a/Ventas/CatUnidadesMedida.aspx.vb
+++ b/Ventas/CatUnidadesMedida.aspx.vb
@@ -31,7 +31,7 @@ Partial Class CatUnidadesMedida
 
         Dim ObjUnidadesMedida As New ClsUnidadesMedida
         If ObjUnidadesMedida.GetUnidadesMedida(UsuarioActual.CveEmpresa) Then
-            GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
+            GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
             ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GvDatos.DataSource = ViewState("DTUnidadesMedida")
             GvDatos.DataBind()
@@ -293,7 +293,7 @@ Partial Class CatUnidadesMedida
             If ObjUnidadesMedida.UpdateUnidadMedida(TxtUnidadMedida.Text.Trim, TxtAbreviatura.Text.Trim, "", "", "", CBool(Estatus),
                                                         UsuarioActual.CveUsuario, HdnID.Value.ToEntero, DdlSATUnidadMedida.SelectedValue.ToEntero) Then
                 GvDatos.EditIndex = -1
-                GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
+                GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
                 ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
                 Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
             End If