Empresas Zona Horaria

OS/Asignaciones.aspx.vb

@@ -374,7 +374,7 @@ Partial Class OS_Asignaciones
 
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+            params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
 
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
@@ -465,7 +465,7 @@ Partial Class OS_Asignaciones
                 e.Row.FCCheckBox("ChbxAsignar").Checked = False
                 e.Row.FCCheckBox("ChbxAsignar").Visible = True
                 e.Row.FCTextBox("FechaOS").Visible = True
-                e.Row.FCTextBox("FechaOS").Text = Now.ToString("dd/MM/yyy")
+                e.Row.FCTextBox("FechaOS").Text = NowADS().ToString("dd/MM/yyy")
                 e.Row.FCLinkButton("imgCalendario").Visible = True
                 e.Row.FCLiteral("LtlHoraServicio").Visible = False
                 e.Row.FindControl("TimeSelector").Visible = True
@@ -487,7 +487,7 @@ Partial Class OS_Asignaciones
 
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+        params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
         params.Add(New ReportParameter("FechaInicio", txtFechaI.Text))
         params.Add(New ReportParameter("FechaFin", txtFechaF.Text))
 

OS/OrdenesServicios.aspx.vb

@@ -347,7 +347,7 @@ Partial Class OS_OrdenesServicios
                 DivSeFactura.Visible = True
                 BtnGuardar.Text = "Guardar Cambios"
                 LtlTitulo.Text = "Consulta del Orden de Servicio"
-                TxtFecha.Text = Now.ToString("dd/MM/yyy")
+                TxtFecha.Text = NowADS().ToString("dd/MM/yyy")
 
                 If UsuarioActual.TienePermisoProceso(198) Then
                     ChkSeFacturara.Visible = True
@@ -358,7 +358,7 @@ Partial Class OS_OrdenesServicios
                 End If
             Else
                 DivSeFactura.Visible = False
-                TxtFechaRecibido.Text = Now.ToString("dd/MM/yyy")
+                TxtFechaRecibido.Text = NowADS().ToString("dd/MM/yyy")
                 ViewState("CveOS") = -1
                 DdlEstatusOS.Enabled = False
                 CargaEstatusOS()
@@ -1173,7 +1173,7 @@ Partial Class OS_OrdenesServicios
 
             '        Dim objEventos As New ClsOIEventos(ObjOrdenServicio.IniciaTransacSQL)
 
-            '        If Not objEventos.FinalizaEvento(Now, 3, "", -1, CveOS) Then
+            '        If Not objEventos.FinalizaEvento(NowADS(), 3, "", -1, CveOS) Then
             '            Errores = True
             '        End If
 
@@ -1230,7 +1230,7 @@ Partial Class OS_OrdenesServicios
 
 
                             Dim CveUsuarioEntrego As Integer = If(Entregar = True, UsuarioActual.CveUsuario, -1)
-                            Dim FechaEntrega As String = If(Entregar = True, Now.ToString("dd/MM/yyy"), "-1")
+                            Dim FechaEntrega As String = If(Entregar = True, NowADS().ToString("dd/MM/yyy"), "-1")
                             Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero
                             CveConsecutivo = Consecutivo
 
@@ -1313,7 +1313,7 @@ Partial Class OS_OrdenesServicios
 
                     Dim objEventos As New ClsOIEventos(ObjOrdenServicio.IniciaTransacSQL)
 
-                    If Not objEventos.FinalizaEvento(Now, 3, "", -1, CveOS, UsuarioActual.CveUsuario) Then
+                    If Not objEventos.FinalizaEvento(NowADS(), 3, "", -1, CveOS, UsuarioActual.CveUsuario) Then
                         Errores = True
                     End If
 
@@ -2781,7 +2781,7 @@ Partial Class OS_OrdenesServicios
     'End Sub
     Private Sub LimpiaMovimiento()
         CargaAlmacen()
-        TxtFecha.Text = Now.ToShortDateString
+        TxtFecha.Text = NowADS().ToShortDateString
         UpAddMateriales.Update()
     End Sub
     Private Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged

OS/RepOrdenesServicios.aspx.vb

@@ -20,7 +20,7 @@ Partial Class OS_RepOrdenesServicios
                 ViewState("CveUsuarioTecnico") = -1
             End If
 
-            txtFechaI.Text = $"01/01/{Now.Year}"
+            txtFechaI.Text = $"01/01/{NowADS().Year}"
 
             CargaDatos()
             OrdenaDatos()
@@ -116,7 +116,7 @@ Partial Class OS_RepOrdenesServicios
         End If
     End Sub
     'Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
-    '    GvDatos.ExportToExcel("RepOrdenesServicio_" & Now.ToShortDateString)
+    '    GvDatos.ExportToExcel("RepOrdenesServicio_" & NowADS().ToShortDateString)
     'End Sub
 
 #Region "O R D E N A M I E N T O"

OS/RepServicioDomicilio.aspx.vb

@@ -211,7 +211,7 @@ Partial Class OS_RepServicioDomicilio
     Private Property FechaInicioOriginal As DateTime
         Get
             If ViewState("FechaInicioOriginal") Is Nothing Then
-                ViewState("FechaInicioOriginal") = DateTime.Now
+                ViewState("FechaInicioOriginal") = NowADS()
             End If
             Return ViewState("FechaInicioOriginal").ToString.ToDateTime
         End Get
@@ -673,11 +673,11 @@ Partial Class OS_RepServicioDomicilio
         TxtAnio.Text = ""
 
         TxtModalFechaOS.Text = ""
-        'TSTimeSelector.Hour = Now.Hour
-        'TSTimeSelector.Minute = Now.Minute
+        'TSTimeSelector.Hour = NowADS().Hour
+        'TSTimeSelector.Minute = NowADS().Minute
 
         CveTecnicoAsignarOrioginal = -1
-        FechaInicioOriginal = DateTime.Now
+        FechaInicioOriginal = NowADS()
 
         DVFolio.Visible = False
         DvModalSubProyecto.Visible = False
@@ -707,7 +707,7 @@ Partial Class OS_RepServicioDomicilio
                 DdlClientesWS.ddl.SelectedValueExist(CveClientePublicoGeneral)
             End If
 
-            TxtFechaOS.Text = Now.ToString("dd/MM/yyyy")
+            TxtFechaOS.Text = NowADS().ToString("dd/MM/yyyy")
             RegistraScript("$('#DVModalOS').modal('show');")
             LblModalOStitulo.Text = "Agregar Orden de Servicio"
 
@@ -1130,7 +1130,7 @@ Partial Class OS_RepServicioDomicilio
                 params.Add(New ReportParameter("Año", dr("Año").ToString))
                 params.Add(New ReportParameter("TelefonoContacto", dr("TelefonoContacto").ToString))
 
-                params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                 params.Add(New ReportParameter("Condiciones", dr("Condiciones").ToString))
                 params.Add(New ReportParameter("FechaAtencion", If(dr("FechaInicio").ToString.Length > 0, dr("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy hh:mm tt"), "")))
@@ -1154,7 +1154,7 @@ Partial Class OS_RepServicioDomicilio
 
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+            params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
 
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))