QrExpr no DBExpress
Estou usando os componentes DBEXpRess TSqlQuery e no relatório (QuickReport) preciso mostrar total dos produtos com
QrExpr, só que não está funcionando, já encontrei na NET muitos amigos com o mesmo problema e nenhum mostrou como resolver.
Alguém pode me ajudar nesta pendenga.
Delphi 7 / Firebird
Abraços.
QrExpr, só que não está funcionando, já encontrei na NET muitos amigos com o mesmo problema e nenhum mostrou como resolver.
Alguém pode me ajudar nesta pendenga.
Delphi 7 / Firebird
Abraços.
Marcos Roberto
Curtidas 0
Respostas
Marcos Roberto
14/11/2013
Pessoal
Tem post informando que é preciso fazer um cast no 'Total' para float, mas não consigo, sempre dá erro, alguem pode mostrar como fazer, segue o código:
If Chk_Produtos.Checked = true then
Begin
Application.CreateForm(TQry_VendasProdutos,Qry_VendasProdutos);
sqlComando := 'SELECT DESCRPRODUTO,SUM(QUANTIDADE) AS QUANTIDADE,';
sqlComando := sqlComando + 'SUM(TOTAL) AS TOTAL FROM TITEMVEN ';
sqlComando := sqlComando + 'WHERE (TITEMVEN.DATA >= ' + #39 + dataA + #39 ;
sqlComando := sqlComando + ') AND (TITEMVEN.DATA <= ' + #39 + dataB + #39;
sqlComando := sqlComando + ') GROUP BY DESCRPRODUTO ORDER BY DESCRPRODUTO ';
Qry_VendasProdutos.QryVendProd.Close;
Qry_VendasProdutos.QryVendProd.SQL.Clear;
Qry_VendasProdutos.QryVendProd.SQL.Add(sqlComando); ...............
Já coloquei SUM( CAST (TOTAL AS FLOAT)) e CAST (SUM(TOTAL) AS FLOAT) e nada ....
Valeu Pessoal
Tem post informando que é preciso fazer um cast no 'Total' para float, mas não consigo, sempre dá erro, alguem pode mostrar como fazer, segue o código:
If Chk_Produtos.Checked = true then
Begin
Application.CreateForm(TQry_VendasProdutos,Qry_VendasProdutos);
sqlComando := 'SELECT DESCRPRODUTO,SUM(QUANTIDADE) AS QUANTIDADE,';
sqlComando := sqlComando + 'SUM(TOTAL) AS TOTAL FROM TITEMVEN ';
sqlComando := sqlComando + 'WHERE (TITEMVEN.DATA >= ' + #39 + dataA + #39 ;
sqlComando := sqlComando + ') AND (TITEMVEN.DATA <= ' + #39 + dataB + #39;
sqlComando := sqlComando + ') GROUP BY DESCRPRODUTO ORDER BY DESCRPRODUTO ';
Qry_VendasProdutos.QryVendProd.Close;
Qry_VendasProdutos.QryVendProd.SQL.Clear;
Qry_VendasProdutos.QryVendProd.SQL.Add(sqlComando); ...............
Já coloquei SUM( CAST (TOTAL AS FLOAT)) e CAST (SUM(TOTAL) AS FLOAT) e nada ....
Valeu Pessoal
GOSTEI 0