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

Se adapta CopyDataTableDA5, para que el puntero de posicion de la tabla source no se pierda

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@477 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-11-25 11:16:29 +00:00
parent 8bfaf9a5a6
commit 3f4cca37f3
1 changed files with 45 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -67,10 +67,19 @@ var
AFilter : String;
AObj : ISeleccionable;
i : Integer;
AID: Integer;
begin
AFilter := '';
AFiltered := False;
ShowHourglassCursor;
ASource.DisableControls;
ATarget.DisableControls;
AID := ASource.GetRowRecIDValue; //Se guarda la posicion de la tabla fuente
try
if OnlySelectedRows then
begin
if not Supports(ASource, ISeleccionable, aObj) then
@ -109,10 +118,6 @@ begin
DABin := Binary.Create;
DADataStreamer := TDABin2DataStreamer.Create(nil);
ShowHourglassCursor;
ASource.DisableControls;
ATarget.DisableControls;
try
ATarget.LogicalName := ASource.LogicalName; // We need to specify new dataset LogicalName
ATarget.RemoteFetchEnabled := False; // "Desconectamos" la tabla destino del servidor
@ -136,6 +141,8 @@ begin
ASource.Filtered := True;
end;
ASource.Locate(ASource.RecIDField.FieldName, AID, []); //Se intenta restablecer la posicion inicial de la tabla fuente
finally
FreeAndNil(DABin);
FreeAndNil(DADataStreamer);