AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-07-18 03:00:58 -07:00
parent 013f3c4873
commit 38841f71c9
4 changed files with 23 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
RH/CatPersonal.aspx.vb
View File

@@ -1194,21 +1194,27 @@ Partial Class RH_CatPersonal
) 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
If ObjPersonal.CvePersonal > 0 Then
Next
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)
If (System.IO.File.Exists(file)) Then
System.IO.File.Delete(file)
End If
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)
End If
ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
TxtFoto.Text = "[]"
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
ObjPersonal.Commit()