Se reintroducen los GlobalDT de PS Características

CAMBIOS EN BD VENTAS:
- PA_GRAL_ProductosServiciosCaracteristicasGet
- PA_GRAL_ProductosServiciosCaracteristicasOpcionesGet
El parámetro @CveEmpresa INT se vuelve requerido.

App_Code/ClsGralProductosServiciosCaracteristicas.vb

@@ -100,7 +100,7 @@ Public Class ClsGralProductosServiciosCaracteristicas
 #End Region
 #Region "ProductosServiciosCaracteristicas"
 
-    Public Function GetProductosServiciosCaracteristicas(Optional CveEmpresa As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
+    Public Function GetProductosServiciosCaracteristicas(CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_GRAL_ProductosServiciosCaracteristicasGet")
 
@@ -203,7 +203,7 @@ Public Class ClsGralProductosServiciosCaracteristicas
 
 #Region "ProductosServiciosCaracteristicasOpciones"
 
-    Public Function GetProductosServiciosCaracteristicasOpciones(Optional CveEmpresa As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
+    Public Function GetProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_GRAL_ProductosServiciosCaracteristicasOpcionesGet")
 

App_Code/ClsPaginas.vb

@@ -1659,18 +1659,20 @@ Public Class ClsPaginas
             HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTProductosServiciosCaracteristicas(CveEmpresa As Integer) As DataTable
+    Public Shared Property GlobalDTProductosServiciosCaracteristicas(CveEmpresa As Integer) As DataTable
         Get
-            If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTProductosServiciosCaracteristicas"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-                GlobalDTProductosServiciosCaracteristicas = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTProductosServiciosCaracteristicas = DirectCast(Application("GlobalDTProductosServiciosCaracteristicas"), DataTable)
+            Dim AppNombre As String = $"GlobalDTProductosServiciosCaracteristicas-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Using ObjProductosServiciosCaracteristicas As New ClsGralProductosServiciosCaracteristicas
+                    If ObjProductosServiciosCaracteristicas.GetProductosServiciosCaracteristicas(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjProductosServiciosCaracteristicas.DtResultados
+                End Using
             End If
+            GlobalDTProductosServiciosCaracteristicas = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTProductosServiciosCaracteristicas") = value
+            Dim AppNombre As String = $"GlobalDTProductosServiciosCaracteristicas-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTPSAdicionales(CvePS As Integer, CveEmpresa As Integer) As DataTable
@@ -1695,18 +1697,20 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer) As DataTable
+    Public Shared Property GlobalDTProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer) As DataTable
         Get
-            If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTProductosServiciosCaracteristicasOpciones"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-                GlobalDTProductosServiciosCaracteristicasOpciones = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTProductosServiciosCaracteristicasOpciones = DirectCast(Application("GlobalDTProductosServiciosCaracteristicasOpciones"), DataTable)
+            Dim AppNombre As String = $"GlobalDTProductosServiciosCaracteristicasOpciones-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Using ObjProductosServiciosCaracteristicas As New ClsGralProductosServiciosCaracteristicas
+                    If ObjProductosServiciosCaracteristicas.GetProductosServiciosCaracteristicasOpciones(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjProductosServiciosCaracteristicas.DtResultados
+                End Using
             End If
+            GlobalDTProductosServiciosCaracteristicasOpciones = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTProductosServiciosCaracteristicasOpciones") = value
+            Dim AppNombre As String = $"GlobalDTProductosServiciosCaracteristicasOpciones-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTInvMetodosInventario() As DataTable