diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index e06cf9d67..4bdb52791 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -228,8 +228,14 @@ Partial Class Sistemas_CatSesiones
         If ObjPS.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing
         'If ObjPS.GetPS(-1, -1, -1) Then Application("GlobalDTProductosServicios") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTProductosServicios") = Nothing
         If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing
-        If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
+        'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
         ObjPS.Dispose()
+        GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
+        Using ObjVenta As New ClsVentas
+            If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
+                Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
+            End If
+        End Using
 
         'Fin Carga Usuarios
     End Sub