checkbox bei "Ankunftstag"

versandauftrag/test-versandauftrag-2017.tex

-\documentclass[ de ]{vl-versandauftrag}
+\documentclass[ de ]{vl-versandauftrag-2017}
 %\documentclass[ en ]{vl-versandauftrag}
 %\documentclass[ngerman]{vl-versandauftrag}
 

versandauftrag/test-versandauftrag-2018.tex

@@ -22,9 +22,6 @@
 \ShippingZipcode{43210}
 \ShippingLand{Transsilvanien}
 
-%%%\Inland{false}%   Standard: true
-%%%\EU{false}%       Standard: true, nur relevant, wenn Inland=false
-
 \PSP{??????????}
 
 \TransportType{0}

versandauftrag/vl-versandauftrag.cls

@@ -2,7 +2,7 @@
 \listfiles
 \NeedsTeXFormat{LaTeX2e}[1999/12/01]
 \ProvidesClass{vl-versandauftrag}
-    [2018/03/15 v0.2a-2018 Dokumentenklasse (RN/PTB)]
+    [2018/03/15 v0.2b-2018 Dokumentenklasse (RN/PTB)]
 
 \newcommand*\vl@lang{english}
 
@@ -135,10 +135,6 @@
     \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@PSP{}
 \newcommand*\PSP[1]{\vl@setcommand{vl@PSP}{#1}}
 \newcommand*\vl@ShippingNo{}
@@ -165,8 +161,6 @@
 \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{}
@@ -179,6 +173,12 @@
 \newcommand*\Purchaser[1]{\vl@setcommand{vl@Purchaser}{#1}}
 \newcommand*\vl@Referee{}
 \newcommand*\Referee[1]{\vl@setcommand{vl@Referee}{#1}}
+\newcommand*\vl@DateOfArrival{}
+\newif\ifDateOfArrival \DateOfArrivalfalse
+\newcommand*\DateOfArrival[1]{%
+  \vl@setcommand{vl@DateOfArrival}{#1}%
+  \ifx\@empty\vl@DateOfArrival\else\DateOfArrivaltrue\fi 
+}
 
 \newcounter{vl@TransportType} \setcounter{vl@TransportType}{0}
 \newcommand*\TransportType[1]{\vl@setcounter{vl@TransportType}{#1}}
@@ -296,18 +296,11 @@
         \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(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){{Ankunftstag \scriptsize(falls gewünscht)}}%
+      \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]%
@@ -367,7 +360,6 @@
       \endgroup
     \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(250bp,\vl@tempdimc){Verpackt durch}%
@@ -386,7 +378,7 @@
       \put(395bp,\vl@tempdimc){\vl@Purchaser}%
       \put(232bp,\vl@tempdimc){\vl@TelefonExtension}%
       \put(310bp,\vl@tempdimc){\vl@Date}%
-      \put(396bp,695bp){\vl@DateOfArrival}%
+      \put(411bp,695bp){\vl@DateOfArrival}%
       \vl@tempdimc=394bp % -14bp
       \put(\vl@tempdima,\vl@tempdimc){\vl@CostUnit}%
       \put(218bp,\vl@tempdimc){\vl@FinanceUnit}%