REFLEX Standard-Report Bestellung: Unterschied zwischen den Versionen

Aus GEVITAS
Wechseln zu: Navigation, Suche
(→‎Besonderheiten)
 
(6 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 15: Zeile 15:
  
  
 +
== Besonderheiten ==
  
 +
=== Unterdrücken Titel der Preisfelder, wenn die Bestellung keine Preise enthält ===
  
 +
Wenn die Bestellung keine Preise enthält (z.B. bei einer Anfrage), dann sollen auch die Titel der Preisfelder in den Positionen und die Betragsfelder im Fuss unterdrückt werden. Dazu gibt man im Ereignis '''ChildHeaderPositionenOnBeforePrint''' folgenden Code ein:
  
 +
procedure ChildHeaderPositionenOnBeforePrint(Sender: TfrxComponent);
 +
begin
 +
  // Wenn die Bestellung keine Summe hat: Titel für Betragsfelder ausblenden:  //JC//160209//
 +
  if ( <BestellFuss."Nettobetrag1"> = 0)
 +
  and  ( <BestellFuss."Nettobetrag2"> = 0) then //JC//160209//
 +
  begin
 +
    memoPosTitelEinzelPreis.Visible := False;
 +
    memoPosTitelRabProz.Visible := False;
 +
    memoPosTitelRabBetrag.Visible := False;
 +
    memoPosTitelGesBetrag.Visible := False;
 +
  end;
 +
end;
 +
 +
Die Textfelder im Report müssen natürlich auch die oben angegebenen Namen ("memoPosTitelEinzelPreis" usw.) haben!
 +
 +
Um im Fuss die Betrags auszublenden, gibt man im Ereignis '''ReportSummary1OnBeforePrint''' folgenden Code ein:
 +
 +
procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);
 +
begin
 +
  if <BestellFuss."Nettobetrag2"> = 0 then
 +
  begin
 +
    TextMwst1.Visible := False;
 +
    TextMwst2.Visible := False;
 +
    BestellFussSummeNetto2.Visible := False;
 +
    BestellFussMwstSatz2.Visible := False;
 +
    BestellFussMwstBetrag2.Visible := False;
 +
    BestellFussBruttoBetrag2.Visible := False;
 +
    TextGesamt1.Visible := False;
 +
    TextGesamt2.Visible := False;
 +
    BestellFussGesamtBetrag1.Visible := False;
 +
  end
 +
  else
 +
  begin
 +
    TextMwst1.Visible := True;
 +
    TextMwst2.Visible := True;
 +
    BestellFussSummeNetto2.Visible := True;
 +
    BestellFussMwstSatz2.Visible := True;
 +
    BestellFussMwstBetrag2.Visible := True;
 +
    BestellFussBruttoBetrag2.Visible := True;
 +
    TextGesamt1.Visible := True;
 +
    TextGesamt2.Visible := True;
 +
    BestellFussGesamtBetrag1.Visible := True;
 +
  end;
 +
 +
  if <BestellFuss."Nettobetrag1"> = 0 then //JC//160209//
 +
  begin
 +
    TextMwst1.Visible := False;
 +
    TextMwst2.Visible := False;
 +
    BestellFussSummeNetto1.Visible := False;
 +
    BestellFussMwstSatz1.Visible := False;
 +
    BestellFussMwstBetrag1.Visible := False;
 +
    BestellFussBruttoBetrag1.Visible := False;
 +
    TextGesamt1.Visible := False;
 +
    TextGesamt2.Visible := False;
 +
    BestellFussGesamtBetrag1.Visible := False;
 +
    BestellFussSummeNettoGesamt.Visible := False;
 +
    BestellFussSummeMwstGesamt.Visible := False;
 +
    memoFussNettoTitel.Visible := False;
 +
    memoFussMwstProzTitel.Visible := False;
 +
    memoFussMwstBetragTitel.Visible := False;
 +
    memoFussGesamtTitel.Visible := False;
 +
  end;
 +
 +
Die Textfelder im Report müssen natürlich auch die oben angegebenen Namen ("memoFussNettoTitel" usw.) haben!
 +
 +
Wenn alle Felder im Fuss ausgeblendet sind, kann man das Textfeld für den Standard-Text '''RichFussStandardText''' (aus den Programm-Parametern) auch im Code nach oben versetzen. Dazu schreibt man in die Zeilen nach
 +
 +
  if <BestellFuss."Nettobetrag1"> = 0 then //JC//160209//
 +
  begin
 +
 +
