diff --git a/Source/Base/Utiles/uDataTableUtils.pas b/Source/Base/Utiles/uDataTableUtils.pas index b5be73d..18daa68 100644 --- a/Source/Base/Utiles/uDataTableUtils.pas +++ b/Source/Base/Utiles/uDataTableUtils.pas @@ -86,8 +86,9 @@ begin { Si la tabla está abierta, la cerramos antes de aplicar los filtros porque por cada cambio en el filtro se hacen llamadas internas de TDADataTable. } - if ASource.Active then - ASource.Close; +//Se comenta porque el cierre y apertura de la tabla ocasiona el recuperar todos los registros nuevamente +// if ASource.Active then +// ASource.Close; // Si la tabla origen viene con un filtro, lo guardamos para luego restablecerlo. if ASource.Filtered then @@ -121,8 +122,9 @@ begin ATarget.LogicalName := ASource.LogicalName; // We need to specify new dataset LogicalName ATarget.RemoteFetchEnabled := False; // "Desconectamos" la tabla destino del servidor - if not ASource.Active then - ASource.Open; +//Se comenta porque el cierre y apertura de la tabla ocasiona el recuperar todos los registros nuevamente +// if not ASource.Active then +// ASource.Open; ASource.First; diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr index b105df3..e443745 100644 --- a/Source/Cliente/FactuGES.dpr +++ b/Source/Cliente/FactuGES.dpr @@ -1,6 +1,7 @@ program FactuGES; uses + ExceptionLog, Forms, Windows, SysUtils,