Fórum Ajuda para acertar um select ! #365588
28/10/2008
0
Bom tenho que fazer um select para um filtro de um relatório em que será impresso todas as compras dos fornecedores ou se o usuário preferir somente de um fornecedor, se puderem dar sugestões ou outra forma correta de se fazer já ajudaria
select T4.razaosocial,
T1.NOTAFISCAL,
T1.DATA_EMISSAO,
T2.IDPRODUTO,
T3.DESCRICAO,
T2.QUANTIDADE,
T2.VLRUNITARIO,
T2.PERC_DESC,
sum(T2.quantidade * T2.vlrunitario) as Total
FROM tb_compra T1, tb_itemcompra T2, tb_produto T3, tb_fornecedor T4
where T1.idcompra = T2.idcompra
and T2.idproduto = T3.IDPRODUTO
and T1.idfornecedor = T4.idfornecedor
and t1.idfornecedor = :pCodigo
and t1.data_emissao between :pDataIni and :pDataFin
GROUP BY T4.razaosocial, T1.NOTAFISCAL,
T1.DATA_EMISSAO,
T2.IDPRODUTO,
T3.DESCRICAO,
T2.QUANTIDADE,
T2.VLRUNITARIO,
T2.PERC_DESC
Afterdev
Curtir tópico
+ 0
Responder
Posts
28/10/2008
Afterdev
O codigo do filtro está desta maneira
procedure TFiltroRelCompra.BitBtn1Click(Sender: TObject);
begin
if checkbox1.Checked = true then
begin
DM.ibdCompForn.Active:= False;
DM.ibdCompForn.ParamByName(´pDataIni´).AsDate:= strtodate(DataIni.Text);
DM.ibdCompForn.ParamByName(´pDataFin´).AsDate:= strtodate(DataFin.Text);
DM.ibdCompForn.Open;
DM.rvCompras.SetParam(´pDataIni´,DataIni.Text);
DM.rvCompras.SetParam(´pDataFin´,DataFin.Text);
DM.rvCompras.ExecuteReport(´Report1´);
end
else
begin
DM.ibdCompForn.Active:= False;
DM.ibdCompForn.ParamByName(´pDataIni´).AsDate:= strtodate(DataIni.Text);
DM.ibdCompForn.ParamByName(´pDataFin´).AsDate:= strtodate(DataFin.Text);
DM.ibdCompForn.ParamByName(´pCodigo´).AsInteger:= strtoint(Edit1.Text);
DM.ibdCompForn.Open;
DM.rvCompras.SetParam(´pDataIni´,DataIni.Text);
DM.rvCompras.SetParam(´pDataFin´,DataFin.Text);
DM.rvCompras.SetParam(´pCodigo´,Edit1.Text);
DM.rvCompras.ExecuteReport(´Report1´);
end;
end;
Responder
Gostei + 0
29/10/2008
Afterdev
Apesar de nenhuma ajuda já acertei o problema ! valeu...............
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)