diese Zeile:
 +
 +
      RichFussStandardText.Top := 0.5 * fr1cm;
 +
 +
"fr1cm" ist dabei eine Umrechnungs-Variable, die FastReport zur Verfügung stellt. Der Grund: Alle Angaben von Positionen wie '''Top''', '''Left''' usw. werden in Pixeln gemacht. Damit man nun die Angaben von Pixeln z.B. in '''cm''' einfach angeben kann, muss man nur die gewünschte cm-Anzahl mit '''fr1cm''' multiplizieren.
 +
 +
Im Beispiel oben wird das Textfeld auf die Top-Position (=von oben auf dem Band) auf 0,5 cm gesetzt. Beachten Sie, dass das Kommata im Coder der Punkt ist!
 +
 +
 +
 +
;Hinweis:
 +
:Dieser Coder ist in '''Version 10''' des Standard-Formulars enthalten.
 +
 +
 +
=== Top-Position der Zeilen im Fuss ändern ===
 +
 +
In '''[[FastReport Tipp Top-Position im Code|diesem Artikel]]''' wird ein Beispiel beschrieben, wie man die Mehrwertsteuer-Felder im Fuss nach oben schieben kann, wenn es keine Mehrwertsteuer gibt.
  
 
== Updates ==
 
== Updates ==
Zeile 26: Zeile 116:
 
!Beschreibung
 
!Beschreibung
 
|- valign="top"
 
|- valign="top"
−
|
+
|10
−
|
+
|09.02.2016
−
|
+
|Unterdrücken der Titel für die Preisfelder der Positionen, wenn die Bestellung keine Preise enthält (z.B. bei einer Anfrage).
 +
Unterdrücken der Betragsfelder im Fuss, wenn die Bestellung keine Preise enthält.
 
|- valign="top"
 
|- valign="top"
 
|
 
|
Zeile 42: Zeile 133:
 
|
 
|
 
|}
 
|}
−
 
  
 
== Standard-Reports ==
 
== Standard-Reports ==
Zeile 51: Zeile 141:
  
 
* [[REFLEX Standard-Report Lieferschein]]
 
* [[REFLEX Standard-Report Lieferschein]]
 +
 +
* [[REFLEX Standard-Report Fehlmaterial]]
  
 
* [[REFLEX Standard-Report Bestellung]]
 
* [[REFLEX Standard-Report Bestellung]]
Zeile 65: Zeile 157:
  
 
* [[REFLEX Standard-Basis-Report]]
 
* [[REFLEX Standard-Basis-Report]]
−
 
−
 
−
 
−
 
−
 
  
 
== Links ==
 
== Links ==

Aktuelle Version vom 23. Februar 2016, 23:19 Uhr

1 Allgemeines

Der Report "Bestellung_Standard_Vxx.fr3" wird für den Druck einer Bestell-Anfrage oder eines Bestell-Auftrags aus dem Bestellungs-Programm heraus verwendet. Er unterscheidet im Design zwischen Miete, Personal und Einkauf.


1.1 Verzeichnis, Basis-Report

Der Report verwendet als Basis für den Kopf- und Fuss-Bereich den Basis-Report "BasisReport_01.fr3". Dieser muss im Verzeichnis "Formular" liegen.

2 Vorschau

In der Vorschau sieht das Formular so aus:

Bestellung Standard V09.png


3 Besonderheiten

3.1 Unterdrücken Titel der Preisfelder, wenn die Bestellung keine Preise enthält

Wenn die Bestellung keine Preise enthält (z.B. bei einer Anfrage), dann sollen auch die Titel der Preisfelder in den Positionen und die Betragsfelder im Fuss unterdrückt werden. Dazu gibt man im Ereignis ChildHeaderPositionenOnBeforePrint folgenden Code ein: 

procedure ChildHeaderPositionenOnBeforePrint(Sender: TfrxComponent);
begin
  // Wenn die Bestellung keine Summe hat: Titel für Betragsfelder ausblenden:  //JC//160209//
  if ( <BestellFuss."Nettobetrag1"> = 0)
  and  ( <BestellFuss."Nettobetrag2"> = 0) then //JC//160209//
  begin
    memoPosTitelEinzelPreis.Visible := False;
    memoPosTitelRabProz.Visible := False;
    memoPosTitelRabBetrag.Visible := False;
    memoPosTitelGesBetrag.Visible := False;
  end;
