• Registered: 2017-05-30
  • Posts: 254

Topic: Как получить id новой записи после неявного сохранения в БД

Есть таблицы "Контрагенты" и "Контактные лица.
Для добавления и редактирования контрагента есть форма "Контрагент" с tablegrid контактных лиц.
Для добавления и редактирования контактного лица есть форма "Контактное лицо".
На форме "Контактное лицо" есть ComboBox с наименованием контрагента.
Добавляю нового клиента и не сохраняя его в БД нажимаю на кнопку "Добавить контактное лицо", чтобы сразу для этого нового клиента добавить новое контактное лицо.
Программа сама неявно (т.е. без доп.программирования) записывает нового контрагента в БД и открывает форму "Контактное лицо", где в комбобоксе контрагентов уже есть только что добавленный клиент, что позволяет записать новое контактное лицо этого контрагента. Однако, при открытии этой формы комбобокс контрагентов стоит в невыбранном положении и нужного контрагента надо выбрать из выпадающего списка.
Мне же надо, чтобы при открытии формы в комбобоксе был сразу выбран только что созданный контрагент. Каким  образом получить id неявно добавленного контрагента до открытия формы контактного лица, чтобы передать это значение в комбобокс контрагентов?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Как получить id новой записи после неявного сохранения в БД

На форме "Контактное лицо" нет необходимости в компоненте ComboBox (контрагент). Программа автоматически привяжет контактное лицо к контрагенту.


Но если вы все таки хотите видеть этот ComboBox и чтобы в нем при создании записи был выбран текущий контрагент, можете написать скрипт

procedure Контактное_лицо_OnShow (Sender: string; Action: string);
begin
    if Контактное_лицо.bOK.dbGeneralTableId=-1 then Контактное_лицо.ComboBox1.dbItemID := Контрагент.bOK.dbGeneralTableId;
end;
Dmitry.