Empresas Zona Horaria

2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
--- a/Ashx/CargaEventos.ashx
+++ b/Ashx/CargaEventos.ashx
@@ -238,7 +238,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                            If Not cevent.recurrenciatipo > 0 Then

                                'AGREGAMOS CUANDO NO ES RECURRENTE
-                                Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, Date.Now)
+                                Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS())
                                'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
                                If dr("FechaFin").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then
                                    events.Add(cevent)
@@ -319,7 +319,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                                            End If

                                            'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA
-                                            If FIT > DateAdd(DateInterval.Month, -6, Date.Now) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
+                                            If FIT > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
                                                events.Add(cevent)
                                            End If
                                        Next
@@ -359,7 +359,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                                        End If

                                        'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
-                                        If FI > DateAdd(DateInterval.Month, -6, Date.Now) Then
+                                        If FI > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) Then
                                            events.Add(cevent)
                                        End If
                                    End If
--- a/Ashx/E119.ashx
+++ b/Ashx/E119.ashx
@@ -255,7 +255,7 @@ Public Class E119 : Implements IHttpHandler
            End If
        End Using

-        Dim Msg As String = "Información día " & Now.ToShortDateString & If(RespuestaError.message <> "", " Error: " & RespuestaError.message, "")
+        Dim Msg As String = "Información día " & ClsPaginas.NowADS().ToShortDateString & If(RespuestaError.message <> "", " Error: " & RespuestaError.message, "")
        Msg.GuardaLogAD("LogE119")

        If TieneError Then
@@ -288,7 +288,7 @@ Public Class E119 : Implements IHttpHandler
            TieneError = True
        End Try

-        Dim Msg As String = "Información día " & Now.ToShortDateString & If(RespuestaError.message <> "", " Error: " & RespuestaError.message, "")
+        Dim Msg As String = "Información día " & ClsPaginas.NowADS().ToShortDateString & If(RespuestaError.message <> "", " Error: " & RespuestaError.message, "")
        Msg.GuardaLogAD("LogE119")

        If TieneError Then
--- a/Ashx/E140.ashx
+++ b/Ashx/E140.ashx
@@ -139,7 +139,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState

            Dim RutaRDLC As String = If(File.Exists($"{RutaEmpresa}\Formatos\MetasVendedores.rdlc"), $"{RutaEmpresa}\Formatos\MetasVendedores.rdlc", $"{DirectorioBaseEmpresas}\Empresas\Grales\Formatos\MetasVendedores.rdlc")

-            If ObjGen.GetRepMetasVendedores(DateTime.Now, CveEmpresa, -1, -1, -1, -1, -1, CveSubProyecto, -1, -1, 0) Then
+            If ObjGen.GetRepMetasVendedores(ClsPaginas.NowADS(), CveEmpresa, -1, -1, -1, -1, -1, CveSubProyecto, -1, -1, 0) Then


                Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", RutaEmpresa))
@@ -153,7 +153,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
                End If

                parametros.Add(New ReportParameter("UsuarioImprimio", "Sistema"))
-                parametros.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                parametros.Add(New ReportParameter("FechaImpresion", ClsPaginas.NowADS().ToString("dd/MM/yyyy")))
                parametros.Add(New ReportParameter("SubProyecto", Sucursal))
                parametros.Add(New ReportParameter("Agente", Vendedor))

@@ -216,7 +216,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState

                End If

-                MandaCorreo(CorreoSupervisor, $"Envió de estado de scorecard sucursal {Sucursal} a  {Now.ToString("dd/MM/yyyy")}", bytes)
+                MandaCorreo(CorreoSupervisor, $"Envió de estado de scorecard sucursal {Sucursal} a  {ClsPaginas.NowADS().ToString("dd/MM/yyyy")}", bytes)
                bytes = Nothing

            End If
--- a/Ashx/E141.ashx
+++ b/Ashx/E141.ashx
@@ -797,11 +797,11 @@ Public Class E141 : Implements IHttpHandler
            ObjFactura.TipoDocto = TipoDocto
            ObjFactura.RefDocto = ""
            'ObjFactura.CveMesa = -1
