Menu de navegação

[Anônimo]

Pessoal tenho um Form que tem um campo que é o ID de uma tabela, tenho outro bloco de dados que é de um view que retorna também um campo com o número ID.
Tentei criar um relacionamento entre os blocos no Forms 6i e acusa que não existe bloco mestre. É isso mesmo? Uma tabela com uma view não dá para relacionar?

Tentei fazer uma POG (gambiarra) onde quando o campo ID da tabela ao ser preenchido dá um go_block para o bloco da view, funciona, porém preciso editar outros campos do bloco da tabela e o foco não sai do bloco da view.

Alguma solução para a bagunça que eu fiz?

[Anônimo]

[quote=”pyro”:2eplqaus]Pessoal tenho um Form que tem um campo que é o ID de uma tabela, tenho outro bloco de dados que é de um view que retorna também um campo com o número ID.
Tentei criar um relacionamento entre os blocos no Forms 6i e acusa que não existe bloco mestre. É isso mesmo? Uma tabela com uma view não dá para relacionar?

Tentei fazer uma POG (gambiarra) onde quando o campo ID da tabela ao ser preenchido dá um go_block para o bloco da view, funciona, porém preciso editar outros campos do bloco da tabela e o foco não sai do bloco da view.

Alguma solução para a bagunça que eu fiz?[/quote]

Bom Dia…
Da forma como vc falou não vai dar certo mesmo tenta fazer um campo no database com uma validação para trazer o campo da view e ai vc consegui montar o resto do seu forms.

[GobattiParticipante]

Pyro

Uma forma de vc fazer isso é usando a trigger de pre-query do bloco, filho vc seta a propriedade Where_Clause com uma variave, pode ser assim:

declare
cursor cRnc is
select r.rnc_seq
from rnc r
where r.rnc_registro = :variedades.rnc_reg;
rRnc rnc.rnc_seq%Type;

vwhere varchar2(200);

Begin
If :variedades.rnc_reg is not null then
open cRnc;
fetch cRnc into rRnc;
if cRnc%found Then
vwhere := ‘ rnc_seq = ‘ || rRnc;
set_block_property(‘variedades’, default_where, vwhere); end if;
Close cRnc;
else
:Variedades.rnc_seq := null;
vwhere := ‘ espc_mat_codigo = ”H” ‘;
set_block_property(‘variedades’, default_where, vwhere);
end if;
End;

[Autor]

Posts