From dc85be6975aa0ecd1e975dd6325755e0931ce76e Mon Sep 17 00:00:00 2001
From: niepra01 <rolf.niepraschk@ptb.de>
Date: Mon, 28 Jan 2019 10:54:09 +0100
Subject: [PATCH] Klassenparameter "version" (default: 2018)
---
versandauftrag/test-versandauftrag-2018.tex | 2 +-
versandauftrag/test-versandauftrag-2019.tex | 57 +++++
versandauftrag/vl-versandauftrag-2018.clo | 200 +++++++++++++++++
versandauftrag/vl-versandauftrag-2019.clo | 200 +++++++++++++++++
....clo => vl-versandauftrag-new-engines.clo} | 0
....clo => vl-versandauftrag-old-engines.clo} | 0
versandauftrag/vl-versandauftrag.cls | 206 +-----------------
7 files changed, 466 insertions(+), 199 deletions(-)
create mode 100644 versandauftrag/test-versandauftrag-2019.tex
create mode 100644 versandauftrag/vl-versandauftrag-2018.clo
create mode 100644 versandauftrag/vl-versandauftrag-2019.clo
rename versandauftrag/{vl-versandauftrag-2.clo => vl-versandauftrag-new-engines.clo} (100%)
rename versandauftrag/{vl-versandauftrag-1.clo => vl-versandauftrag-old-engines.clo} (100%)
diff --git a/versandauftrag/test-versandauftrag-2018.tex b/versandauftrag/test-versandauftrag-2018.tex
index f71836a..8879c00 100644
--- a/versandauftrag/test-versandauftrag-2018.tex
+++ b/versandauftrag/test-versandauftrag-2018.tex
@@ -1,4 +1,4 @@
-\documentclass[ de ]{vl-versandauftrag}
+\documentclass[ de,2018 ]{vl-versandauftrag}
%\documentclass[ en ]{vl-versandauftrag}
%\documentclass[ngerman]{vl-versandauftrag}
diff --git a/versandauftrag/test-versandauftrag-2019.tex b/versandauftrag/test-versandauftrag-2019.tex
new file mode 100644
index 0000000..f1d5f46
--- /dev/null
+++ b/versandauftrag/test-versandauftrag-2019.tex
@@ -0,0 +1,57 @@
+\documentclass[ de,2019 ]{vl-versandauftrag}
+%\documentclass[ en ]{vl-versandauftrag}
+%\documentclass[ngerman]{vl-versandauftrag}
+
+\WorkingGroup{7.54}
+\TelefonExtension{7216}
+\Date{2015-04-21}
+\Referee{Jousten}
+\Purchaser{Niepraschk}
+
+\CostUnit{UVW}
+\FinanceUnit{XYZ}
+\Account{UVW-XYZ}
+\SAPNo{876543123}
+\Value{23117,98\,€}
+\DateOfArrival{2017-04-01}
+
+\ShippingName{"`Gutes Vakuum"' / "`Schlechtes Vakuum"' GmbH (Weltvertrieb)}
+\ShippingContact{Peter Silie}
+\ShippingStreet{Dorfstraße 23}
+\ShippingTown{Entenhausen}
+\ShippingZipcode{43210}
+\ShippingLand{Transsilvanien}
+
+\ShippingEmail{Peter.Silie@vakuum.de}
+\ShippingPhone{+49-30-4711-0815}
+\ShippingComment{Bitte das Vakuum auslaufsicher in DIN-gemäße
+ Flaschen abfüllen. Die Flaschen müssen in Watte gepackt und mit
+ Leuchtfarbe beschriftet werden!}
+
+
+\PSP{??????????}
+
+\TransportType{0}
+% Standard: 0 ("Transportunternehmen"); 1="Kundenveranlassung", 2="PTB"
+\ShippingCompany{2}% nur relevant, wenn TransportType=0
+% Standard: 4 ("DHL"); 0="Logiline", 1="TNT", 2="UPS", 3="FedEx", 5="Sonstige"
+\ShippingNo{4711-0815}% nur relevant, wenn TransportType=0
+\ShippingType{1}% Standard: 0 ("Standard"); 1="Express", 2="Special"
+\ShippingPayment{1}% Standard: 1 ("Kostenbescheid"); 0="frei", 2="unfrei"
+
+\Content{Testleck Vakuum (SN:FC13000131); Testleck Vakuum (SN:FC13000131);
+Testleck Vakuum (SN:FC13000130); Testleck Vakuum (SN:FC13000132); Testleck
+Vakuum (SN:FC03000061); Testleck Vakuum (SN:7025); Testleck Vakuum
+(SN:FC13000281); Testleck Vakuum (SN:FC03000056); Testleck Vakuum
+(SN:FC05000368); Testleck Vakuum (SN:19751); Testleck Vakuum (SN:FC03000065);
+Testleck Vakuum (SN:7204); und Zubehör}
+
+\LabelInflammable{true}% Standard: false
+\LabelGlas{true}% Standard: false
+\LabelSensitive{true}% Standard: false
+\LabelTop{true}% Standard: false
+\LabelDangerous{true}% Standard: false
+
+\begin{document}
+\end{document}
+%---------------------------
diff --git a/versandauftrag/vl-versandauftrag-2018.clo b/versandauftrag/vl-versandauftrag-2018.clo
new file mode 100644
index 0000000..dee88ed
--- /dev/null
+++ b/versandauftrag/vl-versandauftrag-2018.clo
@@ -0,0 +1,200 @@
+\ProvidesFile{vl-versandauftrag-2018.clo}[2018er Definitionen]
+
+\AddToShipoutPictureBG{%
+ \frenchspacing
+ \AtPageLowerLeft{%
+ \linethickness{0.6bp}%
+ \vl@tempdima=57bp %
+ \vl@tempdimb=58bp %
+ \put(\vl@tempdima,\vl@tempdimb){\framebox(\textwidth,\textheight){}}%
+ \put(227bp,468bp){\textcolor{thisGray}{\rule{318bp}{129bp}}}%
+ % dünne waagerechte Linien
+ \put(\vl@tempdima,767bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,739bp){\line(1,0){\textwidth}}%
+ \put(227bp,597bp){\line(1,0){318bp}}%
+ \put(\vl@tempdima,468bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,417bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,389bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,361bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,267bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,205bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,104bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima, 81bp){\line(1,0){\textwidth}}%
+ % dünne senkrechte Linien
+ \put(227bp,468bp){\line(0,1){299bp}}% hinter "Sachbearbeiter"
+ \put(305bp,739bp){\line(0,1){60bp}}% hinter "Telefon"
+ \put(389bp,739bp){\line(0,1){28bp}}% hinter "Datum"
+ \put(245bp,82bp){\line(0,1){22bp}}% vor "Verpackt durch"
+ \put(290bp,\vl@tempdimb){\line(0,1){23bp}}% vor "Unterschrift"
+ \put(213bp,361bp){\line(0,1){56bp}}%
+ \put(397bp,361bp){\line(0,1){56bp}}%
+ \put(407bp,81bp){\line(0,1){60bp}}% vor "Gewicht"
+ % Feste Beschriftung
+ \put(57bp,780bp){\parbox[c][32bp]{247bp}{\centering\bfseries\vl@mainTitle}}%
+ \put(321bp,786bp){\large Physikalisch-Technische Bundesanstalt}%
+ \put(343bp,772bp){\large Abbestraße 2--12, 10587 Berlin}%
+ \footnotesize
+ \vl@tempdimc=758bp %
+ \put( 62bp,\vl@tempdimc){Org.-Einheit, Sachbearbeiter}%
+ \put(232bp,\vl@tempdimc){Telefon: 030/3481}%
+ \put(310bp,\vl@tempdimc){Datum}%
+ \put(395bp,\vl@tempdimc){Versandauftrag wurde ausgefüllt von}%
+ \vl@tempdimc=728bp %
+ \normalsize
+ \put(62bp,\vl@tempdimc){\textbf{Versand per:}}%
+ \put(62bp,709bp){\checkBox[\ifnum\c@vl@TransportType=0 1\else0\fi]%
+ {\textbf{Transportunternehmen}}}%
+ \put(77bp,689bp){\checkBox[\vl@SelCompany{0}]{Logiline}}%
+ \put(77bp,675bp){\checkBox[\vl@SelCompany{1}]{TNT}}%
+ \put(77bp,661bp){\checkBox[\vl@SelCompany{2}]{UPS}}%
+ \put(77bp,647bp){\checkBox[\vl@SelCompany{3}]{FedEx}}%
+ \put(77bp,633bp){\checkBox[\vl@SelCompany{4}]{Post/DHL Express (unfreier}}%
+ \put(94bp,622bp){Versand nur ins Inland)}%
+ \put(77bp,606bp){\checkBox[\vl@SelCompany{5}]{}}%
+ \put(62bp,543bp){\textbf{Kundennr.:}%
+ \ifnum\c@vl@TransportType=0 ~\texttt{\vl@ShippingNo}\fi}%
+ \put(62bp,518bp){\checkBox[\ifnum\c@vl@TransportType=1 1\else0\fi]%
+ {\textbf{Abholung wird vom}}}%
+ \put(77bp,507bp){\textbf{Empfänger veranlasst}}%
+ \put(62bp,487bp){\checkBox[\ifnum\c@vl@TransportType=2 1\else0\fi]%
+ {\textbf{PTB-Fahrdienst/Kurier}}}%
+ \put(233bp,\vl@tempdimc){\textbf{Zustellungsart:}}%
+ \put(233bp,709bp){\checkBox[\ifnum\c@vl@Shippingtype=0 1\else0\fi]%
+ {Standard \scriptsize(2--3 Tage)}}%
+ \put(396bp,709bp){\checkBox[\ifDateOfArrival 1\else0\fi]%
+ {Ankunftstag \scriptsize(falls gewünscht)}}%
+ \put(233bp,689bp){\checkBox[\ifnum\c@vl@Shippingtype=1 1\else0\fi]%
+ {Ãœbernacht-Express}}%
+ \put(233bp,667bp){\checkBox[\ifnum\c@vl@Shippingtype=2 1\else0\fi]%
+ {andere:}}%
+ \put(233bp,580bp){\textbf{\large Reparatur}~(nur bei Bedarf ausfüllen)}%
+ \put(233bp,558bp){\checkBox{\textbf{Reparaturschein liegt bei}}}%
+ \put(233bp,543bp){\textbf{Lieferscheinnummer:}}%
+ \put(233bp,518bp){Mit der Bitte um}%
+ \put(233bp,498bp){\checkBox{\textbf{Reparatur im Rahmen der Gewährleistung}}}%
+ \put(233bp,478bp){\checkBox{\textbf{Reparaturkosten-Voranschlag}}}%
+ \put(62bp,453bp){Angaben zur Zahlungsart:}%
+ \put(62bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=0 1\else0\fi]%
+ {\textbf{frei}~(Kosten trägt die PTB)}}%
+ \put(220bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=2 1\else0\fi]%
+ {\textbf{unfrei}~(Empfänger zahlt)}}%
+ \put(370bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=1 1\else0\fi]%
+ {Kosten werden vom Laboratorium}}%
+ \put(386bp,423bp){per \textbf{Kostenbescheid} eingezogen}%
+ \footnotesize
+ \vl@tempdima=62bp %
+ \vl@tempdimc=408bp %
+ \put(\vl@tempdima,\vl@tempdimc){Kostenstelle}%
+ \put(218bp,\vl@tempdimc){Finanzstelle}%
+ \put(401bp,\vl@tempdimc){Titel}%
+ \vl@tempdimc=380bp %
+ \put(\vl@tempdima,\vl@tempdimc){ggf. SAP-Auftragsnummer}%
+ \put(218bp,\vl@tempdimc){Wertangabe}%
+ \put(401bp,\vl@tempdimc){PSP-Element}%
+ \normalsize
+ \vl@tempdimc=350bp %
+ \put(\vl@tempdima,\vl@tempdimc){Empfänger (Name, Straße, PLZ, Ort, Land)
+ Zustellungen an ein Postfach sind nicht möglich!}%
+ \vl@tempdimc=339bp %
+ %%%\put(\vl@tempdima,\vl@tempdimc){\textbf{Bei allen Sendungen bitte
+ %%% Ansprechpartner und Telefonnummer angeben!}}%
+ \put(\vl@tempdima,257bp){Inhalt:}%
+ \put(\vl@tempdima,194bp){Sendung mit folgendem \textbf{Warnhinweis} versehen:}
+ \put(\vl@tempdima,173bp){\checkBox[\ifInflammable 1\else 0\fi]{Feuergefährlich!}}%
+ \put(167bp,173bp){\checkBox[\ifGlas 1\else 0\fi]{Vorsicht Glas!}}%
+ \put(258bp,173bp){\checkBox[\ifSensitive 1\else 0\fi]{Vorsicht! Empfindliche}}%
+ \put(274bp,163bp){Elektrogeräte}%
+ \put(386bp,173bp){\checkBox[\ifTop 1\else 0\fi]{Oben}}%
+ \put(402bp,163bp){Nicht stürzen!}%
+ \put(478bp,173bp){\checkBox[\ifDangerous 1\else 0\fi]{Gefahrgut}}%
+ \put(193bp,145bp){{\large\textbf{Nur von der Versandstelle auszufüllen}}}
+ \footnotesize
+ \vl@tempdimc=132bp %
+ \put(\vl@tempdima,\vl@tempdimc){Verpackung}%
+ \begingroup
+ \vl@tempdimc=111bp %
+ \put(\vl@tempdima,\vl@tempdimc){\line(1,0){26bp}}%
+ \large
+ \put(105bp,\vl@tempdimc){\checkBox{Karton}}%
+ \put(168bp,\vl@tempdimc){\checkBox{Kiste}}%
+ \put(220bp,\vl@tempdimc){\checkBox{Palette}}%
+ \put(281bp,\vl@tempdimc){\checkBox{Versandtasche}}%
+ \endgroup
+ \put(412bp,\vl@tempdimc){Gewicht}%
+ \put(468bp,112bp){{\large kg}}%
+ \vl@tempdimc=94bp %
+ \put(\vl@tempdima,\vl@tempdimc){Eingang bei Z.1533 am}%
+ \put(250bp,\vl@tempdimc){Verpackt durch}%
+ \put(412bp,\vl@tempdimc){Abgesandt am}%
+ \vl@tempdimc=72bp %
+ \put(\vl@tempdima,\vl@tempdimc){Frachtbriefnummer:}%
+ \put(295bp,\vl@tempdimc){Unterschrift}%
+ % ...
+ % Variable Beschriftung
+ %
+ \vl@tempdima=62bp %
+ \begingroup
+ \ttfamily\normalsize
+ \vl@tempdimc=744bp % -14bp
+ \put(\vl@tempdima,\vl@tempdimc){\vl@WorkingGroup,~\vl@Referee}%
+ \put(395bp,\vl@tempdimc){\vl@Purchaser}%
+ \put(232bp,\vl@tempdimc){\vl@TelefonExtension}%
+ \put(310bp,\vl@tempdimc){\vl@Date}%
+ \put(411bp,695bp){\vl@DateOfArrival}%
+ \vl@tempdimc=394bp % -14bp
+ \put(\vl@tempdima,\vl@tempdimc){\vl@CostUnit}%
+ \put(218bp,\vl@tempdimc){\vl@FinanceUnit}%
+ \put(401bp,\vl@tempdimc){\vl@Account}%
+ \vl@tempdimc=366bp %
+ \put(\vl@tempdima,\vl@tempdimc){\vl@SAPNo}%
+ \put(218bp,\vl@tempdimc){\vl@Value}%
+ \put(401bp,\vl@tempdimc){\vl@PSP}% PSP-Element
+ \put(\vl@tempdima,337bp){%
+ \parbox[t]{0.975\textwidth}{%
+ \small\setstretch{0.8}%
+ \vl@ShippingName \\
+ \vl@ShippingContact \\
+ \vl@ShippingStreet \\
+ \vl@ShippingZipcode~\vl@ShippingTown \\
+ \vl@ShippingLand
+ }%
+ }%
+ \put(300bp,280bp){%
+ \parbox[t]{.56\textwidth}{%
+ \small\setstretch{0.8}%
+ \@tempswafalse
+ \ifx\vl@ShippingEmail\@empty\else
+ \@tempswatrue
+ \fi
+ \ifx\vl@ShippingPhone\@empty\else
+ \@tempswatrue
+ \fi
+ \if@tempswa
+ \begin{tabular}{@{}l@{~}l@{}}%
+ \multicolumn{1}{@{}l@{}}{\rlap{%
+ \negthinspace\negthinspace\parbox{244bp}{\dotfill}}} \\
+ \ifx\vl@ShippingEmail\@empty\else
+ E-Mail: & \vl@ShippingEmail \\
+ \fi
+ \ifx\vl@ShippingPhone\@empty\else
+ Telefon: & \vl@ShippingPhone
+ \fi
+ \end{tabular}\\[.5em]
+ \fi
+ %%\vl@ShippingComment
+ }%
+ }
+ \put(93bp,257bp){\lfitbox[t]{447bp}{56bp}{%
+ \begin{sloppypar}\vl@Content\end{sloppypar}}}%
+ \endgroup
+ }
+ \AtPageLowerLeft{%
+ \put(57bp,58bp){%
+ \linethickness{1.4bp}%
+ \framebox(\textwidth,99bp){}%
+ \put(0,83bp){\line(-1,0){\textwidth}}%
+ }
+ }
+}%
+
+\endinput
diff --git a/versandauftrag/vl-versandauftrag-2019.clo b/versandauftrag/vl-versandauftrag-2019.clo
new file mode 100644
index 0000000..b765d78
--- /dev/null
+++ b/versandauftrag/vl-versandauftrag-2019.clo
@@ -0,0 +1,200 @@
+\ProvidesFile{vl-versandauftrag-2019.clo}[2019er Definitionen]
+
+\AddToShipoutPictureBG{%
+ \frenchspacing
+ \AtPageLowerLeft{%
+ \linethickness{0.6bp}%
+ \vl@tempdima=57bp %
+ \vl@tempdimb=58bp %
+ \put(\vl@tempdima,\vl@tempdimb){\framebox(\textwidth,\textheight){}}%
+ \put(227bp,468bp){\textcolor{thisGray}{\rule{318bp}{129bp}}}%
+ % dünne waagerechte Linien
+ \put(\vl@tempdima,767bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,739bp){\line(1,0){\textwidth}}%
+ \put(227bp,597bp){\line(1,0){318bp}}%
+ \put(\vl@tempdima,468bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,417bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,389bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,361bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,267bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,205bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima,104bp){\line(1,0){\textwidth}}%
+ \put(\vl@tempdima, 81bp){\line(1,0){\textwidth}}%
+ % dünne senkrechte Linien
+ \put(227bp,468bp){\line(0,1){299bp}}% hinter "Sachbearbeiter"
+ \put(305bp,739bp){\line(0,1){60bp}}% hinter "Telefon"
+ \put(389bp,739bp){\line(0,1){28bp}}% hinter "Datum"
+ \put(245bp,82bp){\line(0,1){22bp}}% vor "Verpackt durch"
+ \put(290bp,\vl@tempdimb){\line(0,1){23bp}}% vor "Unterschrift"
+ \put(213bp,361bp){\line(0,1){56bp}}%
+ \put(397bp,361bp){\line(0,1){56bp}}%
+ \put(407bp,81bp){\line(0,1){60bp}}% vor "Gewicht"
+ % Feste Beschriftung
+ \put(57bp,780bp){\parbox[c][32bp]{247bp}{\centering\bfseries\vl@mainTitle}}%
+ \put(321bp,786bp){\large Physikalisch-Technische Bundesanstalt}%
+ \put(343bp,772bp){\large Abbestraße 2--12, 10587 Berlin}%
+ \footnotesize
+ \vl@tempdimc=758bp %
+ \put( 62bp,\vl@tempdimc){Org.-Einheit, Sachbearbeiter}%
+ \put(232bp,\vl@tempdimc){Telefon: 030/3481}%
+ \put(310bp,\vl@tempdimc){Datum}%
+ \put(395bp,\vl@tempdimc){Versandauftrag wurde ausgefüllt von}%
+ \vl@tempdimc=728bp %
+ \normalsize
+ \put(62bp,\vl@tempdimc){\textbf{Versand per:}}%
+ \put(62bp,709bp){\checkBox[\ifnum\c@vl@TransportType=0 1\else0\fi]%
+ {\textbf{Transportunternehmen}}}%
+ \put(77bp,689bp){\checkBox[\vl@SelCompany{0}]{Logiline}}%
+ \put(77bp,675bp){\checkBox[\vl@SelCompany{1}]{TNT}}%
+ \put(77bp,661bp){\checkBox[\vl@SelCompany{2}]{UPS}}%
+ \put(77bp,647bp){\checkBox[\vl@SelCompany{3}]{FedEx}}%
+ \put(77bp,633bp){\checkBox[\vl@SelCompany{4}]{Post/DHL Express (unfreier}}%
+ \put(94bp,622bp){Versand nur ins Inland)}%
+ \put(77bp,606bp){\checkBox[\vl@SelCompany{5}]{}}%
+ \put(62bp,543bp){\textbf{Kundennr.:}%
+ \ifnum\c@vl@TransportType=0 ~\texttt{\vl@ShippingNo}\fi}%
+ \put(62bp,518bp){\checkBox[\ifnum\c@vl@TransportType=1 1\else0\fi]%
+ {\textbf{Abholung wird vom}}}%
+ \put(77bp,507bp){\textbf{Empfänger veranlasst}}%
+ \put(62bp,487bp){\checkBox[\ifnum\c@vl@TransportType=2 1\else0\fi]%
+ {\textbf{PTB-Fahrdienst/Kurier}}}%
+ \put(233bp,\vl@tempdimc){\textbf{Zustellungsart:}}%
+ \put(233bp,709bp){\checkBox[\ifnum\c@vl@Shippingtype=0 1\else0\fi]%
+ {Standard \scriptsize(2--3 Tage)}}%
+ \put(396bp,709bp){\checkBox[\ifDateOfArrival 1\else0\fi]%
+ {Ankunftstag \scriptsize(falls gewünscht)}}%
+ \put(233bp,689bp){\checkBox[\ifnum\c@vl@Shippingtype=1 1\else0\fi]%
+ {Ãœbernacht-Express}}%
+ \put(233bp,667bp){\checkBox[\ifnum\c@vl@Shippingtype=2 1\else0\fi]%
+ {andere:}}%
+ \put(233bp,580bp){\textbf{\large Reparatur}~(nur bei Bedarf ausfüllen)}%
+ \put(233bp,558bp){\checkBox{\textbf{Reparaturschein liegt bei}}}%
+ \put(233bp,543bp){\textbf{Lieferscheinnummer:}}%
+ \put(233bp,518bp){Mit der Bitte um}%
+ \put(233bp,498bp){\checkBox{\textbf{Reparatur im Rahmen der Gewährleistung}}}%
+ \put(233bp,478bp){\checkBox{\textbf{Reparaturkosten-Voranschlag}}}%
+ \put(62bp,453bp){Angaben zur Zahlungsart:}%
+ \put(62bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=0 1\else0\fi]%
+ {\textbf{frei}~(Kosten trägt die PTB)}}%
+ \put(220bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=2 1\else0\fi]%
+ {\textbf{unfrei}~(Empfänger zahlt)}}%
+ \put(370bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=1 1\else0\fi]%
+ {Kosten werden vom Laboratorium}}%
+ \put(386bp,423bp){per \textbf{Kostenbescheid} eingezogen}%
+ \footnotesize
+ \vl@tempdima=62bp %
+ \vl@tempdimc=408bp %
+ \put(\vl@tempdima,\vl@tempdimc){Kostenstelle}%
+ \put(218bp,\vl@tempdimc){Finanzstelle}%
+ \put(401bp,\vl@tempdimc){Titel}%
+ \vl@tempdimc=380bp %
+ \put(\vl@tempdima,\vl@tempdimc){ggf. SAP-Auftragsnummer}%
+ \put(218bp,\vl@tempdimc){Wertangabe}%
+ \put(401bp,\vl@tempdimc){PSP-Element}%
+ \normalsize
+ \vl@tempdimc=350bp %
+ \put(\vl@tempdima,\vl@tempdimc){Empfänger (Name, Straße, PLZ, Ort, Land)
+ Zustellungen an ein Postfach sind nicht möglich!}%
+ \vl@tempdimc=339bp %
+ %%%\put(\vl@tempdima,\vl@tempdimc){\textbf{Bei allen Sendungen bitte
+ %%% Ansprechpartner und Telefonnummer angeben!}}%
+ \put(\vl@tempdima,257bp){Inhalt:}%
+ \put(\vl@tempdima,194bp){Sendung mit folgendem \textbf{Warnhinweis} versehen:}
+ \put(\vl@tempdima,173bp){\checkBox[\ifInflammable 1\else 0\fi]{Feuergefährlich!}}%
+ \put(167bp,173bp){\checkBox[\ifGlas 1\else 0\fi]{Vorsicht Glas!}}%
+ \put(258bp,173bp){\checkBox[\ifSensitive 1\else 0\fi]{Vorsicht! Empfindliche}}%
+ \put(274bp,163bp){Elektrogeräte}%
+ \put(386bp,173bp){\checkBox[\ifTop 1\else 0\fi]{Oben}}%
+ \put(402bp,163bp){Nicht stürzen!}%
+ \put(478bp,173bp){\checkBox[\ifDangerous 1\else 0\fi]{Gefahrgut}}%
+ \put(193bp,145bp){{\large\textbf{Nur von der Versandstelle auszufüllen}}}
+ \footnotesize
+ \vl@tempdimc=132bp %
+ \put(\vl@tempdima,\vl@tempdimc){Verpackung}%
+ \begingroup
+ \vl@tempdimc=111bp %
+ \put(\vl@tempdima,\vl@tempdimc){\line(1,0){26bp}}%
+ \large
+ \put(105bp,\vl@tempdimc){\checkBox{Karton}}%
+ \put(168bp,\vl@tempdimc){\checkBox{Kiste}}%
+ \put(220bp,\vl@tempdimc){\checkBox{Palette}}%
+ \put(281bp,\vl@tempdimc){\checkBox{Versandtasche}}%
+ \endgroup
+ \put(412bp,\vl@tempdimc){Gewicht}%
+ \put(468bp,112bp){{\large kg}}%
+ \vl@tempdimc=94bp %
+ \put(\vl@tempdima,\vl@tempdimc){Eingang bei Z.1533 am}%
+ \put(250bp,\vl@tempdimc){Verpackt durch}%
+ \put(412bp,\vl@tempdimc){Abgesandt am}%
+ \vl@tempdimc=72bp %
+ \put(\vl@tempdima,\vl@tempdimc){Frachtbriefnummer:}%
+ \put(295bp,\vl@tempdimc){Unterschrift}%
+ % ...
+ % Variable Beschriftung
+ %
+ \vl@tempdima=62bp %
+ \begingroup
+ \ttfamily\normalsize
+ \vl@tempdimc=744bp % -14bp
+ \put(\vl@tempdima,\vl@tempdimc){\vl@WorkingGroup,~\vl@Referee}%
+ \put(395bp,\vl@tempdimc){\vl@Purchaser}%
+ \put(232bp,\vl@tempdimc){\vl@TelefonExtension}%
+ \put(310bp,\vl@tempdimc){\vl@Date}%
+ \put(411bp,695bp){\vl@DateOfArrival}%
+ \vl@tempdimc=394bp % -14bp
+ \put(\vl@tempdima,\vl@tempdimc){\vl@CostUnit}%
+ \put(218bp,\vl@tempdimc){\vl@FinanceUnit}%
+ \put(401bp,\vl@tempdimc){\vl@Account}%
+ \vl@tempdimc=366bp %
+ \put(\vl@tempdima,\vl@tempdimc){\vl@SAPNo}%
+ \put(218bp,\vl@tempdimc){\vl@Value}%
+ \put(401bp,\vl@tempdimc){\vl@PSP}% PSP-Element
+ \put(\vl@tempdima,337bp){%
+ \parbox[t]{0.975\textwidth}{%
+ \small\setstretch{0.8}%
+ \vl@ShippingName \\
+ \vl@ShippingContact \\
+ \vl@ShippingStreet \\
+ \vl@ShippingZipcode~\vl@ShippingTown \\
+ \vl@ShippingLand
+ }%
+ }%
+ \put(300bp,280bp){%
+ \parbox[t]{.56\textwidth}{%
+ \small\setstretch{0.8}%
+ \@tempswafalse
+ \ifx\vl@ShippingEmail\@empty\else
+ \@tempswatrue
+ \fi
+ \ifx\vl@ShippingPhone\@empty\else
+ \@tempswatrue
+ \fi
+ \if@tempswa
+ \begin{tabular}{@{}l@{~}l@{}}%
+ \multicolumn{1}{@{}l@{}}{\rlap{%
+ \negthinspace\negthinspace\parbox{244bp}{\dotfill}}} \\
+ \ifx\vl@ShippingEmail\@empty\else
+ E-Mail: & \vl@ShippingEmail \\
+ \fi
+ \ifx\vl@ShippingPhone\@empty\else
+ Telefon: & \vl@ShippingPhone
+ \fi
+ \end{tabular}\\[.5em]
+ \fi
+ \vl@ShippingComment
+ }%
+ }
+ \put(93bp,257bp){\lfitbox[t]{447bp}{56bp}{%
+ \begin{sloppypar}\vl@Content\end{sloppypar}}}%
+ \endgroup
+ }
+ \AtPageLowerLeft{%
+ \put(57bp,58bp){%
+ \linethickness{1.4bp}%
+ \framebox(\textwidth,99bp){}%
+ \put(0,83bp){\line(-1,0){\textwidth}}%
+ }
+ }
+}%
+
+\endinput
diff --git a/versandauftrag/vl-versandauftrag-2.clo b/versandauftrag/vl-versandauftrag-new-engines.clo
similarity index 100%
rename from versandauftrag/vl-versandauftrag-2.clo
rename to versandauftrag/vl-versandauftrag-new-engines.clo
diff --git a/versandauftrag/vl-versandauftrag-1.clo b/versandauftrag/vl-versandauftrag-old-engines.clo
similarity index 100%
rename from versandauftrag/vl-versandauftrag-1.clo
rename to versandauftrag/vl-versandauftrag-old-engines.clo
diff --git a/versandauftrag/vl-versandauftrag.cls b/versandauftrag/vl-versandauftrag.cls
index ff1cc37..d830d77 100644
--- a/versandauftrag/vl-versandauftrag.cls
+++ b/versandauftrag/vl-versandauftrag.cls
@@ -5,11 +5,16 @@
[2018/03/15 v0.2c-2018 Dokumentenklasse (RN/PTB)]
\newcommand*\vl@lang{english}
+\newcommand*\vl@version{2018}
\DeclareOption{de}{\def\vl@lang{ngerman}}
\DeclareOption{german}{\def\vl@lang{ngerman}}
\DeclareOption{en}{\def\vl@lang{english}}
+\DeclareOption{2017}{\def\vl@version{2017}}
+\DeclareOption{2018}{\def\vl@version{2018}}
+\DeclareOption{2019}{\def\vl@version{2019}}
+
\DeclareOption*{\PassOptionsToClass{\CurrentOption}{scrartcl}}
\ProcessOptions\relax
\PassOptionsToPackage{paper=a4,pagesize}{typearea}
@@ -24,9 +29,9 @@
\ifxetex\XeOrLuatrue\else\ifluatex\XeOrLuatrue\fi\fi
\ifXeOrLua% XeLaTeX oder luaLaTeX
- \input{vl-versandauftrag-2.clo}
+ \input{vl-versandauftrag-new-engines.clo}
\else
- \input{vl-versandauftrag-1.clo}
+ \input{vl-versandauftrag-old-engines.clo}
\fi
\setlength\textwidth{488bp}
@@ -247,202 +252,7 @@
\fi
}
-\AddToShipoutPictureBG{%
- \frenchspacing
- \AtPageLowerLeft{%
- \linethickness{0.6bp}%
- \vl@tempdima=57bp %
- \vl@tempdimb=58bp %
- \put(\vl@tempdima,\vl@tempdimb){\framebox(\textwidth,\textheight){}}%
- \put(227bp,468bp){\textcolor{thisGray}{\rule{318bp}{129bp}}}%
- % dünne waagerechte Linien
- \put(\vl@tempdima,767bp){\line(1,0){\textwidth}}%
- \put(\vl@tempdima,739bp){\line(1,0){\textwidth}}%
- \put(227bp,597bp){\line(1,0){318bp}}%
- \put(\vl@tempdima,468bp){\line(1,0){\textwidth}}%
- \put(\vl@tempdima,417bp){\line(1,0){\textwidth}}%
- \put(\vl@tempdima,389bp){\line(1,0){\textwidth}}%
- \put(\vl@tempdima,361bp){\line(1,0){\textwidth}}%
- \put(\vl@tempdima,267bp){\line(1,0){\textwidth}}%
- \put(\vl@tempdima,205bp){\line(1,0){\textwidth}}%
- \put(\vl@tempdima,104bp){\line(1,0){\textwidth}}%
- \put(\vl@tempdima, 81bp){\line(1,0){\textwidth}}%
- % dünne senkrechte Linien
- \put(227bp,468bp){\line(0,1){299bp}}% hinter "Sachbearbeiter"
- \put(305bp,739bp){\line(0,1){60bp}}% hinter "Telefon"
- \put(389bp,739bp){\line(0,1){28bp}}% hinter "Datum"
- \put(245bp,82bp){\line(0,1){22bp}}% vor "Verpackt durch"
- \put(290bp,\vl@tempdimb){\line(0,1){23bp}}% vor "Unterschrift"
- \put(213bp,361bp){\line(0,1){56bp}}%
- \put(397bp,361bp){\line(0,1){56bp}}%
- \put(407bp,81bp){\line(0,1){60bp}}% vor "Gewicht"
- % Feste Beschriftung
- \put(57bp,780bp){\parbox[c][32bp]{247bp}{\centering\bfseries\vl@mainTitle}}%
- \put(321bp,786bp){\large Physikalisch-Technische Bundesanstalt}%
- \put(343bp,772bp){\large Abbestraße 2--12, 10587 Berlin}%
- \footnotesize
- \vl@tempdimc=758bp %
- \put( 62bp,\vl@tempdimc){Org.-Einheit, Sachbearbeiter}%
- \put(232bp,\vl@tempdimc){Telefon: 030/3481}%
- \put(310bp,\vl@tempdimc){Datum}%
- \put(395bp,\vl@tempdimc){Versandauftrag wurde ausgefüllt von}%
- \vl@tempdimc=728bp %
- \normalsize
- \put(62bp,\vl@tempdimc){\textbf{Versand per:}}%
- \put(62bp,709bp){\checkBox[\ifnum\c@vl@TransportType=0 1\else0\fi]%
- {\textbf{Transportunternehmen}}}%
- \put(77bp,689bp){\checkBox[\vl@SelCompany{0}]{Logiline}}%
- \put(77bp,675bp){\checkBox[\vl@SelCompany{1}]{TNT}}%
- \put(77bp,661bp){\checkBox[\vl@SelCompany{2}]{UPS}}%
- \put(77bp,647bp){\checkBox[\vl@SelCompany{3}]{FedEx}}%
- \put(77bp,633bp){\checkBox[\vl@SelCompany{4}]{Post/DHL Express (unfreier}}%
- \put(94bp,622bp){Versand nur ins Inland)}%
- \put(77bp,606bp){\checkBox[\vl@SelCompany{5}]{}}%
- \put(62bp,543bp){\textbf{Kundennr.:}%
- \ifnum\c@vl@TransportType=0 ~\texttt{\vl@ShippingNo}\fi}%
- \put(62bp,518bp){\checkBox[\ifnum\c@vl@TransportType=1 1\else0\fi]%
- {\textbf{Abholung wird vom}}}%
- \put(77bp,507bp){\textbf{Empfänger veranlasst}}%
- \put(62bp,487bp){\checkBox[\ifnum\c@vl@TransportType=2 1\else0\fi]%
- {\textbf{PTB-Fahrdienst/Kurier}}}%
- \put(233bp,\vl@tempdimc){\textbf{Zustellungsart:}}%
- \put(233bp,709bp){\checkBox[\ifnum\c@vl@Shippingtype=0 1\else0\fi]%
- {Standard \scriptsize(2--3 Tage)}}%
- \put(396bp,709bp){\checkBox[\ifDateOfArrival 1\else0\fi]%
- {Ankunftstag \scriptsize(falls gewünscht)}}%
- \put(233bp,689bp){\checkBox[\ifnum\c@vl@Shippingtype=1 1\else0\fi]%
- {Ãœbernacht-Express}}%
- \put(233bp,667bp){\checkBox[\ifnum\c@vl@Shippingtype=2 1\else0\fi]%
- {andere:}}%
- \put(233bp,580bp){\textbf{\large Reparatur}~(nur bei Bedarf ausfüllen)}%
- \put(233bp,558bp){\checkBox{\textbf{Reparaturschein liegt bei}}}%
- \put(233bp,543bp){\textbf{Lieferscheinnummer:}}%
- \put(233bp,518bp){Mit der Bitte um}%
- \put(233bp,498bp){\checkBox{\textbf{Reparatur im Rahmen der Gewährleistung}}}%
- \put(233bp,478bp){\checkBox{\textbf{Reparaturkosten-Voranschlag}}}%
- \put(62bp,453bp){Angaben zur Zahlungsart:}%
- \put(62bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=0 1\else0\fi]%
- {\textbf{frei}~(Kosten trägt die PTB)}}%
- \put(220bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=2 1\else0\fi]%
- {\textbf{unfrei}~(Empfänger zahlt)}}%
- \put(370bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=1 1\else0\fi]%
- {Kosten werden vom Laboratorium}}%
- \put(386bp,423bp){per \textbf{Kostenbescheid} eingezogen}%
- \footnotesize
- \vl@tempdima=62bp %
- \vl@tempdimc=408bp %
- \put(\vl@tempdima,\vl@tempdimc){Kostenstelle}%
- \put(218bp,\vl@tempdimc){Finanzstelle}%
- \put(401bp,\vl@tempdimc){Titel}%
- \vl@tempdimc=380bp %
- \put(\vl@tempdima,\vl@tempdimc){ggf. SAP-Auftragsnummer}%
- \put(218bp,\vl@tempdimc){Wertangabe}%
- \put(401bp,\vl@tempdimc){PSP-Element}%
- \normalsize
- \vl@tempdimc=350bp %
- \put(\vl@tempdima,\vl@tempdimc){Empfänger (Name, Straße, PLZ, Ort, Land)
- Zustellungen an ein Postfach sind nicht möglich!}%
- \vl@tempdimc=339bp %
- %%%\put(\vl@tempdima,\vl@tempdimc){\textbf{Bei allen Sendungen bitte
- %%% Ansprechpartner und Telefonnummer angeben!}}%
- \put(\vl@tempdima,257bp){Inhalt:}%
- \put(\vl@tempdima,194bp){Sendung mit folgendem \textbf{Warnhinweis} versehen:}
- \put(\vl@tempdima,173bp){\checkBox[\ifInflammable 1\else 0\fi]{Feuergefährlich!}}%
- \put(167bp,173bp){\checkBox[\ifGlas 1\else 0\fi]{Vorsicht Glas!}}%
- \put(258bp,173bp){\checkBox[\ifSensitive 1\else 0\fi]{Vorsicht! Empfindliche}}%
- \put(274bp,163bp){Elektrogeräte}%
- \put(386bp,173bp){\checkBox[\ifTop 1\else 0\fi]{Oben}}%
- \put(402bp,163bp){Nicht stürzen!}%
- \put(478bp,173bp){\checkBox[\ifDangerous 1\else 0\fi]{Gefahrgut}}%
- \put(193bp,145bp){{\large\textbf{Nur von der Versandstelle auszufüllen}}}
- \footnotesize
- \vl@tempdimc=132bp %
- \put(\vl@tempdima,\vl@tempdimc){Verpackung}%
- \begingroup
- \vl@tempdimc=111bp %
- \put(\vl@tempdima,\vl@tempdimc){\line(1,0){26bp}}%
- \large
- \put(105bp,\vl@tempdimc){\checkBox{Karton}}%
- \put(168bp,\vl@tempdimc){\checkBox{Kiste}}%
- \put(220bp,\vl@tempdimc){\checkBox{Palette}}%
- \put(281bp,\vl@tempdimc){\checkBox{Versandtasche}}%
- \endgroup
- \put(412bp,\vl@tempdimc){Gewicht}%
- \put(468bp,112bp){{\large kg}}%
- \vl@tempdimc=94bp %
- \put(\vl@tempdima,\vl@tempdimc){Eingang bei Z.1533 am}%
- \put(250bp,\vl@tempdimc){Verpackt durch}%
- \put(412bp,\vl@tempdimc){Abgesandt am}%
- \vl@tempdimc=72bp %
- \put(\vl@tempdima,\vl@tempdimc){Frachtbriefnummer:}%
- \put(295bp,\vl@tempdimc){Unterschrift}%
- % ...
- % Variable Beschriftung
- %
- \vl@tempdima=62bp %
- \begingroup
- \ttfamily\normalsize
- \vl@tempdimc=744bp % -14bp
- \put(\vl@tempdima,\vl@tempdimc){\vl@WorkingGroup,~\vl@Referee}%
- \put(395bp,\vl@tempdimc){\vl@Purchaser}%
- \put(232bp,\vl@tempdimc){\vl@TelefonExtension}%
- \put(310bp,\vl@tempdimc){\vl@Date}%
- \put(411bp,695bp){\vl@DateOfArrival}%
- \vl@tempdimc=394bp % -14bp
- \put(\vl@tempdima,\vl@tempdimc){\vl@CostUnit}%
- \put(218bp,\vl@tempdimc){\vl@FinanceUnit}%
- \put(401bp,\vl@tempdimc){\vl@Account}%
- \vl@tempdimc=366bp %
- \put(\vl@tempdima,\vl@tempdimc){\vl@SAPNo}%
- \put(218bp,\vl@tempdimc){\vl@Value}%
- \put(401bp,\vl@tempdimc){\vl@PSP}% PSP-Element
- \put(\vl@tempdima,337bp){%
- \parbox[t]{0.975\textwidth}{%
- \small\setstretch{0.8}%
- \vl@ShippingName \\
- \vl@ShippingContact \\
- \vl@ShippingStreet \\
- \vl@ShippingZipcode~\vl@ShippingTown \\
- \vl@ShippingLand
- }%
- }%
- \put(300bp,280bp){%
- \parbox[t]{.56\textwidth}{%
- \small\setstretch{0.8}%
- \@tempswafalse
- \ifx\vl@ShippingEmail\@empty\else
- \@tempswatrue
- \fi
- \ifx\vl@ShippingPhone\@empty\else
- \@tempswatrue
- \fi
- \if@tempswa
- \begin{tabular}{@{}l@{~}l@{}}%
- \multicolumn{1}{@{}l@{}}{\rlap{%
- \negthinspace\negthinspace\parbox{244bp}{\dotfill}}} \\
- \ifx\vl@ShippingEmail\@empty\else
- E-Mail: & \vl@ShippingEmail \\
- \fi
- \ifx\vl@ShippingPhone\@empty\else
- Telefon: & \vl@ShippingPhone
- \fi
- \end{tabular}\\[.5em]
- \fi
- \vl@ShippingComment
- }%
- }
- \put(93bp,257bp){\lfitbox[t]{447bp}{56bp}{%
- \begin{sloppypar}\vl@Content\end{sloppypar}}}%
- \endgroup
- }
- \AtPageLowerLeft{%
- \put(57bp,58bp){%
- \linethickness{1.4bp}%
- \framebox(\textwidth,99bp){}%
- \put(0,83bp){\line(-1,0){\textwidth}}%
- }
- }
-}%
+\input{vl-versandauftrag-\vl@version.clo}
\emergencystretch=3em %
\pagestyle{empty}
--
GitLab