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

correción noministas

Browse Source
This commit is contained in:
Rakcsle Supertramp
2019-12-03 13:51:17 -07:00
parent 780af51c98
commit 8b9f5b4eb5
2 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
RH/Reclutamiento.aspx.vb
View File

@@ -5352,7 +5352,8 @@ 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 = Now.Year - TxtFechaN4.Text.ToDate.Year
If ValidaGuardaFirmaContratoEvento() Then
If objRh.PersonalReclutamientoUpdate(CvePersonal, TxtNombres4.Text, TxtAPaterno4.Text, TxtAmaterno4.Text, TxtEstatura4.Text.ToDecimal, TxtPeso4.Text.ToDecimal,
TxtLugarnacimiento4.Text, TxtContactoEmergencia4.Text, TxtTipoSangre4.Text, TxtViveCon4.Text, txtCasaDondevive4.Text, DDLEstadoCivil4.Text.ToEntero,
@@ -5447,7 +5448,10 @@ Partial Class RH_Reclutamiento
DdlRuta.Items.Insert(0, New ListItem("Seleccione una ruta", "-1"))
DDLUsuarioNomina.DataBind()
DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End If
DdlUniforme.DataBind()
DdlUniforme.Items.Insert(0, New ListItem("Seleccione uno", "-1"))