REFLEX Standard-Report Bestellung: Unterschied zwischen den Versionen
(→Unterdrücken Titel der Preisfelder, wenn die Bestellung keine Preise enthält) |
(→Unterdrücken Titel der Preisfelder, wenn die Bestellung keine Preise enthält) |
||
| Zeile 64: | Zeile 64: | ||
BestellFussGesamtBetrag1.Visible := True; | BestellFussGesamtBetrag1.Visible := True; | ||
end; | end; | ||
| − | + | ||
if <BestellFuss."Nettobetrag1"> = 0 then //JC//160209// | if <BestellFuss."Nettobetrag1"> = 0 then //JC//160209// | ||
begin | begin | ||
| Zeile 86: | Zeile 86: | ||
Die Textfelder im Report müssen natürlich auch die oben angegebenen Namen ("memoFussNettoTitel" usw.) haben! | Die Textfelder im Report müssen natürlich auch die oben angegebenen Namen ("memoFussNettoTitel" usw.) haben! | ||
| − | Dieser Coder ist in '''Version 10''' des Standard-Formulars enthalten. | + | 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. | ||
| + | |||
| + | |||
| + | ;Hinweis: | ||
| + | :Dieser Coder ist in '''Version 10''' des Standard-Formulars enthalten. | ||
== Updates == | == Updates == | ||
Version vom 9. Februar 2016, 23:29 Uhr
Inhaltsverzeichnis
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:
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.
- Hinweis
- Dieser Coder ist in Version 10 des Standard-Formulars enthalten.
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. |
