-- funcion nueva NowADS

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"

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