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@563 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-04 11:01:22 +00:00
parent c06fc39c39
commit 8671f38ec2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/GUIBase/uViewDocumentos.pas
View File

@ -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;