Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo en el servidor para que antes de borrar se mire si existe

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@562 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-04 10:59:49 +00:00
parent 7e757704d2
commit c06fc39c39
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas
View File

@ -147,7 +147,10 @@ begin
TRdxAlmacenes_Presupuestos: TRdxAlmacenes_Presupuestos:
begin begin
Ruta := Ruta + CTE_ALMACEN_PRESUPUESTOS + IntToStr(ID) + '\' + NombreFichero; Ruta := Ruta + CTE_ALMACEN_PRESUPUESTOS + IntToStr(ID) + '\' + NombreFichero;
Result := DeleteFile(Ruta); if FileExists(Ruta) then
Result := DeleteFile(Ruta)
else
Result := True; //Ya ha sido borrado
end; end;
end; end;
finally finally
@ -168,7 +171,8 @@ begin
TRdxAlmacenes_Presupuestos: TRdxAlmacenes_Presupuestos:
begin begin
Ruta := Ruta + CTE_ALMACEN_PRESUPUESTOS + IntToStr(ID); Ruta := Ruta + CTE_ALMACEN_PRESUPUESTOS + IntToStr(ID);
Deltree(Ruta, True); if DirectoryExists(Ruta) then
Deltree(Ruta, True);
Result := True; Result := True;
end; end;
end; end;