Fórum Query com fazer ? #236664

 Qryvendacl.Close;

     with Qryvendacl do
          begin
          sql.clear;
          Sql.Add(´select movfinanceiro.*,sum(movfinanceiro.valor) as saldoc,empresa.razaosoc, planocnt.coditem, planocnt.descconta´);
          sql.add(´from empresa, movfinanceiro , planocnt´);
          Sql.Add(´WHERE (movfinanceiro.coditem = planocnt.coditem)´);
          sql.add(´and movfinanceiro.tipo =:C´);
          if (edtdatainic.Text <>´  /  /    ´)and (edtdatafin.text <>´  /  /    ´)then
             begin
                 sql.add(´and datamov >= :datainicial and datamov <= :datafinal´);
                 try
                    Params [0].asdate := strtodate (edtdatainic.text);
                    Params [1].asdate := strtodate (edtdatafin.text);
                 except
                     on econverterror do
                     begin
                     beep;
                     Showmessage (´Data Inválida´);
                     edtdatainic.setfocus;
                     exit;
                     end;
                 end;
             end;
         sql.add(´GROUP BY descconta´);
         sql.add(´ORDER BY datamov´);
          end;