diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 887b33ddb..7c3dfc1d2 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4313,6 +4313,40 @@ Public Class ClsPaginas
         End Set
     End Property
 
+#Region "CITRUS GAME"
+    Property GlobalDTGralEmpacados(CveEmpresa As Integer) As DataTable
+        Get
+            Dim AppNombre As String = $"GlobalDTGralEmpacados-{CveEmpresa}"
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjGenerales As New ClsGenerales()
+                If ObjGenerales.GetEmpacados(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados
+                ObjGenerales.Dispose()
+            End If
+
+            GlobalDTGralEmpacados = DirectCast(Application(AppNombre), DataTable)
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = $"GlobalDTGralEmpacados-{CveEmpresa}"
+            Application(AppNombre) = value
+        End Set
+    End Property
+    Property GlobalDTGralTipoOrganicos(CveEmpresa As Integer) As DataTable
+        Get
+            Dim AppNombre As String = $"GlobalDTGralTipoOrganicos-{CveEmpresa}"
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjGenerales As New ClsGenerales()
+                If ObjGenerales.GetTipoOrganicos(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados
+                ObjGenerales.Dispose()
+            End If
+
+            GlobalDTGralTipoOrganicos = DirectCast(Application(AppNombre), DataTable)
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = $"GlobalDTGralTipoOrganicos-{CveEmpresa}"
+            Application(AppNombre) = value
+        End Set
+    End Property
+#End Region
 #End Region
 
 
@@ -4321,8 +4355,6 @@ Public Class ClsPaginas
         DirectorioSitio = 2
         eFacturasCaptcha = 3
 
-
-
         RutaEmpresasJM = 500
         RutaEmpresasRM = 501
         RutaEmpresasPC = 502
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 3d24b25b9..dd685d23e 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -438,21 +438,12 @@ Partial Class ProductosyServicios
     End Sub
 
     Private Sub CargaPanelCitricos()
-        Dim ObjGral As New ClsGenerales()
-        If ObjGral.GetEmpacados(UsuarioActual.CveEmpresa) Then
-            DdlEmpacado.DataSource = ObjGral.DtResultados
-        End If
-        If ObjGral.GetTipoOrganicos(UsuarioActual.CveEmpresa) Then
-            DdlTipoOrganico.DataSource = ObjGral.DtResultados
-        End If
-        ObjGral.Dispose()
-
+        DdlEmpacado.DataSource = GlobalDTGralEmpacados(UsuarioActual.CveEmpresa)
+        DdlTipoOrganico.DataSource = GlobalDTGralTipoOrganicos(UsuarioActual.CveEmpresa)
         DdlEmpacado.DataBind()
         DdlTipoOrganico.DataBind()
-
     End Sub
 
-
     Private Sub MuestraPanel(Optional AfterPageLoad As Boolean = False)
         If AfterPageLoad Then
             RegistraScript("window.onload = function MuestraPanel() { document.getElementById(""C_BtnMostrarPanel"").click(); }")