Fórum Select somar e agrupar #622296

29/05/2024

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

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

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');

Responder

Gostei + 0

04/06/2024

Renan

Obrigado, funcionou !

Responder

Gostei + 0