Quickreport al dia de la fecha

[ecfisa]

Hola DOS.

Releyendo el código veo algo que se me escapó en la primera lectura... Creo que debería ser:

Código Delphi [-]
procedure TForm27.BitBtn2Click(Sender: TObject);
begin
  Form27.Close;    //cierra el formulario que contiene los botones de opcion
  // Abrir Form29 (si fuera necesario)
  with Form29.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM TURNOPELU');
    SQL.Add('WHERE FECHA = :PFECHA');
    ParamByName('PFECHA').AsDate := Now;
    Open;
    Quickrep1.Preview; // Previsualizar los resultados.
  end;
  ...
end;

Saludos.