From 2a9600b3f86cf9bb94ebd27cb3663d0f7f245803 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 2 Oct 2023 09:51:26 -0700
Subject: [PATCH] -- funcion nueva NowADS

---
 App_Code/ClsPaginas.vb | 6 ++++++
 App_Code/Empresa.vb    | 1 +
 2 files changed, 7 insertions(+)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index a2395629d..1b094493c 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -98,6 +98,12 @@ Public Class ClsPaginas
             End Try
         End Set
     End Property
+    Public Function NowADS() As DateTime
+        Dim tHora As Integer = 0
+        If UsuarioActual IsNot Nothing AndAlso UsuarioActual.Empresa IsNot Nothing Then tHora = UsuarioActual.Empresa.UTCHora
+        Return If(tHora <> 0, Now.ToUniversalTime.AddHours(tHora), Now)
+    End Function
+
 #End Region
 
 #Region "GlobalDTs"
diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb
index f1fa5817d..f99639f53 100644
--- a/App_Code/Empresa.vb
+++ b/App_Code/Empresa.vb
@@ -134,6 +134,7 @@ Public Class Empresa
     Public Property FielPassword As String
     Public Property FielPFX As String
     Public Property AsuntoPlantillaMailVentaCotizacion As String
+    Public Property UTCHora As Integer
     Public Property PlantillaMailVentaCotizacion As String
     Dim Funcionalidades As HybridDictionary
     'HybridDictionary, no se puede serializar, por eso no es propiedad, y se utilizar el setfuncionalidad, para asignarle valor