From 0b5e8ef6af36f1fa5b5b44b0a4369b4343a654fd Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 20 Jul 2010 11:23:00 +0000 Subject: [PATCH] Se comenta porque el cierre y apertura de la tabla porque ocasiona el recuperar todos los registros del servidor nuevamente. git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@137 f33bb606-9f5c-448d-9c99-757f00063c96 --- Source/Base/Utiles/uDataTableUtils.pas | 10 ++++++---- Source/Cliente/FactuGES.dpr | 1 + 2 files changed, 7 insertions(+), 4 deletions(-) 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,