From 0287ecfdb38fee2627b484e872968a41c023faa9 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 29 Jan 2024 19:59:04 -0700 Subject: [PATCH] -- cmabio en el context GlobalDT_regimenes --- App_Code/ClsPaginas.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index d4f433f47..81a751e4c 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -761,29 +761,29 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTRegimenesFiscales(Optional TipoPersona As Integer = -1) As DataTable + Public Shared Property GlobalDTRegimenesFiscales(Optional TipoPersona As Integer = -1) As DataTable Get Dim AppNombre As String = "GlobalDTRegimenesFiscales" - If Application(AppNombre) Is Nothing Then + If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjGral As New ClsSisEmpresas - If ObjGral.GetRegimenFiscal(-1) Then Application(AppNombre) = ObjGral.DtResultados + If ObjGral.GetRegimenFiscal(-1) Then HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados ObjGral.Dispose() End If If TipoPersona <> -1 Then Dim Str As New StringBuilder If TipoPersona = 0 Then Str.Append("AplicaPersonaFisica = 1") '0 - Fisica If TipoPersona = 1 Then Str.Append("AplicaPersonaMoral = 1") '1 - Moral - Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows) + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows) GlobalDTRegimenesFiscales = Dv.ToTable Dv.Dispose() Else - GlobalDTRegimenesFiscales = DirectCast(Application(AppNombre), DataTable) + GlobalDTRegimenesFiscales = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) End If End Get Set(value As DataTable) Dim AppNombre As String = String.Format("GlobalDTRegimenesFiscales") - Application(AppNombre) = value + HttpContext.Current.Application(AppNombre) = value End Set End Property Property GlobalDTNomSatRiesgoPuesto() As DataTable