From 0ada3311a61964fd48b11435f0bfd685d2bd74a5 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 19 Dec 2022 12:17:09 -0700 Subject: [PATCH] -- mejora global --- Sistemas/CatSesiones.aspx.vb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index 3700cf256..b75094412 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -233,6 +233,7 @@ Partial Class Sistemas_CatSesiones If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing 'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing ObjPS.Dispose() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing Using ObjVenta As New ClsVentas If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then @@ -602,6 +603,9 @@ Partial Class Sistemas_CatSesiones Private Sub Sistemas_CatSesiones_Load(sender As Object, e As EventArgs) Handles Me.Load Dim dominio As String = HttpContext.Current.Request.Url.GetLeftPart(UriPartial.Authority) + If Not Page.IsPostBack Then + GlobalDTRegimenesFiscales = Nothing + End If 'If Not dominio.Contains("gps.adsistemas") Then ' dominio = dominio.Replace("http", "https") ' Response.Redirect(dominio)