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

incapacidades en personal

Browse Source
This commit is contained in:
Jorge Luis caudillo esparza
2025-05-27 17:41:54 -07:00
parent fce5542984
commit 356d992aea
2 changed files with 21 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Nomina/RobloxPlayerInstaller.exe
View File

Binary file not shown.

21
RH/Personal.aspx.vb
View File

@@ -7604,6 +7604,27 @@ Partial Class RH_Personal
TxtSRINCfechaInicio.Text = ""
TxtSRINCdiasAutorizados.Text = ""
TxtDiasPagoEmpresa.Text = If(UsuarioActual.CveEmpresa = 141, "3", "")
If Not (DdlSRINCcveTipodeIncidencia.Items.Count > 1) Then
Using objnom As New ClsNominas()
If (objnom.PersonalIncapacidadCatalogos()) Then
Dim dtperinc As DataTable = objnom.DtResultados
DdlSRINCcveTipodeIncidencia.DataSource = dtperinc.FiltraParametros("Tipo = -1 OR Tipo =1 ")
DdlSRINCcveRamoSeguro.DataSource = dtperinc.FiltraParametros("Tipo = -1 OR Tipo =2 ")
DdlSRINCcveTipoRiesgo.DataSource = dtperinc.FiltraParametros("Tipo = -1 OR Tipo =3 ")
DdlSRINCcveSecuelaConsecuencia.DataSource = dtperinc.FiltraParametros("Tipo = -1 OR Tipo =4 ")
DdlSRINCcveControlIncapacidad.DataSource = dtperinc.FiltraParametros("Tipo = -1 OR Tipo =5 ")
DdlSRINCcveTipodeIncidencia.DataBind()
DdlSRINCcveRamoSeguro.DataBind()
DdlSRINCcveTipoRiesgo.DataBind()
DdlSRINCcveSecuelaConsecuencia.DataBind()
DdlSRINCcveControlIncapacidad.DataBind()
End If
End Using
End If
DdlSRINCcveTipodeIncidencia.SelectedValue = "-1"
DdlSRINCcveRamoSeguro.SelectedValue = "-1"
DdlSRINCcveTipoRiesgo.SelectedValue = "-1"