Listar Grupo e Sub Grupo de produto

Question

Boa tarde, a todos do forumPresciso tirar relatorio da seguinte forma : se eu pedir para listar todos os prod. GRUPO  005  ok, mas se eu pedir pra tirar a listagem de todos os prod. do GRUPO 001 q eh ...

Pestana_ · Answer

n�o sei se entendi!� isso que voc� quer?[code:1:1849086eb9]select * from produto p inner join grupo g on(p.codGrupo = g.codGrupo)[/code:1:1849086eb9]...

Walter Faria · Answer

E isso mesmo , mas tem um problema nisso, por exemplo quero q liste todos os produtos do grupo X e tb tragam nesta lista os sub grupo filhos deste grupo X ( x1, x2, ...)

TBPRODUTO
CODPROD
CODGRUPO
PRODUTO

TBGRUPO
CODGRUPO
CODGRUPOPAI
GRUPO

SE VCS PODEREM ME AJUDAR...

OBRIGADO

Pestana_ · Answer

voc� esta querendo uma rela��o de mestre-detalhe? aonde ao consultar os registros do produto � retornado em uma outra query os registros do grupo deste produto e outra query com os registros do subGrupo do grupo selecionado!

� isso que voc� quer? como voc� deseja fazer?

Walter Faria · Answer

Obrigado, por estar me ajudando.Mas seria assim o relatoriocod      produto                         grupo            subgrupo1         Premiatta racao filhote    racao               filhote2         premiatta racao adulto    racao               adultoNo filtro (GRUPO) do relatorio , iria colocar somente ( racao ) dai me trouxesse esta lista acima. Se no filtro ( GRUPO ) eu colocasse somente FILHOTE iria me trazer assim :cod      produto                         grupo            subgrupo1         Premiatta racao filhote    racao               filhote...

Pestana_ · Answer

[code:1:d75020f056]with query do begin   close;   sql.clear;   sql.add(�select *, (select grupo from tbGrupo �+                      �where g.codGrupoPai is not null �+                      �and codGrupo = g.codGrupoPai) grupoPai �+           �from tbProduto p inner join tbGrupo g on(p.codGrupo = g.codGrupo) �+           �where g.codGrupo = :id�);   params&#91;0&93;.AsInteger := StrToInt(Trim(edtCodGrupo.Text));   open; end;[/code:1:d75020f056]depois voc� adiciona o valor dos campos no relatorio....

Walter Faria · Answer

Ola, colega baseado no seu SQL, montei a seguinte SQL, so q esta dando erro de INVALID COLUMN REFERENCE;

SelectMateriaPrima.CodMateriaPrima, MateriaPrima.Descricao as MateriaPrima,
SubExtrato.Nome as Unidade, MateriaPrima.Fabricante, MateriaPrima.Estoque, Embalagem.Nome as Embalagem,
(select Nome from Grupo g where g.Pai is not null and codGrupo = g.Pai) as grupoPai,
Sum(PedidoItem.Qtde) as TotalComprado, Sum(PedidoItem.Qtde * MateriaPrima.PesoLiq) as Liquido
From MateriaPrima
Inner Join PedidoItem on PedidoItem.CodProduto = MateriaPrima.CodMateriaPrima
Inner Join Pedido on Pedido.CodPedido = PedidoItem.CodPedido
Inner Join SubExtrato on SubExtrato.CodSubExtrato = MateriaPrima.CodUnidade
Left Join Embalagem on Embalagem.CodEmbalagem = MateriaPrima.CodEmbalagem
inner join Grupo g on MateriaPrima.codGrupo = g.codGrupo
Where Pedido.Data Between :Inicio AND :Final
Group By MateriaPrima.CodMateriaPrima, MateriaPrima.Descricao, SubExtrato.Nome, MateriaPrima.Fabricante, MateriaPrima.Estoque, Embalagem.Nome, Grupo.Nome
Order By MateriaPrima.Fabricante, MateriaPrima.Descricao

F�rum Listar Grupo e Sub Grupo de produto #367145