procedure OpenDataSetAndLocateOldId(aDataSet : TIBQuery;
                                    aSQLText : String;
                                    aParams : array of const;
                                    aLocateId : Integer = 0;
                                    aIdFieldName : String = 'Id';
                                    aSetCursor : Boolean = True);
var
  AfterScroll : TDataSetNotifyEvent;
  I : Integer;
  OldCur : TCursor;
  v : TParam;
begin
  try
    OldCur := Screen.Cursor;
    Screen.Cursor := crSQLWait;
    try
      if (aLocateId = 0)
        then if (aDataSet.Active)
          then aLocateId := aDataSet.FieldByName(aIdFieldName).AsInteger;

      AfterScroll := aDataSet.AfterScroll;
      aDataSet.AfterScroll := nil;
      try
        if aDataSet.Active
          then aDataSet.close;

        ibCommitTrans(aDataSet.Transaction);

        aDataSet.SQL.Text := aSQLText;
        for I := 0 to High(aParams) do
        begin
          v := aDataSet.Params[I];
          LoadParam(aParams[i], v);
        end;
        aDataSet.Open();
        if (aLocateId > 0)
          then aDataSet.Locate(aIdFieldName, aLocateId, []);

      finally
        try    // если связь разорвалась - то и фиг с ней!
          if Assigned(aDataSet.AfterScroll)
            then aDataSet.AfterScroll := AfterScroll;
          if (Assigned(AfterScroll))
            then AfterScroll(aDataSet);
        except
        end;
      end;

    finally
      Screen.Cursor := OldCur;
    end;
  except
    on E:exception do
    begin
      logstr(dmGlobal.GetResStr(['{8665E7FD-193E-40EB-BB49-F0B34FE33ABE}'], 'Ошибка обновления набора данных: ')+ e.message);
      raise exception.Create(dmGlobal.GetResStr(['{8665E7FD-193E-40EB-BB49-F0B34FE33ABE}'], 'Ошибка обновления набора данных: ')+ e.message);
    end;
  end;
end;