-            ObjFactura.Fecha = Now
+            ObjFactura.Fecha = ClsPaginas.NowADS()
            ObjFactura.CvePrePoliza = -1
-            ObjFactura.FechaPago = Now
+            ObjFactura.FechaPago = ClsPaginas.NowADS()
            ObjFactura.MotivoDescuento = ""
-            ObjFactura.FechaEjecucion = Now
+            ObjFactura.FechaEjecucion = ClsPaginas.NowADS()
            ObjFactura.UsuarioCreo = UsuarioActual.Usuario
            ObjFactura.CveCondicionEntrega = -1
            ObjFactura.CondicionEntrega = ""
@@ -1236,7 +1236,7 @@ Public Class E141 : Implements IHttpHandler
        TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
        TmpDT.Columns.Add("Total", GetType(Decimal))
        'Para uso del módulo contable
-        TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))      
+        TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
        TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
        TmpDT.Columns.Add("CveProyecto", GetType(Integer))
        TmpDT.Columns.Add("Proyecto", GetType(String))
@@ -1780,9 +1780,9 @@ Public Class E141 : Implements IHttpHandler
            Dim msg As String = ""

            If sb.Length > 0 Then
-                msg = $"Se enviaron los siguientes productos: <br/> {sb.ToString()} <br/> Fecha y hora: {Now.ToString("dd/MM/yyyy hh:mm:ss tt")}"
+                msg = $"Se enviaron los siguientes productos: <br/> {sb.ToString()} <br/> Fecha y hora: {ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")}"
            Else
-                msg = $"No se enviaron productos esta semana <br/> Fecha y hora: {Now.ToString("dd/MM/yyyy hh:mm:ss tt")}"
+                msg = $"No se enviaron productos esta semana <br/> Fecha y hora: {ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")}"
            End If

            EnviarCorreoNotificacion("SIG - Productos enviados en la semana", msg)
@@ -1873,7 +1873,7 @@ Public Class E141 : Implements IHttpHandler
                End While
            End If
            If DtPS.Rows.Count > 0 Then
-                EnviarCorreoNotificacion("SIG - Actualización de productos", $"Se ejecuto la tarea de actualización de productos. <br/> Fecha y hora: {Now.ToString("dd/MM/yyyy hh:mm:ss tt")}")
+                EnviarCorreoNotificacion("SIG - Actualización de productos", $"Se ejecuto la tarea de actualización de productos. <br/> Fecha y hora: {ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")}")
            End If
        End If

@@ -1957,7 +1957,7 @@ Public Class E141 : Implements IHttpHandler
    Private Function ActualizarPrecios(Todos As Boolean) As Boolean
        Dim Retorno As Boolean = False
        'ENVIAR PRECIOS SOLO DE 8am a 7pm
-        If Now.Hour < 7 OrElse Now.Hour > 21 Then
+        If ClsPaginas.NowADS().Hour < 7 OrElse ClsPaginas.NowADS().Hour > 21 Then
            Retorno = True
            Return Retorno
        End If
@@ -2040,7 +2040,7 @@ Public Class E141 : Implements IHttpHandler
            End If

            If DtPS.Rows.Count > 0 Then
-                EnviarCorreoNotificacion("SIG - Actualización de precios", $"Se ejecuto la tarea de actualización de precios. <br/> Fecha y hora: {Now.ToString("dd/MM/yyyy hh:mm:ss tt")}")
+                EnviarCorreoNotificacion("SIG - Actualización de precios", $"Se ejecuto la tarea de actualización de precios. <br/> Fecha y hora: {ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")}")
            End If

        End If
@@ -2097,7 +2097,7 @@ Public Class E141 : Implements IHttpHandler
        Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0

        'ENVIAR SOLO DE 8am a 8pm
-        If Now.Hour < 7 OrElse Now.Hour > 21 Then
+        If ClsPaginas.NowADS().Hour < 7 OrElse ClsPaginas.NowADS().Hour > 21 Then
            Retorno = True
            Return Retorno
        End If
