Merge branch 'master' of http://192.168.10.111:8383/SIG

RH/ActualizacionMasiva.aspx.vb

@@ -254,7 +254,7 @@ Partial Class RH_ActualizacionMasiva
                         ObjPersonal.RollBack()
                         Exit For
                     End If
-                    If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
+                    If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), NowADS().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
                                                   Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
                                                   Row.FCCheckBox("ChkCalcularSDI").Checked) Then
 
@@ -410,7 +410,7 @@ Partial Class RH_ActualizacionMasiva
                         If Not IsNothing(drow) Then
 
                             Dim CvePersonal As Integer = drow("CvePersonal").ToString().ToEntero()
-                            If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(),
+                            If ObjPersonal.UpdateSalarios(CvePersonal, NowADS().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(),
                                                           Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal(), ChkCalcularSDIXLS.Checked) Then
                                 contador = contador + 1
                             Else

RH/AsistenciaDetalle.aspx.vb

@@ -210,7 +210,7 @@ Partial Class RH_AsistenciaDetalle
         Dim ObjAsistencias As New ClsRH
         Dim ObjAsistenciasDetalle As New ClsRH
 
-        If ObjAsistencias.AddAsistencia(CvePersonal, -1, DdlSubProyectoAsignado.SelectedValue.ToEntero, Now, 6, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If ObjAsistencias.AddAsistencia(CvePersonal, -1, DdlSubProyectoAsignado.SelectedValue.ToEntero, NowADS(), 6, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             If ObjAsistencias.CveAsistencia > 0 AndAlso
                 ObjAsistenciasDetalle.AddAsistenciasDetalle(ObjAsistencias.CveAsistencia, DdlSubProyectoAsignado.SelectedValue.ToEntero, TxtHoraInicio.Text.Trim.ToDateTime, TxtHoraFin.Text.Trim.ToDateTime, DdlTipoHora.SelectedValue.ToEntero) Then
                 TxtHoraInicio.Text = ""

RH/Asistencias.aspx.vb

@@ -29,7 +29,7 @@ Partial Class RH_Asistencias
                 GV.Columns(2).Visible = False
                 GV.Columns(3).Visible = True
             End If
-            txtFechaAsistencia.Text = Now.ToShortDateString
+            txtFechaAsistencia.Text = NowADS().ToShortDateString
             If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveUsuario = 2343 Then
                 PnlMasivo.Visible = True
             End If
@@ -94,7 +94,7 @@ Partial Class RH_Asistencias
         txtFechaAsistencia.Enabled = False
         Calendario.Enabled = False
         btnconsultarnew.Visible = True
-        If txtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(Now.Year - 1, Now.Year, Now.Year + 1) Then
+        If txtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(NowADS().Year - 1, NowADS().Year, NowADS().Year + 1) Then
             Dim objpersonal As New ClsRH
             If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, DdlTipoPeriodo.SelectedValue.ToEntero, txtFechaAsistencia.Text.Trim.ToDate, txtFechaAsistencia.Text.Trim.ToDate, UsuarioActual.CveEmpresa, DdlPuesto.SelectedValue.ToEntero) Then
                 Dim dt As DataTable = objpersonal.DtResultados
@@ -157,7 +157,7 @@ Partial Class RH_Asistencias
 
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("Fecha", Fecha))
-        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy HH:mm")))
+        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy HH:mm")))
         params.Add(New ReportParameter("Filtros", Filtros))
 
         Dim lrds As New List(Of ReportDataSource)

RH/BuzonCalidad.aspx.vb

@@ -41,7 +41,7 @@ Partial Class RH_BuzonCalidad
     '		Else
 
     '			'Configuración de Modalidad Insert
-    '			LblFechaCaptura.Text = Now.ToShortDateString()
+    '			LblFechaCaptura.Text = NowADS().ToShortDateString()
     '			LblUsuarioCapturo.Text = UsuarioActual.Usuario
     '			ViewState("CvePersonal") = -1
     '			BtnEliminar.Visible = False

RH/BuzonCalidad.aspx.vb.exclude

@@ -41,7 +41,7 @@ Partial Class RH_BuzonCalidad
 			Else
 
 				'Configuración de Modalidad Insert
-				LblFechaCaptura.Text = Now.ToShortDateString()
+				LblFechaCaptura.Text = NowADS().ToShortDateString()
 				LblUsuarioCapturo.Text = UsuarioActual.Usuario
 				ViewState("CvePersonal") = -1
 				BtnEliminar.Visible = False

RH/CalculoSBC.aspx.cs

