FastReport 6: Unterschied zwischen den Versionen

Aus Vosp.info
Wechseln zu:Navigation, Suche
(Case)
(Case)
Zeile 28: Zeile 28:
 
<source lang="pascal">
 
<source lang="pascal">
 
     case <Kopf_Fuss."BELEGART"> of
 
     case <Kopf_Fuss."BELEGART"> of
        '0100':
+
    '0100':
            begin
+
        begin
              Zahl.visible := True
+
            Zahl.visible := True
            end;
+
        end;
        '0200':
+
    '0200':
            begin
+
        begin
              Zahl.visible := True
+
            Zahl.visible := True
            end;
+
        end;
        '0400':
+
    '0400':
            begin
+
        begin
              Zahl.visible := True
+
            Zahl.visible := True
            end;
+
        end;
          else
+
      else
            begin
+
        begin
              Zahl.visible := FALSE;
+
          Zahl.visible := FALSE;
    end;
+
        end;
 
</source>
 
</source>
  

Version vom 28. Oktober 2019, 20:36 Uhr


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.