Relacionamento Master Detail Não Funciona

Delphi

Firebird

20/10/2014

Relacionamento Master Detail não funciona

Tenho duas querys
- qCriticanf onde o campo relacional é CtrNfi
- qCriticaCtrlNf onde o campo relacional é CriNfi

abro as querys da seguinte maneira:

1º query:
procedure Abre_qCriticanf(Ordem: string = 'CtrTip,CtrCod,CtrNfi,CtrSer');
begin
with DMArqSce.qCriticaNf do
begin
Close;
SQL.Clear;
Sql.Add('Select * From Critica Order By ' + Ordem);
ExecSQL;

Open;
end;
end;

2ª query:
procedure Abre_qCriticaCtrlNf(Ordem: string = 'CriNfi,CriSer,CriNum');
begin
with DMArqSce.qCriticaCtrlNf do
begin
Close;
Sql.Clear;
Sql.Add('SELECT * FROM CriticaCtrl WHERE CriNfi = :CtrNfi Order By ' + Ordem );
Open;
end;
end;

na segunda query (qCriticaCtrlNf) na propriedade Master source informo "dsCriticaNf" que é o DataSource da 1ª queri (qCriticaNf), mas quando acesso o form onde tem dois dbgrid (dsCriticaNF e dsCriticaCtrlNf) o relacionamento não acontece.
no segundo dbgrid, fica em branco. se eu tirar o relacionamento: Sql.Add('SELECT * FROM CriticaCtrl WHERE CriNfi = :CtrNfi Order By ' + Ordem ); para Sql.Add('SELECT * FROM CriticaCtrl Order By ' + Ordem ); aparece os dados, só que não relacionados.
o que eu poderia estar fazendo errado, pois pesquisei no forum e os exemplos são similares a este que eu fiz. Obs. utilizo o Delphi 7.0 e Firebird 2.0.


Att.: João Hintz
João Hintz

João Hintz

Curtidas 0
POSTAR