Logik des Transportes

versandauftrag/test-versandauftrag.tex

-
-%---------------------------
-\listfiles
 \documentclass[ngerman]{vl-versandauftrag}
 
 \WorkingGroup{7.54}
@@ -9,11 +6,6 @@
 \Referee{Dr. Karl Jousten}
 \Purchaser{Rolf Niepraschk}
 
-\Inland{false}%   Standard: true
-\EU{false}%       Standard: true, nur relevant, wenn inland=false
-\ShippingType{1}% Standard: 0 ("Standard"); 1="Express", 2="Special"
-\ShippingNo{4711-0815}
-
 \CostUnit{UVW}
 \FinanceUnit{XYZ}
 \Account{UVW-XYZ}
@@ -27,6 +19,15 @@
 \ShippingZipcode{98765}
 \ShippingLand{Transsilvanien}
 
+\Inland{false}%   Standard: true
+\EU{false}%       Standard: true, nur relevant, wenn Inland=false
+
+\TransportType{1}
+% Standard: 0 ("Transportunternehmen"); 1="Kundenveranlassung", 2="PTB"
+\ShippingCompany{1}% 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{Wurmstichige Hölzer und alte Wäsche}
@@ -37,6 +38,6 @@
 \LabelTop{true}%         Standard: false
 \LabelDangerous{true}%   Standard: false
 
-\begin{document}%\Value{23117\,\texteuro}
+\begin{document}
 \end{document}
 %---------------------------

versandauftrag/vl-versandauftrag.cls

 \setcounter{errorcontextlines}{100}
 \NeedsTeXFormat{LaTeX2e}[1999/12/01]
 \ProvidesClass{vl-versandauftrag}
-    [2015/04/21 v0.1a Dokumentenklasse (RN/PTB)]
+    [2015/04/22 v0.1b Dokumentenklasse (RN/PTB)]
 \DeclareOption*{\PassOptionsToClass{\CurrentOption}{scrartcl}}
 \ProcessOptions\relax
 \PassOptionsToPackage{paper=a4,pagesize,twoside=false,headinclude}{typearea}
@@ -89,9 +89,18 @@
 \newcommand*\vl@Referee{}
 \newcommand*\Referee[1]{\xdef\vl@Referee{#1}}
 
+
+
+\newcounter{vl@TransportType} \setcounter{vl@TransportType}{0}
+\newcommand*\TransportType[1]{\setcounter{vl@TransportType}{#1}}
+\newcounter{vl@ShippingCompany} \setcounter{vl@ShippingCompany}{4}
+\newcommand*\ShippingCompany[1]{\setcounter{vl@ShippingCompany}{#1}}
+
 \newcounter{vl@ShippingPayment} \setcounter{vl@ShippingPayment}{0}
 \newcommand*\ShippingPayment[1]{\setcounter{vl@ShippingPayment}{#1}}
 
+
+
 \newif\ifInflammable \Inflammablefalse
 \newcommand*\LabelInflammable[1]{\expandafter\csname Inflammable\trim@spaces{#1}\endcsname}
 \newif\ifGlas \Glasfalse
@@ -131,6 +140,18 @@
   \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*{%
   \AtPageLowerLeft{%
     \linethickness{0.6bp}%
@@ -171,18 +192,22 @@
     \vl@tempdimc=728bp %
     \normalsize
     \put(62bp,\vl@tempdimc){\textbf{Versand per:}}%
-      \put(62bp,709bp){\checkBox[0]{\textbf{Transportunternehmen}}}%
-      \put(78bp,689bp){\checkBox[0]{Logiline}}%
-      \put(78bp,675bp){\checkBox[0]{TNT}}%
-      \put(78bp,661bp){\checkBox[0]{UPS}}%
-      \put(78bp,647bp){\checkBox[0]{FedEx}}%
-      \put(78bp,633bp){\checkBox[0]{Post/DHL Express (unfreier}}%
-        \put(94bp,622bp){Versand nur ins Inland)}%
-      \put(78bp,606bp){\checkBox[0]{}}%
-      \put(62bp,543bp){\textbf{Kundennr.:}~\texttt{\vl@shippingNo}}%
-      \put(62bp,518bp){\checkBox[0]{\textbf{Abholung wird vom}}}%
-      \put(78bp,507bp){\textbf{Empfänger veranlasst}}%
-      \put(62bp,487bp){\checkBox[0]{\textbf{PTB-Fahrdienst/Kurier}}}%
+      \put(62bp,709bp){\checkBox[\ifnum\c@vl@TransportType=0 1\else0\fi]%
+        {\textbf{Transportunternehmen}}}%
+        \put(78bp,689bp){\checkBox[\vl@SelCompany{0}]{Logiline}}%
+        \put(78bp,675bp){\checkBox[\vl@SelCompany{1}]{TNT}}%
+        \put(78bp,661bp){\checkBox[\vl@SelCompany{2}]{UPS}}%
+        \put(78bp,647bp){\checkBox[\vl@SelCompany{3}]{FedEx}}%
+        \put(78bp,633bp){\checkBox[\vl@SelCompany{4}]{Post/DHL Express (unfreier}}%
+          \put(94bp,622bp){Versand nur ins Inland)}%
+        \put(78bp,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(78bp,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\else 0\fi]{Inland}}%
       \put(233bp,689bp){\checkBox[\ifInland 0\else 1\fi]{Ausland}}%