From ffb32eb558e8e07a728bbcf201ee89a5b4a4a390 Mon Sep 17 00:00:00 2001 From: MLopez Date: Fri, 24 Feb 2023 16:14:20 -0700 Subject: [PATCH] =?UTF-8?q?Se=20reintroducen=20los=20GlobalDT=20de=20PS=20?= =?UTF-8?q?Caracter=C3=ADsticas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit CAMBIOS EN BD VENTAS: - PA_GRAL_ProductosServiciosCaracteristicasGet - PA_GRAL_ProductosServiciosCaracteristicasOpcionesGet El parámetro @CveEmpresa INT se vuelve requerido. --- ...lsGralProductosServiciosCaracteristicas.vb | 4 +-- App_Code/ClsPaginas.vb | 36 ++++++++++--------- 2 files changed, 22 insertions(+), 18 deletions(-) diff --git a/App_Code/ClsGralProductosServiciosCaracteristicas.vb b/App_Code/ClsGralProductosServiciosCaracteristicas.vb index 8ee0d7822..593903c4f 100644 --- a/App_Code/ClsGralProductosServiciosCaracteristicas.vb +++ b/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") diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 1c88a95eb..dc48e03e1 100644 --- a/App_Code/ClsPaginas.vb +++ b/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