"ShippingContact"

versandauftrag/test-versandauftrag.tex

@@ -16,7 +16,8 @@
 \Value{23117,98\,€}
 \DateOfArrival{2017-04-01}
 
-\ShippingName{Peter Silie}
+\ShippingName{"`Gutes Vakuum"' GmbH}
+\ShippingContact{Peter Silie}
 \ShippingStreet{Dorfstraße 23}
 \ShippingTown{Entenhausen}
 \ShippingZipcode{43210}

versandauftrag/vl-versandauftrag.cls

@@ -40,6 +40,10 @@
 
 \RequirePackage{eso-pic,pict2e,picture,xcolor,relsize,trimspaces}
 \RequirePackage{babel}
+\RequirePackage[babel=once,german=guillemets]{csquotes}
+\AtEndOfClass{\shorthandon{"}}
+\defineshorthand{"`}{\openautoquote}
+\defineshorthand{"'}{\closeautoquote}
 
 \definecolor{thisGray}{gray}{0.881}
 
@@ -51,20 +55,22 @@
 \newcommand*\Inland[1]{\expandafter\csname Inland\trim@spaces{#1}\endcsname}
 \newif\ifEU \EUtrue
 \newcommand*\EU[1]{\expandafter\csname EU\trim@spaces{#1}\endcsname}
-\newcounter{vl@shippingtype} \setcounter{vl@shippingtype}{0}
-\newcommand*\ShippingType[1]{\setcounter{vl@shippingtype}{#1}}
-\newcommand*\vl@shippingNo{}
-\newcommand*\ShippingNo[1]{\xdef\vl@shippingNo{\trim@spaces@noexp{#1}}}
-\newcommand*\vl@shippingName{}
-\newcommand*\ShippingName[1]{\xdef\vl@shippingName{\trim@spaces@noexp{#1}}}
-\newcommand*\vl@shippingStreet{}
-\newcommand*\ShippingStreet[1]{\xdef\vl@shippingStreet{\trim@spaces@noexp{#1}}}
-\newcommand*\vl@shippingTown{}
-\newcommand*\ShippingTown[1]{\xdef\vl@shippingTown{\trim@spaces@noexp{#1}}}
-\newcommand*\vl@shippingZipcode{}
-\newcommand*\ShippingZipcode[1]{\xdef\vl@shippingZipcode{\trim@spaces@noexp{#1}}}
-\newcommand*\vl@shippingLand{}
-\newcommand*\ShippingLand[1]{\xdef\vl@shippingLand{\trim@spaces@noexp{#1}}}
+\newcounter{vl@Shippingtype} \setcounter{vl@Shippingtype}{0}
+\newcommand*\ShippingType[1]{\setcounter{vl@Shippingtype}{#1}}
+\newcommand*\vl@ShippingNo{}
+\newcommand*\ShippingNo[1]{\xdef\vl@ShippingNo{\trim@spaces@noexp{#1}}}
+\newcommand*\vl@ShippingName{}
+\newcommand*\ShippingName[1]{\xdef\vl@ShippingName{\trim@spaces@noexp{#1}}}
+\newcommand*\vl@ShippingContact{}
+\newcommand*\ShippingContact[1]{\xdef\vl@ShippingContact{\trim@spaces@noexp{#1}}}
+\newcommand*\vl@ShippingStreet{}
+\newcommand*\ShippingStreet[1]{\xdef\vl@ShippingStreet{\trim@spaces@noexp{#1}}}
+\newcommand*\vl@ShippingTown{}
+\newcommand*\ShippingTown[1]{\xdef\vl@ShippingTown{\trim@spaces@noexp{#1}}}
+\newcommand*\vl@ShippingZipcode{}
+\newcommand*\ShippingZipcode[1]{\xdef\vl@ShippingZipcode{\trim@spaces@noexp{#1}}}
+\newcommand*\vl@ShippingLand{}
+\newcommand*\ShippingLand[1]{\xdef\vl@ShippingLand{\trim@spaces@noexp{#1}}}
 \newcommand*\vl@costUnit{}
 \newcommand*\CostUnit[1]{\xdef\vl@costUnit{\trim@spaces@noexp{#1}}}
 \newcommand*\vl@financeUnit{}
@@ -188,7 +194,7 @@
           \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}%
+          \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}}%
@@ -203,11 +209,11 @@
       \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(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]%
+      \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]%
+      \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}}}%
@@ -289,11 +295,12 @@
       \put(\vl@tempdima,\vl@tempdimc){\vl@SAPNo}%
       \put(218bp,\vl@tempdimc){\vl@value}%
       \put(401bp,\vl@tempdimc){\vl@DateOfArrival}%
-      %
-      \put(\vl@tempdima,320bp){\vl@shippingName}%
-      \put(\vl@tempdima,310bp){\vl@shippingStreet}%
-      \put(\vl@tempdima,300bp){\vl@shippingZipcode~\vl@shippingTown}%
-      \put(\vl@tempdima,290bp){\vl@shippingLand}%
+      % TODO: mehrzeilige Ausgabe vorsehen?
+      \put(\vl@tempdima,320bp){\vl@ShippingName}%
+      \put(\vl@tempdima,310bp){\vl@ShippingContact}%
+      \put(\vl@tempdima,300bp){\vl@ShippingStreet}%
+      \put(\vl@tempdima,290bp){\vl@ShippingZipcode~\vl@ShippingTown}%
+      \put(\vl@tempdima,280bp){\vl@ShippingLand}%
       %
       \put(\vl@tempdima,225bp){\parbox[t]{\dimexpr\textwidth-1em}{\vl@Content}}
     \endgroup