procedure TBaseDM.RefreshDataSet(DS: TpFIBDataSet);
var
  BM:TBookmark;
  cnt:integer;
begin
  with DS do
    if DS.State in [dsBrowse,dsInactive] then
    begin
      BM:=GetBookmark;
      cnt:=DS.RecordCount;
      Close;
      Open;
      FetchNext(cnt);
      if BookmarkValid(BM) then
        GotoBookmark(BM);
      FreeBookmark(BM)
    end
end;

procedure TBaseDM.RefreshDataSets(DS: array of TpFIBDataSet);
var
  i:integer;
begin
  if Length(DS)> 0  then
    for i:= 0  to High(DS) do
      RefreshDataSet(DS[i])
  else
    for i:= 0  to ComponentCount- 1  do
      if Components[i] is TpFIBdataSet then
        if TpFIBdataSet(Components[i]).Tag>= 0  then
          RefreshDataSet(TpFIBdataSet(Components[i]))
end;