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