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

Arreglo para que cuando la tabla a copiar no tenga elementos seleccionados, se aplique un filtro para que nos devuelva la tabla vacia

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@387 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-05-28 17:53:12 +00:00
parent c0a81786db
commit 60e5de5647
1 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -87,12 +87,17 @@ begin
if ASource.Active then if ASource.Active then
ASource.Close; ASource.Close;
for i := 0 to AObj.SelectedRecords.Count - 1 do //Si no hay elemento seleccionados filtramos para que ATarget se quede vacia
begin if (AObj.SelectedRecords.Count = 0) then
if (i > 0) then ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(ID_NULO) + ')'
ASource.Filter := ASource.Filter + ' or '; //En caso contrario filtramos por los elementos seleccionados
ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(AObj.SelectedRecords.Items[i]) + ')'; else
end; 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; ASource.Filtered := True;
end; end;
@ -369,12 +374,17 @@ begin
if ASource.Active then if ASource.Active then
ASource.Close; ASource.Close;
for i := 0 to AObj.SelectedRecords.Count - 1 do //Si no hay elemento seleccionados filtramos para que ATarget se quede vacia
begin if (AObj.SelectedRecords.Count = 0) then
if (i > 0) then ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(ID_NULO) + ')'
ASource.Filter := ASource.Filter + ' or '; //En caso contrario filtramos por los elementos seleccionados
ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(AObj.SelectedRecords.Items[i]) + ')'; else
end; 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; ASource.Filtered := True;
end; end;