From f22052783661ebb1078039dafd1d195ae67e79e5 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 28 May 2008 17:47:04 +0000 Subject: [PATCH] Arreglo para que en el caso de no tener seleccionados la tabla fuente se aplique un filtro que nos devuelva la tabla copiada vacia git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@242 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Base/Utiles/uDataTableUtils.pas | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/Source/Base/Utiles/uDataTableUtils.pas b/Source/Base/Utiles/uDataTableUtils.pas index 5e15e680..cfb8a1e8 100644 --- a/Source/Base/Utiles/uDataTableUtils.pas +++ b/Source/Base/Utiles/uDataTableUtils.pas @@ -468,12 +468,17 @@ begin if ASource.Active then ASource.Close; - for i := 0 to AObj.SelectedRecords.Count - 1 do - begin - if (i > 0) then - ASource.Filter := ASource.Filter + ' or '; - ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(AObj.SelectedRecords.Items[i]) + ')'; - end; + //Si no hay elemento seleccionados filtramos para que ATarget se quede vacia + if (AObj.SelectedRecords.Count = 0) then + ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(ID_NULO) + ')' + //En caso contrario filtramos por los elementos seleccionados + else + for i := 0 to AObj.SelectedRecords.Count - 1 do + begin + if (i > 0) then + ASource.Filter := ASource.Filter + ' or '; + ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(AObj.SelectedRecords.Items[i]) + ')'; + end; ASource.Filtered := True; end;