@@ -2176,7 +2176,7 @@ Public Class E141 : Implements IHttpHandler
            End If

            If DtPS.Rows.Count > 0 Then
-                EnviarCorreoNotificacion("SIG - Actualización de existencias", $"Se ejecuto la tarea de actualización de existencias. <br/> Fecha y hora: {Now.ToString("dd/MM/yyyy hh:mm:ss tt")}")
+                EnviarCorreoNotificacion("SIG - Actualización de existencias", $"Se ejecuto la tarea de actualización de existencias. <br/> Fecha y hora: {ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")}")
            End If
        End If

--- a/Ashx/E72.ashx
+++ b/Ashx/E72.ashx
@@ -30,10 +30,10 @@ Public Class E72 : Implements IHttpHandler, IRequiresSessionState
        Dim ObjInv As New ClsInventarios
        Try
            Dim DtPS As DataTable = CreaDT()
-            ObjInv.GetRepEntradasSalidasXContrato(72, -1, MinFecha, Date.Now, -1, -1, 17, -1, -1, 3, -1, 1158)
+            ObjInv.GetRepEntradasSalidasXContrato(72, -1, MinFecha, ClsPaginas.NowADS(), -1, -1, 17, -1, -1, 3, -1, 1158)
            Dim DtRepEntradasSalidasXContrato As DataTable = ObjInv.DtResultados.FiltraParametros("CvePS > 0")

-            ObjInv.ApartadosRep(-1, 70437, 259, 72, -1, MinFecha, Date.Now)
+            ObjInv.ApartadosRep(-1, 70437, 259, 72, -1, MinFecha, ClsPaginas.NowADS())
            Dim DtApartados As DataTable = ObjInv.DtResultados.FiltraParametros("CvePS > 0", "", {"CvePS", "Codigo", "Cantidad"})
            Dim asd As Integer = DtApartados.Rows.Count

--- a/Ashx/MHRedes.ashx
+++ b/Ashx/MHRedes.ashx
@@ -62,7 +62,7 @@ Public Class MobileHandler : Implements IHttpHandler

        If User IsNot Nothing Then

-            Dim Token As String = String.Format("{0}*{1}*{2}", Now.ToString, IP, User.CveUsuario)
+            Dim Token As String = String.Format("{0}*{1}*{2}", ClsPaginas.NowADS().ToString, IP, User.CveUsuario)
            Token = Encripta(Token)
            json.AppendFormat("{{ ""CveUsuario"" : ""{0}"", ""Nombre"" : ""{1}"", ""Token"" : ""{2}"" }} ", User.CveUsuario, User.Nombre, Token)
        Else
--- a/Ashx/SIGFacturacion.ashx
+++ b/Ashx/SIGFacturacion.ashx
@@ -63,7 +63,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
            'EnviarCorreoFactura(New Modelos.Factura(Usuario, 844966, 1, context.ModExtensiones.DirectorioBaseEmpresas), Usuario)

            If String.IsNullOrEmpty(pFechaI) AndAlso String.IsNullOrEmpty(pFechaF) Then
-                Dim FechaReferencia = Now
+                Dim FechaReferencia = ClsPaginas.NowADS()
                If FechaReferencia.DayOfWeek = DayOfWeek.Sunday Then
                    Dim Sabado = FechaReferencia.AddDays(-1)
                    Dim DomingoAnterior = FechaReferencia.AddDays(-7)
@@ -290,11 +290,11 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
            ObjFactura.TipoDocto = "Ing"
            ObjFactura.RefDocto = ""
            'ObjFactura.CveMesa = -1
-            ObjFactura.Fecha = Now
+            ObjFactura.Fecha = ClsPaginas.NowADS()
            ObjFactura.CvePrePoliza = -1
-            ObjFactura.FechaPago = Now
+            ObjFactura.FechaPago = ClsPaginas.NowADS()
            ObjFactura.MotivoDescuento = ""
