avance en Circular y soportes varios

RH/Personal.aspx.vb

@@ -4961,6 +4961,11 @@ Partial Class RH_Personal
             FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
             filemove = fileItem.filename
 
+            Dim yaExistente As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.jpg", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, CvePersonal)
+            If File.Exists(yaExistente) Then
+                File.Delete(yaExistente)
+            End If
+
             If filemove <> "" Then
                 filemove.FilesMove(CvePersonal.ToString, String.Format("Empresas\{0}\RH\Personal\", UsuarioActual.CveEmpresa))
             End If