E-Mail/Telefonnr. verschoben, Kommentar ergänzt

versandauftrag/test-versandauftrag-2018.tex

@@ -15,13 +15,20 @@
 \Value{23117,98\,€}
 \DateOfArrival{2017-04-01}
 
-\ShippingName{"`Gutes Vakuum"' GmbH}
+\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}

versandauftrag/vl-versandauftrag.cls

@@ -154,6 +154,12 @@
 \newcommand*\ShippingZipcode[1]{\vl@setcommand{vl@ShippingZipcode}{#1}}
 \newcommand*\vl@ShippingLand{}
 \newcommand*\ShippingLand[1]{\vl@setcommand{vl@ShippingLand}{#1}}
+\newcommand*\vl@ShippingEmail{}
+\newcommand*\ShippingEmail[1]{\vl@setcommand{vl@ShippingEmail}{#1}}
+\newcommand*\vl@ShippingPhone{}
+\newcommand*\ShippingPhone[1]{\vl@setcommand{vl@ShippingPhone}{#1}}
+\newcommand*\vl@ShippingComment{}
+\newcommand*\ShippingComment[1]{\vl@setcommand{vl@ShippingComment}{#1}}
 \newcommand*\vl@CostUnit{}
 \newcommand*\CostUnit[1]{\vl@setcommand{vl@CostUnit}{#1}}
 \newcommand*\vl@FinanceUnit{}
@@ -390,16 +396,30 @@
       \put(\vl@tempdima,\vl@tempdimc){\vl@SAPNo}%
       \put(218bp,\vl@tempdimc){\vl@Value}%
       \put(401bp,\vl@tempdimc){\vl@PSP}% PSP-Element
-      \put(\vl@tempdima,327bp){%
+      \put(\vl@tempdima,333bp){%
+        %\frame{%
         \parbox[t]{0.975\textwidth}{%
-          \small\setstretch{0.8}
+          %\noindent\rule{\linewidth}{.5mm}%
+          \small\setstretch{0.8}%
           \vl@ShippingName \\
           \vl@ShippingContact \\
           \vl@ShippingStreet \\
           \vl@ShippingZipcode~\vl@ShippingTown \\
           \vl@ShippingLand
+          %\\\noindent\rule{\linewidth}{.5mm}%
         }%
+        %}%
       }%
+      %%%\put(297bp,317bp){%
+      \put(270bp,325bp){%
+        \parbox[t]{.56\textwidth}{%
+          \small\setstretch{0.8}%
+          \dotfill\\[.27em]
+          \vl@ShippingEmail \\
+          \vl@ShippingPhone \\[.5em]
+          \vl@ShippingComment 
+        }%
+      }
       \put(93bp,257bp){\lfitbox[t]{447bp}{56bp}{%
         \begin{sloppypar}\vl@Content\end{sloppypar}}}%
     \endgroup