RH/Personal.aspx.vb

@@ -1081,8 +1081,24 @@ Partial Class RH_Personal
         DdlMotivoBaja.DataBind()
     End Sub
 
-    Private Sub CargaEstatusPersonal()
-        DdlEstatusPersonal.DataSource = GlobalDTEstatusPersonal
+    Private Sub CargaEstatusPersonal(CveEstatus As Integer)
+        Dim filtro As String
+        Select Case CveEstatus
+            Case 1 'ingreso
+                filtro = " CveEstatusPersonal IN(1,2) "
+            Case 5 'reingreso
+                filtro = " CveEstatusPersonal IN(2,5) "
+            Case 2 'baja
+                filtro = " CveEstatusPersonal IN(2,5) "
+            Case 3 'reclutamiento
+                filtro = " CveEstatusPersonal IN(1,3,4,6) "
+            Case 4 'descartado reclutamiento
+                filtro = " CveEstatusPersonal IN(4) "
+            Case 6 'reclutamiento prealta
+                filtro = " CveEstatusPersonal IN(1,3,4,6) "
+        End Select
+
+        DdlEstatusPersonal.DataSource = GlobalDTEstatusPersonal.FiltraParametros(filtro)
         DdlEstatusPersonal.DataBind()
     End Sub
 
@@ -1538,7 +1554,7 @@ Partial Class RH_Personal
                 'End If
 
                 DdlEstatusPersonal.SelectedValue = ObjPersonal.CveEstatusPersonal.ToString()
-
+                CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero())
                 MostrarOcultarFechasEstatus()
 
                 CvePersonalEstatusInicial = ObjPersonal.CveEstatusPersonal
@@ -1877,6 +1893,7 @@ Partial Class RH_Personal
             ObjPersonal.Commit()
             Alert(Mensaje, TipoMensaje.MsgInformacion, Accion)
 
+            CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero())
             'If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then
             '    ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL
             'End If