diff --git a/Nomina/RobloxPlayerInstaller.exe b/Nomina/RobloxPlayerInstaller.exe deleted file mode 100644 index 6b1bdbf06..000000000 Binary files a/Nomina/RobloxPlayerInstaller.exe and /dev/null differ diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 377aac657..d85884711 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -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"