AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se reintroducen los GlobalDT de PS Características

Browse Source 
CAMBIOS EN BD VENTAS:
- PA_GRAL_ProductosServiciosCaracteristicasGet
- PA_GRAL_ProductosServiciosCaracteristicasOpcionesGet
El parámetro @CveEmpresa INT se vuelve requerido.
This commit is contained in:
MLopez
2023-02-24 16:14:20 -07:00
parent 07d161bff3
commit ffb32eb558
2 changed files with 22 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsGralProductosServiciosCaracteristicas.vb
View File

@@ -100,7 +100,7 @@ Public Class ClsGralProductosServiciosCaracteristicas
#End Region #End Region
#Region "ProductosServiciosCaracteristicas" #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 Dim Retorno As Boolean = False
DataAdapter("PA_GRAL_ProductosServiciosCaracteristicasGet") DataAdapter("PA_GRAL_ProductosServiciosCaracteristicasGet")
@@ -203,7 +203,7 @@ Public Class ClsGralProductosServiciosCaracteristicas
#Region "ProductosServiciosCaracteristicasOpciones" #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 Dim Retorno As Boolean = False
DataAdapter("PA_GRAL_ProductosServiciosCaracteristicasOpcionesGet") DataAdapter("PA_GRAL_ProductosServiciosCaracteristicasOpcionesGet")

36
App_Code/ClsPaginas.vb
View File

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