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

-- mejora global

Browse Source
This commit is contained in:
rrene
2022-12-19 12:17:09 -07:00
parent ee8a1195cb
commit 0ada3311a6
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Sistemas/CatSesiones.aspx.vb
View File

@@ -233,6 +233,7 @@ Partial Class Sistemas_CatSesiones
If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing 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 'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
ObjPS.Dispose() ObjPS.Dispose()
GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
Using ObjVenta As New ClsVentas Using ObjVenta As New ClsVentas
If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then 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 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) 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 'If Not dominio.Contains("gps.adsistemas") Then
' dominio = dominio.Replace("http", "https") ' dominio = dominio.Replace("http", "https")
' Response.Redirect(dominio) ' Response.Redirect(dominio)