AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
RH/Reclutamiento.aspx.vb
View File

@@ -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>")