Fórum problema em Realtorio #347580

procedure TFrmRel_PedidosDetalhado.FormCreate(Sender: TObject);
begin
   ADO_PedidosItens.Open;
   
   Flutuante1 :=0;
   Flutuante2 :=0;

   QrParametro.Caption :=´Periodo de entrega: ´+FrmRelPedidos.MskDataIni.Text+´  -  ´+FrmRelPedidos.MskDataFim.Text;
   DataIni :=StrToDate(FrmRelPedidos.MskDataIni.Text);
   DataFim :=StrToDate(FrmRelPedidos.MskDataFim.Text);

   // montar script da tabela Mestre
   sqlMaster  :=´´;
   sqlMaster  :=sqlMaster  + ´ SELECT  A.*, B.CODIGO, B.NOME ´;
   sqlMaster  :=sqlMaster  + ´ FROM ´;
   sqlMaster  :=sqlMaster  + ´ ORCAMENTOS A,  CLIENTES B ´;
   sqlMaster  :=sqlMaster  + ´ WHERE ´;
   sqlMaster  :=sqlMaster  + ´ B.CODIGO=A.CLIENTE ´;
   sqlMaster  :=sqlMaster  + ´ AND ´;
   sqlMaster  :=sqlMaster  + ´ A.ENTREGA>=:Data1 AND A.ENTREGA<=:Data2 ´;

   if FrmRelPedidos.RdPedidos.ItemIndex=0 then
   Begin
      QrParametro.caption :=QrParametro.caption+´     -     (Todos os tipos)´;
   
   End;

   if FrmRelPedidos.RdPedidos.ItemIndex=1 then
   Begin
      QrParametro.caption :=QrParametro.caption+´     -     (Abertos)´;
      sqlMaster  :=sqlMaster  + ´ AND ´;
      sqlMaster  :=sqlMaster  + ´ A.STATUS=´´N´´ ´;
   End;

   if FrmRelPedidos.RdPedidos.ItemIndex=2 then
   Begin
      QrParametro.caption :=QrParametro.caption+´     -     (Cancelados)´;
      sqlMaster  :=sqlMaster  + ´ AND ´;
      sqlMaster  :=sqlMaster  + ´ A.STATUS=´´C´´ ´;
   End;

   if FrmRelPedidos.RdPedidos.ItemIndex=3 then
   Begin
      QrParametro.caption :=QrParametro.caption+´     -     (Faturados)´;
      sqlMaster  :=sqlMaster  + ´ AND ´;
      sqlMaster  :=sqlMaster  + ´ A.STATUS=´´S´´ ´;
   End;

   sqlMaster  :=sqlMaster  + ´ ORDER BY  ´+OrdemDados;

   ADO_Pedidos.Close;
   ADO_Pedidos.SQL.clear;
   ADO_Pedidos.SQL.Add( sqlMaster );
   ADO_Pedidos.ParamByName(´Data1´).AsDateTime :=DataIni;
   ADO_Pedidos.ParamByName(´Data2´).AsDateTime :=DataFim;
   ADO_Pedidos.Open;

   // visualizar
   QuickRep1.Preview;
   close;

end;