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

-- cambio en globalDT

Browse Source
This commit is contained in:
rrene
2023-01-26 07:00:57 -07:00
parent 9f17320a21
commit 3e02876a5f
3 changed files with 28 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
App_Code/ClsPaginas.vb
View File

@@ -227,23 +227,24 @@ Public Class ClsPaginas
End Property End Property
Property GlobalDTNomConceptos(CveEmpresa As Integer) As DataTable Property GlobalDTNomConceptos(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = String.Format("GlobalDTNomConceptos-{0}", CveEmpresa)
Dim Dv As New DataView(DirectCast(Application("GlobalDTNomConceptos"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) If Application("GlobalDTNomConceptos") Is Nothing Then
GlobalDTNomConceptos = Dv.ToTable Dim ObjNom As New ClsNominas
Dv.Dispose() If ObjNom.GetConceptos(CveEmpresa) Then Application(AppNombre) = ObjNom.DtResultados
Else ObjNom.Dispose()
GlobalDTNomConceptos = DirectCast(Application("GlobalDTNomConceptos"), DataTable)
End If End If
GlobalDTNomConceptos = DirectCast(Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTNomConceptos") = value Dim AppNombre As String = String.Format("GlobalDTNomConceptos-{0}", CveEmpresa)
Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTTiposGastos(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable Property GlobalDTTiposGastos(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTTiposGastos-{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTTiposGastos-{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Dim ObjCompra As New ClsCompras() Dim ObjCompra As New ClsCompras()
If ObjCompra.GetTipoGasto(-1, -1) Then Application(AppNombre) = ObjCompra.DtResultados Else Application(AppNombre) = Nothing If ObjCompra.GetTipoGasto(-1, -1) Then Application(AppNombre) = ObjCompra.DtResultados Else Application(AppNombre) = Nothing
@@ -382,7 +383,7 @@ Public Class ClsPaginas
Public Shared Property GlobalDTFraccionArancelaria() As EnumerableRowCollection(Of DataRow) Public Shared Property GlobalDTFraccionArancelaria() As EnumerableRowCollection(Of DataRow)
Get Get
Dim AppNombre As String = "GlobalDTFraccionArancelaria" Dim AppNombre As String = "GlobalDTFraccionArancelaria"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjGrales As New ClsGenerales Dim ObjGrales As New ClsGenerales
If ObjGrales.GetSATFraccionArancelaria() Then HttpContext.Current.Application(AppNombre) = ObjGrales.DtResultados.AsEnumerable() If ObjGrales.GetSATFraccionArancelaria() Then HttpContext.Current.Application(AppNombre) = ObjGrales.DtResultados.AsEnumerable()
ObjGrales.Dispose() ObjGrales.Dispose()
@@ -597,27 +598,28 @@ Public Class ClsPaginas
#End Region #End Region
Property GlobalDTPSATUM() As DataTable Public Shared Property GlobalDTPSATUM() As EnumerableRowCollection(Of DataRow)
Get Get
If Application("GlobalDTPSATUM") Is Nothing Then If HttpContext.Current.Application("GlobalDTPSATUM") Is Nothing Then
Dim ObjGrales As New ClsGenerales Dim ObjGrales As New ClsGenerales
If ObjGrales.GetSATUnidadMedida Then Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() If ObjGrales.GetSATUnidadMedida Then HttpContext.Current.Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable()
ObjGrales.Dispose() ObjGrales.Dispose()
End If End If
Return DirectCast(HttpContext.Current.Application("GlobalDTPSATUM"), EnumerableRowCollection(Of DataRow))
'System.Data.EnumerableRowCollection ''System.Data.EnumerableRowCollection
If Not IsNothing(Application("GlobalDTPSATUM")) Then 'If Not IsNothing(HttpContext.Current.Application("GlobalDTPSATUM")) Then
If Application("GlobalDTPSATUM").GetType().IsSubclassOf(GetType(EnumerableRowCollection)) Then ' If HttpContext.Current.Application("GlobalDTPSATUM").GetType().IsSubclassOf(GetType(EnumerableRowCollection)) Then
Return DirectCast(Application("GlobalDTPSATUM"), EnumerableRowCollection(Of DataRow)).CopyToDataTable() ' Return DirectCast(HttpContext.Current.Application("GlobalDTPSATUM"), EnumerableRowCollection(Of DataRow))
Else ' Else
Return DirectCast(Application("GlobalDTPSATUM"), DataTable) ' Return DirectCast(HttpContext.Current.Application("GlobalDTPSATUM"), EnumerableRowCollection(Of DataRow))
End If ' End If
Else 'Else
Return Nothing ' Return Nothing
End If 'End If
End Get End Get
Set(value As DataTable) Set(value As EnumerableRowCollection(Of DataRow))
Application("GlobalDTPSATUM") = value HttpContext.Current.Application("GlobalDTPSATUM") = value
End Set End Set
End Property End Property
Property GlobalDTNomConceptosFunciones() As DataTable Property GlobalDTNomConceptosFunciones() As DataTable
@@ -2051,7 +2053,6 @@ Public Class ClsPaginas
ObjClientes.Dispose() ObjClientes.Dispose()
End If End If
If CveEmpresa <> -1 Then If CveEmpresa <> -1 Then
Dim StrSQL As New StringBuilder Dim StrSQL As New StringBuilder

9
Ashx/SIGWeb.ashx
View File

@@ -1232,14 +1232,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Private Function GETUMSAT(ByVal context As HttpContext) As String Private Function GETUMSAT(ByVal context As HttpContext) As String
Dim retorno As String = "" Dim retorno As String = ""
Dim DTUM = ClsPaginas.GlobalDTPSATUM 'DirectCast(context.Application("GlobalDTPSATUM"), EnumerableRowCollection(Of DataRow))
If context.Application("GlobalDTPSATUM") Is Nothing Then
Dim ObjGrales As New ClsGenerales
If ObjGrales.GetSATUnidadMedida Then context.Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else context.Application("GlobalDTPSATUM") = Nothing
ObjGrales.Dispose()
End If
Dim DTUM = DirectCast(context.Application("GlobalDTPSATUM"), EnumerableRowCollection(Of DataRow))
Dim DtPSRetorno As DataTable Dim DtPSRetorno As DataTable
Dim Name = IfNull(context.Request("Name"), "-1").ToString Dim Name = IfNull(context.Request("Name"), "-1").ToString

2
Global.asax
View File

@@ -149,7 +149,7 @@
'C A R G A - N O M 'C A R G A - N O M
Using ObjNom As New ClsNominas() Using ObjNom As New ClsNominas()
If ObjNom.GetConceptos(-1) Then Application("GlobalDTNomConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomConceptos") = Nothing 'If ObjNom.GetConceptos(-1) Then Application("GlobalDTNomConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomConceptos") = Nothing
If ObjNom.GetConceptosFunciones() Then Application("GlobalDTNomConceptosFunciones") = ObjNom.DtResultados Else Application("GlobalDTNomConceptosFunciones") = Nothing If ObjNom.GetConceptosFunciones() Then Application("GlobalDTNomConceptosFunciones") = ObjNom.DtResultados Else Application("GlobalDTNomConceptosFunciones") = Nothing
If ObjNom.GetTiposPeriodos() Then Application("GlobalDTTipoPeriodo") = ObjNom.DtResultados Else Application("GlobalDTTipoPeriodo") = Nothing If ObjNom.GetTiposPeriodos() Then Application("GlobalDTTipoPeriodo") = ObjNom.DtResultados Else Application("GlobalDTTipoPeriodo") = Nothing
If ObjNom.GetPeriodos(-1, -1, -1, -1, -1) Then Application("GlobalDTNominasPeriodos") = ObjNom.DtResultados Else Application("GlobalDTNominasPeriodos") = Nothing If ObjNom.GetPeriodos(-1, -1, -1, -1, -1) Then Application("GlobalDTNominasPeriodos") = ObjNom.DtResultados Else Application("GlobalDTNominasPeriodos") = Nothing