diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 04bc82dd4..bf0830527 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3836,8 +3836,8 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}"
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
-                Using ObjVenta As New ClsVentas
-                    If ObjVenta.GetClasificacionDetalle(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados
+                Using ObjVenta As New ClsGenerales
+                    If ObjVenta.GetClasificacionPorcentaje(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados
                 End Using
             End If
 
@@ -3845,7 +3845,7 @@ Public Class ClsPaginas
             If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje)
             If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion)
             If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA)
-            Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTClasificacionPorcentaje"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
             GlobalDTClasificacionPorcentaje = Dv.ToTable
             Dv.Dispose()
         End Get