@@ -40,7 +40,7 @@ public partial class RH_CalculoSBC : ClsPaginas
     {
         if (!IsPostBack)
         {
-            TxtFechaPago.Text = String.Format("{0:01/MM/yyyy}", DateTime.Now);
+            TxtFechaPago.Text = String.Format("{0:01/MM/yyyy}", NowADS());
 
 
             ClsRH ObjRH = new ClsRH();
@@ -806,8 +806,8 @@ public partial class RH_CalculoSBC : ClsPaginas
         libro.Range(2, 2, 2, 6).Style.Font.SetFontSize(14);
         libro.Range(1, 2, 2, 6).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
         //libro.Range(3, 2, 3, 6).Merge().Value = $"del {fechai:dd/MM/yyyy} al {fechaf:dd/MM/yyyy}";
-        libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{DateTime.Now:dd/MM/yyyy}";
-        libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{DateTime.Now:HH:mm}";
+        libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{NowADS():dd/MM/yyyy}";
+        libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{NowADS():HH:mm}";
         libro.Range(5, 8, 5, 12).Merge().Value = "Actual";
         libro.Range(5, 13, 5, 15).Merge().Value = "Nuevo";
 

RH/CatChecadorTipo.aspx.vb

@@ -31,7 +31,7 @@ Partial Class RH_ChecadorTipo
                 Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
             End If
         ElseIf HdnModalidad.Value = "U" Then
-            If ObjRH.ChecadorTipoUpdate(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, TxtChecadorTipo.Text, TxtDescripcion.Text, Estatus, Date.Now) Then
+            If ObjRH.ChecadorTipoUpdate(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, TxtChecadorTipo.Text, TxtDescripcion.Text, Estatus, NowADS()) Then
                 CargaDatos()
                 Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
             End If

RH/CatConceptosViaticos.aspx.cs

@@ -123,7 +123,7 @@ public partial class RH_CatConceptosViaticos : ClsPaginas
         Boolean Estatus = ChkEstatus.Checked;
 
         int CveUsuarioIng = UsuarioActual.CveUsuario;
-        DateTime FechaIng = DateTime.Now;
+        DateTime FechaIng = NowADS();
 
         if (EsEditar == 0)
         {

RH/CatCursos.aspx.vb

@@ -302,7 +302,7 @@ Partial Class RH_CatCursos
 
 
         Dim RpNombreCurso As String = TxtCurso.Text
-        Dim RpFechas As String = Now.ToString("dd/MM/yyyy")
+        Dim RpFechas As String = NowADS().ToString("dd/MM/yyyy")
         Dim RpTema As String = DDlTema.SelectedItem.Text
         Dim RpSubTema As String = DDLSubtema.SelectedItem.Text
         Dim RpCapacitador As String = DDLCapacitador.SelectedItem.Text
@@ -418,7 +418,7 @@ Partial Class RH_CatCursos
         ChkEstatus.Checked = True
         ChkConstancias.Checked = False
 
-        txtInicio.Text = Now.ToString("dd/MM/yyyy")
+        txtInicio.Text = NowADS().ToString("dd/MM/yyyy")
         TxtHoraEntrada.Text = ""
         TxtUbicacion.Text = ""
 
@@ -625,7 +625,7 @@ Partial Class RH_CatCursos
 
             Response.Clear()
             Response.ContentType = "application/force-download"
-            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Constancia_Curso_" & _CveCurso & "_" & Now.ToString("yyyyMMddhhmmss") & ".docx")
+            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Constancia_Curso_" & _CveCurso & "_" & NowADS().ToString("yyyyMMddhhmmss") & ".docx")
             Response.BinaryWrite(DocumenBitArray)
             Response.End()
         End If

RH/CatPersonal.aspx.vb

@@ -42,7 +42,7 @@ Partial Class RH_CatPersonal
                 HplAddVenta.Visible = False
             End If
             LnkAddPersonalSimplificado.Visible = Not HplAddVenta.Visible
-            TxtFechaIngreso.Text = String.Format("{0:dd/MM/yyyy}", DateTime.Now)
+            TxtFechaIngreso.Text = String.Format("{0:dd/MM/yyyy}", NowADS())
             ViewState("Orden") = ""
             CargaEscolaridad()
             CargaEstadoCivil()
@@ -688,7 +688,7 @@ Partial Class RH_CatPersonal
         'params.Add(New ReportParameter("FechaInicio", FechaI))
         'params.Add(New ReportParameter("FechaFin", FechaF))
         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}", "")))
         ImprimirPDF("Empresas\Grales\Formatos\RepPersonal.rdlc", DTDatos, params, "ReporteTareas", Formato:=Formato)
@@ -733,7 +733,7 @@ Partial Class RH_CatPersonal
 
         Response.Clear()
 
-        Response.AddHeader("content-disposition", $"attachment;filename=personalizado_{Now.ToString("yyyyMMddhhmmss")}.xls")
+        Response.AddHeader("content-disposition", $"attachment;filename=personalizado_{NowADS().ToString("yyyyMMddhhmmss")}.xls")
         Response.AddHeader("Content-Length", memoryStream.Length.ToString())
         Response.ContentType = "application/octet-stream"
         memoryStream.WriteTo(Response.OutputStream)
@@ -1162,8 +1162,8 @@ Partial Class RH_CatPersonal
         '        libro.Range(1, 2, 2, 6).Style.Font.SetFontSize(16)
         '        libro.Range(2, 2, 2, 6).Style.Font.SetFontSize(14)
         '        libro.Range(1, 2, 2, 6).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center
-        '        libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{DateTime.Now}"
-        '        libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{DateTime.Now}"
+        '        libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{NowADS()}"
+        '        libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{NowADS()}"
         '    End If
         'End Using
     End Sub

RH/DocumentacionVencida.aspx.vb

@@ -10,8 +10,8 @@ Partial Class RH_DocumentacionVencida
     Private Sub RH_DocumentacionVencida_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaCombos()
-            TxtFechaI.Text = Now.AddDays(-15).ToString("dd/MM/yyyy")
-            TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
+            TxtFechaI.Text = NowADS().AddDays(-15).ToString("dd/MM/yyyy")
+            TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
         End If
     End Sub
 

RH/ListaAsistenciaRH.aspx.vb

@@ -23,7 +23,7 @@ Partial Class RH_ListaAsistenciaRH
     Private Sub RH_ListaAsistencia_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
-            txtFecha.Text = Now.ToShortDateString
+            txtFecha.Text = NowADS().ToShortDateString
             CveSupervisor = UsuarioActual.CvePersonal
             CargaCombos()
             CargaDatos()

RH/MiPerfil.aspx.vb

@@ -104,7 +104,7 @@ Partial Class RH_MiPerfil
     Private Property VacInicioPeriodo As Date
         Get
             If ViewState("VacInicioPeriodo") Is Nothing Then
-                Return Now
+                Return NowADS()
             Else
                 Return DirectCast(ViewState("VacInicioPeriodo"), Date)
             End If
@@ -116,7 +116,7 @@ Partial Class RH_MiPerfil
     Private Property VacFinPeriodo As Date
         Get
             If ViewState("VacFinPeriodo") Is Nothing Then
-                Return Now
+                Return NowADS()
             Else
                 Return DirectCast(ViewState("VacFinPeriodo"), Date)
             End If
@@ -559,7 +559,7 @@ Partial Class RH_MiPerfil
 
         Dim ObjRH As New ClsRH
 
-        If ObjRH.ChecadorPermisosGet(-1, "-1", CvePersonal, Now.AddMonths(-3), Now.AddMonths(2), -1, -1, UsuarioActual.CveEmpresa) Then
+        If ObjRH.ChecadorPermisosGet(-1, "-1", CvePersonal, NowADS().AddMonths(-3), NowADS().AddMonths(2), -1, -1, UsuarioActual.CveEmpresa) Then
             GvPermisos.DataSource = ObjRH.DtResultados
         Else
             GvPermisos.DataSource = Nothing
@@ -797,8 +797,8 @@ Partial Class RH_MiPerfil
                 VacCveSupervisor = objRH.DtResultados(0)("SupervisorCorreo").ToString.ToEntero
 
             Else
-                VacInicioPeriodo = Now
-                VacFinPeriodo = Now
+                VacInicioPeriodo = NowADS()
+                VacFinPeriodo = NowADS()
                 VacAnios = 0
                 VacDias = 0
                 VacDiasUsados = 0
@@ -851,7 +851,7 @@ Partial Class RH_MiPerfil
         Dim diasPermiso As String = GvRow.DataKey("Dias")
         Dim MotivoPermiso As String = GvRow.DataKey("Motivo")
         Dim Puesto As String = puestoProp
-        Dim Fecha As String = DateTime.Now.ToString("dd/MM/yyyy")
+        Dim Fecha As String = NowADS().ToString("dd/MM/yyyy")
         Dim Solicitante As String = UsuarioActual.Nombre
         Dim anio As Integer = GvRow.DataKey("FechaInicio").ToDate().Year
         If Periodoingreso > PeriodoInicio Then
@@ -893,7 +893,7 @@ Partial Class RH_MiPerfil
 
             Response.Clear()
             Response.ContentType = "application/force-download"
-            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
+            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & NowADS().ToString("yyyyMMddhhmmss") & ".pdf")
             Response.BinaryWrite(bytesInStream)
             Response.End()
 
@@ -949,8 +949,8 @@ Partial Class RH_MiPerfil
                 ListaTagsDocumentost.Add(New TagsDocumentos("{CUIP}", ""))
                 ListaTagsDocumentost.Add(New TagsDocumentos("{Denominacion}", ""))
                 ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString.ToDate.ToString("dd/MM/yyyy")))
