Fórum Passagem de Parametro para Report Builder #467022

 with DM.SQL_recibo do
  begin

  Close;
  SQL.Clear;
  SQL.Add('select * from view_pedidos');
  SQL.Add('where ped_data between :data_ini and :data_fim');
  SQL.Add('AND cli_nome = :nome');
  ParamByName('data_ini').Value := FormatDateTime('yyyy-mm-dd',data_ini.Date);
  ParamByName('data_fim').Value := FormatDateTime('yyyy-mm-dd',data_fim.Date);
  ParamByName('nome').Value := txt_cliente.Text;
  Open;


  if RecordCount > 0 then
  begin
    DM.RPB_relatorioVendas.PrintReport;
  end
  else
  begin
    ShowMessage('Não existe vendas neste período');
  end;