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

uEditorDBBase.pas: Mejorado el posicionamiento dentro de la tabla durante el refresco de las tuplas. A veces pasaba que no se volvia a colocar en la tupla que estabamos viendo.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@253 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-06-25 09:59:18 +00:00
parent 03570b4425
commit 9215d761c1
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
Source/GUIBase/uEditorDBBase.pas
View File

@ -144,7 +144,8 @@ end;
procedure TfEditorDBBase.dsDataTableDataChange(Sender: TObject; Field: TField);
begin
inherited;
ActualizarEstadoEditor;
if not (Sender as TDADataSource).Opening then
ActualizarEstadoEditor;
end;
procedure TfEditorDBBase.actRefrescarUpdate(Sender: TObject);
@ -180,7 +181,7 @@ end;
procedure TfEditorDBBase.RefrescarInterno;
var
ABookmark : TBookmark;
AID: Integer;
begin
inherited;
if Assigned(dsDataTable.DataTable) then
@ -188,20 +189,20 @@ begin
if (dsDataTable.DataTable.IsEmpty) or (not ModifiedQuery) then
Exit; // No continuar con el refresco
ABookmark := dsDataTable.DataTable.GetBookMark;
dsDataTable.DataTable.DisableControls; //<- No descomentar
ShowHourglassCursor;
try
dsDataTable.DataTable.Refresh;
if dsDataTable.DataTable.Dataset.BookmarkValid(ABookmark) then
dsDataTable.DataTable.GotoBookmark(ABookmark);
finally
dsDataTable.DataTable.FreeBookmark(ABookmark);
dsDataTable.DataTable.EnableControls; //<- No descomentar
HideHourglassCursor;
end;
with dsDataTable.DataTable do
begin
AID := RecIDValue;
DisableControls; //<- No descomentar
ShowHourglassCursor;
try
Refresh;
Locate(RecIDField.FieldName, AID, []);
finally
EnableControls; //<- No descomentar
HideHourglassCursor;
end;
end;
end;
end;