RH/CatPersonal.aspx

@@ -968,6 +968,11 @@
                                                 </div>
                                             </div>
                                         </div>
+                                        <div class="row">
+                                            <div class="col-md-4">
+                                                <asp:TextBox ID="TxtFoto" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                                            </div>
+                                        </div>
                                     </div>
                                 </div>
                             </div>

RH/CatPersonal.aspx.vb

@@ -1144,6 +1144,22 @@ Partial Class RH_CatPersonal
                    TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151,
                    CveMedioTransporte:=DdlMedioTransporte.SelectedValue.ToEntero()
                 ) Then
+
+                Dim filesgral As List(Of Archivo) = TxtFoto.getfiles().Archivos
+                Dim filemove As String = ""
+                For Each fileItem As Archivo In filesgral
+                    Dim extension = fileItem.Extension.Replace(".", "")
+                    If (extension.Contiene("jpg", "png", "bmp")) Then
+                        Dim dir As String = String.Format("{0}RH\Personal\", UsuarioActual.Empresa.Ruta)
+                        System.IO.Directory.CreateDirectory(dir)
+                        Dim file As String = String.Format("{0}{1}.{2}", dir, ObjPersonal.CvePersonal, extension)
+                        System.IO.File.Move(fileItem.FileUrl, file)
+                    End If
+
+                Next
+
+
+
                 Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
                 continuar = True
                 ISChange = True

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