[[Lepe]]

Código Delphi [-]
procedure TFPrincipal.General1Click(Sender: TObject);
var
fparam:TFIntroParametros;
finforme:TFInformeIncentivos;
fini,ffin:TDateTime;
begin
  fparam:=TFIntroParametros.crea_fecha(FPrincipal);
  fparam.ShowModal;
  if(fparam.obtener_seccion<>'-1')then
  begin
    fini:= fparam.obtener_inicio;
    ffin:=fparam.obtener_fin;
    finforme:=TFInformeIncentivos.crear(nil,fini,ffin);
    finforme.QuickRep1.Page.Orientation:=poLandscape;
    finforme.QuickRep1.PreviewModal;

    freeandnil(finforme);
  end;
end;

He hecho 2 modificaciones, al parecer, TFInformeIncentivos tiene como parametros en el constructor, el Aowner, y las dos fechas. Yo he puesto el Aowner (dueño) a nil, con lo cual estoy diciendo que nadie se encargue de destruir ese objeto, que lo hago yo mismo, en el comando freeandnil.

Tambien he puesto PreviewModal, para que la ejecución de esa ventana se pare en esa linea, y justo cuando se cierre la presentación preliminar, se libere la ventana y lógicamente el informe.

Con esto debe rular de miedo.

Ese query, cuando los abres y cierras?

PD: Por cierto, de que BBDD estamos hablando y qué método de acceso, BDE, ADO...¿?

Un saludo