-            ObjFactura.FechaEjecucion = Now
+            ObjFactura.FechaEjecucion = ClsPaginas.NowADS()
            ObjFactura.UsuarioCreo = UsuarioActual.Usuario
            ObjFactura.CveCondicionEntrega = -1
            ObjFactura.CondicionEntrega = ""
@@ -384,7 +384,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState

            'VALIDA PROMOCIONES Y EXISTENCIAS
            Dim ObjVentas As New ClsVentas
-            If ObjVentas.GetPromocionesPS(-1, Now, CveSubProyecto, ObjFactura.CveCliente, ObjFactura.CveVendedor,  1, UsuarioActual.CveEmpresa) Then
+            If ObjVentas.GetPromocionesPS(-1, ClsPaginas.NowADS(), CveSubProyecto, ObjFactura.CveCliente, ObjFactura.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
                ObjFactura.DtPromociones = ObjVentas.DtResultados.Copy()
            End If

@@ -905,8 +905,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
        Dim ArchivoW As StreamWriter
        Dim strLineaTMP As String

-        '  strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
-        strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
+        '  strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
+        strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString)
        Try
            ArchivoW = New StreamWriter(String.Format("{0}\LogFacturacion.txt", ModExtensiones.DirectorioBaseEmpresas), True, System.Text.Encoding.UTF8)
        Catch ex As UnauthorizedAccessException
--- a/Ashx/SIGFacturacionCiclica.ashx
+++ b/Ashx/SIGFacturacionCiclica.ashx
@@ -94,7 +94,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt

    Private Function IniciaFacturacionMasiva() As Boolean
        Dim Retorno As Boolean = True
-        Dim FechaRef As DateTime = DateTime.Now
+        Dim FechaRef As DateTime = ClsPaginas.NowADS()
        Dim DTCicloComercial As DataTable = Nothing

        Using ObjContratos As New ClsContratos
@@ -123,11 +123,11 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
            For Each Row As DataRow In DTCicloComercial.Rows

                If Row("Observaciones").ToString().Contains("{DIA}") Then
-                    Row("Observaciones") = Row("Observaciones").ToString().Replace("{DIA}", DateTime.Now.Day.ToString())
+                    Row("Observaciones") = Row("Observaciones").ToString().Replace("{DIA}", ClsPaginas.NowADS().Day.ToString())
                End If

                If Row("Observaciones").ToString().Contains("{MES}") Then
-                    Dim fecha As DateTime = DateTime.Now
+                    Dim fecha As DateTime = ClsPaginas.NowADS()
                    Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
                    Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()

@@ -135,11 +135,11 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
                End If

                If Row("Observaciones").ToString().Contains("{AÑO}") Then
-                    Row("Observaciones") = Row("Observaciones").ToString().Replace("{AÑO}", DateTime.Now.Year.ToString())
+                    Row("Observaciones") = Row("Observaciones").ToString().Replace("{AÑO}", ClsPaginas.NowADS().Year.ToString())
                End If

                If Row("Observaciones").ToString().Contains("{TC}") Then
-                    Row("Observaciones") = Row("Observaciones").ToString().Replace("{TC}", ClsPaginas.GlobalTipoCambio(Now).FormatoNumero)
+                    Row("Observaciones") = Row("Observaciones").ToString().Replace("{TC}", ClsPaginas.GlobalTipoCambio(ClsPaginas.NowADS()).FormatoNumero)
                End If

                Dim Resp = EmitirImprimir(UsuarioActual, Row)
@@ -291,7 +291,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
            ObjFactura.CveMoneda = DR("CveMoneda").ToString.ToEntero
            ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ")
            ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DR("CveMoneda").ToString.ToEntero}")
-            ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(Now)).ToDecimal
+            ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(ClsPaginas.NowADS())).ToDecimal
            ObjFactura.TipoDocto = "Ing"
            ObjFactura.RefDocto = ""
            ObjFactura.Folio = -1
--- a/Ashx/SIGPolizaVirtual.ashx
+++ b/Ashx/SIGPolizaVirtual.ashx
@@ -468,7 +468,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
        obj.customer_car_year = ObjFactura.Fecha.Year

        'DATOS DE VENTA