-                Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
-                Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
+                Dim fechaActual As String = " " & NowADS().Day & " del mes " & NowADS().Month & " del año " & NowADS().Year
+                Dim FechaActualDF As String = NowADS().ToString("dd/MM/yyyy")
                 ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
                 ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
             End If
@@ -1007,7 +1007,7 @@ Partial Class RH_MiPerfil
 
             Response.Clear()
             Response.ContentType = "application/force-download"
-            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
+            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & NowADS().ToString("yyyyMMddhhmmss") & ".pdf")
             Response.BinaryWrite(bytesInStream)
             Response.End()
         Else
@@ -1545,7 +1545,7 @@ end_of_for:
             Else
 
                 'GUARDA SOLICITUDES NUEVAS
-                CveSolicitudViatico = ObjBancos.AddSolicitudesViaticos(TxtFolio.Text, DdlEstatus.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero(), TxtDestino.Text, TxtAsunto.Text, TxtFechaSalida.Text, TxtFechaRegreso.Text, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipoCarro:=TxtTipoCarro.Text, KM:=TxtKM.Text)
+                CveSolicitudViatico = ObjBancos.AddSolicitudesViaticos(TxtFolio.Text, DdlEstatus.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero(), TxtDestino.Text, TxtAsunto.Text, TxtFechaSalida.Text, TxtFechaRegreso.Text, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipoCarro:=TxtTipoCarro.Text, KM:=TxtKM.Text)
                 If (CveSolicitudViatico > 0) Then
 
                     For Each RowConcepto As DataRow In DTConceptosDetalles.Rows
@@ -1734,7 +1734,7 @@ end_of_for:
                 params.Add(New ReportParameter("TelefonoSolicitante", ObjBancos.DtResultados.FiltroPrimeroValor("TelefonoPersonal")))
 
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString()))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
 
                 params.Add(New ReportParameter("TotalADepositar", If(ObjBancos.DtResultados.FiltroPrimeroValor("TotalADepositar").ToDouble() > 0, ObjBancos.DtResultados.FiltroPrimeroValor("TotalADepositar"), "0").ToString()))
@@ -1797,7 +1797,7 @@ end_of_for:
             Else
 
                 'GUARDA SOLICITUDES NUEVAS
-                CveSolicitudViatico = ObjBancos.AddSolicitudesViaticos(TxtFolio.Text, DdlEstatus.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero(), TxtDestino.Text, TxtAsunto.Text, TxtFechaSalida.Text, TxtFechaRegreso.Text, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipoCarro:=TxtTipoCarro.Text, KM:=TxtKM.Text)
+                CveSolicitudViatico = ObjBancos.AddSolicitudesViaticos(TxtFolio.Text, DdlEstatus.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero(), TxtDestino.Text, TxtAsunto.Text, TxtFechaSalida.Text, TxtFechaRegreso.Text, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipoCarro:=TxtTipoCarro.Text, KM:=TxtKM.Text)
                 If (CveSolicitudViatico > 0) Then
 
                     For Each RowConcepto As DataRow In DTConceptosDetalles.Rows

RH/Personal.aspx

@@ -398,7 +398,7 @@
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtCredencialElector" runat="server" MaxLength="50"></asp:TextBox>
+                                                        <asp:TextBox CssClass="form-control" ID="TxtCredencialElector" runat="server" MaxLength="18"></asp:TextBox>
                                                         <label for="<%= TxtCredencialElector.ClientID.ToString()%>">Credencial Elector: </label>
                                                         <i></i>
                                                     </div>

RH/Personal.aspx.vb

@@ -203,7 +203,7 @@ Partial Class RH_Personal
     Private Property FechaLimite As Date
         Get
             If ViewState("FechaLimite") Is Nothing Then
-                Return Date.Now.AddDays(15)
+                Return NowADS().AddDays(15)
             Else
                 Return ViewState("FechaLimite").ToString().ToDate
             End If
@@ -438,7 +438,7 @@ Partial Class RH_Personal
     Private Property VacInicioPeriodo As Date
         Get
             If ViewState("VacInicioPeriodo") Is Nothing Then
-                Return Now
+                Return NowADS()
             Else
                 Return DirectCast(ViewState("VacInicioPeriodo"), Date)
             End If
@@ -450,7 +450,7 @@ Partial Class RH_Personal
     Private Property VacFinPeriodo As Date
         Get
             If ViewState("VacFinPeriodo") Is Nothing Then
-                Return Now
+                Return NowADS()
             Else
                 Return DirectCast(ViewState("VacFinPeriodo"), Date)
             End If
@@ -1009,7 +1009,7 @@ Partial Class RH_Personal
                 LoadDefaultValues()
 
                 ImgAddObs.Visible = False
-                LblFechaCaptura.Text = Now.ToShortDateString()
+                LblFechaCaptura.Text = NowADS().ToShortDateString()
                 LblUsuarioCapturo.Text = UsuarioActual.Usuario
                 ViewState("CvePersonal") = -1
                 BtnEliminar.Visible = False
@@ -1106,13 +1106,13 @@ Partial Class RH_Personal
         CargaClientes()
         Dim fechainicioasistencia As String
         Dim fechaFinasistencia As String
-        If Now.Day >= 15 Then
-            fechainicioasistencia = String.Format("{0:16/MM/yyyy}", Now)
-            Dim dateendasis As DateTime = String.Format("{0:01/MM/yyyy}", Now).ToDateTime().AddMonths(1).AddDays(-1)
+        If NowADS().Day >= 15 Then
+            fechainicioasistencia = String.Format("{0:16/MM/yyyy}", NowADS())
+            Dim dateendasis As DateTime = String.Format("{0:01/MM/yyyy}", NowADS()).ToDateTime().AddMonths(1).AddDays(-1)
             fechaFinasistencia = String.Format("{0:dd/MM/yyyy}", dateendasis)
         Else
-            fechainicioasistencia = String.Format("{0:01/MM/yyyy}", Now)
-            fechaFinasistencia = String.Format("{0:15/MM/yyyy}", Now)
+            fechainicioasistencia = String.Format("{0:01/MM/yyyy}", NowADS())
+            fechaFinasistencia = String.Format("{0:15/MM/yyyy}", NowADS())
         End If
         If Request("FechaI") IsNot Nothing AndAlso IsDate(Request("FechaI")) Then
             txtFechaI.Text = Request("FechaI")
@@ -1138,8 +1138,8 @@ Partial Class RH_Personal
             End If
         End If
 
-        TxtFechaICredito.Text = $"01/01/{Now.Year}"
-        TxtFechaFCredito.Text = Now.ToShortDateString
+        TxtFechaICredito.Text = $"01/01/{NowADS().Year}"
+        TxtFechaFCredito.Text = NowADS().ToShortDateString
 
         If UsuarioActual.Empresa.Funcionalidad(509) = "1" Then
             divCliente.Visible = True
