REFLEX Standard-Report Werkstatt-Rueck-Lieferschein: Unterschied zwischen den Versionen
Aus GEVITAS
(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…“) |
(→Anschrift) |
||
| 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, 13:02 Uhr
Inhaltsverzeichnis
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;
