E172 Cargar PS Empacados/TipoOrganicos desde GlobalDT

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

Ventas/ProductosServicios.aspx.vb

@@ -438,21 +438,12 @@ Partial Class ProductosyServicios
     End Sub
 
     Private Sub CargaPanelCitricos()
-        Dim ObjGral As New ClsGenerales()
+        DdlEmpacado.DataSource = GlobalDTGralEmpacados(UsuarioActual.CveEmpresa)
-        If ObjGral.GetEmpacados(UsuarioActual.CveEmpresa) Then
+        DdlTipoOrganico.DataSource = GlobalDTGralTipoOrganicos(UsuarioActual.CveEmpresa)
-            DdlEmpacado.DataSource = ObjGral.DtResultados
-        End If
-        If ObjGral.GetTipoOrganicos(UsuarioActual.CveEmpresa) Then
-            DdlTipoOrganico.DataSource = ObjGral.DtResultados
-        End If
-        ObjGral.Dispose()
-
         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(); }")