From 6623d88e6dd798b8983595a5e881272c2881d015 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 7 Nov 2023 16:27:40 -0700 Subject: [PATCH] =?UTF-8?q?validaci=C3=B3n=20adicional=20NowADS?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index ea1bb19a1..772323ed2 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -103,12 +103,11 @@ Public Class ClsPaginas Dim tHora As Integer = 0 'If UsuarioActual IsNot Nothing AndAlso UsuarioActual.Empresa IsNot Nothing Then tHora = UsuarioActual.Empresa.UTCOffset Try - If HttpContext.Current.Session("UsuarioSIG") IsNot Nothing AndAlso CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa IsNot Nothing Then tHora = CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.UTCOffset + If HttpContext.Current.Session IsNot Nothing AndAlso HttpContext.Current.Session("UsuarioSIG") IsNot Nothing AndAlso CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa IsNot Nothing Then tHora = CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.UTCOffset Catch ex As Exception End Try - Return If(tHora <> 0, Now.ToUniversalTime.AddMinutes(tHora), Now) End Function