Fórum O que esta errando nesta SQL? #58792

dm.zqFluxoMes.SQL.clear;
  dm.zqFluxoMes.sql.Text:=´ select referentemesano, sum(valorpg)as Total, e_s, ´
                +´ Iif(E_S = ´´E´´, ´´Total de Entradas no Mes´´||+´´ - ´´||+referentemesano, ´´Total de Saídas no Mes..´´||+´´ - ´´||+referentemesano)as Historico_Total ´
                +´ from fluxocaixa where substring(referentemesano from 1 for 2) = :pMes and substring(referentemesano from 4 for 7) = :pAno ´
                +´ and e_s = ´´E´´ group by 1,3 ´
                +´ union all ´
                +´ select  referentemesano, sum(valorpg)as Total, e_s, ´
                +´ Iif(E_S = ´´E´´, ´´Total de Entradas no Mes´´||+´´ - ´´||+referentemesano, ´´Total de Saídas no Mes..´´||+´´ - ´´||+referentemesano)as Historico_Total ´
                +´ from fluxocaixa where substring(referentemesano from 1 for 2) = :pMes and substring(referentemesano from 4 for 7) = :pAno ´
                +´ and e_s = ´´S´´ group by 1,3 order by 1 desc ´;
  dm.zqFluxoMes.ParamByName(´PMes´).Value:=StrToInt(ComboBox1.Text);
  dm.zqFluxoMes.ParamByName(´PAno´).Value:=StrToInt(MaskEdit3.Text);
  dm.zqFluxoMes.Open;

select referentemesano, sum(valorpg)as Total, e_s,
                 Iif(E_S = ´E´, ´Total de Entradas no Mes´||+´ - ´||+referentemesano, ´Total de Saídas no Mes..´||+´ - ´||+referentemesano)as Historico_Total
                 from fluxocaixa where substring(referentemesano from 1 for 2) = :pMes and substring(referentemesano from 4 for 7) = :pAno
                 and e_s = ´E´ group by 1,3
                 union all
                 select  referentemesano, sum(valorpg)as Total, e_s,
                 Iif(E_S = ´E´, ´Total de Entradas no Mes´||+´ - ´||+referentemesano, ´Total de Saídas no Mes..´||+´ - ´||+referentemesano)as Historico_Total
                 from fluxocaixa where substring(referentemesano from 1 for 2) = :pMes and substring(referentemesano from 4 for 7) = :pAno
                 and e_s = ´S´ group by 1,3 order by 1 desc