FastReport Script Pascal MasterData1.Filter= ???

[IwasNix]

und schon funktioniert es

Delphi-Quellcode:

// Aktuelles Jahr aus SystemDatum und 1 bzw 2 Jahre davor                                                                                               
procedure DialogPage1OnActivate(Sender: TfrxComponent);
begin
  rbJahrMinus2.Caption := IntToStr(YearOf(Now) - 2);
  rbJahrMinus1.Caption := IntToStr(YearOf(Now) - 1);
  rbJahrAktuell.Caption := IntToStr(YearOf(Now));       
end;
  
// Filter zusammenstellen                                                      
procedure ButtonOKOnClick(Sender: TfrxComponent);
var
  myEigenLeistungFilter,
  myFremdLeistungFilter,
  myJahrFilter: String;

begin  
  if chbEigenLeistung.Checked = true then
    begin
      myEigenLeistungFilter := '(<KostErtragBasis."EigenleistungJN">  <> 0)';
    end
  else
    begin
      myEigenLeistungFilter := '(<KostErtragBasis."EigenleistungJN">  = 0)';
    end;

  if chbFremdLeistung.Checked = true then
    begin
      myFremdLeistungFilter := ' and (<KostErtragBasis."FremdleistungJN">  <> 0)';
    end
  else
    begin
      myFremdLeistungFilter := ' and (<KostErtragBasis."FremdleistungJN">  = 0)';
    end;


  if rbJahrMinus2.Checked = true then  
    begin
      myJahrFilter := ' and (<KostErtragBasis."SRJAHR">  = ' + rbJahrMinus2.Caption +')';
    end;                      
  if rbJahrMinus1.Checked = true then
    begin                         
      myJahrFilter := ' and (<KostErtragBasis."SRJAHR">  = ' + rbJahrMinus1.Caption +')';
    end;                      
  if rbJahrAktuell.Checked = true then
    begin                         
      myJahrFilter := ' and (<KostErtragBasis."SRJAHR">  = ' + rbJahrAktuell.Caption +')';
    end;                

  MasterData1.Filter := myEigenLeistungFilter + myFremdLeistungFilter +  myJahrFilter;

end;