REFLEX Standard-Report Werkstatt-Rueck-Lieferschein

Inhaltsverzeichnis

1 Allgemeines
- 1.1 Verzeichnis, Basis-Report
2 Vorschau
3 Anschrift
4 Updates
5 Standard-Reports
6 Links

1 Allgemeines

Der Report "Werkstatt_RueckLieferschein_Standard_Vxx.fr3" wird für den Druck eines Lieferscheins an den Kunden nach durchgeführter Reparatur aus dem Werkstatt-Reparaturen-Programm heraus verwendet.

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 Anschrift

Wenn eine Lieferanschrift im Werkstatt-Auftrag angegeben wurde, wird diese gedruckt. Wenn nicht, wird die Anschrift des Kunden gedruckt, die im Werkstatt-Auftrag angegeben wurde.

Wenn ein Ansprechpartner angegeben wurde, wird dieser unter dem Firmen-Namen gedruckt, wenn nicht, wird keine Zeile gedruckt (also keine "Zahnlücke").

Dazu wird ein Memo-Feld MemoAnschrift benutzt, das anfangs leer ist. Im Ereignis MemoAnschriftOnBeforePrint wird das Memo-Feld nun entsprechend gefüllt. Dazu wird dieser Code benutzt:

procedure MemoAnschriftOnBeforePrint(Sender: TfrxComponent);
begin
  // Anschrift zusammenstellen:
  if <Werkstattauftrag."LieferAnschr-Kurzname"> > '' then
  begin
    // Es gibt eine Liefer-Anschrift: Diese verwenden!
    MemoAnschrift.Lines.Add(<Werkstattauftrag."LieferAnschr-NameFirma">);
    if <Werkstattauftrag."LieferAnschr-AnsprechPartner"> > '' then
      MemoAnschrift.Lines.Add(<Werkstattauftrag."LieferAnschr-AnsprechPartner">);
    MemoAnschrift.Lines.Add(<Werkstattauftrag."LieferAnschr-Str">);
    MemoAnschrift.Lines.Add('');
    MemoAnschrift.Lines.Add(<Werkstattauftrag."LieferAnschr-PLZ"> + ' ' + <Werkstattauftrag."LieferAnschr-Ort">);
  end
  else
  begin
    // Es gibt KEINE Liefer-Anschrift: Kunden-Anschrift verwenden!
    MemoAnschrift.Lines.Add( <Adresse."NameFirma"> );
    if <Werkstattauftrag."Kunde-AnsprechPartner"> > '' then
      MemoAnschrift.Lines.Add( <Werkstattauftrag."Kunde-AnsprechPartner"> );
    MemoAnschrift.Lines.Add( <Adresse."Strasse">  );
    MemoAnschrift.Lines.Add('');
    MemoAnschrift.Lines.Add(  <Adresse."PLZ"> + ' ' + <Adresse."Ort"> );
    MemoAnschrift.Lines.Add('');
    MemoAnschrift.Lines.Add(<Adresse."Landname">);
  end;
end;