@@ -1947,11 +1947,11 @@ Partial Class RH_Personal
                 End If
 
                 If VacDiasDisponibles > 0 Then
-                    TxtFechaInicioVac.Text = Now.AddDays(1).ToString("dd/MM/yyyy")
+                    TxtFechaInicioVac.Text = NowADS().AddDays(1).ToString("dd/MM/yyyy")
                 Else
-                    TxtFechaInicioVac.Text = Now.ToString("dd/MM/yyyy")
+                    TxtFechaInicioVac.Text = NowADS().ToString("dd/MM/yyyy")
                 End If
-                TxtFechaFinVac.Text = Now.AddDays(VacDiasDisponibles).ToString("dd/MM/yyyy")
+                TxtFechaFinVac.Text = NowADS().AddDays(VacDiasDisponibles).ToString("dd/MM/yyyy")
 
                 'PERSONAL ALTAS
                 If ObjPersonal.GetPersonalAltas(CvePersonal) Then
@@ -2256,7 +2256,7 @@ Partial Class RH_Personal
 
     '        objRH.Dispose()
     '        Cuerpo.AppendLine("<table border='0' style='width:100%'>")
-    '        Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  EmpresaDestino }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ Now.ToShortDateString }   { Now.ToShortTimeString  } <br/></td> </tr>")
+    '        Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  EmpresaDestino }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ NowADS().ToShortDateString }   { NowADS().ToShortTimeString  } <br/></td> </tr>")
     '        Cuerpo.AppendLine($"<tr><td style='  font-size:large; text-align: left;' colspan='3'>Notificacion por Alta de Nomina</td></tr>")
     '        Cuerpo.AppendLine("</table>")
 
@@ -3761,7 +3761,7 @@ Partial Class RH_Personal
                 params.Add(New ReportParameter("Numero", ObjPersonal.NumExt))
                 params.Add(New ReportParameter("Interior", ObjPersonal.NumInt))
                 params.Add(New ReportParameter("Colonia", ObjPersonal.Colonia))
-                params.Add(New ReportParameter("CP", Now.ToDateTime.ToShortDateString))
+                params.Add(New ReportParameter("CP", NowADS().ToDateTime.ToShortDateString))
                 params.Add(New ReportParameter("Ciudad", ObjPersonal.CP))
                 params.Add(New ReportParameter("Estado", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Telefono", ObjPersonal.Telefono))
@@ -3769,7 +3769,7 @@ Partial Class RH_Personal
                 params.Add(New ReportParameter("Beneficiario", ObjPersonal.Beneficiario))
                 params.Add(New ReportParameter("Celular", ObjPersonal.Celular))
                 params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
-                params.Add(New ReportParameter("LugarNacimiento", Now.ToDateTime.ToShortDateString))
+                params.Add(New ReportParameter("LugarNacimiento", NowADS().ToDateTime.ToShortDateString))
                 params.Add(New ReportParameter("CredencialElector", ObjPersonal.CredencialElector))
                 params.Add(New ReportParameter("NombrePadre", ObjPersonal.NombrePadre))
                 params.Add(New ReportParameter("NombreMadre", ObjPersonal.NombreMadre))
@@ -3854,13 +3854,13 @@ Partial Class RH_Personal
                 params.Add(New ReportParameter("Numero", ObjPersonal.NumExt))
                 params.Add(New ReportParameter("Interior", ObjPersonal.NumInt))
                 params.Add(New ReportParameter("Colonia", ObjPersonal.Colonia))
-                params.Add(New ReportParameter("CP", Now.ToDateTime.ToShortDateString))
+                params.Add(New ReportParameter("CP", NowADS().ToDateTime.ToShortDateString))
                 params.Add(New ReportParameter("Ciudad", ObjPersonal.CP))
                 params.Add(New ReportParameter("Estado", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Telefono", ObjPersonal.Telefono))
                 params.Add(New ReportParameter("Celular", ObjPersonal.Celular))
                 params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
-                params.Add(New ReportParameter("LugarNacimiento", Now.ToDateTime.ToShortDateString))
+                params.Add(New ReportParameter("LugarNacimiento", NowADS().ToDateTime.ToShortDateString))
                 params.Add(New ReportParameter("NombrePadre", ObjPersonal.NombrePadre))
                 params.Add(New ReportParameter("NombreMadre", ObjPersonal.NombreMadre))
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
@@ -3899,10 +3899,10 @@ Partial Class RH_Personal
                 params.Add(New ReportParameter("Banco", If(DdlBanco.SelectedValue = "-1", "", DdlBanco.SelectedItem.Text)))
                 params.Add(New ReportParameter("NoCuenta", ObjPersonal.BancoNumCuenta))
                 params.Add(New ReportParameter("CLABE", ObjPersonal.CLABE))
-                params.Add(New ReportParameter("Fecha", DateTime.Now.ToShortDateString))
+                params.Add(New ReportParameter("Fecha", NowADS().ToShortDateString))
                 Dim edad As Integer
-                edad = Now.Year - ObjPersonal.FechaNacimiento.Year
-                If Now.Month < ObjPersonal.FechaNacimiento.Month OrElse (Now.Month = ObjPersonal.FechaNacimiento.Month AndAlso Now.Day < ObjPersonal.FechaNacimiento.Day) Then
+                edad = NowADS().Year - ObjPersonal.FechaNacimiento.Year
+                If NowADS().Month < ObjPersonal.FechaNacimiento.Month OrElse (NowADS().Month = ObjPersonal.FechaNacimiento.Month AndAlso NowADS().Day < ObjPersonal.FechaNacimiento.Day) Then
                     edad = edad - 1
                 End If
 
@@ -3950,7 +3950,7 @@ Partial Class RH_Personal
 
     '        Dim objDoc As New clsGemBoxDocument(pathDesti)
     '        Dim objRH As New ClsRH
-    '        Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
+    '        Dim FechaActual As String = NowADS().Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & NowADS().Year.ToString()
 
 
     '        objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa))
@@ -4448,7 +4448,7 @@ Partial Class RH_Personal
 
         Dim objDoc As New clsGemBoxDocument(pathDesti)
         Dim objRH As New ClsRH
-        Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
+        Dim FechaActual As String = NowADS().Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & NowADS().Year.ToString()
 
 
         objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa))
@@ -4606,8 +4606,8 @@ Partial Class RH_Personal
                 ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate.ToString("dd/MM/yyyy")))
 
 
-                Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
-                Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
+                Dim fechaActual As String = " " & NowADS().Day & " del mes " & NowADS().Month & " del año " & NowADS().Year
+                Dim FechaActualDF As String = NowADS().ToString("dd/MM/yyyy")
                 ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
                 ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
             End If
@@ -4750,8 +4750,8 @@ Partial Class RH_Personal
     '        End If
 
 
-    '        Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
-    '        Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
+    '        Dim fechaActual As String = " " & NowADS().Day & " del mes " & NowADS().Month & " del año " & NowADS().Year
+    '        Dim FechaActualDF As String = NowADS().ToString("dd/MM/yyyy")
 
     '        ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
     '        ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
