From 55f23e32976756354831dc1db6aa7826f32aca3e Mon Sep 17 00:00:00 2001
From: niepra01 <rolf.niepraschk@ptb.de>
Date: Thu, 15 Mar 2018 14:43:31 +0100
Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20zur=202018er=20Version?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 ...ftrag.tex => test-versandauftrag-2017.tex} |   0
 versandauftrag/test-versandauftrag-2018.tex   |  53 +++
 versandauftrag/vl-versandauftrag-2017.cls     | 418 ++++++++++++++++++
 versandauftrag/vl-versandauftrag.cls          |  87 ++--
 4 files changed, 518 insertions(+), 40 deletions(-)
 rename versandauftrag/{test-versandauftrag.tex => test-versandauftrag-2017.tex} (100%)
 create mode 100644 versandauftrag/test-versandauftrag-2018.tex
 create mode 100644 versandauftrag/vl-versandauftrag-2017.cls

diff --git a/versandauftrag/test-versandauftrag.tex b/versandauftrag/test-versandauftrag-2017.tex
similarity index 100%
rename from versandauftrag/test-versandauftrag.tex
rename to versandauftrag/test-versandauftrag-2017.tex
diff --git a/versandauftrag/test-versandauftrag-2018.tex b/versandauftrag/test-versandauftrag-2018.tex
new file mode 100644
index 0000000..4b0cf06
--- /dev/null
+++ b/versandauftrag/test-versandauftrag-2018.tex
@@ -0,0 +1,53 @@
+\documentclass[ de ]{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"' GmbH}
+\ShippingContact{Peter Silie}
+\ShippingStreet{Dorfstraße 23}
+\ShippingTown{Entenhausen}
+\ShippingZipcode{43210}
+\ShippingLand{Transsilvanien}
+
+%%%\Inland{false}%   Standard: true
+%%%\EU{false}%       Standard: true, nur relevant, wenn Inland=false
+
+\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-2017.cls b/versandauftrag/vl-versandauftrag-2017.cls
new file mode 100644
index 0000000..6d092e3
--- /dev/null
+++ b/versandauftrag/vl-versandauftrag-2017.cls
@@ -0,0 +1,418 @@
+\setcounter{errorcontextlines}{100}
+\listfiles
+\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+\ProvidesClass{vl-versandauftrag-2017}
+    [2018/01/11 v0.1k Dokumentenklasse (RN/PTB)]
+
+\newcommand*\vl@lang{english}
+
+\DeclareOption{de}{\def\vl@lang{ngerman}}
+\DeclareOption{german}{\def\vl@lang{ngerman}}
+\DeclareOption{en}{\def\vl@lang{english}}
+
+\DeclareOption*{\PassOptionsToClass{\CurrentOption}{scrartcl}}
+\ProcessOptions\relax
+\PassOptionsToPackage{paper=a4,pagesize}{typearea}
+
+\LoadClass[%
+,fontsize=10pt
+]{scrartcl}
+
+\RequirePackage{ifxetex,ifluatex,setspace}
+\setstretch{1.5}
+\newif\ifXeOrLua \XeOrLuafalse
+\ifxetex\XeOrLuatrue\else\ifluatex\XeOrLuatrue\fi\fi
+
+\ifXeOrLua% XeLaTeX oder luaLaTeX
+  \input{vl-versandauftrag-2.clo}
+\else
+  \input{vl-versandauftrag-1.clo}
+\fi
+
+\setlength\textwidth{488bp}
+\setlength\textheight{741bp}
+
+\RequirePackage{eso-pic,pict2e,picture,xcolor,relsize,trimspaces}
+\RequirePackage[\vl@lang]{babel}
+\RequirePackage{iflang}
+\IfLanguageName{ngerman}{%
+  \RequirePackage[babel=once,german=guillemets]{csquotes}
+  \AtEndOfClass{\shorthandon{"}}
+  \defineshorthand{"`}{\openautoquote}
+  \defineshorthand{"'}{\closeautoquote}
+  \MakeAutoQuote{»}{«}
+}{%
+  \RequirePackage[babel=once]{csquotes}
+}
+
+\definecolor{thisGray}{gray}{0.881}
+
+\let\vl@tempdima=\@ovxx
+\let\vl@tempdimb=\@ovyy
+\let\vl@tempdimc=\@ovdx
+\let\vl@tempdimd=\@clnwd
+\let\vl@tempdime=\@clnht
+\let\vl@tempdimf=\@dashdim
+\newcommand\vl@tempa{}
+
+\newdimen\vl@fontdim
+\newdimen\vl@upperfontdim
+\newdimen\vl@lowerfontdim
+\newif\if@vl@moreiterations
+\vl@fontdim=12pt %
+
+\newcommand\vl@buildbox[2]{%
+  \setbox0\vbox{\hbox{\parbox{#1}{%
+    \fontsize{\vl@fontdim}{1.2\vl@fontdim}\selectfont #2}}}%
+  \dimen@\ht0 %
+  \advance\dimen@\dp0 %
+}
+
+% Modifiziert nach:
+% http://tex.stackexchange.com/questions/26002/fit-text-into-given-box-by-adjusting-the-fontsize
+% siehe auch: http://www.tug.org/TUGboat/tb29-1/tb91pearls.pdf
+%
+% Verhält sich wie \parbox, wenn Text in vorgegebene Höhe passt,
+% sonst Reduktion der Schriftgröße.
+\newcommand\lfitbox[4][c]{% [pos] <width> <height> <stuff>
+  \vl@buildbox{#2}{#4}%
+  \ifdim\dimen@<#3\relax
+    \parbox[#1][#3]{#2}{#4}%
+  \else
+    % Compute upper and lower bounds
+    \loop
+      \vl@fontdim.5\vl@fontdim % Reduce font size by half
+      \vl@buildbox{#2}{#4}%
+    \ifdim\dimen@>#3\relax \repeat
+    \vl@lowerfontdim\vl@fontdim
+    \vl@upperfontdim=2\vl@fontdim
+    \vl@fontdim=1.5\vl@fontdim
+    % Now try to find the optimum size
+    \loop
+      %\message{Bounds: \the\vl@lowerfontdim\space
+      %         \the\vl@fontdim\space \the\vl@upperfontdim^^J}
+      \vl@buildbox{#2}{#4}%
+      \ifdim\dimen@>#3\relax %
+        \@vl@moreiterationstrue
+        \vl@upperfontdim\vl@fontdim
+        \advance\vl@fontdim\vl@lowerfontdim
+        \vl@fontdim=.5\vl@fontdim
+      \else
+        \advance\dimen@-#3\relax %
+        \ifdim\dimen@<10pt %
+          \vl@lowerfontdim\vl@fontdim
+          \advance\vl@fontdim\vl@upperfontdim
+          \vl@fontdim=.5\vl@fontdim
+          \dimen@\vl@upperfontdim
+          \advance\dimen@-\vl@lowerfontdim
+          \ifdim\dimen@<.2pt %
+            \@vl@moreiterationsfalse
+          \else
+            \@vl@moreiterationstrue
+          \fi
+        \else
+          \@vl@moreiterationsfalse
+        \fi
+      \fi
+    \if@vl@moreiterations \repeat
+    \parbox[#1][#3]{#2}{\fontsize{\vl@fontdim}{1.2\vl@fontdim}\selectfont#4}%
+  \fi
+}
+
+\newcommand*\vl@setboolean[3][false]{%  #1=default (opt.), #2=if, #3=value
+  \edef\vl@tempa{\trim@spaces{#3}}%
+  \expandafter\csname #2\ifx\@empty\vl@tempa #1\else\vl@tempa\fi\endcsname
+}
+
+\newcommand*\vl@setcounter[3][0]{%  #1=default (opt.), #2=counter, #3=value
+  \edef\vl@tempa{\trim@spaces{#3}}%
+  \setcounter{#2}{\ifx\@empty\vl@tempa #1\else\vl@tempa\fi}%
+}
+
+\newcommand*\vl@setcommand[3][]{%  #1=default (opt.), #2=macro, #3=value
+  \edef\vl@tempa{\trim@spaces@noexp{#3}}%
+  \expandafter\protected@xdef\csname #2\endcsname{%
+    \ifx\@empty\vl@tempa #1\else\vl@tempa\fi}%
+}
+
+\newif\ifInland \Inlandtrue
+\newcommand*\Inland[1]{\vl@setboolean{Inland}{#1}}
+\newif\ifEU \EUtrue
+\newcommand*\EU[1]{\vl@setboolean{EU}{#1}}
+\newcommand*\vl@ShippingNo{}
+\newcommand*\ShippingNo[1]{\vl@setcommand{vl@ShippingNo}{#1}}
+\newcommand*\vl@ShippingName{}
+\newcommand*\ShippingName[1]{\vl@setcommand{vl@ShippingName}{#1}}
+\newcommand*\vl@ShippingContact{}
+\newcommand*\ShippingContact[1]{\vl@setcommand{vl@ShippingContact}{#1}}
+\newcommand*\vl@ShippingStreet{}
+\newcommand*\ShippingStreet[1]{\vl@setcommand{vl@ShippingStreet}{#1}}
+\newcommand*\vl@ShippingTown{}
+\newcommand*\ShippingTown[1]{\vl@setcommand{vl@ShippingTown}{#1}}
+\newcommand*\vl@ShippingZipcode{}
+\newcommand*\ShippingZipcode[1]{\vl@setcommand{vl@ShippingZipcode}{#1}}
+\newcommand*\vl@ShippingLand{}
+\newcommand*\ShippingLand[1]{\vl@setcommand{vl@ShippingLand}{#1}}
+\newcommand*\vl@CostUnit{}
+\newcommand*\CostUnit[1]{\vl@setcommand{vl@CostUnit}{#1}}
+\newcommand*\vl@FinanceUnit{}
+\newcommand*\FinanceUnit[1]{\vl@setcommand{vl@FinanceUnit}{#1}}
+\newcommand*\vl@Account{}
+\newcommand*\Account[1]{\vl@setcommand{vl@Account}{#1}}
+\newcommand*\vl@SAPNo{}
+\newcommand*\SAPNo[1]{\vl@setcommand{vl@SAPNo}{#1}}
+\newcommand*\vl@Value{}
+\newcommand*\Value[1]{\vl@setcommand{vl@Value}{#1}}
+\newcommand*\vl@DateOfArrival{}
+\newcommand*\DateOfArrival[1]{\vl@setcommand{vl@DateOfArrival}{#1}}
+\newcommand*\vl@WorkingGroup{}
+\newcommand*\WorkingGroup[1]{\vl@setcommand{vl@WorkingGroup}{#1}}
+\newcommand*\vl@TelefonExtension{}
+\newcommand*\TelefonExtension[1]{\vl@setcommand{vl@TelefonExtension}{#1}}
+\newcommand*\vl@Date{}
+\newcommand*\Date[1]{\vl@setcommand{vl@Date}{#1}}
+\newcommand*\vl@Content{}
+\newcommand*\Content[1]{\vl@setcommand{vl@Content}{#1}}
+\newcommand*\vl@Purchaser{}
+\newcommand*\Purchaser[1]{\vl@setcommand{vl@Purchaser}{#1}}
+\newcommand*\vl@Referee{}
+\newcommand*\Referee[1]{\vl@setcommand{vl@Referee}{#1}}
+
+\newcounter{vl@TransportType} \setcounter{vl@TransportType}{0}
+\newcommand*\TransportType[1]{\vl@setcounter{vl@TransportType}{#1}}
+\newcounter{vl@Shippingtype} \setcounter{vl@Shippingtype}{0}
+\newcommand*\ShippingType[1]{\vl@setcounter{vl@Shippingtype}{#1}}
+\newcounter{vl@ShippingCompany} \setcounter{vl@ShippingCompany}{4}
+\newcommand*\ShippingCompany[1]{\vl@setcounter[4]{vl@ShippingCompany}{#1}}
+\newcounter{vl@ShippingPayment} \setcounter{vl@ShippingPayment}{0}
+\newcommand*\ShippingPayment[1]{\vl@setcounter{vl@ShippingPayment}{#1}}
+
+\newif\ifInflammable \Inflammablefalse
+\newcommand*\LabelInflammable[1]{\vl@setboolean{Inflammable}{#1}}
+\newif\ifGlas \Glasfalse
+\newcommand*\LabelGlas[1]{\vl@setboolean{Glas}{#1}}
+\newif\ifSensitive \Sensitivefalse
+\newcommand*\LabelSensitive[1]{\vl@setboolean{Sensitive}{#1}}
+\newif\ifTop \Topfalse
+\newcommand*\LabelTop[1]{\vl@setboolean{Top}{#1}}
+\newif\ifDangerous \Dangerousfalse
+\newcommand*\LabelDangerous[1]{\vl@setboolean{Dangerous}{#1}}
+
+\newcommand*\vl@mainTitle{}
+\newcommand\vl@mainTitle@i{\huge Versandauftrag}
+\newcommand\vl@mainTitle@ii{\normalsize\relscale{1.65} Versandauftrag\par{}
+  \normalsize --~Kopie für Versender~--}
+
+\AtBeginDocument{%
+  \def\vl@mainTitle{\vl@mainTitle@i}
+  \mbox{} \newpage
+  \def\vl@mainTitle{\vl@mainTitle@ii}
+  \mbox{}
+}
+
+\renewcommand*\familydefault{\sfdefault}
+\def\huge{\@setfontsize\huge{20.08}{24.2}}
+%%\def\large{\@setfontsize\large{11.62}{13.56}}
+%%\def\tiny{\@setfontsize\tiny\@viipt\@viiipt}
+
+\newcommand*\checkBox[2][0]{%
+  \begingroup
+    \fboxrule=0.7bp\fboxsep=0pt % 0.7bp (10pt)
+    \raisebox{.3\height}{\fbox{\parbox[c][11bp]{11bp}{%
+      \mbox{}\ifcase#1\or\centering\relscale{1.35}$\times$\fi%
+    }}}%
+  \endgroup\ifx\relax#2\relax\else~\raisebox{.2\height}{#2}\fi%
+}
+
+\newcommand*\vl@SelCompany[1]{
+  \ifnum\c@vl@TransportType=0 %
+    \ifnum\c@vl@ShippingCompany=#1 %
+      1%
+    \else
+      0%
+    \fi
+  \else
+    0%
+  \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}}%
+    \put(305bp,739bp){\line(0,1){60bp}}%
+    \put(389bp,597bp){\line(0,1){170bp}}%
+    \put(290bp,\vl@tempdimb){\line(0,1){83bp}}%
+    \put(213bp,361bp){\line(0,1){56bp}}%
+    \put(397bp,361bp){\line(0,1){56bp}}%
+    \put(368bp,104bp){\line(0,1){37bp}}%
+    % 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{Versand nach:}}%
+      \put(233bp,709bp){\checkBox[\ifInland 1\else0\fi]{Inland}}%
+      \put(233bp,689bp){\checkBox[\ifInland 0\else1\fi]{Ausland}}%
+      \put(249bp,669bp){\checkBox[\ifInland 0\else\ifEU 1\else0\fi\fi]{EU}}%
+      \put(249bp,655bp){\checkBox[\ifInland 0\else\ifEU 0\else1\fi\fi]{andere}}%
+      \put(233bp,625bp){(ggf. Proformarechnung beifügen,}%
+      \put(233bp,614bp){erhältlich bei Z.1532~--}%
+      \put(233bp,603bp){Fr. Hirschauer, Tel.~7372)}%
+    \put(396bp,\vl@tempdimc){\textbf{Zustellungsart:}}%
+      \put(396bp,709bp){\checkBox[\ifnum\c@vl@Shippingtype=0 1\else0\fi]%
+        {Standard \scriptsize(2--3 Tage)}}%
+      \put(396bp,689bp){\checkBox[\ifnum\c@vl@Shippingtype=1 1\else0\fi]%
+        {Übernacht-Express}}%
+      \put(396bp,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=1 1\else0\fi]%
+        {Kosten werden vom Laboratorium}}%
+        \put(236bp,423bp){per \textbf{Kostenbescheid} eingezogen}%
+      \put(403bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=2 1\else0\fi]%
+        {\textbf{unfrei}~(Empfänger zahlt)}}%
+    \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){Ankunftstag (falls notwendig)}%
+    \normalsize
+    \vl@tempdimc=350bp %
+    \put(\vl@tempdima,\vl@tempdimc){Empfänger (Name, Straße, PLZ, Ort) Zustellungen
+      an ein Postfach sind nicht möglich!}%
+    \vl@tempdimc=339bp %
+    \put(\vl@tempdima,\vl@tempdimc){\textbf{Bei allen Sendungen bitte Telefonnummer
+      und ggf. die E-Mail Adresse 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(164bp,\vl@tempdimc){\checkBox{Kiste}}%
+      \put(221bp,\vl@tempdimc){\checkBox{Palette}}%
+      \endgroup
+    \put(295bp,\vl@tempdimc){Gewicht}%
+      \put(351bp,112bp){{\large kg}}%
+    \put(374bp,\vl@tempdimc){Bearbeitet von}%
+    \vl@tempdimc=94bp %
+    \put(\vl@tempdima,\vl@tempdimc){Eingang bei Z.1533 am}%
+    \put(295bp,\vl@tempdimc){Verpackt durch}%
+    \vl@tempdimc=72bp %
+    \put(\vl@tempdima,\vl@tempdimc){Abgesandt am}%
+    \put(295bp,\vl@tempdimc){Unterschrift Z.1533}%
+    % ...
+    % 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}%
+      \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@DateOfArrival}%
+      \put(\vl@tempdima,327bp){%
+        \parbox[t]{0.975\textwidth}{%
+          \small\setstretch{0.8}
+          \vl@ShippingName \\
+          \vl@ShippingContact \\
+          \vl@ShippingStreet \\
+          \vl@ShippingZipcode~\vl@ShippingTown \\
+          \vl@ShippingLand
+        }%
+      }%
+      \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}}%
+    }
+  }
+}%
+
+\emergencystretch=3em %
+\pagestyle{empty}
+
+\endinput
+
diff --git a/versandauftrag/vl-versandauftrag.cls b/versandauftrag/vl-versandauftrag.cls
index a7700c5..381781e 100644
--- a/versandauftrag/vl-versandauftrag.cls
+++ b/versandauftrag/vl-versandauftrag.cls
@@ -2,7 +2,7 @@
 \listfiles
 \NeedsTeXFormat{LaTeX2e}[1999/12/01]
 \ProvidesClass{vl-versandauftrag}
-    [2018/03/15 v0.2a/2018-03 Dokumentenklasse (RN/PTB)]
+    [2018/03/15 v0.2a-2018 Dokumentenklasse (RN/PTB)]
 
 \newcommand*\vl@lang{english}
 
@@ -135,10 +135,12 @@
     \ifx\@empty\vl@tempa #1\else\vl@tempa\fi}%
 }
 
-\newif\ifInland \Inlandtrue
-\newcommand*\Inland[1]{\vl@setboolean{Inland}{#1}}
-\newif\ifEU \EUtrue
-\newcommand*\EU[1]{\vl@setboolean{EU}{#1}}
+%%%\newif\ifInland \Inlandtrue
+%%%\newcommand*\Inland[1]{\vl@setboolean{Inland}{#1}}
+%%%\newif\ifEU \EUtrue
+%%%\newcommand*\EU[1]{\vl@setboolean{EU}{#1}}
+\newcommand*\vl@PSP{}
+\newcommand*\PSP[1]{\vl@setcommand{vl@PSP}{#1}}
 \newcommand*\vl@ShippingNo{}
 \newcommand*\ShippingNo[1]{\vl@setcommand{vl@ShippingNo}{#1}}
 \newcommand*\vl@ShippingName{}
@@ -257,13 +259,14 @@
     \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}}%
-    \put(305bp,739bp){\line(0,1){60bp}}%
-    \put(389bp,597bp){\line(0,1){170bp}}%
-    \put(290bp,\vl@tempdimb){\line(0,1){83bp}}%
+    \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(368bp,104bp){\line(0,1){37bp}}%
+    \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}%
@@ -293,20 +296,21 @@
         \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{Versand nach:}}%
-      \put(233bp,709bp){\checkBox[\ifInland 1\else0\fi]{Inland}}%
-      \put(233bp,689bp){\checkBox[\ifInland 0\else1\fi]{Ausland}}%
-      \put(249bp,669bp){\checkBox[\ifInland 0\else\ifEU 1\else0\fi\fi]{EU}}%
-      \put(249bp,655bp){\checkBox[\ifInland 0\else\ifEU 0\else1\fi\fi]{andere}}%
-      \put(233bp,625bp){(ggf. Proformarechnung beifügen,}%
-      \put(233bp,614bp){erhältlich bei Z.1532~--}%
-      \put(233bp,603bp){Fr. Hirschauer, Tel.~7372)}%
-    \put(396bp,\vl@tempdimc){\textbf{Zustellungsart:}}%
-      \put(396bp,709bp){\checkBox[\ifnum\c@vl@Shippingtype=0 1\else0\fi]%
+    %%%\put(233bp,\vl@tempdimc){\textbf{Versand nach:}}%
+      %%%\put(233bp,709bp){\checkBox[\ifInland 1\else0\fi]{Inland}}%
+      %%%\put(233bp,689bp){\checkBox[\ifInland 0\else1\fi]{Ausland}}%
+      %%%\put(249bp,669bp){\checkBox[\ifInland 0\else\ifEU 1\else0\fi\fi]{EU}}%
+      %%%\put(249bp,655bp){\checkBox[\ifInland 0\else\ifEU 0\else1\fi\fi]{andere}}%
+      %%%\put(233bp,625bp){(ggf. Proformarechnung beifügen,}%
+      %%%\put(233bp,614bp){erhältlich bei Z.1532~--}%
+      %%%\put(233bp,603bp){Fr. Hirschauer, Tel.~7372)}%
+    \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,689bp){\checkBox[\ifnum\c@vl@Shippingtype=1 1\else0\fi]%
+      \put(396bp,709bp){{Ankunftstag \scriptsize(falls gewünscht)}}%
+      \put(233bp,689bp){\checkBox[\ifnum\c@vl@Shippingtype=1 1\else0\fi]%
         {Übernacht-Express}}%
-      \put(396bp,667bp){\checkBox[\ifnum\c@vl@Shippingtype=2 1\else0\fi]%
+      \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}}}%
@@ -317,11 +321,11 @@
     \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=1 1\else0\fi]%
-        {Kosten werden vom Laboratorium}}%
-        \put(236bp,423bp){per \textbf{Kostenbescheid} eingezogen}%
-      \put(403bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=2 1\else0\fi]%
+      \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 %
@@ -331,14 +335,14 @@
     \vl@tempdimc=380bp %
     \put(\vl@tempdima,\vl@tempdimc){ggf. SAP-Auftragsnummer}%
     \put(218bp,\vl@tempdimc){Wertangabe}%
-    \put(401bp,\vl@tempdimc){Ankunftstag (falls notwendig)}%
+    \put(401bp,\vl@tempdimc){PSP-Element}%
     \normalsize
     \vl@tempdimc=350bp %
-    \put(\vl@tempdima,\vl@tempdimc){Empfänger (Name, Straße, PLZ, Ort) Zustellungen
-      an ein Postfach sind nicht möglich!}%
+    \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 Telefonnummer
-      und ggf. die E-Mail Adresse angeben!}}%
+    \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!}}%
@@ -357,18 +361,20 @@
       \put(\vl@tempdima,\vl@tempdimc){\line(1,0){26bp}}%
       \large
       \put(105bp,\vl@tempdimc){\checkBox{Karton}}%
-      \put(164bp,\vl@tempdimc){\checkBox{Kiste}}%
-      \put(221bp,\vl@tempdimc){\checkBox{Palette}}%
+      \put(168bp,\vl@tempdimc){\checkBox{Kiste}}%
+      \put(220bp,\vl@tempdimc){\checkBox{Palette}}%
+      \put(281bp,\vl@tempdimc){\checkBox{Versandtasche}}%
       \endgroup
-    \put(295bp,\vl@tempdimc){Gewicht}%
-      \put(351bp,112bp){{\large kg}}%
-    \put(374bp,\vl@tempdimc){Bearbeitet von}%
+    \put(412bp,\vl@tempdimc){Gewicht}%
+      \put(468bp,112bp){{\large kg}}%
+    %%%\put(374bp,\vl@tempdimc){Bearbeitet von}%
     \vl@tempdimc=94bp %
     \put(\vl@tempdima,\vl@tempdimc){Eingang bei Z.1533 am}%
-    \put(295bp,\vl@tempdimc){Verpackt durch}%
+    \put(250bp,\vl@tempdimc){Verpackt durch}%
+    \put(412bp,\vl@tempdimc){Abgesandt am}%
     \vl@tempdimc=72bp %
-    \put(\vl@tempdima,\vl@tempdimc){Abgesandt am}%
-    \put(295bp,\vl@tempdimc){Unterschrift Z.1533}%
+    \put(\vl@tempdima,\vl@tempdimc){Frachtbriefnummer:}%
+    \put(295bp,\vl@tempdimc){Unterschrift}%
     % ...
     % Variable Beschriftung
     %
@@ -380,6 +386,7 @@
       \put(395bp,\vl@tempdimc){\vl@Purchaser}%
       \put(232bp,\vl@tempdimc){\vl@TelefonExtension}%
       \put(310bp,\vl@tempdimc){\vl@Date}%
+      \put(396bp,695bp){\vl@DateOfArrival}%
       \vl@tempdimc=394bp % -14bp
       \put(\vl@tempdima,\vl@tempdimc){\vl@CostUnit}%
       \put(218bp,\vl@tempdimc){\vl@FinanceUnit}%
@@ -387,7 +394,7 @@
       \vl@tempdimc=366bp %
       \put(\vl@tempdima,\vl@tempdimc){\vl@SAPNo}%
       \put(218bp,\vl@tempdimc){\vl@Value}%
-      \put(401bp,\vl@tempdimc){\vl@DateOfArrival}%
+      \put(401bp,\vl@tempdimc){\vl@PSP}% PSP-Element
       \put(\vl@tempdima,327bp){%
         \parbox[t]{0.975\textwidth}{%
           \small\setstretch{0.8}
-- 
GitLab