versandauftrag/vl-versandauftrag-old-engines.clo

-\ProvidesFile{vl-versandauftrag-1.clo}[Definitionen f. pdfLaTeX]
+\ProvidesFile{vl-versandauftrag-old-engines}[2021/06/14 Fontdef. pdfLaTeX]
 
 \RequirePackage[utf8]{inputenc}
 \RequirePackage[T1]{fontenc}

versandauftrag/vl-versandauftrag.cls

@@ -2,20 +2,23 @@
 \listfiles
 \NeedsTeXFormat{LaTeX2e}[1999/12/01]
 \ProvidesClass{vl-versandauftrag}
-    [2019/11/07 v0.2d Dokumentenklasse (RN/PTB)]
+    [2022/04/28 v0.3e Dokumentenklasse (RN/PTB)]
 
 \newcommand*\vl@lang{english}
 \newcommand*\vl@version{2018}
 
 \DeclareOption{de}{\def\vl@lang{ngerman}}
 \DeclareOption{german}{\def\vl@lang{ngerman}}
+\DeclareOption{ngerman}{\def\vl@lang{ngerman}}
 \DeclareOption{en}{\def\vl@lang{english}}
 
 \DeclareOption{2017}{\def\vl@version{2017}}
 \DeclareOption{2018}{\def\vl@version{2018}}
 \DeclareOption{2019}{\def\vl@version{2019}}
+\DeclareOption{2020}{\def\vl@version{2020}}
 
 \DeclareOption*{\PassOptionsToClass{\CurrentOption}{scrartcl}}
+
 \ProcessOptions\relax
 \PassOptionsToPackage{paper=a4,pagesize}{typearea}
 
@@ -23,12 +26,10 @@
 ,fontsize=10pt
 ]{scrartcl}
 
-\RequirePackage{ifxetex,ifluatex,setspace,url}
+\RequirePackage{iftex,setspace,url}
 \setstretch{1.5}
-\newif\ifXeOrLua \XeOrLuafalse
-\ifxetex\XeOrLuatrue\else\ifluatex\XeOrLuatrue\fi\fi
 
-\ifXeOrLua% XeLaTeX oder luaLaTeX
+\iftutex% XeLaTeX oder luaLaTeX
   \input{vl-versandauftrag-new-engines.clo}
 \else
   \input{vl-versandauftrag-old-engines.clo}
@@ -59,6 +60,7 @@
 \let\vl@tempdime=\@clnht
 \let\vl@tempdimf=\@dashdim
 \newcommand\vl@tempa{}
+\newcommand\vl@tempb{}
 
 \newdimen\vl@fontdim
 \newdimen\vl@upperfontdim
@@ -144,8 +146,11 @@
 \newcommand*\EU[1]{}% nur wegen Kompatibilität zur 2017er Version 
 \newcommand*\ShippingComment[1]{}
 