@@ -4782,7 +4782,7 @@ Partial Class RH_Personal
 
         'If Obj.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
         '    Dim ObjNomina As New ClsNominas()
-        '    ObjNomina.UpdateEstatusNomNominas(2, -1, "", "", Now, CveNomina)
+        '    ObjNomina.UpdateEstatusNomNominas(2, -1, "", "", NowADS(), CveNomina)
         '    ObjNomina.Dispose()
         '    Alert("La nómina se canceló correctamente.", TipoMensaje.MsgInformacion)
         'End If
@@ -4932,8 +4932,8 @@ Partial Class RH_Personal
                     VacCveSupervisor = objRH.DtResultados(0)("SupervisorCorreo").ToString().ToEntero()
 
                 Else
-                    VacInicioPeriodo = Now
-                    VacFinPeriodo = Now
+                    VacInicioPeriodo = NowADS()
+                    VacFinPeriodo = NowADS()
                     VacAnios = 0
                     VacDias = 0
                     VacDiasUsados = 0
@@ -5101,7 +5101,7 @@ Partial Class RH_Personal
 
         '    Dim objDoc As New clsGemBoxDocument(pathDesti)
 
-        '    Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
+        '    Dim FechaActual As String = NowADS().Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & NowADS().Year.ToString()
 
 
 
@@ -5138,7 +5138,7 @@ Partial Class RH_Personal
 
         '    ListaTagsDocumentost.Add(New TagsDocumentos("{FechaI}", TxtFechaInicioVac.Text))
         '    ListaTagsDocumentost.Add(New TagsDocumentos("{FechaF}", TxtFechaFinVac.Text))
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Fecha}", Now.ToString("dd/MM/yyyy")))
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Fecha}", NowADS().ToString("dd/MM/yyyy")))
 
         '    ListaTagsDocumentost.Add(New TagsDocumentos("{Reemplazo}", DdlPermisosReemplazo.SelectedItem.Text))
 
@@ -5291,7 +5291,7 @@ Partial Class RH_Personal
         Dim diasPermiso As String = GvRow.DataKey("Dias")
         Dim MotivoPermiso As String = GvRow.DataKey("Motivo")
         Dim Puesto As String = DdlPuesto.SelectedItem.Value
-        Dim Fecha As String = DateTime.Now.ToString("dd/MM/yyyy")
+        Dim Fecha As String = NowADS().ToString("dd/MM/yyyy")
         Dim Solicitante As String = UsuarioActual.Nombre
         Dim anio As Integer = GvRow.DataKey("FechaInicio").ToDate().Year
         Dim FechaPeriodo As String = GvRow.DataKey("Periodo")
@@ -5338,7 +5338,7 @@ Partial Class RH_Personal
 
             Response.Clear()
             Response.ContentType = "application/force-download"
-            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
+            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & NowADS().ToString("yyyyMMddhhmmss") & ".pdf")
             Response.BinaryWrite(bytesInStream)
             Response.End()
         Else
@@ -5388,7 +5388,7 @@ Partial Class RH_Personal
 
             Response.Clear()
             Response.ContentType = "application/force-download"
-            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
+            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & NowADS().ToString("yyyyMMddhhmmss") & ".pdf")
             Response.BinaryWrite(bytesInStream)
             Response.End()
         Else
@@ -5465,7 +5465,7 @@ Partial Class RH_Personal
 
                 Response.Clear()
                 Response.ContentType = "application/force-download"
-                Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & _Folio & "_" & Now.ToString("yyyyMMddhhmmss") & ".docx")
+                Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & _Folio & "_" & NowADS().ToString("yyyyMMddhhmmss") & ".docx")
                 Response.BinaryWrite(bytesInStream)
                 Response.End()
 
@@ -5641,7 +5641,7 @@ Partial Class RH_Personal
 
             Response.Clear()
             Response.ContentType = "application/force-download"
-            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Constancia_Curso_" & _CveCurso & "_" & Now.ToString("yyyyMMddhhmmss") & ".docx")
+            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Constancia_Curso_" & _CveCurso & "_" & NowADS().ToString("yyyyMMddhhmmss") & ".docx")
             Response.BinaryWrite(DocumenBitArray)
             Response.End()
 
@@ -5791,14 +5791,14 @@ Partial Class RH_Personal
         Dim Serie As String = TxtLiberarSerie.Text.Trim
         Dim Errores As String = ""
 
-        Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
+        Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
         If CveResultadoSalida > 0 Then
             Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=-3, Serie:=Serie, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
 
             Dim ResultadoDetalleEntrada As Boolean = False
             If ResultadoDetalleSalida Then
                 Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero()
-                Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
+                Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), 2, 1, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
                 If CveResultadoEntrada > 0 Then
                     ResultadoDetalleEntrada = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie)
                     If Not ResultadoDetalleEntrada Then
@@ -5874,7 +5874,7 @@ Partial Class RH_Personal
         Next
         If File.Exists(UsuarioActual.Empresa.Ruta & "RH\Personal\" & CvePersonal & "." & FileExtension) Then
             Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.{2}", UsuarioActual.CveEmpresa, CvePersonal, FileExtension)
-            Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}&version={4}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica), Now)
+            Dim logouri As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}&version={4}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica), NowADS())
             ImgPersonal.ImageUrl = logouri
         End If
         UpImage.Update()
@@ -5889,7 +5889,7 @@ Partial Class RH_Personal
 
         Dim ObjRH As New ClsRH
         Dim CvePersonal As Integer = If(IsNumeric(Request("CvePersonal")), Request("CvePersonal").ToString().ToEntero(), -1)
-        If ObjRH.ChecadorPermisosGet(-1, "-1", CvePersonal, Now.AddMonths(-3), Now.AddMonths(2), -1, -1, UsuarioActual.CveEmpresa) Then
+        If ObjRH.ChecadorPermisosGet(-1, "-1", CvePersonal, NowADS().AddMonths(-3), NowADS().AddMonths(2), -1, -1, UsuarioActual.CveEmpresa) Then
             GvPermisos.DataSource = ObjRH.DtResultados
         Else
             GvPermisos.DataSource = Nothing
@@ -6127,7 +6127,7 @@ Partial Class RH_Personal
         ObjPersonal.Dispose()
 
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()))
+        params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString()))
         params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
         ImprimirPDF(RutaPDF, DTConsumos, params, $"RepConsumoPersonal - {CodigoP} {NombreCompletoP}", Formato)
@@ -7019,7 +7019,7 @@ Partial Class RH_Personal
     End Sub
     Protected Sub LnkModsalario_Click(sender As Object, e As EventArgs)
 
-        TxtFechamodSalario.Text = DateTime.Now.ToString("dd/MM/yyyy")
+        TxtFechamodSalario.Text = NowADS().ToString("dd/MM/yyyy")
         TxtSalarioDiarioM.Text = TxtSalarioDiario.Text
         TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
         TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
@@ -7670,7 +7670,7 @@ Partial Class RH_Personal
 
             End If
             Tags.Add(New TagsDocumentos("{NombreCompleto}", ObjRH.NombreCompleto))