-        obj.sale_date = Now
+        obj.sale_date = ClsPaginas.NowADS()
        obj.sale_paidby = "01"
        obj.sale_type = "01" 'PISO 
        obj.sale_type_service = "01" 'PARTICULAR 
@@ -499,7 +499,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
        obj.customer_name = "JOSE ENRIQUE"
        obj.customer_last_name1 = "VIZCARA"
        obj.customer_last_name2 = "RENDON"
-        obj.customer_birthday = Now
+        obj.customer_birthday = ClsPaginas.NowADS()
        obj.customer_phone = "8186545256"
        obj.customer_email = "mail@mail.com"
        obj.customer_gender = "02"
@@ -509,7 +509,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
        obj.customer_car_year = 2015

        'DATOS DE VENTA
-        obj.sale_date = Now
+        obj.sale_date = ClsPaginas.NowADS()
        obj.sale_paidby = "01"
        obj.sale_type = "01"
        obj.sale_type_service = "01"
@@ -527,7 +527,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
        obj.used_bci = "25"
        obj.used_month = 1
        obj.used_year = 2015
-        obj.used_sale_date = Now
+        obj.used_sale_date = ClsPaginas.NowADS()

        EnviarPolizaVentaLTHWSD(context, obj)
    End Sub
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -58,13 +58,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                    ActualizaPrePoliza(context)

                    Dim obj As New MResponseModel(Of Object)()
-                    obj.Result = DateTime.Now.ToString()
+                    obj.Result = ClsPaginas.NowADS().ToString()
                    Dim retorno = JsonConvert.SerializeObject(obj).ToString()
                    context.Response.Write(retorno)
                    context.Response.StatusCode = 200
                Case "RevisaConexion"
                    Dim obj As New MResponseModel(Of Object)()
-                    obj.Result = DateTime.Now.ToString()
+                    obj.Result = ClsPaginas.NowADS().ToString()
                    Dim retorno = JsonConvert.SerializeObject(obj).ToString()
                    context.Response.Write(retorno)
                    context.Response.StatusCode = 200
