| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
laerciok
Novato
Registrado: Quinta-Feira, 30 de Março de 2006
Mensagens: 72
|
 Enviada: Ter Mar 04, 2008 7:46 am Assunto: Pesquisa Mestre/Detalhe |
 |
|
Tenho uma Tabela Chamada Embalagens e outra chamada Produtos_Embalagens.
Estão configuradas como mestre/detalhe, eu preciso fazer uma rotina que quando eu digitar um codigo do produto o programa me traga o codigo da embalagem.
Se fizer uma pesquisa pelo codigo da embalagem ele me traz os produtos que fazem parte desta embalagem, mas se eu pesquisar pelos produtos ele não localiza nada...
Estou usando ADOTable, Locate. |
|
| Voltar ao Topo |
|
 |
ricars01
Colaborador
Registrado: Quarta-Feira, 25 de Agosto de 2004
Mensagens: 1879
Localização: Itu/SP
|
| Enviada: Ter Mar 04, 2008 8:35 am Assunto: |
|
|
Particularmente usaria ADOQuery e uma sentença SQL mais ou menos assim:
| Código: |
Select produtos
From produtos_embalagens, produtos
Where produtos.codigo = produtos_embalagens.codigo
And produtos.codigo = :par01_codigo
|
E colocaria um edit para a entrada do código. E num button eu colocaria o seguinte código, no evento OnClick:
| Código: |
with ADOQuery do
begin
Close;
Parameters[ 0 ].AsInteger := StrToInt( Edit1.Text );
Open;
end;
|
E finalmente, associe esse ADOQuery a um DBGrid.
Some Passions:
____________________________________
_________________
<b>Nova assinatura em elaboração... ainda!! Esta é a versão "alfa"</b> |
|
| Voltar ao Topo |
|
|
laerciok
Novato
Registrado: Quinta-Feira, 30 de Março de 2006
Mensagens: 72
|
| Enviada: Ter Mar 04, 2008 9:41 am Assunto: Não Consegui |
|
|
Vamos Por Partes:
Dentro da Tabela Embalagens(Master) tenho os campos:
'Codigo_Embalagem'
'Tipo_embalagems'
'Embalagem'
'Caixa'
'Caixa_Pallet'
'Alteracao'
Dentro da Tabela Pçs_embalagens(detail) tenho:
'cod_embalagem'
'cod_produto'
Preciso criar uma pesquisa pelo 'cod_produto' que me traga como resultado o codigo da embalagem que este produto esta vinculado.
Tentei fazer como foi postado mas não consegui |
|
| Voltar ao Topo |
|
|
AnOnImUs.Info
Colaborador
Registrado: Quinta-Feira, 23 de Agosto de 2007
Mensagens: 1119
Localização: Goiânia - GO
|
| Enviada: Ter Mar 04, 2008 1:09 pm Assunto: Re: Não Consegui |
|
|
voce pode colocar na select do Detalhe um parametros
| Código: |
select cod_embalagem,cod_produto from Pcs_embalagens
where cod_embalagem = :codigo
|
assim voce podera colocar no evento OnDataChange do DataSource(Mestre) o codigo
| Código: |
with Pcs_embalagens do begin
Close;
params.ParamByName('codigo').asinteger := EmbalagensCodigo_Embalagem.asInteger;
Open;
end;
|
assim sempre que houver uma movimentacao em seu client Mestre ele filtrara o Detalhe.
_________________
Reter o conhecimento é promover a ignorância ! |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
