TOraQuery и курсоры (функции)

[avic]

Добрый день.
Есть две функции, возвращающие наборы данных.
первая является "мастером" (даёт уникальные ID)
Вторая подчиненная.

Использую два TOraQuery.
Для мастера (Heats)

Код: Выделить всё

begin
  :RESULT := GET_HEAT_T(:D1, :D2);
end;

Для подчиненного (Scrap)

Код: Выделить всё

begin
  :RESULT := GET_SCRAP_T(:D1, :D2);
end;

Далее:

Код: Выделить всё

procedure TForm1.btnOpenClick(Sender: TObject);
begin
  Heat.ParamByName('D1').AsDateTime := ed1.Date;
  Heat.ParamByName('D2').AsDateTime := ed2.Date;
  SCRAP.ParamByName('D1').AsDateTime := ed1.Date;
  SCRAP.ParamByName('D2').AsDateTime := ed2.Date;
  Heat.DisableControls;
  if Heat.Active then Heat.Refresh else HEAT.Active := true;
  Heat.EnableControls;
  SCRAP.DisableControls;
  if Scrap.Active then Scrap.Refresh else Scrap.Active := true;
  Scrap.EnableControls;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ed1.Date := Now - 7;
  ed2.Date := Now;
  dsHeat.DataSet := HEAT;
  dsScrap.DataSet:= SCRAP;
  SCRAP.MasterSource := dsHeat;
  SCRAP.MasterFields := 'HEAT_ID';
  SCRAP.DetailFields := 'HEAT_ID';
end;

В результате, обе таблицы отображаются, а вот связи "мастер-подчиненный" нет.
поля HEAT_ID однотипные, целочисленные.

Если использовать простые SELECT (т.е. таблицы) то связка работает.
Куда копать?

[avic]

Все, решил - надо было установить опцию LocalMasterDetail

[Alexp]

Добрый день,

Приятно видеть, что проблема решена. Если возникнут вопросы по использованию наших компонентов - обращайтесь.