Rave Reports Mirror per Event Script

[alphaflight83]

Uff, das ist ganz schön heftig.

Ich hab meine RvConnections in einem DataModule geparkt,
RvProject und RvSystem liegen im RavePreview, das dann bei Bedarf dynamisch erzeugt wird.
Mit dieser Kombination hatte ich noch nie Probleme.
Rave macht bei mir nur Probleme, wenn RvDataSetConnections in verschiedenen Forms liegen.
Die Reports wurden ebenfalls wie gesagt zur Designzeit erstellt.

Ein Beispielaufruf:

Delphi-Quellcode:

(*******************************
** Procedure: Print_MenuClick **
*******************************)
procedure TForm_Example.Print_MenuClick(Sender: TObject);
var
  Form_RavePreview: TForm_RavePreview;
begin

  Form_RavePreview := TForm_RavePreview.Create(self);

  Form_RavePreview.RvProject.ProjectFile :=
    (AP_Path + '\DATA\REPORT\Example.rav');

  Form_RavePreview.RvSystem.TitlePreview            := 'Example-Preview';
  Form_RavePreview.RvSystem.SystemPreview.FormState := wsMaximized;

  with Form_RavePreview.RvProject do begin
    Open;
    try
      SetParam('Caption_Example', 'Example-Caption');
      SetParam( ... );

      ExecuteReport('Report1');
    finally
      Close;
    end;
  end;
end;

Hier auch schon mal gepostet.


Gruß, alphaflight