REFLEX Standard-Report Bestellung: Unterschied zwischen den Versionen

Version vom 10. Februar 2016, 00:15 Uhr

Inhaltsverzeichnis

1 Allgemeines
- 1.1 Verzeichnis, Basis-Report
2 Vorschau
3 Besonderheiten
- 3.1 Unterdrücken Titel der Preisfelder, wenn die Bestellung keine Preise enthält
4 Updates
5 Standard-Reports
6 Links

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!

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.