[Mrak]

Очень интересная и актуальная тема
Подскажите, не понимаю, здесь

Код:

procedure TfNewTicket.butSaveClick(Sender: TObject);
begin
  // ... некое взаимодействие с пользователем
 
  fMain.Tickets.Post; // вносим изменения в билет
  fMain.Tickets.UpdateBatch; // отправляем изменения в БД (тем самым получаем ID записи, на которой сейчас стоит курсор (последняя добавленная)
 
  fMain.Items.First; // обработка всех добавленных записей в Detail таблице
  while not fMain.Items.Eof do
  begin
    fMain.Items.Edit;
    fMain.Items.FieldByName('IDTicket').AsInteger :=
      fMain.Tickets.FieldByName('ID').AsInteger;
    fMain.Items.Post;
    fMain.Items.Next; // Next вызывает метод Post? я не нашёл в реализации явного вызова, но судя по тому, что строка сохраняется делаю вывод что вызывается
  end;
 
  fMain.Items.UpdateBatch; // фиксируем изменения в Items.
end;

вы всем записям в Items присваиваете номер последней записи из Tickets?

И еще небольшой вопросик для Freeman, использую DataModule и обращаюсь к Query на нем как через глобальную переменную

Код:

DataModule.ADOQuery1.SQL.Text:=... 

Получается, что у меня тоже "косяк"?

Спасибо