From eaf1b96d17169344991fe5b0f9335aab80b8a312 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 23 Jul 2021 18:44:24 -0700
Subject: [PATCH] globalclasifdetalle

---
 Sistemas/CatSesiones.aspx.vb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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