FastReport 6

Fast Report 6

Anweisungen

IF ELSE:

Im Memo

 
[IIF(<KOPF_Fuss."LIEFERTERMIN">= 0,'_if_', '_else_')]   [IIF(<Kopf_Fuss."LIEFERTERMIN">= 0,  ' ', <Kopf_Fuss."LIEFERTERMIN">)]

Pascal Script

 
if( <Kopf_Fuss."ZAHLART">='VK' ) then
   begin
      AncMemoSpecialInfo.Text :=  '';
      AncMemoSpecialInfo.Visible := False;
   end
else
   begin
      AncMemoSpecialInfo.Visible := True;
      AncMemoSpecialInfo.Text := 'Text ';
   end;

Case

case <Kopf_Fuss."BELEGART"> of
  '0100':
      begin
         Zahl.visible := True
      end;
  '0200':
      begin
         Zahl.visible := True
      end;
  '0400':
      begin
         Zahl.visible := True
      end;
   else
      begin
         Zahl.visible := FALSE;
      end;

Trim:

 
[TRIM(<Kopf_Fuss."KOPFTEXT">)]

Leerzeilen unterdrücken:

 
[vLeerzeilenUnterdruecken(<Lieferanschrift."AUSGABE">)]

Funktionen

Hier Soll Ein Element Prozedural versteckt werden, normalerweise ist das ja nicht nötig

Es Muss ein MasterData Band existieren und das Child

ancAncMasterData1HideIfNoData

Im Child Ereignisse

OnBeforePrint: ancAncMasterData1HideIfNoData  

Zeige nicht bei 0 Datensätzen

 
procedure ancAncMasterData1HideIfNoData(Sender: TfrxComponent);
begin
  if AncMasterData1.RowCount = 0 then
  begin
   Engine.ShowBand(AncHeaderDatenNichtVersendet);
   AncHeaderDatenNichtVersendet.Visible := True;
  end;
end;

String mit Datum verknüfen und anzeiogen

 
procedure FixdatumOnBeforePrint(Sender: TfrxComponent);
begin
         if  <qrBEK."FIXDATUM"> > 0 then
            Fixdatum.Text := 'Fixtermin: '+ FormatDateTime(  'd-mmm-yyyy' ,  <qrBEK."FIXDATUM"> )   +'!'           
         else
            Fixdatum.Text :='';  
end;

vs. als Memo

 
[IIF(<qrBEK."FIXDATUM"> >0,  'Fixtermin: '+ FormatDateTime( 'd-mmm-yyyy' ,<qrBEK."FIXDATUM">)+'!','' )]

Zeige nur auf der ersten Seite

 
procedure Memo67OnBeforePrint(Sender: TfrxComponent);
begin
  // Zeige nur auf der ersten Seite                                                                              
  if <Page#> > 1 then
    begin
       Memo67.Visible := False
    end
  else
    begin
       Memo67.Visible := True
    end              
end;

Datenband mit Liste, Gruppierung und Überschrift

Über dem Datenbankband wird ein Gruppenkopfband angelegt mit dem Gruppienwechsel bei Datenfeld. Darüber kommt der Kopf.

Probleme Bei der Übernahme von firebird 2.5 auf 3 Querys

Zero length identifiers are not allowed

 
select 
  bek.id bek_id,
  bek.belegnr,
  iif(coalesce(adr.kurzname, "") <> "", adr.kurzname, adr.name1) kurzname,

Quotes müssen einfach sein:

 
select 
  bek.id bek_id,
  bek.belegnr,
  iif(coalesce(adr.kurzname, '') <> '', adr.kurzname, adr.name1) kurzname,