-- mejora global

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)