setcounter robuster

versandauftrag/test-versandauftrag.tex

 \documentclass[ngerman]{vl-versandauftrag}
 
-% TODO: Wird zweite Seite mit Titel "Versandauftrag -- Kopie für Versender --"
-%       benötigt?
-
 \WorkingGroup{7.54}
 \TelefonExtension{7216}
 \Date{2015-04-21}
@@ -28,7 +25,7 @@
 
 \TransportType{0}
 % Standard: 0 ("Transportunternehmen"); 1="Kundenveranlassung", 2="PTB"
-\ShippingCompany{1}% nur relevant, wenn TransportType=0
+\ShippingCompany{0}% 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"

versandauftrag/vl-versandauftrag-1.clo

-\ProvidesFile{vl-versandauftrag-1.clo}[Definitionen pdfLaTeX]
+\ProvidesFile{vl-versandauftrag-1.clo}[Definitionen f. pdfLaTeX]
 
 \RequirePackage[utf8]{inputenc}
 \RequirePackage[T1]{fontenc}
@@ -8,7 +8,6 @@
 \RequirePackage[ttdefault=true,scale=1.034]{AnonymousPro}
 %\RequirePackage[scaled=1.05]{zlmtt}% ist lmodern!
 
-% TODO: Evtl. auslagern in "vl-versandauftrag-8bit.clo"
 \DeclareUnicodeCharacter{202F}{\,}% 'NARROW NO-BREAK SPACE'
 \DeclareUnicodeCharacter{2009}{\,\hspace{0pt}}% 'THIN SPACE'
 \DeclareUnicodeCharacter{00AD}{\-}% 'SOFT HYPHEN'

versandauftrag/vl-versandauftrag-2.clo

-\ProvidesFile{vl-versandauftrag-1.clo}[Definitionen luaLaTeX/XeLaTeX]
+\ProvidesFile{vl-versandauftrag-1.clo}[Definitionen f. luaLaTeX/XeLaTeX]
 
 \RequirePackage{fontspec}
 \setsansfont[Ligatures=TeX]{TeXGyreHeros}
@@ -9,6 +9,7 @@
   BoldItalicFont = AnonymousPro-BoldItalic,
   Scale     = MatchLowercase
 ]
+%\setmonofont[Scale=1.05]{Latin Modern Mono}
 
 \RequirePackage{newunicodechar}
 \newunicodechar{^^^^202f}{\,}% 'NARROW NO-BREAK SPACE' (\u202F, 8239)

versandauftrag/vl-versandauftrag.cls

@@ -2,7 +2,7 @@
 \listfiles
 \NeedsTeXFormat{LaTeX2e}[1999/12/01]
 \ProvidesClass{vl-versandauftrag}
-    [2015/04/23 v0.1d Dokumentenklasse (RN/PTB)]
+    [2015/04/23 v0.1e Dokumentenklasse (RN/PTB)]
 \DeclareOption*{\PassOptionsToClass{\CurrentOption}{scrartcl}}
 \ProcessOptions\relax
 \PassOptionsToPackage{paper=a4,pagesize}{typearea}
@@ -36,13 +36,17 @@
 \let\vl@tempdima=\@ovxx
 \let\vl@tempdimb=\@ovyy
 \let\vl@tempdimc=\@ovdx
+\newcommand\vl@tempa{}
+
+\newcommand*\vl@setcounter[3]{% #1=counter, #2=default, #3=value
+  \edef\vl@tempa{\trim@spaces{#3}}%
+  \setcounter{#1}{\ifx\@empty\vl@tempa #2\else\vl@tempa\fi}%
+}
 
 \newif\ifInland \Inlandtrue
 \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{}
@@ -83,11 +87,13 @@
 \newcommand*\Referee[1]{\xdef\vl@Referee{#1}}
 
 \newcounter{vl@TransportType} \setcounter{vl@TransportType}{0}
-\newcommand*\TransportType[1]{\setcounter{vl@TransportType}{#1}}
+\newcommand*\TransportType[1]{\vl@setcounter{vl@TransportType}{0}{#1}}
+\newcounter{vl@Shippingtype} \setcounter{vl@Shippingtype}{0}
+\newcommand*\ShippingType[1]{\vl@setcounter{vl@Shippingtype}{0}{#1}}
 \newcounter{vl@ShippingCompany} \setcounter{vl@ShippingCompany}{4}
-\newcommand*\ShippingCompany[1]{\setcounter{vl@ShippingCompany}{#1}}
+\newcommand*\ShippingCompany[1]{\vl@setcounter{vl@ShippingCompany}{4}{#1}}
 \newcounter{vl@ShippingPayment} \setcounter{vl@ShippingPayment}{0}
-\newcommand*\ShippingPayment[1]{\setcounter{vl@ShippingPayment}{#1}}
+\newcommand*\ShippingPayment[1]{\vl@setcounter{vl@ShippingPayment}{0}{#1}}
 
 \newif\ifInflammable \Inflammablefalse
 \newcommand*\LabelInflammable[1]{\expandafter\csname Inflammable\trim@spaces{#1}\endcsname}