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
2021-03-09 19:35:49 -07:00
parent 0d77883d18
commit 15ad2e8f9f
2 changed files with 38 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
AF/CatSubTipos.aspx.vb
View File

@@ -23,11 +23,12 @@ Partial Class AF_CatSubTipos
End Sub End Sub
Private Sub CargaGlobal() Private Sub CargaGlobal()
Dim ObjSubTipos As New ClsAF 'Dim ObjSubTipos As New ClsAF
If ObjSubTipos.GetSubTiposActivosFijos(-1) Then 'If ObjSubTipos.GetSubTiposActivosFijos(-1) Then
GlobalDTSubTipoActivoFijo(-1) = ObjSubTipos.DtResultados ' GlobalDTSubTipoActivoFijo(-1) = ObjSubTipos.DtResultados
End If 'End If
ObjSubTipos.Dispose() 'ObjSubTipos.Dispose()
GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
End Sub End Sub
Public Sub CargaDatos() Public Sub CargaDatos()

40
App_Code/ClsPaginas.vb
View File

@@ -2184,19 +2184,43 @@ Public Class ClsPaginas
End Set End Set
End Property End Property
Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer) As DataTable Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer, Optional CveTipoActivoFijo As Integer = -1) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = String.Format("GlobalDTSubTipoActivoFijo-{0}", CveEmpresa)
Dim Dv As New DataView(DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) 'sino existe, recarga los datos
GlobalDTSubTipoActivoFijo = Dv.ToTable If Application(AppNombre) Is Nothing Then
Dv.Dispose() Dim ObjSubTipos As New ClsAF
Else If ObjSubTipos.GetSubTiposActivosFijos(CveEmpresa) Then Application(AppNombre) = ObjSubTipos.DtResultados
GlobalDTSubTipoActivoFijo = DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable) ObjSubTipos.Dispose()
End If End If
Dim Str As New StringBuilder
If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
If CveTipoActivoFijo > 0 Then Str.AppendFormat("AND CveTipoActivoFijo = {0}", CveTipoActivoFijo)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTSubTipoActivoFijo = Dv.ToTable
Dv.Dispose()
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTSubTipoActivoFijo") = value Dim AppNombre As String = String.Format("GlobalDTSubTipoActivoFijo-{0}", CveEmpresa)
Application(AppNombre) = value
End Set End Set
'Get
' If CveEmpresa <> -1 Then
' Dim Dv As New DataView(DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
' GlobalDTSubTipoActivoFijo = Dv.ToTable
' Dv.Dispose()
' Else
' GlobalDTSubTipoActivoFijo = DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable)
' End If
'End Get
'Set(value As DataTable)
' Application("GlobalDTSubTipoActivoFijo") = value
'End Set
End Property End Property
Property GlobalDTTipoActivoFijo(CveEmpresa As Integer) As DataTable Property GlobalDTTipoActivoFijo(CveEmpresa As Integer) As DataTable
Get Get