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

19
Source/GUIBase/uEditorDBBase.pas
View File

@ -144,6 +144,7 @@ end;
procedure TfEditorDBBase.dsDataTableDataChange(Sender: TObject; Field: TField); procedure TfEditorDBBase.dsDataTableDataChange(Sender: TObject; Field: TField);
begin begin
inherited; inherited;
if not (Sender as TDADataSource).Opening then
ActualizarEstadoEditor; ActualizarEstadoEditor;
end; end;
@ -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,21 +189,21 @@ 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
dsDataTable.DataTable.GotoBookmark(ABookmark);
finally finally
dsDataTable.DataTable.FreeBookmark(ABookmark); EnableControls; //<- No descomentar
dsDataTable.DataTable.EnableControls; //<- No descomentar
HideHourglassCursor; HideHourglassCursor;
end; end;
end; end;
end;
end; end;
procedure TfEditorDBBase.FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure TfEditorDBBase.FormCloseQuery(Sender: TObject; var CanClose: Boolean);