-\newcommand*\vl@PSP{}
-\newcommand*\PSP[1]{\vl@setcommand{vl@PSP}{#1}}
+\newcommand*\Account[1]{}% dummy
+\newcommand*\Value[1]{}% dummy
+
+\newcommand*\vl@CalibrationCosts{}
+\newcommand*\CalibrationCosts[1]{\vl@setcommand{vl@CalibrationCosts}{#1}}
 \newcommand*\vl@ShippingNo{}
 \newcommand*\ShippingNo[1]{\vl@setcommand{vl@ShippingNo}{#1}}
 \newcommand*\vl@ShippingName{}
@@ -170,12 +175,10 @@
 \newcommand*\CostUnit[1]{\vl@setcommand{vl@CostUnit}{#1}}
 \newcommand*\vl@FinanceUnit{}
 \newcommand*\FinanceUnit[1]{\vl@setcommand{vl@FinanceUnit}{#1}}
-\newcommand*\vl@Account{}
-\newcommand*\Account[1]{\vl@setcommand{vl@Account}{#1}}
 \newcommand*\vl@SAPNo{}
 \newcommand*\SAPNo[1]{\vl@setcommand{vl@SAPNo}{#1}}
-\newcommand*\vl@Value{}
-\newcommand*\Value[1]{\vl@setcommand{vl@Value}{#1}}
+\newcommand*\vl@IndicationOfValue{}
+\newcommand*\IndicationOfValue[1]{\vl@setcommand{vl@IndicationOfValue}{#1}}
 \newcommand*\vl@WorkingGroup{}
 \newcommand*\WorkingGroup[1]{\vl@setcommand{vl@WorkingGroup}{#1}}
 \newcommand*\vl@TelefonExtension{}
@@ -188,20 +191,42 @@
 \newcommand*\Purchaser[1]{\vl@setcommand{vl@Purchaser}{#1}}
 \newcommand*\vl@Referee{}
 \newcommand*\Referee[1]{\vl@setcommand{vl@Referee}{#1}}
-\newcommand*\vl@DateOfArrival{}
+\newcommand*\vl@DateOfArrival{}% wird nicht benutzt
 \newif\ifDateOfArrival \DateOfArrivalfalse
 \newcommand*\DateOfArrival[1]{%
   \vl@setcommand{vl@DateOfArrival}{#1}%
   \ifx\@empty\vl@DateOfArrival\else\DateOfArrivaltrue\fi 
 }
+\newif\ifShippingCompany \ShippingCompanyfalse
+\newcommand*\vl@ModeOfTransport{}
+\newcommand*\ModeOfTransport[1]{%
+  \ifx\relax#1\relax\else
+    \expandafter\@ModeOfTransport#1 \@nil
+  \fi
+}
+\newcommand*\@ModeOfTransport{}
+\def\@ModeOfTransport#1 #2\@nil{%
+  \def\vl@tempa{#2}%
+  \if#1*%
+    \ShippingCompanytrue
+    \edef\vl@tempb{\noexpand\vl@setcommand{vl@ModeOfTransport}{\vl@tempa}}%
+    \vl@tempb
+  \else
+    \ShippingCompanyfalse
+    \vl@setcommand{vl@ModeOfTransport}{#1 #2}%
+  \fi
+}
+
+\newcommand*\vl@ShippingCustomerID{}
+\newcommand*\ShippingCustomerID[1]{\vl@setcommand{vl@ShippingCustomerID}{#1}} 
 
 \newcounter{vl@TransportType} \setcounter{vl@TransportType}{0}
 \newcommand*\TransportType[1]{\vl@setcounter{vl@TransportType}{#1}}
-\newcounter{vl@Shippingtype} \setcounter{vl@Shippingtype}{0}
-\newcommand*\ShippingType[1]{\vl@setcounter{vl@Shippingtype}{#1}}
+\newcounter{vl@ShippingType} \setcounter{vl@ShippingType}{0}
+\newcommand*\ShippingType[1]{\vl@setcounter{vl@ShippingType}{#1}}
 \newcounter{vl@ShippingCompany} \setcounter{vl@ShippingCompany}{4}
 \newcommand*\ShippingCompany[1]{\vl@setcounter[4]{vl@ShippingCompany}{#1}}
-\newcounter{vl@ShippingPayment} \setcounter{vl@ShippingPayment}{0}
+\newcounter{vl@ShippingPayment} \setcounter{vl@ShippingPayment}{2}
 \newcommand*\ShippingPayment[1]{\vl@setcounter{vl@ShippingPayment}{#1}}
 
 \newif\ifInsurance \Insurancefalse
@@ -217,10 +242,14 @@
 \newif\ifDangerous \Dangerousfalse
 \newcommand*\LabelDangerous[1]{\vl@setboolean{Dangerous}{#1}}
 
+\newcommand*\vl@PurchaserEmail{vacuum.cal@ptb.de}
+\newcommand*\PurchaserEmail[1]{\vl@setcommand{vl@PurchaserEmail}{#1}}
+
 \newcommand*\vl@mainTitle{}
 \newcommand\vl@mainTitle@i{\huge Versandauftrag}
 \newcommand\vl@mainTitle@ii{\normalsize\relscale{1.65} Versandauftrag\par{}
   \normalsize --~Kopie für Versender~--}
+  
 
 \AtBeginDocument{%
   \def\vl@mainTitle{\vl@mainTitle@i}