Fórum Instrução SQL #227274
20/04/2004
0
DM_Modelo.Sql_Apura_Resultados.ParamByName(´Data_Inicio´).Text := DateToStr(Data_Inicio.DateTime);
DM_Modelo.Sql_Apura_Resultados.ParamByName(´Data_Termino´).Text := DateToStr(Data_Termino.DateTime);
SELECT Tab_vendaprodutos_itens.Produto, Tab_produtos.Descricao, SUM( Tab_vendaprodutos_itens.Qtde ) Soma_qtde, SUM( Tab_vendaprodutos_itens.Vr_Total ) Soma_Vr_Total, Tab_produtos.Valor_Custo Valor_Custo, Tab_produtos.Valor_Venda, Tab_produtos.Valor_Lucro
FROM ´Tab_VendaProdutos_Itens.DB´ Tab_vendaprodutos_itens
INNER JOIN ´Tab_Produtos.DB´ Tab_produtos
ON (Tab_produtos.Codigo = Tab_vendaprodutos_itens.Produto)
INNER JOIN ´Tab_VendaProdutos.DB´ Tab_vendaprodutos
ON (Tab_vendaprodutos.Numero_Venda = Tab_vendaprodutos_itens.Numero_Venda)
WHERE Tab_vendaprodutos.Data BETWEEN (:Data_Inicio) AND (:Data_Termino)
GROUP BY Tab_vendaprodutos_itens.Produto, Tab_produtos.Descricao, Tab_produtos.Valor_Custo, Tab_produtos.Valor_Custo, Tab_produtos.Valor_Venda, Tab_produtos.Valor_Lucro
ORDER BY Tab_produtos.Descricao
Obriado pela ajuda
Mardegan
Curtir tópico
+ 0Posts
20/04/2004
Renato.isl
Renato.
Gostei + 0
20/04/2004
Marcelo.c
Gostei + 0
20/04/2004
Mardegan
Type mismatch in expression
Gostei + 0
20/04/2004
Adilsond
SELECT Tab_vendaprodutos_itens.Produto, Tab_produtos.Descricao, Tab_produtos.Valor_Custo, Tab_produtos.Valor_Venda, Tab_produtos.Valor_Lucro, SUM(Tab_vendaprodutos_itens.Qtde) Soma_qtde, SUM(Tab_vendaprodutos_itens.Vr_Total) Soma_Vr_Total FROM "Tab_VendaProdutos_Itens.DB" Tab_vendaprodutos_itens INNER JOIN "Tab_Produtos.DB" Tab_produtos ON (Tab_produtos.Codigo = Tab_vendaprodutos_itens.Produto) INNER JOIN "Tab_VendaProdutos.DB" Tab_vendaprodutos ON (Tab_vendaprodutos.Numero_Venda = Tab_vendaprodutos_itens.Numero_Venda) WHERE Tab_vendaprodutos.Data BETWEEN :Data_Inicio AND :Data_Termino GROUP BY Tab_vendaprodutos_itens.Produto, Tab_produtos.Descricao, Tab_produtos.Valor_Custo, Tab_produtos.Valor_Venda, Tab_produtos.Valor_Lucro ORDER BY Tab_produtos.Descricao
DM_Modelo.Sql_Apura_Resultados.ParamByName(´Data_Inicio´).AsDateTime := Data_Inicio.DateTime; DM_Modelo.Sql_Apura_Resultados.ParamByName(´Data_Termino´).AsDateTime := Data_Termino.DateTime;
Gostei + 0
21/04/2004
Mardegan
Agora deu certo
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)