From 8671f38ec258ec452e6e9fb38c711744fdb206ef Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Thu, 4 Sep 2008 11:01:22 +0000
Subject: [PATCH] Arreglo en el servidor para que antes de borrar se mire si
 existe

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@563 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/GUIBase/uViewDocumentos.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Source/GUIBase/uViewDocumentos.pas b/Source/GUIBase/uViewDocumentos.pas
index 9cd1a886..3579cb52 100644
--- a/Source/GUIBase/uViewDocumentos.pas
+++ b/Source/GUIBase/uViewDocumentos.pas
@@ -158,7 +158,8 @@ end;
 
 procedure TfrViewDocumentos.actEliminarTodoExecute(Sender: TObject);
 begin
-   Deltree(Directorio, True);
+   if DirectoryExists(Directorio) then
+      Deltree(Directorio, True);
    FListaFicheros.Clear;
    FDirectorio := Null;
    RefrescarVisualizador;