Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo en uDataTableUtils.pas para que el coydatatable, cuando la tabla origen no tenga nada seleccionado se aplique un filtro que nos deje la tabla vacia para su copia

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@230 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2008-05-28 17:17:40 +00:00
parent 594d7d2347
commit b83d751cc1
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -302,12 +302,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;