Rave Report erstellen mit Deckblatt

[renekr]

Hi,
also ich habe 1 Project ( Rave ) mit 3 Reports. in einem Report habe ich 2 Seiten,Deckblatt und 1 Seite pro Query Wert.

folgender Code benutze ich zum Parameter übergeben.

Delphi-Quellcode:

var
    gebucht,erledigt,anzahl:string;
     summeprod,summepm,summesap,i:integer;
begin

if (MessageDlg('Möchten Sie wirklich alle '+inttostr( DMLogbuch.ADOQuery1.RecordCount)+' Berichte öffnen', mtConfirmation, [mbYes, mbNo], 0) in [mrYes, mrNone]) then
begin


 // filterkriterien params Report Deckblatt
  case  LMDRadioGroup2.ItemIndex of
  0:gebucht:='gebuchte und offene';
  1:gebucht:='gebuchte';
  2:gebucht:='nicht gebuchte';
  end;

  case  LMDRadioGroup3.ItemIndex of
  0:erledigt:='erledigte und offene';
  1:erledigt:='erledigte';
  2:erledigt:='nicht erledigte';
  end;

   DMRave.RvProject1.ClearParams;
   DMRave.RvProject1.SetParam('Technischer_PL',DBLookupComboBox32.text);
  DMRave.RvProject1.SetParam('Platz',DBLookupComboBox29.text);
  DMRave.RvProject1.SetParam('Besch_Proz',dmlogbuch.ADOQuery18.FieldByName('Besch_Proz').asstring);
  DMRave.RvProject1.SetParam('suchbegriff',edit53.text);
  DMRave.RvProject1.SetParam('Abt_Deckblatt',LMDRadioGroup1.Items.Strings[LMDRadioGroup1.itemindex]);  
  DMRave.RvProject1.SetParam('Abt',dmlogbuch.ADOQuery17.FieldByName('Abteilung').asstring);
  DMRave.RvProject1.SetParam('von_Datum',DateToStr( datetimepicker11.date));
  DMRave.RvProject1.SetParam('bis_Datum',DateToStr( datetimepicker12.date));
  DMRave.RvProject1.SetParam('gebucht',gebucht);
  DMRave.RvProject1.SetParam('name',DBLookupComboBox30.text);
  DMRave.RvProject1.SetParam('erledigt',erledigt);
  DMRave.RvProject1.SetParam('aktionsgrund',DBLookupComboBox31.text);

  // Zusammenfassung params Report Deckblatt
  anzahl:='0';
  DMRave.RvProject1.SetParam('Anzahl',inttostr(dmlogbuch.ADOQuery1.RecordCount));

  summeprod:=0;
  summepm:=0;
  summesap:=0;
  dmlogbuch.ADOQuery1.first;
  for i:=0 to dmlogbuch.ADOQuery1.RecordCount-1 do
  begin
  summeprod:=summeprod+dmlogbuch.ADOQuery1.FieldByName('Prod_min').AsInteger;
  summepm:=summepm+dmlogbuch.ADOQuery1.FieldByName('PM_min').AsInteger;
  summesap:=summesap+dmlogbuch.ADOQuery1.FieldByName('SAP_min').AsInteger;
  dmlogbuch.ADOQuery1.next;
  end;
  
  
  DMRave.RvProject1.SetParam('Prod_Min',inttostr(summeprod));
  DMRave.RvProject1.SetParam('PM_min',inttostr(summepm));    
  DMRave.RvProject1.SetParam('SAP_min',inttostr(summeSAP));


    DMRave.RvProject1.ProjectFile:='\\'+server+'\rave\Logbuch\Logbuch.rav';
  DMRave.RvProject1.SelectReport('LB_Email_Ausgabe',true);
  DMRave.RvSystem1.DefaultDest:=rdPreview;
  DMRave.rvproject1.Execute;
end;//alle open
end;

Danke.

[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]