Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@243 f4e31baf-9722-1c47-927c-6f952f962d4b

Browse Source
This commit is contained in:
roberto 2008-05-28 17:56:32 +00:00
parent f220527836
commit 0fd52dad6b
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Source/Base/Utiles/uDataTableUtils.pas
View File

@ -97,6 +97,11 @@ begin
if ASource.Active then if ASource.Active then
ASource.Close; ASource.Close;
//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 for i := 0 to AObj.SelectedRecords.Count - 1 do
begin begin
if (i > 0) then if (i > 0) then