-            Tags.Add(New TagsDocumentos("{años}", (DateTime.Now.Year - ObjRH.FechaNacimiento.Year).ToString()))
+            Tags.Add(New TagsDocumentos("{años}", (NowADS().Year - ObjRH.FechaNacimiento.Year).ToString()))
             Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text.ToUpper()))
             Tags.Add(New TagsDocumentos("{EstadoCivil}", DdlEstadoCivil.SelectedItem.Text))
 
@@ -7806,7 +7806,7 @@ Partial Class RH_Personal
 
         objRH.Dispose()
         Cuerpo.AppendLine("<table border='0' style='width:100%'>")
-        Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, DdlEmpresaAsignada.SelectedItem.Text, UsuarioActual.Empresa.Empresa) }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ Now.ToShortDateString }   { Now.ToShortTimeString  } <br/></td> </tr>")
+        Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, DdlEmpresaAsignada.SelectedItem.Text, UsuarioActual.Empresa.Empresa) }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ NowADS().ToShortDateString }   { NowADS().ToShortTimeString  } <br/></td> </tr>")
 
         Cuerpo.AppendLine($"<tr><td style='  font-size:large; text-align: left;' colspan='3'>Notificación por { TimpoMovimiento } de Nómina</td></tr>")
         Cuerpo.AppendLine("</table>")

RH/Reclutamiento.aspx.vb

@@ -458,7 +458,7 @@ Partial Class RH_Reclutamiento
     Private Property FechaLimite As Date
         Get
             If ViewState("FechaLimite") Is Nothing Then
-                Return Date.Now.AddDays(15)
+                Return NowADS().AddDays(15)
             Else
                 Return ViewState("FechaLimite").ToString.ToDate
             End If
@@ -1115,7 +1115,7 @@ Partial Class RH_Reclutamiento
 
                     If Not IsDBNull(objRH.DtResultados(0)("FechaInicioContrato")) Then
                         If objRH.DtResultados(0)("FechaInicioContrato").ToString.ToDate().ToString("dd/MM/yyyy") = "01/01/0001" Then
-                            TxtFechaInicio.Text = Now.ToShortDateString
+                            TxtFechaInicio.Text = NowADS().ToShortDateString
                         Else
                             TxtFechaInicio.Text = objRH.DtResultados(0)("FechaInicioContrato").ToString.ToDate().ToString("dd/MM/yyyy")
                         End If
@@ -1586,7 +1586,7 @@ Partial Class RH_Reclutamiento
         Dim _ParientesEmpresaDetalle As String
         Dim _InfonavitNoCredito As String
         Dim CveCaptacion As Integer = If(DdlCaptacion.SelectedValue.ToEntero = 0, -1, DdlCaptacion.SelectedValue.ToEntero)
-        Edad = Now.Year - TxtFechaN4.Text.ToDate.Year
+        Edad = NowADS().Year - TxtFechaN4.Text.ToDate.Year
 
         If TxtParientesEmpresaDetalle.Text.Trim.Length > 0 Then
             _ParientesEmpresaDetalle = TxtParientesEmpresaDetalle.Text.Trim
@@ -3001,7 +3001,7 @@ Partial Class RH_Reclutamiento
 
         Dim objDoc As New clsGemBoxDocument(pathDesti)
         Dim objRH As New ClsRH
-        Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & Now.Year.ToString()
+        Dim FechaActual As String = NowADS().Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & NowADS().Year.ToString()
 
 
         objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa))
@@ -3725,7 +3725,7 @@ Partial Class RH_Reclutamiento
 
             Dim CveCaracteristicaOpcion As Integer = -1
             Dim CaracteristicaValor As String = ""
-            Dim CaracteristicaValorDate As Date = Now
+            Dim CaracteristicaValorDate As Date = NowADS()
             Dim CaracteristicaValorInt As Integer = -1
 
 
@@ -5363,7 +5363,7 @@ Partial Class RH_Reclutamiento
         End If
         Dim CveCaptacion As Integer = If(DdlCaptacion.SelectedValue.ToEntero = 0, -1, DdlCaptacion.SelectedValue.ToEntero)
 
-        Edad = Now.Year - TxtFechaN4.Text.ToDate.Year
+        Edad = NowADS().Year - TxtFechaN4.Text.ToDate.Year
 
         If ValidaGuardaFirmaContratoEvento() Then
             If objRh.PersonalReclutamientoUpdate(CvePersonal, TxtNombres4.Text, TxtAPaterno4.Text, TxtAmaterno4.Text, TxtEstatura4.Text.ToDecimal, TxtPeso4.Text.ToDecimal,
@@ -5696,7 +5696,7 @@ Partial Class RH_Reclutamiento
 
         objRH.Dispose()
         Cuerpo.AppendLine("<table border='0' style='width:100%'>")
-        Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  UsuarioActual.Empresa.Empresa }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ Now.ToShortDateString }   { Now.ToShortTimeString  } <br/></td> </tr>")
+        Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  UsuarioActual.Empresa.Empresa }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ NowADS().ToShortDateString }   { NowADS().ToShortTimeString  } <br/></td> </tr>")
         Cuerpo.AppendLine("<tr><td style='  font-size:large; text-align: left;' colspan='3'>Notificacion por Alta de Nomina</td></tr>")
         Cuerpo.AppendLine("</table>")
 

RH/RepAsistencias.aspx.vb

@@ -16,8 +16,8 @@ Partial Class RH_RepAsistencias
             CargaTurnos()
             CargaTiposPeriodo()
 
-            TxtFechaAsistenciaFin.Text = Now.ToShortDateString
-            TxtFechaAsistencia.Text = $"01/{Now.ToString("MM")}/{Now.Year}"
+            TxtFechaAsistenciaFin.Text = NowADS().ToShortDateString
+            TxtFechaAsistencia.Text = $"01/{NowADS().ToString("MM")}/{NowADS().Year}"
             If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then ' emp citricola
                 divCliente.Visible = False
                 LblCliente.Visible = False
@@ -106,7 +106,7 @@ Partial Class RH_RepAsistencias
         LnkExportar.Visible = False
         GvOcultarColumnas()
 
-        If TxtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(Now.Year - 1, Now.Year, Now.Year + 1) Then
+        If TxtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(NowADS().Year - 1, NowADS().Year, NowADS().Year + 1) Then
 
             Dim objpersonal As New ClsRH
             Dim dtTemp As New DataTable

RH/RepAusentismoLaboral.aspx.vb

@@ -9,8 +9,8 @@ Partial Class RH_RepAusentismoLaboral
 
     Private Sub Ventas_RepIndiceRotacionPersonal_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            txtInicio.Text = Date.Now.AddDays(-30).ToString("dd/MM/yyyy")
-            txtFin.Text = Date.Now.ToString("dd/MM/yyyy")
+            txtInicio.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
+            txtFin.Text = NowADS().ToString("dd/MM/yyyy")
 
             CargaProyecto()
             CargaTurnos()
@@ -61,8 +61,8 @@ Partial Class RH_RepAusentismoLaboral
         Dim CveSubproyecto As Integer = -1
         Dim CveTurno As Integer = -1
 
