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