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);
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,19 +189,19 @@ begin
if (dsDataTable.DataTable.IsEmpty) or (not ModifiedQuery) then
Exit; // No continuar con el refresco
ABookmark := dsDataTable.DataTable.GetBookMark;
dsDataTable.DataTable.DisableControls; //<- No descomentar
with dsDataTable.DataTable do
begin
AID := RecIDValue;
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;
ShowHourglassCursor;
try
Refresh;
Locate(RecIDField.FieldName, AID, []);
finally
EnableControls; //<- No descomentar
HideHourglassCursor;
end;
end;
end;
end;