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

Importaciones

Browse Source
This commit is contained in:
rakcsle
2023-09-02 11:10:47 -07:00
parent 246e49e4f0
commit b7a31013a9
9 changed files with 147 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
RH/Personal.aspx.vb
View File

@@ -1037,8 +1037,10 @@ Partial Class RH_Personal
End If
If UsuarioActual.Empresa.Funcionalidad(712) = "1" Then
If UsuarioActual.Empresa.Funcionalidad(712) = "1" Or UsuarioActual.CveEmpresa = 1 Then
DvRuta.Visible = True
DVTxtTelefono.Attributes.Add("class", "col-md-6")
DVDdlTipoSangre.Visible = True
End If
End If
@@ -1701,6 +1703,7 @@ Partial Class RH_Personal
TxtTelefonoExtension.Text = ObjPersonal.TelefonoExtension
TxtCelularPersonal.Text = ObjPersonal.CelularPersonal
TxtTelefonoMarcadoRapido.Text = ObjPersonal.TelefonoMarcadoRapido
DdlTipoSangre.SelectedValueExist(ObjPersonal.TipoSangre)
'TxtContactoAlterno.Text = ObjPersonal.ContactoAlterno
@@ -2012,7 +2015,7 @@ Partial Class RH_Personal
UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), TxtBeneficiario.Text.Trim, DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(),
Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(),
CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal) Then
CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then
If Archivo.Exists Then
@@ -2098,7 +2101,7 @@ Partial Class RH_Personal
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(),
CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0),
Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal) Then
Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then
'Funcion usa RH Familiares
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then