Fórum problemas c/ Quick Report ... #275808

procedure ThistoricoAcesso.QuickRepStartPage(Sender: TCustomQuickRep);
begin
 dataInicial.Caption := formUsusario.DataInicial.Text;
 dataFinal.Caption := formUsusario.DataFinal.Text;
           with dmobjSimpi.RHistorico do begin
             Active := true;
             if Active then Close;
             SQL.Clear;
             SQL.Add(´SELECT usuarios.nome, usuarios.id, acessos.id_user, acessos.data, acessos.saida, acessos.hora_saida, acessos.hora_entrada, acessos.origem´);
             SQL.Add(´ FROM usuarios, acessos WHERE acessos.id_user = usuarios.id AND acessos.data BETWEEN :dataIni AND :dataFim´);
             SQL.Add(´ ORDER BY acessos.hora_entrada DESC´);
             Parameters[0].Name := ´dataIni´;
             Parameters[0].Value := StrToDate(formUsusario.DataInicial.Text);
             Parameters[0].DataType := ftDateTime;
             Parameters[1].Name := ´dataFim´;
             Parameters[1].Value := StrToDate(formUsusario.DataFinal.Text);
             Parameters[1].DataType := ftDateTime;
             Open;
          end;
end;