-        Dim FechaInicio As Date = Date.Now.AddDays(-30)
-        Dim FechaFin As Date = Date.Now
+        Dim FechaInicio As Date = NowADS().AddDays(-30)
+        Dim FechaFin As Date = NowADS()
 
 
         FechaInicio = Date.Parse(txtInicio.Text)

RH/RepBuzonCalidad.aspx.vb

@@ -77,6 +77,6 @@ Partial Class RH_RepBuzonCalidad
     End Sub
 
     Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
-        GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString)
+        GvDatos.ExportToExcel("ReporteVentas" & NowADS().ToShortDateString)
     End Sub
 End Class

RH/RepChecadorPreAsistencia.aspx.vb

@@ -523,7 +523,7 @@ Partial Class RH_RepChecadorPreAsistencia
                             End If
 
 
-                            If Fecha >= Now Then
+                            If Fecha >= NowADS() Then
                                 ReRow("Asistio") = "True"
                                 ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio
                                 ReRow("PorcentajePago") = "100"
@@ -643,7 +643,7 @@ Partial Class RH_RepChecadorPreAsistencia
 
                                 DTHorarioPersonal = DTHorarios.FiltraParametros(" CveChecadorHorario = " & dRow("CveChecadorHorario").ToString().ToEntero & "")
 
-                                If Fecha >= Now Then
+                                If Fecha >= NowADS() Then
                                     ReRow("Asistio") = "True"
                                     ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio
                                 Else
@@ -859,7 +859,7 @@ Partial Class RH_RepChecadorPreAsistencia
                 ColumN = ColumN + 1
             Next
 
-            Dim medida As DateTime = Now
+            Dim medida As DateTime = NowADS()
 
             For Each pRow As DataRow In DtPersonal.Rows
 
@@ -941,7 +941,7 @@ Partial Class RH_RepChecadorPreAsistencia
             Next
 
 
-            Dim SalidaTiempo As Integer = (Now - medida).TotalSeconds.ToString().ToEntero
+            Dim SalidaTiempo As Integer = (NowADS() - medida).TotalSeconds.ToString().ToEntero
             SalidaTiempo = SalidaTiempo
             DtDatosTabla = dt
 
@@ -1326,7 +1326,7 @@ Partial Class RH_RepChecadorPreAsistencia
 
             FechaLoop = FechaInicialPeriodos
 
-            While FechaLoop <= Now
+            While FechaLoop <= NowADS()
                 Dim Drow As DataRow = DTRespuesta.NewRow
                 Drow("Orden") = ContadorOrden.ToString()
                 ContadorOrden += 1

RH/RepCursos.aspx.vb

@@ -8,8 +8,8 @@ Partial Class RH_RepCursos
         If Not Page.IsPostBack Then
 
             Dim fActual As New Date
-            TxtFechaI.Text = Now.AddDays(-60).ToString("dd/MM/yyyy")
-            TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
+            TxtFechaI.Text = NowADS().AddDays(-60).ToString("dd/MM/yyyy")
+            TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
 
             CargaCombos()
 

RH/RepDocumentacionVencida.aspx.vb

@@ -45,8 +45,8 @@ Partial Class RH_RepDocumentacionVencida
     Private Sub RH_DocumentacionVencida_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaCombos()
-            TxtFechaI.Text = Now.AddMonths(-3).ToString("dd/MM/yyyy")
-            TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
+            TxtFechaI.Text = NowADS().AddMonths(-3).ToString("dd/MM/yyyy")
+            TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
             LnkDescargarExcel.Visible = False
         End If
         'ExportaExcel()
@@ -194,7 +194,7 @@ Partial Class RH_RepDocumentacionVencida
         Dim documento As ExcelFile
         Dim ws As ExcelWorksheet
         Dim NombreReporte As String = "REPORTE DE DOCUMENTACIÓN"
-        Dim TextoFecha As String = "Fecha: " & Now.ToString(" dd/MM/yyyy  hh:mm:ss tt")
+        Dim TextoFecha As String = "Fecha: " & NowADS().ToString(" dd/MM/yyyy  hh:mm:ss tt")
         documento = New ExcelFile
 
         ws = documento.Worksheets.Add("ReporteDocumentacion")
@@ -253,7 +253,7 @@ Partial Class RH_RepDocumentacionVencida
 
         Response.Clear()
         Response.ContentType = "application/force-download"
-        Response.AddHeader("content-disposition", "attachment; filename=" & NombreReporte & "_" & Now.ToString("yyyyMMddhhmmss") & ".xlsx")
+        Response.AddHeader("content-disposition", "attachment; filename=" & NombreReporte & "_" & NowADS().ToString("yyyyMMddhhmmss") & ".xlsx")
         Response.BinaryWrite(bytesInStream)
         Response.End()
         memoryStream.Dispose()

RH/RepIndiceRotacionPersonal.aspx.vb

@@ -23,8 +23,8 @@ Partial Class Ventas_RepIndiceRotacionPersonal
 
     Private Sub Ventas_RepIndiceRotacionPersonal_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            txtInicio.Text = Date.Now.AddDays(-30).ToString("dd/MM/yyyy")
-            txtFin.Text = Date.Now.ToString("dd/MM/yyyy")
+            txtInicio.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
+            txtFin.Text = NowADS().ToString("dd/MM/yyyy")
 
             CargaProyecto()
             CargaTurnos()
@@ -75,8 +75,8 @@ Partial Class Ventas_RepIndiceRotacionPersonal
         Dim CveSubproyecto As Integer = -1
         Dim CveTurno As Integer = -1
 
-        Dim FechaInicio As Date = Date.Now.AddDays(-30)
-        Dim FechaFin As Date = Date.Now
+        Dim FechaInicio As Date = NowADS().AddDays(-30)
+        Dim FechaFin As Date = NowADS()
 
 
         FechaInicio = Date.Parse(txtInicio.Text)
@@ -160,7 +160,7 @@ Partial Class Ventas_RepIndiceRotacionPersonal
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("FechaInicial", txtInicio.Text))
             params.Add(New ReportParameter("FechaFinal", txtFin.Text))
-            params.Add(New ReportParameter("FechaRealizado", Date.Now().ToString()))
+            params.Add(New ReportParameter("FechaRealizado", NowADS().ToString()))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
 
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

RH/RepPersonalInconsistencias.aspx.vb

@@ -205,15 +205,15 @@ Partial Class RH_RepPersonalInconsistencias
         GenerarPDF(2)
     End Sub
     Protected Sub ImgExcel0_Click(sender As Object, e As EventArgs) Handles ImgExcel0.Click
-        'GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString)
+        'GvDatos.ExportToExcel("ReporteVentas" & NowADS().ToShortDateString)
         GenerarPDF(0, "Excel")
     End Sub
     Protected Sub ImgExcel1_Click(sender As Object, e As EventArgs) Handles ImgExcel1.Click
-        'GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString)
+        'GvDatos.ExportToExcel("ReporteVentas" & NowADS().ToShortDateString)
         GenerarPDF(1, "Excel")
     End Sub
     Protected Sub ImgExcel2_Click(sender As Object, e As EventArgs) Handles ImgExcel2.Click
