This commit is contained in:
JPerez
2025-05-27 21:43:49 -07:00
2 changed files with 21 additions and 0 deletions

Binary file not shown.

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"