@@ -282,7 +282,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
        Dim tokenDescriptor = New Microsoft.IdentityModel.Tokens.SecurityTokenDescriptor With {
        .Subject = New System.Security.Claims.ClaimsIdentity(New System.Security.Claims.Claim() {New System.Security.Claims.Claim("CvePlataforma", usuario.CvePlataforma.ToString()),
        New System.Security.Claims.Claim("CveUsuario", usuario.CveUsuario.ToString()), New System.Security.Claims.Claim("CveEmpresa", usuario.CveEmpresa.ToString()),
-        New System.Security.Claims.Claim("CveRol", usuario.CveRol.ToString()), New System.Security.Claims.Claim("Fecha", Date.Now.ToLongDateString())}),
+        New System.Security.Claims.Claim("CveRol", usuario.CveRol.ToString()), New System.Security.Claims.Claim("Fecha", ClsPaginas.NowADS().ToLongDateString())}),
        .Expires = Date.UtcNow.AddHours(3),
        .SigningCredentials = New Microsoft.IdentityModel.Tokens.SigningCredentials(
        New Microsoft.IdentityModel.Tokens.SymmetricSecurityKey(Encoding.ASCII.GetBytes("*_AsistenciaDesarrolloSistemas-SIGAPI_*17-06-2020")),
@@ -488,7 +488,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
        savepath = context.Server.MapPath(tempPath)
        Dim filename As String
        Dim tick As String
-        tick = (DateTime.Now.Ticks + 1).ToString()
+        tick = (ClsPaginas.NowADS().Ticks + 1).ToString()
        If Not Directory.Exists(savepath) Then
            Directory.CreateDirectory(savepath)
        End If
--- a/Ashx/TareasProgramadas.ashx
+++ b/Ashx/TareasProgramadas.ashx
@@ -70,7 +70,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
        Dim retorno As String = "no se encontro la variable"
        Try
            Dim metodo As String = ""
-            Dim FechaActual As DateTime = Now
+            Dim FechaActual As DateTime = ClsPaginas.NowADS()
            Dim FechaEnvio As DateTime = FechaActual

            If context.Request("var") IsNot Nothing Then
@@ -387,7 +387,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
        Dim Json As New JObject(
            New JProperty("Empresa", UsuarioActual.Empresa.Empresa),
            New JProperty("Usuario", UsuarioActual.Usuario),
-            New JProperty("Fecha", DateTime.Now.ToString("dd/MM/yyy HH:mm:ss"))
+            New JProperty("Fecha", ClsPaginas.NowADS().ToString("dd/MM/yyy HH:mm:ss"))
        )
        Dim DTClientes As DataTable = Nothing
        Dim EnviarPendientes As Boolean = False
@@ -414,7 +414,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
                Dim Grupo As Integer = 5
                Dim TipoCambio As Integer = 1
                Dim TipoDocto As String = "Ing"
-                Dim FechaCorte As DateTime = New DateTime(Now.Year, 12, 31)
+                Dim FechaCorte As DateTime = New DateTime(ClsPaginas.NowADS().Year, 12, 31)

                If ObjMov.GetCxC(FechaI, FechaF, CveCliente, CveSubProyecto, CveVendedor, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, -1, TipoCambio, TCEspecifico, TipoDocto, FechaVI, FechaVF, FechaCorte:=FechaCorte,
                                 EstatusCliente:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=-1, TipoCliente:=-1, AplicaAnticiposPagados:=AplicaAnticipos) Then
@@ -677,7 +677,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
                    lista.Add(New CrystalParametro("TipoCuentas", "Con Saldo"))
                    lista.Add(New CrystalParametro("NombreCliente", Cliente.Nombre))
                    lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI)))
-                    lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF)))
+                    lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", ClsPaginas.NowADS().ToShortDateString, FF)))
                    lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
                    lista.Add(New CrystalParametro("DireccionCliente", String.Format("Calle {0} #{1} Colonia {2}", Cliente.Direccion, If(Cliente.NoExt = "", "S/N", Cliente.NoExt), Cliente.Colonia)))
                    lista.Add(New CrystalParametro("ClienteCP", Cliente.CP))
@@ -719,7 +719,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
                    lista.Add(New CrystalParametro("TipoCuentas", "Con Saldo"))
                    lista.Add(New CrystalParametro("NombreCliente", Cliente.Nombre))
                    lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI)))
-                    lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF)))
+                    lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", ClsPaginas.NowADS().ToShortDateString, FF)))
                    lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
                    lista.Add(New CrystalParametro("DireccionCliente", String.Format("Calle {0} #{1} Colonia {2}", Cliente.Direccion, If(Cliente.NoExt = "", "S/N", Cliente.NoExt), Cliente.Colonia)))
                    lista.Add(New CrystalParametro("ClienteCP", Cliente.CP))
@@ -870,8 +870,8 @@ Public Class TareasProgramadas : Implements IHttpHandler
        Dim ArchivoW As StreamWriter
        Dim strLineaTMP As String

-        '  strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
-        strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
+        '  strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
+        strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString)
        Try
            ArchivoW = New StreamWriter(String.Format("{0}\Log\LogEdoCuenta.txt", ModExtensiones.DirectorioBaseEmpresas), True, System.Text.Encoding.UTF8)
        Catch ex As UnauthorizedAccessException
@@ -1066,7 +1066,7 @@ Public Class TareasProgramadas : Implements IHttpHandler

        If Not String.IsNullOrEmpty(Mail) Then
            Try
-                Dim Asunto As String = $"ScoreCard: {Now.ToString("dd/MM/yyyy")}"
+                Dim Asunto As String = $"ScoreCard: {ClsPaginas.NowADS().ToString("dd/MM/yyyy")}"
                Dim Cuerpo As String = String.Empty
                Dim ResultadoMail As Integer = 0