-        'GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString)
+        'GvDatos.ExportToExcel("ReporteVentas" & NowADS().ToShortDateString)
         GenerarPDF(2, "Excel")
     End Sub
 
@@ -254,11 +254,11 @@ Partial Class RH_RepPersonalInconsistencias
             Dim params As New List(Of ReportParameter)
                 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("Filtros", StrFiltro.ToString))
                 params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
-                ImprimirPDF($"Empresas/Grales/Formatos/{rdlc}", DT, params, String.Format("{0}-{1}", NombreReporte, Now.ToDateTime.ToShortDateString), Formato:=Formato)
+                ImprimirPDF($"Empresas/Grales/Formatos/{rdlc}", DT, params, String.Format("{0}-{1}", NombreReporte, NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
 
             Else
                 Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
@@ -299,15 +299,15 @@ Partial Class RH_RepPersonalInconsistencias
 
     Protected Sub BtnConsultarCumpleanios_Click(sender As Object, e As EventArgs)
 
-        Dim FechaInicio As Date = Now
-        Dim FechaFin As Date = Now
+        Dim FechaInicio As Date = NowADS()
+        Dim FechaFin As Date = NowADS()
         Dim MesajeError As String = ""
 
 
 
         Try
             If txtFechaI.Text.Length = 5 Then
-                FechaInicio = Date.Parse($"{txtFechaI.Text}/{Now.Year}")
+                FechaInicio = Date.Parse($"{txtFechaI.Text}/{NowADS().Year}")
             Else
                 MesajeError = "Fecha inicio formato incorrecto. "
             End If
@@ -318,7 +318,7 @@ Partial Class RH_RepPersonalInconsistencias
 
         Try
             If txtFechaF.Text.Length = 5 Then
-                FechaFin = Date.Parse($"{txtFechaF.Text}/{Now.Year}")
+                FechaFin = Date.Parse($"{txtFechaF.Text}/{NowADS().Year}")
             Else
                 MesajeError = $"{MesajeError }Fecha fin formato incorrecto"
             End If

RH/RepUniformes.aspx.vb

@@ -33,8 +33,8 @@ Partial Class RH_RepUniformes
             DdlDepartamento.DataBind()
             DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
 
-            TxtFechaInicio.Text = Now.ToString("dd/MM/yyyy")
-            TxtFechaFin.Text = Now.AddMonths(1).ToString("dd/MM/yyyy")
+            TxtFechaInicio.Text = NowADS().ToString("dd/MM/yyyy")
+            TxtFechaFin.Text = NowADS().AddMonths(1).ToString("dd/MM/yyyy")
 
             CargaDatos()
         End If
@@ -101,7 +101,7 @@ Partial Class RH_RepUniformes
             'params.Add(New ReportParameter("FechaInicio", FechaI))
             'params.Add(New ReportParameter("FechaFin", FechaF))
             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}", "")))
             ImprimirPDF("Empresas\Grales\Formatos\RepUniformes.rdlc", DTDatos, params, "ReporteUniformes", Formato:=Formato)

RH/RepUniformesResguardo.aspx.vb

@@ -37,8 +37,8 @@ Partial Class RH_RepUniformesResguardo
             DdlPersonal.DataBind()
             DdlPersonal.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-            'TxtFechaInicio.Text = Now.ToString("dd/MM/yyyy")
-            'TxtFechaFin.Text = Now.AddMonths(1).ToString("dd/MM/yyyy")
+            'TxtFechaInicio.Text = NowADS().ToString("dd/MM/yyyy")
+            'TxtFechaFin.Text = NowADS().AddMonths(1).ToString("dd/MM/yyyy")
 
             CargaDatos()
         End If
@@ -133,7 +133,7 @@ Partial Class RH_RepUniformesResguardo
             'params.Add(New ReportParameter("FechaInicio", FechaI))
             'params.Add(New ReportParameter("FechaFin", FechaF))
             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}", "")))
             ImprimirPDF("Empresas\Grales\Formatos\RepUniformesResguardo.rdlc", DTDatos, params, "ReporteUniformes", Formato:=Formato)

RH/RepVacaciones.aspx.vb

@@ -9,8 +9,8 @@ Partial Class RH_RepVacaciones
     Private Sub RH_RepVacaciones_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
-            TxtFechaI.Text = Now.ToString("dd/MM/yyyy")
-            TxtFechaF.Text = Now.AddDays(30).ToString("dd/MM/yyyy")
+            TxtFechaI.Text = NowADS().ToString("dd/MM/yyyy")
+            TxtFechaF.Text = NowADS().AddDays(30).ToString("dd/MM/yyyy")
             CargaCombos()
             CargaDatos()
         End If
@@ -83,7 +83,7 @@ Partial Class RH_RepVacaciones
         CargaDatos()
     End Sub
     Protected Sub LnkDescargarExcel_Click(sender As Object, e As EventArgs) Handles LnkDescargarExcel.Click
-        GvVacacionesRep.ExportToExcel("RepVavaciones_" & Now.ToString("yyyyMMddhhmmss"))
+        GvVacacionesRep.ExportToExcel("RepVavaciones_" & NowADS().ToString("yyyyMMddhhmmss"))
     End Sub
 
     Protected Sub GvVacacionesRep_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvVacacionesRep.RowDataBound

RH/SolicitudViaticos.aspx.cs

@@ -556,7 +556,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas
             else
             {
                 //GUARDA SOLICITUDES NUEVAS
-                CveSolicitudViatico = ObjBancos.AddSolicitudesViaticos(TxtFolio.Text, DdlEstatus.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero(), TxtDestino.Text, TxtAsunto.Text, TxtFechaSalida.Text, TxtFechaRegreso.Text, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipoCarro: TxtTipoCarro.Text, KM: TxtKM.Text);
+                CveSolicitudViatico = ObjBancos.AddSolicitudesViaticos(TxtFolio.Text, DdlEstatus.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero(), TxtDestino.Text, TxtAsunto.Text, TxtFechaSalida.Text, TxtFechaRegreso.Text, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TipoCarro: TxtTipoCarro.Text, KM: TxtKM.Text);
                 if (CveSolicitudViatico > 0)
                 {
                     foreach (DataRow RowConcepto in DTConceptosDetalles.Rows)
@@ -759,7 +759,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas
                 @params.Add(new ReportParameter("TelefonoSolicitante", ObjBancos.DtResultados.FiltroPrimeroValor("TelefonoPersonal")));
 
                 @params.Add(new ReportParameter("Empresa", UsuarioActual.Empresa.Empresa));
-                @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
+                @params.Add(new ReportParameter("FechaImpresion", NowADS().ToShortDateString()));
                 @params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
 
                 @params.Add(new ReportParameter("TotalADepositar", (ObjBancos.DtResultados.FiltroPrimeroValor("TotalADepositar").ToDouble() > 0 ? ObjBancos.DtResultados.FiltroPrimeroValor("TotalADepositar") : "0").ToString()));