Select somar e agrupar
29/05/2024
0
Pessoal, estou somando as contas pagas em um determinado periodo e agrupando por banco onde foi realizado o pagamento.
Então montei essa estrutura no IbExpert
Estou com uma dificuldade para fazer esse codigo rodar no delphi.
Da erro no SUM
Então montei essa estrutura no IbExpert
SELECT V.COD_BANCO, B.NOME as NOMEBANCO, SUM(V.total) AS TOTPAGO FROM TBVENCIDAS V INNER JOIN tbbancos B ON V.COD_BANCO = B.COD_BANCO WHERE V.DT_PAGAMENTO between '28.05.2024' and '29.05.2024' GROUP BY V.COD_BANCO, B.NOME
Estou com uma dificuldade para fazer esse codigo rodar no delphi.
Da erro no SUM
qrAux.Close; qrAux.SQL. Clear; qrAux.SQL.Add('SELECT V.COD_BANCO, B.NOME as NOMEBANCO'); qrAux.SQL.Add('SUM(V.total) AS TOTPAGO'); qrAux.SQL.Add('FROM TBVENCIDAS V'); qrAux.SQL.Add('INNER JOIN tbbancos B'); qrAux.SQL.Add('ON V.COD_BANCO = B.COD_BANCO'); qrAux.SQL.Add('WHERE V.DT_PAGAMENTO = :pData''); qrAux.SQL.Add('GROUP BY V.COD_BANCO, B.NOME'); qrAux.ParamByName('pData').asDate:= dtp.Date; qrAux.Prepare; qrAux.Open;
![Renan Renan](https://www.devmedia.com.br/imagens/fotoscolunistas/avatar/avatar-3.png)
Renan
Curtir tópico
+ 0
Responder
Posts
29/05/2024
Arthur Heinrich
Você suprimiu a vírgula que separa o nome do banco da soma e gerou um erro de sintaxe.
qrAux.SQL.Add('SELECT V.COD_BANCO, B.NOME as NOMEBANCO');
qrAux.SQL.Add('SUM(V.total) AS TOTPAGO');
Deveria ser:
qrAux.SQL.Add('SELECT V.COD_BANCO, B.NOME as NOMEBANCO,');
qrAux.SQL.Add('SUM(V.total) AS TOTPAGO');
qrAux.SQL.Add('SELECT V.COD_BANCO, B.NOME as NOMEBANCO');
qrAux.SQL.Add('SUM(V.total) AS TOTPAGO');
Deveria ser:
qrAux.SQL.Add('SELECT V.COD_BANCO, B.NOME as NOMEBANCO,');
qrAux.SQL.Add('SUM(V.total) AS TOTPAGO');
Responder
Clique aqui para fazer login e interagir na Comunidade :)