end;

Die Textfelder im Report müssen natürlich auch die oben angegebenen Namen ("memoPosTitelEinzelPreis" usw.) haben!

Um im Fuss die Betrags auszublenden, gibt man im Ereignis ReportSummary1OnBeforePrint folgenden Code ein: 

procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);
begin
  if <BestellFuss."Nettobetrag2"> = 0 then
  begin
    TextMwst1.Visible := False;
    TextMwst2.Visible := False;
    BestellFussSummeNetto2.Visible := False;
    BestellFussMwstSatz2.Visible := False;
    BestellFussMwstBetrag2.Visible := False;
    BestellFussBruttoBetrag2.Visible := False;
    TextGesamt1.Visible := False;
    TextGesamt2.Visible := False;
    BestellFussGesamtBetrag1.Visible := False;
  end
  else
  begin
    TextMwst1.Visible := True;
    TextMwst2.Visible := True;
    BestellFussSummeNetto2.Visible := True;
    BestellFussMwstSatz2.Visible := True;
    BestellFussMwstBetrag2.Visible := True;
    BestellFussBruttoBetrag2.Visible := True;
    TextGesamt1.Visible := True;
    TextGesamt2.Visible := True;
    BestellFussGesamtBetrag1.Visible := True;
  end;

  if <BestellFuss."Nettobetrag1"> = 0 then //JC//160209//
  begin
    TextMwst1.Visible := False;
    TextMwst2.Visible := False;
    BestellFussSummeNetto1.Visible := False;
    BestellFussMwstSatz1.Visible := False;
    BestellFussMwstBetrag1.Visible := False;
    BestellFussBruttoBetrag1.Visible := False;
    TextGesamt1.Visible := False;
    TextGesamt2.Visible := False;
    BestellFussGesamtBetrag1.Visible := False;
    BestellFussSummeNettoGesamt.Visible := False;
    BestellFussSummeMwstGesamt.Visible := False;
    memoFussNettoTitel.Visible := False;
    memoFussMwstProzTitel.Visible := False;
    memoFussMwstBetragTitel.Visible := False;
    memoFussGesamtTitel.Visible := False;
  end;

Die Textfelder im Report müssen natürlich auch die oben angegebenen Namen ("memoFussNettoTitel" usw.) haben!

Wenn alle Felder im Fuss ausgeblendet sind, kann man das Textfeld für den Standard-Text RichFussStandardText (aus den Programm-Parametern) auch im Code nach oben versetzen. Dazu schreibt man in die Zeilen nach 

  if <BestellFuss."Nettobetrag1"> = 0 then //JC//160209//
  begin

diese Zeile: 

      RichFussStandardText.Top := 0.5 * fr1cm;

"fr1cm" ist dabei eine Umrechnungs-Variable, die FastReport zur Verfügung stellt. Der Grund: Alle Angaben von Positionen wie Top, Left usw. werden in Pixeln gemacht. Damit man nun die Angaben von Pixeln z.B. in cm einfach angeben kann, muss man nur die gewünschte cm-Anzahl mit fr1cm multiplizieren.

Im Beispiel oben wird das Textfeld auf die Top-Position (=von oben auf dem Band) auf 0,5 cm gesetzt. Beachten Sie, dass das Kommata im Coder der Punkt ist!


Hinweis
Dieser Coder ist in Version 10 des Standard-Formulars enthalten.


3.2 Top-Position der Zeilen im Fuss ändern

In diesem Artikel wird ein Beispiel beschrieben, wie man die Mehrwertsteuer-Felder im Fuss nach oben schieben kann, wenn es keine Mehrwertsteuer gibt.

4 Updates

Version Datum Beschreibung
10 09.02.2016 Unterdrücken der Titel für die Preisfelder der Positionen, wenn die Bestellung keine Preise enthält (z.B. bei einer Anfrage).

Unterdrücken der Betragsfelder im Fuss, wenn die Bestellung keine Preise enthält.

5 Standard-Reports

6 Links

Abgerufen von „http://www.gevitas.de/wiki/index.php?title=REFLEX_Standard-Report_Bestellung&oldid=10740“