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

Se comenta porque el cierre y apertura de la tabla porque ocasiona el recuperar todos los registros del servidor nuevamente.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@137 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-07-20 11:23:00 +00:00
parent 89a87e5287
commit 0b5e8ef6af
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -86,8 +86,9 @@ begin
{ Si la tabla está abierta, la cerramos antes de aplicar los filtros { 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. } porque por cada cambio en el filtro se hacen llamadas internas de TDADataTable. }
if ASource.Active then //Se comenta porque el cierre y apertura de la tabla ocasiona el recuperar todos los registros nuevamente
ASource.Close; // if ASource.Active then
// ASource.Close;
// Si la tabla origen viene con un filtro, lo guardamos para luego restablecerlo. // Si la tabla origen viene con un filtro, lo guardamos para luego restablecerlo.
if ASource.Filtered then if ASource.Filtered then
@ -121,8 +122,9 @@ begin
ATarget.LogicalName := ASource.LogicalName; // We need to specify new dataset LogicalName ATarget.LogicalName := ASource.LogicalName; // We need to specify new dataset LogicalName
ATarget.RemoteFetchEnabled := False; // "Desconectamos" la tabla destino del servidor ATarget.RemoteFetchEnabled := False; // "Desconectamos" la tabla destino del servidor
if not ASource.Active then //Se comenta porque el cierre y apertura de la tabla ocasiona el recuperar todos los registros nuevamente
ASource.Open; // if not ASource.Active then
// ASource.Open;
ASource.First; ASource.First;

1
Source/Cliente/FactuGES.dpr
View File

@ -1,6 +1,7 @@
program FactuGES; program FactuGES;
uses uses
ExceptionLog,
Forms, Forms,
Windows, Windows,
SysUtils, SysUtils,