Tecistel/Tecsitel_FactuGES2
0
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.Tecsitel_FactuGES2/trunk@395 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-05-30 18:21:30 +00:00
parent f0783d10b5
commit f792b75f06
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
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,19 +189,19 @@ 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
HideHourglassCursor;
end; end;
end; end;
end; end;