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

31
Source/GUIBase/uEditorDBBase.pas
View File

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