REFLEX Standard-Report Werkstatt-Rueck-Lieferschein: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Die Seite wurde neu angelegt: „== Allgemeines == Der Report '''"Werkstatt_RueckLieferschein_Standard_Vxx.fr3"''' wird für den Druck eines Lieferscheins an den Kunden nach durchgeführter R…“ |
|||
| Zeile 31: | Zeile 31: | ||
begin | begin | ||
// Anschrift zusammenstellen: | // Anschrift zusammenstellen: | ||
if <Werkstattauftrag."LieferAnschr-Kurzname"> > '' then | <nowiki>if <Werkstattauftrag."LieferAnschr-Kurzname"> > '' then</nowiki> | ||
begin | begin | ||
// Es gibt eine Liefer-Anschrift: Diese verwenden! | // Es gibt eine Liefer-Anschrift: Diese verwenden! | ||
MemoAnschrift.Lines.Add(<Werkstattauftrag."LieferAnschr-NameFirma">); | <nowiki>MemoAnschrift.Lines.Add(<Werkstattauftrag."LieferAnschr-NameFirma">);</nowiki> | ||
if <Werkstattauftrag."LieferAnschr-AnsprechPartner"> > '' then | <nowiki>if <Werkstattauftrag."LieferAnschr-AnsprechPartner"> > '' then</nowiki> | ||
MemoAnschrift.Lines.Add(<Werkstattauftrag."LieferAnschr-AnsprechPartner">); | <nowiki>MemoAnschrift.Lines.Add(<Werkstattauftrag."LieferAnschr-AnsprechPartner">);</nowiki> | ||
MemoAnschrift.Lines.Add(<Werkstattauftrag."LieferAnschr-Str">); | <nowiki>MemoAnschrift.Lines.Add(<Werkstattauftrag."LieferAnschr-Str">);</nowiki> | ||
MemoAnschrift.Lines.Add(''); | <nowiki>MemoAnschrift.Lines.Add('');</nowiki> | ||
MemoAnschrift.Lines.Add(<Werkstattauftrag."LieferAnschr-PLZ"> + ' ' + <Werkstattauftrag."LieferAnschr-Ort">); | <nowiki>MemoAnschrift.Lines.Add(<Werkstattauftrag."LieferAnschr-PLZ"> + ' ' + <Werkstattauftrag."LieferAnschr-Ort">);</nowiki> | ||
end | end | ||
else | else | ||
begin | begin | ||
// Es gibt KEINE Liefer-Anschrift: Kunden-Anschrift verwenden! | // Es gibt KEINE Liefer-Anschrift: Kunden-Anschrift verwenden! | ||
MemoAnschrift.Lines.Add( <Adresse."NameFirma"> ); | <nowiki>MemoAnschrift.Lines.Add( <Adresse."NameFirma"> );</nowiki> | ||
if <Werkstattauftrag."Kunde-AnsprechPartner"> > '' then | <nowiki>if <Werkstattauftrag."Kunde-AnsprechPartner"> > '' then</nowiki> | ||
MemoAnschrift.Lines.Add( <Werkstattauftrag."Kunde-AnsprechPartner"> ); | <nowiki>MemoAnschrift.Lines.Add( <Werkstattauftrag."Kunde-AnsprechPartner"> );</nowiki> | ||
MemoAnschrift.Lines.Add( <Adresse."Strasse"> ); | <nowiki>MemoAnschrift.Lines.Add( <Adresse."Strasse"> );</nowiki> | ||
MemoAnschrift.Lines.Add(''); | <nowiki>MemoAnschrift.Lines.Add('');</nowiki> | ||
MemoAnschrift.Lines.Add( <Adresse."PLZ"> + ' ' + <Adresse."Ort"> ); | <nowiki>MemoAnschrift.Lines.Add( <Adresse."PLZ"> + ' ' + <Adresse."Ort"> );</nowiki> | ||
MemoAnschrift.Lines.Add(''); | <nowiki>MemoAnschrift.Lines.Add('');</nowiki> | ||
MemoAnschrift.Lines.Add(<Adresse."Landname">); | <nowiki>MemoAnschrift.Lines.Add(<Adresse."Landname">);</nowiki> | ||
end; | end; | ||
end; | end; | ||
== Links == | == Links == | ||
Version vom 28. Dezember 2015, 11:02 Uhr
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.
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.
Vorschau
In der Vorschau sieht das Formular so aus:
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;