Skip to content
Snippets Groups Projects

Compare revisions

Changes are shown as if the source revision was being merged into the target revision. Learn more about comparing revisions.

Source

Select target project
No results found

Target

Select target project
  • vaclab/ptb-latex
  • andre.waehlisch/ptb-latex
2 results
Show changes
Hide whitespace changes
Inline Side-by-side
Showing
with 1546 additions and 0 deletions
versandauftrag/README.md 0 → 100644
View file @ b1187749
## Versandauftrag
Das Projekt enthält eine LaTeX-Dokumentenklasse und andere Komponenten zur Erzeugung eines PTB-konformen Versandauftrages.
### Testdatei
* `test-versandauftrag.tex`. Beispieldokument für eine Versandauftrag.
versandauftrag/test-versandauftrag-2017.tex 0 → 100644
View file @ b1187749
\documentclass[ de ]{vl-versandauftrag-2017}
%\documentclass[ en ]{vl-versandauftrag}
%\documentclass[ngerman]{vl-versandauftrag}
\WorkingGroup{7.54}
\TelefonExtension{7216}
\Date{2015-04-21}
\Referee{Jousten}
\Purchaser{Niepraschk}
\CostUnit{UVW}
\FinanceUnit{XYZ}
\Account{UVW-XYZ}
\SAPNo{876543123}
\Value{23117,98\,€}
\DateOfArrival{2017-04-01}
\ShippingName{"`Gutes Vakuum"' GmbH}
\ShippingContact{Peter Silie}
\ShippingStreet{Dorfstraße 23}
\ShippingTown{Entenhausen}
\ShippingZipcode{43210}
\ShippingLand{Transsilvanien}
\Inland{false}% Standard: true
\EU{false}% Standard: true, nur relevant, wenn Inland=false
\TransportType{0}
% Standard: 0 ("Transportunternehmen"); 1="Kundenveranlassung", 2="PTB"
\ShippingCompany{2}% 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{Testleck Vakuum (SN:FC13000131); Testleck Vakuum (SN:FC13000131);
Testleck Vakuum (SN:FC13000130); Testleck Vakuum (SN:FC13000132); Testleck
Vakuum (SN:FC03000061); Testleck Vakuum (SN:7025); Testleck Vakuum
(SN:FC13000281); Testleck Vakuum (SN:FC03000056); Testleck Vakuum
(SN:FC05000368); Testleck Vakuum (SN:19751); Testleck Vakuum (SN:FC03000065);
Testleck Vakuum (SN:7204); und Zubehör}
\LabelInflammable{true}% Standard: false
\LabelGlas{true}% Standard: false
\LabelSensitive{true}% Standard: false
\LabelTop{true}% Standard: false
\LabelDangerous{true}% Standard: false
\begin{document}
\end{document}
%---------------------------
versandauftrag/test-versandauftrag-2018.tex 0 → 100644
View file @ b1187749
\documentclass[ de,2018 ]{vl-versandauftrag}
%\documentclass[ en ]{vl-versandauftrag}
%\documentclass[ngerman]{vl-versandauftrag}
\WorkingGroup{7.54}
\TelefonExtension{7216}
\Date{2018-04-21}
\Referee{Jousten}
\Purchaser{Niepraschk}
\CostUnit{UVW}
\FinanceUnit{XYZ}
\Account{UVW-XYZ}
\SAPNo{876543123}
\Value{23117,98\,€}
\DateOfArrival{2017-04-01}
\ShippingName{"`Gutes Vakuum"' / "`Schlechtes Vakuum"' GmbH (Weltvertrieb)}
\ShippingContact{Peter Silie}
\ShippingStreet{Dorfstraße 23}
\ShippingTown{Entenhausen}
\ShippingZipcode{43210}
\ShippingLand{Transsilvanien}
\ShippingEmail{Peter.Silie@vakuum.de}
\ShippingPhone{+49-30-4711-0815}
\PSP{??????????}
\TransportType{0}
% Standard: 0 ("Transportunternehmen"); 1="Kundenveranlassung", 2="PTB"
\ShippingCompany{2}% 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{Testleck Vakuum (SN:FC13000131); Testleck Vakuum (SN:FC13000131);
Testleck Vakuum (SN:FC13000130); Testleck Vakuum (SN:FC13000132); Testleck
Vakuum (SN:FC03000061); Testleck Vakuum (SN:7025); Testleck Vakuum
(SN:FC13000281); Testleck Vakuum (SN:FC03000056); Testleck Vakuum
(SN:FC05000368); Testleck Vakuum (SN:19751); Testleck Vakuum (SN:FC03000065);
Testleck Vakuum (SN:7204); und Zubehör}
\LabelInflammable{true}% Standard: false
\LabelGlas{true}% Standard: false
\LabelSensitive{true}% Standard: false
\LabelTop{true}% Standard: false
\LabelDangerous{true}% Standard: false
\begin{document}
\end{document}
%---------------------------
versandauftrag/test-versandauftrag-2019.tex 0 → 100644
View file @ b1187749
\documentclass[ de,2019 ]{vl-versandauftrag}
%\documentclass[ en ]{vl-versandauftrag}
%\documentclass[ngerman]{vl-versandauftrag}
\WorkingGroup{7.54}
\TelefonExtension{7216}
\Date{2019-04-21}
\Referee{Dr.\,Matthias Bernien}
\Purchaser{Christian Buchmann}
\CostUnit{UVW}
\FinanceUnit{XYZ}
\Account{UVW-XYZ}
\SAPNo{876543123}
\Value{23117,98\,€}
\Insurance{true}% Standard: false
\ShippingName{"`Gutes Vakuum"' GmbH}
\ShippingContact{Peter Silie}
\ShippingStreet{Dorfstraße 23}
\ShippingTown{Entenhausen}
\ShippingZipcode{43210}
\ShippingLand{Transsilvanien}
\ShippingEmail{Peter.Silie@vakuum.de}
\ShippingPhone{+49-30-4711-0815}
\PSP{??????????}
\ShippingCompany{2}% nur relevant, wenn TransportType=0
% Standard: 4 ("DHL"); 0="Logiline", 1="TNT", 2="UPS", 3="FedEx", 5="Sonstige"
\ShippingType{1}% Standard: 0 ("Standard"); 1="Express", 2="Special"
\Content{Testleck Vakuum (SN:FC13000131); Testleck Vakuum (SN:FC13000131);
Testleck Vakuum (SN:FC13000130); Testleck Vakuum (SN:FC13000132); Testleck
Vakuum (SN:FC03000061); Testleck Vakuum (SN:7025); Testleck Vakuum
(SN:FC13000281); Testleck Vakuum (SN:FC03000056); Testleck Vakuum
(SN:FC05000368); Testleck Vakuum (SN:19751); Testleck Vakuum (SN:FC03000065);
Testleck Vakuum (SN:7204); und Zubehör}
\LabelInflammable{true}% Standard: false
\LabelGlas{true}% Standard: false
\LabelSensitive{true}% Standard: false
\LabelTop{true}% Standard: false
\LabelDangerous{true}% Standard: false
\begin{document}
\end{document}
%---------------------------
versandauftrag/test-versandauftrag-2020.tex 0 → 100644
View file @ b1187749
\documentclass[de, 2020]{vl-versandauftrag}
\WorkingGroup{7.54}
\TelefonExtension{}
\Date{2020-09-14}
\Referee{AG 7.54}
\Purchaser{Beate Prußeit}
\CostUnit{7500}
\FinanceUnit{}
\Account{XYZ}
\SAPNo{4102024, 7.5-1V-20-59}
\IndicationOfValue{2880,75}
\CalibrationCosts{17,95}
\ShippingName{INFICON GmbH}
\ShippingContact{Merhawi Mehreteab}
\ShippingPhone{+49 221 56788-548}
\ShippingEmail{Merhawi.Mehreteab@inficon.com}
\ShippingStreet{Bonner Str. 498}
\ShippingTown{Köln}
\ShippingZipcode{50968}
\ShippingLand{}
\ModeOfTransport{Abholung wird vom Empfänger veranlasst}
\ModeOfTransport{* TNT}
\ShippingCustomerID{987654321}
\ShippingType{1}% 0=Standard, 1=Übernacht-Express, 2=andere
\ShippingPayment{1}% 0=frei, 1=unfrei, 2=Kostenbescheid
\Content{None SN: None, Zubehör}
\LabelInflammable{true}
\LabelGlas{true}
\LabelSensitive{true}
\LabelTop{true}
\LabelDangerous{true}
\Insurance{true}% Standard: false
\begin{document}
\end{document}
%---------------------------
versandauftrag/versandauftrag.cls deleted 100644 → 0
View file @ 8891f1ea
versandauftrag/vl-versandauftrag-2017.cls 0 → 100644
View file @ b1187749
\setcounter{errorcontextlines}{100}
\listfiles
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
\ProvidesClass{vl-versandauftrag-2017}
[2018/01/11 v0.1k Dokumentenklasse (RN/PTB)]
\newcommand*\vl@lang{english}
\DeclareOption{de}{\def\vl@lang{ngerman}}
\DeclareOption{german}{\def\vl@lang{ngerman}}
\DeclareOption{en}{\def\vl@lang{english}}
\DeclareOption*{\PassOptionsToClass{\CurrentOption}{scrartcl}}
\ProcessOptions\relax
\PassOptionsToPackage{paper=a4,pagesize}{typearea}
\LoadClass[%
,fontsize=10pt
]{scrartcl}
\RequirePackage{ifxetex,ifluatex,setspace}
\setstretch{1.5}
\newif\ifXeOrLua \XeOrLuafalse
\ifxetex\XeOrLuatrue\else\ifluatex\XeOrLuatrue\fi\fi
\ifXeOrLua% XeLaTeX oder luaLaTeX
\input{vl-versandauftrag-2.clo}
\else
\input{vl-versandauftrag-1.clo}
\fi
\setlength\textwidth{488bp}
\setlength\textheight{741bp}
\RequirePackage{eso-pic,pict2e,picture,xcolor,relsize,trimspaces}
\RequirePackage[\vl@lang]{babel}
\RequirePackage{iflang}
\IfLanguageName{ngerman}{%
\RequirePackage[babel=once,german=guillemets]{csquotes}
\AtEndOfClass{\shorthandon{"}}
\defineshorthand{"`}{\openautoquote}
\defineshorthand{"'}{\closeautoquote}
\MakeAutoQuote{»}{«}
}{%
\RequirePackage[babel=once]{csquotes}
}
\definecolor{thisGray}{gray}{0.881}
\let\vl@tempdima=\@ovxx
\let\vl@tempdimb=\@ovyy
\let\vl@tempdimc=\@ovdx
\let\vl@tempdimd=\@clnwd
\let\vl@tempdime=\@clnht
\let\vl@tempdimf=\@dashdim
\newcommand\vl@tempa{}
\newdimen\vl@fontdim
\newdimen\vl@upperfontdim
\newdimen\vl@lowerfontdim
\newif\if@vl@moreiterations
\vl@fontdim=12pt %
\newcommand\vl@buildbox[2]{%
\setbox0\vbox{\hbox{\parbox{#1}{%
\fontsize{\vl@fontdim}{1.2\vl@fontdim}\selectfont #2}}}%
\dimen@\ht0 %
\advance\dimen@\dp0 %
}
% Modifiziert nach:
% http://tex.stackexchange.com/questions/26002/fit-text-into-given-box-by-adjusting-the-fontsize
% siehe auch: http://www.tug.org/TUGboat/tb29-1/tb91pearls.pdf
%
% Verhält sich wie \parbox, wenn Text in vorgegebene Höhe passt,
% sonst Reduktion der Schriftgröße.
\newcommand\lfitbox[4][c]{% [pos] <width> <height> <stuff>
\vl@buildbox{#2}{#4}%
\ifdim\dimen@<#3\relax
\parbox[#1][#3]{#2}{#4}%
\else
% Compute upper and lower bounds
\loop
\vl@fontdim.5\vl@fontdim % Reduce font size by half
\vl@buildbox{#2}{#4}%
\ifdim\dimen@>#3\relax \repeat
\vl@lowerfontdim\vl@fontdim
\vl@upperfontdim=2\vl@fontdim
\vl@fontdim=1.5\vl@fontdim
% Now try to find the optimum size
\loop
%\message{Bounds: \the\vl@lowerfontdim\space
% \the\vl@fontdim\space \the\vl@upperfontdim^^J}
\vl@buildbox{#2}{#4}%
\ifdim\dimen@>#3\relax %
\@vl@moreiterationstrue
\vl@upperfontdim\vl@fontdim
\advance\vl@fontdim\vl@lowerfontdim
\vl@fontdim=.5\vl@fontdim
\else
\advance\dimen@-#3\relax %
\ifdim\dimen@<10pt %
\vl@lowerfontdim\vl@fontdim
\advance\vl@fontdim\vl@upperfontdim
\vl@fontdim=.5\vl@fontdim
\dimen@\vl@upperfontdim
\advance\dimen@-\vl@lowerfontdim
\ifdim\dimen@<.2pt %
\@vl@moreiterationsfalse
\else
\@vl@moreiterationstrue
\fi
\else
\@vl@moreiterationsfalse
\fi
\fi
\if@vl@moreiterations \repeat
\parbox[#1][#3]{#2}{\fontsize{\vl@fontdim}{1.2\vl@fontdim}\selectfont#4}%
\fi
}
\newcommand*\vl@setboolean[3][false]{% #1=default (opt.), #2=if, #3=value
\edef\vl@tempa{\trim@spaces{#3}}%
\expandafter\csname #2\ifx\@empty\vl@tempa #1\else\vl@tempa\fi\endcsname
}
\newcommand*\vl@setcounter[3][0]{% #1=default (opt.), #2=counter, #3=value
\edef\vl@tempa{\trim@spaces{#3}}%
\setcounter{#2}{\ifx\@empty\vl@tempa #1\else\vl@tempa\fi}%
}
\newcommand*\vl@setcommand[3][]{% #1=default (opt.), #2=macro, #3=value
\edef\vl@tempa{\trim@spaces@noexp{#3}}%
\expandafter\protected@xdef\csname #2\endcsname{%
\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@ShippingNo{}
\newcommand*\ShippingNo[1]{\vl@setcommand{vl@ShippingNo}{#1}}
\newcommand*\vl@ShippingName{}
\newcommand*\ShippingName[1]{\vl@setcommand{vl@ShippingName}{#1}}
\newcommand*\vl@ShippingContact{}
\newcommand*\ShippingContact[1]{\vl@setcommand{vl@ShippingContact}{#1}}
\newcommand*\vl@ShippingStreet{}
\newcommand*\ShippingStreet[1]{\vl@setcommand{vl@ShippingStreet}{#1}}
\newcommand*\vl@ShippingTown{}
\newcommand*\ShippingTown[1]{\vl@setcommand{vl@ShippingTown}{#1}}
\newcommand*\vl@ShippingZipcode{}
\newcommand*\ShippingZipcode[1]{\vl@setcommand{vl@ShippingZipcode}{#1}}
\newcommand*\vl@ShippingLand{}
\newcommand*\ShippingLand[1]{\vl@setcommand{vl@ShippingLand}{#1}}
\newcommand*\vl@CostUnit{}
\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@DateOfArrival{}
\newcommand*\DateOfArrival[1]{\vl@setcommand{vl@DateOfArrival}{#1}}
\newcommand*\vl@WorkingGroup{}
\newcommand*\WorkingGroup[1]{\vl@setcommand{vl@WorkingGroup}{#1}}
\newcommand*\vl@TelefonExtension{}
\newcommand*\TelefonExtension[1]{\vl@setcommand{vl@TelefonExtension}{#1}}
\newcommand*\vl@Date{}
\newcommand*\Date[1]{\vl@setcommand{vl@Date}{#1}}
\newcommand*\vl@Content{}
\newcommand*\Content[1]{\vl@setcommand{vl@Content}{#1}}
\newcommand*\vl@Purchaser{}
\newcommand*\Purchaser[1]{\vl@setcommand{vl@Purchaser}{#1}}
\newcommand*\vl@Referee{}
\newcommand*\Referee[1]{\vl@setcommand{vl@Referee}{#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@ShippingCompany} \setcounter{vl@ShippingCompany}{4}
\newcommand*\ShippingCompany[1]{\vl@setcounter[4]{vl@ShippingCompany}{#1}}
\newcounter{vl@ShippingPayment} \setcounter{vl@ShippingPayment}{0}
\newcommand*\ShippingPayment[1]{\vl@setcounter{vl@ShippingPayment}{#1}}
\newif\ifInflammable \Inflammablefalse
\newcommand*\LabelInflammable[1]{\vl@setboolean{Inflammable}{#1}}
\newif\ifGlas \Glasfalse
\newcommand*\LabelGlas[1]{\vl@setboolean{Glas}{#1}}
\newif\ifSensitive \Sensitivefalse
\newcommand*\LabelSensitive[1]{\vl@setboolean{Sensitive}{#1}}
\newif\ifTop \Topfalse
\newcommand*\LabelTop[1]{\vl@setboolean{Top}{#1}}
\newif\ifDangerous \Dangerousfalse
\newcommand*\LabelDangerous[1]{\vl@setboolean{Dangerous}{#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}
\mbox{} \newpage
\def\vl@mainTitle{\vl@mainTitle@ii}
\mbox{}
}
\renewcommand*\familydefault{\sfdefault}
\def\huge{\@setfontsize\huge{20.08}{24.2}}
%%\def\large{\@setfontsize\large{11.62}{13.56}}
%%\def\tiny{\@setfontsize\tiny\@viipt\@viiipt}
\newcommand*\checkBox[2][0]{%
\begingroup
\fboxrule=0.7bp\fboxsep=0pt % 0.7bp (10pt)
\raisebox{.3\height}{\fbox{\parbox[c][11bp]{11bp}{%
\mbox{}\ifcase#1\or\centering\relscale{1.35}$\times$\fi%
}}}%
\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{%
\frenchspacing
\AtPageLowerLeft{%
\linethickness{0.6bp}%
\vl@tempdima=57bp %
\vl@tempdimb=58bp %
\put(\vl@tempdima,\vl@tempdimb){\framebox(\textwidth,\textheight){}}%
\put(227bp,468bp){\textcolor{thisGray}{\rule{318bp}{129bp}}}%
% dünne waagerechte Linien
\put(\vl@tempdima,767bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,739bp){\line(1,0){\textwidth}}%
\put(227bp,597bp){\line(1,0){318bp}}%
\put(\vl@tempdima,468bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,417bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,389bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,361bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,267bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,205bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,104bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima, 81bp){\line(1,0){\textwidth}}%
% dünne senkrechte Linien
\put(227bp,468bp){\line(0,1){299bp}}%
\put(305bp,739bp){\line(0,1){60bp}}%
\put(389bp,597bp){\line(0,1){170bp}}%
\put(290bp,\vl@tempdimb){\line(0,1){83bp}}%
\put(213bp,361bp){\line(0,1){56bp}}%
\put(397bp,361bp){\line(0,1){56bp}}%
\put(368bp,104bp){\line(0,1){37bp}}%
% Feste Beschriftung
\put(57bp,780bp){\parbox[c][32bp]{247bp}{\centering\bfseries\vl@mainTitle}}%
\put(321bp,786bp){\large Physikalisch-Technische Bundesanstalt}%
\put(343bp,772bp){\large Abbestraße 2--12, 10587 Berlin}%
\footnotesize
\vl@tempdimc=758bp %
\put( 62bp,\vl@tempdimc){Org.-Einheit, Sachbearbeiter}%
\put(232bp,\vl@tempdimc){Telefon: 030/3481}%
\put(310bp,\vl@tempdimc){Datum}%
\put(395bp,\vl@tempdimc){Versandauftrag wurde ausgefüllt von}%
\vl@tempdimc=728bp %
\normalsize
\put(62bp,\vl@tempdimc){\textbf{Versand per:}}%
\put(62bp,709bp){\checkBox[\ifnum\c@vl@TransportType=0 1\else0\fi]%
{\textbf{Transportunternehmen}}}%
\put(77bp,689bp){\checkBox[\vl@SelCompany{0}]{Logiline}}%
\put(77bp,675bp){\checkBox[\vl@SelCompany{1}]{TNT}}%
\put(77bp,661bp){\checkBox[\vl@SelCompany{2}]{UPS}}%
\put(77bp,647bp){\checkBox[\vl@SelCompany{3}]{FedEx}}%
\put(77bp,633bp){\checkBox[\vl@SelCompany{4}]{Post/DHL Express (unfreier}}%
\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}%
\put(62bp,518bp){\checkBox[\ifnum\c@vl@TransportType=1 1\else0\fi]%
{\textbf{Abholung wird vom}}}%
\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(396bp,\vl@tempdimc){\textbf{Zustellungsart:}}%
\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]%
{Übernacht-Express}}%
\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}}}%
\put(233bp,543bp){\textbf{Lieferscheinnummer:}}%
\put(233bp,518bp){Mit der Bitte um}%
\put(233bp,498bp){\checkBox{\textbf{Reparatur im Rahmen der Gewährleistung}}}%
\put(233bp,478bp){\checkBox{\textbf{Reparaturkosten-Voranschlag}}}%
\put(62bp,453bp){Angaben zur Zahlungsart:}%
\put(62bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=0 1\else0\fi]%
{\textbf{frei}~(Kosten trägt die PTB)}}%
\put(220bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=1 1\else0\fi]%
{Kosten werden vom Laboratorium}}%
\put(236bp,423bp){per \textbf{Kostenbescheid} eingezogen}%
\put(403bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=2 1\else0\fi]%
{\textbf{unfrei}~(Empfänger zahlt)}}%
\footnotesize
\vl@tempdima=62bp %
\vl@tempdimc=408bp %
\put(\vl@tempdima,\vl@tempdimc){Kostenstelle}%
\put(218bp,\vl@tempdimc){Finanzstelle}%
\put(401bp,\vl@tempdimc){Titel}%
\vl@tempdimc=380bp %
\put(\vl@tempdima,\vl@tempdimc){ggf. SAP-Auftragsnummer}%
\put(218bp,\vl@tempdimc){Wertangabe}%
\put(401bp,\vl@tempdimc){Ankunftstag (falls notwendig)}%
\normalsize
\vl@tempdimc=350bp %
\put(\vl@tempdima,\vl@tempdimc){Empfänger (Name, Straße, PLZ, Ort) Zustellungen
an ein Postfach sind nicht möglich!}%
\vl@tempdimc=339bp %
\put(\vl@tempdima,\vl@tempdimc){\textbf{Bei allen Sendungen bitte Telefonnummer
und ggf. die E-Mail Adresse angeben!}}%
\put(\vl@tempdima,257bp){Inhalt:}%
\put(\vl@tempdima,194bp){Sendung mit folgendem \textbf{Warnhinweis} versehen:}
\put(\vl@tempdima,173bp){\checkBox[\ifInflammable 1\else 0\fi]{Feuergefährlich!}}%
\put(167bp,173bp){\checkBox[\ifGlas 1\else 0\fi]{Vorsicht Glas!}}%
\put(258bp,173bp){\checkBox[\ifSensitive 1\else 0\fi]{Vorsicht! Empfindliche}}%
\put(274bp,163bp){Elektrogeräte}%
\put(386bp,173bp){\checkBox[\ifTop 1\else 0\fi]{Oben}}%
\put(402bp,163bp){Nicht stürzen!}%
\put(478bp,173bp){\checkBox[\ifDangerous 1\else 0\fi]{Gefahrgut}}%
\put(193bp,145bp){{\large\textbf{Nur von der Versandstelle auszufüllen}}}
\footnotesize
\vl@tempdimc=132bp %
\put(\vl@tempdima,\vl@tempdimc){Verpackung}%
\begingroup
\vl@tempdimc=111bp %
\put(\vl@tempdima,\vl@tempdimc){\line(1,0){26bp}}%
\large
\put(105bp,\vl@tempdimc){\checkBox{Karton}}%
\put(164bp,\vl@tempdimc){\checkBox{Kiste}}%
\put(221bp,\vl@tempdimc){\checkBox{Palette}}%
\endgroup
\put(295bp,\vl@tempdimc){Gewicht}%
\put(351bp,112bp){{\large kg}}%
\put(374bp,\vl@tempdimc){Bearbeitet von}%
\vl@tempdimc=94bp %
\put(\vl@tempdima,\vl@tempdimc){Eingang bei Z.1533 am}%
\put(295bp,\vl@tempdimc){Verpackt durch}%
\vl@tempdimc=72bp %
\put(\vl@tempdima,\vl@tempdimc){Abgesandt am}%
\put(295bp,\vl@tempdimc){Unterschrift Z.1533}%
% ...
% Variable Beschriftung
%
\vl@tempdima=62bp %
\begingroup
\ttfamily\normalsize
\vl@tempdimc=744bp % -14bp
\put(\vl@tempdima,\vl@tempdimc){\vl@WorkingGroup,~\vl@Referee}%
\put(395bp,\vl@tempdimc){\vl@Purchaser}%
\put(232bp,\vl@tempdimc){\vl@TelefonExtension}%
\put(310bp,\vl@tempdimc){\vl@Date}%
\vl@tempdimc=394bp % -14bp
\put(\vl@tempdima,\vl@tempdimc){\vl@CostUnit}%
\put(218bp,\vl@tempdimc){\vl@FinanceUnit}%
\put(401bp,\vl@tempdimc){\vl@Account}%
\vl@tempdimc=366bp %
\put(\vl@tempdima,\vl@tempdimc){\vl@SAPNo}%
\put(218bp,\vl@tempdimc){\vl@Value}%
\put(401bp,\vl@tempdimc){\vl@DateOfArrival}%
\put(\vl@tempdima,327bp){%
\parbox[t]{0.975\textwidth}{%
\small\setstretch{0.8}
\vl@ShippingName \\
\vl@ShippingContact \\
\vl@ShippingStreet \\
\vl@ShippingZipcode~\vl@ShippingTown \\
\vl@ShippingLand
}%
}%
\put(93bp,257bp){\lfitbox[t]{447bp}{56bp}{%
\begin{sloppypar}\vl@Content\end{sloppypar}}}%
\endgroup
}
\AtPageLowerLeft{%
\put(57bp,58bp){%
\linethickness{1.4bp}%
\framebox(\textwidth,99bp){}%
\put(0,83bp){\line(-1,0){\textwidth}}%
}
}
}%
\emergencystretch=3em %
\pagestyle{empty}
\endinput
versandauftrag/vl-versandauftrag-2018.clo 0 → 100644
View file @ b1187749
\ProvidesFile{vl-versandauftrag-2018.clo}
[2019/01/28 Versandauftrag (2018er Definitionen)]
\AddToShipoutPictureBG{%
\frenchspacing
\AtPageLowerLeft{%
\linethickness{0.6bp}%
\vl@tempdima=57bp %
\vl@tempdimb=58bp %
\put(\vl@tempdima,\vl@tempdimb){\framebox(\textwidth,\textheight){}}%
\put(227bp,468bp){\textcolor{thisGray}{\rule{318bp}{129bp}}}%
% dünne waagerechte Linien
\put(\vl@tempdima,767bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,739bp){\line(1,0){\textwidth}}%
\put(227bp,597bp){\line(1,0){318bp}}%
\put(\vl@tempdima,468bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,417bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,389bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,361bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,267bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,205bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,104bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima, 81bp){\line(1,0){\textwidth}}%
% dünne senkrechte Linien
\put(227bp,468bp){\line(0,1){299bp}}% hinter "Sachbearbeiter"
\put(305bp,739bp){\line(0,1){60bp}}% hinter "Telefon"
\put(389bp,739bp){\line(0,1){28bp}}% hinter "Datum"
\put(245bp,82bp){\line(0,1){22bp}}% vor "Verpackt durch"
\put(290bp,\vl@tempdimb){\line(0,1){23bp}}% vor "Unterschrift"
\put(213bp,361bp){\line(0,1){56bp}}%
\put(397bp,361bp){\line(0,1){56bp}}%
\put(407bp,81bp){\line(0,1){60bp}}% vor "Gewicht"
% Feste Beschriftung
\put(57bp,780bp){\parbox[c][32bp]{247bp}{\centering\bfseries\vl@mainTitle}}%
\put(321bp,786bp){\large Physikalisch-Technische Bundesanstalt}%
\put(343bp,772bp){\large Abbestraße 2--12, 10587 Berlin}%
\footnotesize
\vl@tempdimc=758bp %
\put( 62bp,\vl@tempdimc){Org.-Einheit, Sachbearbeiter}%
\put(232bp,\vl@tempdimc){Telefon: 030/3481}%
\put(310bp,\vl@tempdimc){Datum}%
\put(395bp,\vl@tempdimc){Versandauftrag wurde ausgefüllt von}%
\vl@tempdimc=728bp %
\normalsize
\put(62bp,\vl@tempdimc){\textbf{Versand per:}}%
\put(62bp,709bp){\checkBox[\ifnum\c@vl@TransportType=0 1\else0\fi]%
{\textbf{Transportunternehmen}}}%
\put(77bp,689bp){\checkBox[\vl@SelCompany{0}]{Logiline}}%
\put(77bp,675bp){\checkBox[\vl@SelCompany{1}]{TNT}}%
\put(77bp,661bp){\checkBox[\vl@SelCompany{2}]{UPS}}%
\put(77bp,647bp){\checkBox[\vl@SelCompany{3}]{FedEx}}%
\put(77bp,633bp){\checkBox[\vl@SelCompany{4}]{Post/DHL Express (unfreier}}%
\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}%
\put(62bp,518bp){\checkBox[\ifnum\c@vl@TransportType=1 1\else0\fi]%
{\textbf{Abholung wird vom}}}%
\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{Zustellungsart:}}%
\put(233bp,709bp){\checkBox[\ifnum\c@vl@Shippingtype=0 1\else0\fi]%
{Standard \scriptsize(2--3 Tage)}}%
\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]%
{andere:}}%
\put(233bp,580bp){\textbf{\large Reparatur}~(nur bei Bedarf ausfüllen)}%
\put(233bp,558bp){\checkBox{\textbf{Reparaturschein liegt bei}}}%
\put(233bp,543bp){\textbf{Lieferscheinnummer:}}%
\put(233bp,518bp){Mit der Bitte um}%
\put(233bp,498bp){\checkBox{\textbf{Reparatur im Rahmen der Gewährleistung}}}%
\put(233bp,478bp){\checkBox{\textbf{Reparaturkosten-Voranschlag}}}%
\put(62bp,453bp){Angaben zur Zahlungsart:}%
\put(62bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=0 1\else0\fi]%
{\textbf{frei}~(Kosten trägt die PTB)}}%
\put(220bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=2 1\else0\fi]%
{\textbf{unfrei}~(Empfänger zahlt)}}%
\put(370bp,433bp){\checkBox[\ifnum\c@vl@ShippingPayment=1 1\else0\fi]%
{Kosten werden vom Laboratorium}}%
\put(386bp,423bp){per \textbf{Kostenbescheid} eingezogen}%
\footnotesize
\vl@tempdima=62bp %
\vl@tempdimc=408bp %
\put(\vl@tempdima,\vl@tempdimc){Kostenstelle}%
\put(218bp,\vl@tempdimc){Finanzstelle}%
\put(401bp,\vl@tempdimc){Titel}%
\vl@tempdimc=380bp %
\put(\vl@tempdima,\vl@tempdimc){ggf. SAP-Auftragsnummer}%
\put(218bp,\vl@tempdimc){Wertangabe}%
\put(401bp,\vl@tempdimc){PSP-Element}%
\normalsize
\vl@tempdimc=350bp %
\put(\vl@tempdima,\vl@tempdimc){Empfänger (Name, Straße, PLZ, Ort, Land)
Zustellungen an ein Postfach sind nicht möglich!}%
\vl@tempdimc=339bp %
%%%\put(\vl@tempdima,\vl@tempdimc){\textbf{Bei allen Sendungen bitte
%%% Ansprechpartner und Telefonnummer angeben!}}%
\put(\vl@tempdima,257bp){Inhalt:}%
\put(\vl@tempdima,194bp){Sendung mit folgendem \textbf{Warnhinweis} versehen:}
\put(\vl@tempdima,173bp){\checkBox[\ifInflammable 1\else 0\fi]{Feuergefährlich!}}%
\put(167bp,173bp){\checkBox[\ifGlas 1\else 0\fi]{Vorsicht Glas!}}%
\put(258bp,173bp){\checkBox[\ifSensitive 1\else 0\fi]{Vorsicht! Empfindliche}}%
\put(274bp,163bp){Elektrogeräte}%
\put(386bp,173bp){\checkBox[\ifTop 1\else 0\fi]{Oben}}%
\put(402bp,163bp){Nicht stürzen!}%
\put(478bp,173bp){\checkBox[\ifDangerous 1\else 0\fi]{Gefahrgut}}%
\put(193bp,145bp){{\large\textbf{Nur von der Versandstelle auszufüllen}}}
\footnotesize
\vl@tempdimc=132bp %
\put(\vl@tempdima,\vl@tempdimc){Verpackung}%
\begingroup
\vl@tempdimc=111bp %
\put(\vl@tempdima,\vl@tempdimc){\line(1,0){26bp}}%
\large
\put(105bp,\vl@tempdimc){\checkBox{Karton}}%
\put(168bp,\vl@tempdimc){\checkBox{Kiste}}%
\put(220bp,\vl@tempdimc){\checkBox{Palette}}%
\put(281bp,\vl@tempdimc){\checkBox{Versandtasche}}%
\endgroup
\put(412bp,\vl@tempdimc){Gewicht}%
\put(468bp,112bp){{\large kg}}%
\vl@tempdimc=94bp %
\put(\vl@tempdima,\vl@tempdimc){Eingang bei Z.1533 am}%
\put(250bp,\vl@tempdimc){Verpackt durch}%
\put(412bp,\vl@tempdimc){Abgesandt am}%
\vl@tempdimc=72bp %
\put(\vl@tempdima,\vl@tempdimc){Frachtbriefnummer:}%
\put(295bp,\vl@tempdimc){Unterschrift}%
% ...
% Variable Beschriftung
%
\vl@tempdima=62bp %
\begingroup
\ttfamily\normalsize
\vl@tempdimc=744bp % -14bp
\put(\vl@tempdima,\vl@tempdimc){\vl@WorkingGroup,~\vl@Referee}%
\put(395bp,\vl@tempdimc){\vl@Purchaser}%
\put(232bp,\vl@tempdimc){\vl@TelefonExtension}%
\put(310bp,\vl@tempdimc){\vl@Date}%
\put(411bp,695bp){\vl@DateOfArrival}%
\vl@tempdimc=394bp % -14bp
\put(\vl@tempdima,\vl@tempdimc){\vl@CostUnit}%
\put(218bp,\vl@tempdimc){\vl@FinanceUnit}%
\put(401bp,\vl@tempdimc){\vl@Account}%
\vl@tempdimc=366bp %
\put(\vl@tempdima,\vl@tempdimc){\vl@SAPNo}%
\put(218bp,\vl@tempdimc){\vl@Value}%
\put(401bp,\vl@tempdimc){\vl@PSP}% PSP-Element
\put(\vl@tempdima,337bp){%
\parbox[t]{0.975\textwidth}{%
\small\setstretch{0.8}%
\vl@ShippingName \\
\vl@ShippingContact \\
\vl@ShippingStreet \\
\vl@ShippingZipcode~\vl@ShippingTown \\
\vl@ShippingLand
}%
}%
\put(300bp,280bp){%
\parbox[t]{.56\textwidth}{%
\small\setstretch{0.8}%
\@tempswafalse
\ifx\vl@ShippingEmail\@empty\else
\@tempswatrue
\fi
\ifx\vl@ShippingPhone\@empty\else
\@tempswatrue
\fi
\if@tempswa
\begin{tabular}{@{}l@{~}l@{}}%
\multicolumn{1}{@{}l@{}}{\rlap{%
\negthinspace\negthinspace\parbox{244bp}{\dotfill}}} \\
\ifx\vl@ShippingEmail\@empty\else
E-Mail: & \expandafter\url\expandafter{\vl@ShippingEmail} \\
\fi
\ifx\vl@ShippingPhone\@empty\else
Telefon: & \vl@ShippingPhone
\fi
\end{tabular}\\[.5em]
\fi
%%\vl@ShippingComment
}%
}
\put(93bp,257bp){\lfitbox[t]{447bp}{56bp}{%
\begin{sloppypar}\vl@Content\end{sloppypar}}}%
\endgroup
}
\AtPageLowerLeft{%
\put(57bp,58bp){%
\linethickness{1.4bp}%
\framebox(\textwidth,99bp){}%
\put(0,83bp){\line(-1,0){\textwidth}}%
}
}
}%
\endinput
versandauftrag/vl-versandauftrag-2019.clo 0 → 100644
View file @ b1187749
\ProvidesFile{vl-versandauftrag-2019.clo}
[2019/07/09 Versandauftrag (2019er Definitionen)]
\AddToShipoutPictureBG{%
\frenchspacing
\AtPageLowerLeft{%
\linethickness{0.6bp}%
\vl@tempdima=57bp %
\vl@tempdimb=58bp %
\put(\vl@tempdima,\vl@tempdimb){\framebox(\textwidth,\textheight){}}%
% dünne waagerechte Linien
\put(\vl@tempdima,767bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,739bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,570bp){\line(1,0){\textwidth}}% nach "Kostenbescheid"
\put(\vl@tempdima,542bp){\line(1,0){\textwidth}}% nach "Kostenstelle"
\put(\vl@tempdima,514bp){\line(1,0){\textwidth}}% nach "Wertangabe"
\put(\vl@tempdima,406bp){\line(1,0){\textwidth}}% vor "Inhalt"
\put(\vl@tempdima,205bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,104bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima, 81bp){\line(1,0){\textwidth}}%
% dünne senkrechte Linien
\put(227bp,570bp){\line(0,1){197bp}}% hinter "Sachbearbeiter"
\put(305bp,739bp){\line(0,1){60bp}}% hinter "Telefon"
\put(389bp,739bp){\line(0,1){28bp}}% hinter "Datum"
\put(245bp,82bp){\line(0,1){22bp}}% vor "Verpackt durch"
\put(290bp,\vl@tempdimb){\line(0,1){23bp}}% vor "Unterschrift"
\put(213bp,514bp){\line(0,1){56bp}}% vor "Finanzstelle"
\put(397bp,514bp){\line(0,1){56bp}}% vor "Titel"
\put(407bp,81bp){\line(0,1){60bp}}% vor "Gewicht"
% Feste Beschriftung
\put(57bp,780bp){\parbox[c][32bp]{247bp}{\centering\bfseries\vl@mainTitle}}%
\put(321bp,786bp){\large Physikalisch-Technische Bundesanstalt}%
\put(343bp,772bp){\large Abbestraße 2--12, 10587 Berlin}%
\footnotesize
\vl@tempdimc=758bp %
\put( 62bp,\vl@tempdimc){Org.-Einheit, Sachbearbeiter}%
\put(232bp,\vl@tempdimc){Telefon: 030/3481}%
\put(310bp,\vl@tempdimc){Datum}%
%%%\put(395bp,\vl@tempdimc){Versandauftrag wurde ausgefüllt von}%
\vl@tempdimc=728bp %
\normalsize
\put(62bp,\vl@tempdimc){\textbf{Versand über Lager Berlin:}}%
\put(62bp,709bp){\checkBox{\textbf{Transportunternehmen}}}%
\put(77bp,689bp){\checkBox{Logiline}}%
\put(77bp,675bp){\checkBox{TNT}}%
\put(77bp,661bp){\checkBox{UPS}}%
\put(77bp,647bp){\checkBox{FedEx}}%
\put(77bp,633bp){\checkBox{Post/DHL Express
(unfreier}}%
\put(94bp,622bp){Versand nur ins Inland)}%
\put(77bp,606bp){\checkBox[\vl@SelCompany{5}]{}}%
\put(233bp,\vl@tempdimc){\textbf{Zustellungsart:}}%
\put(233bp,709bp){\checkBox[\ifnum\c@vl@Shippingtype=0 1\else0\fi]%
{Standard \scriptsize(2--3 Tage)}}%
\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]%
{andere:}}%
\put(233bp,606bp){\checkBox[\ifInsurance 1\else 0\fi]%
{Kunde wünscht Versicherung}}%
\put(233bp,586bp){\checkBox[1]{Kosten werden vom Laboratorium per
\textbf{Kostenbescheid}}}%
\put(249bp,576bp){eingezogen}%
\footnotesize
\vl@tempdima=62bp %
\vl@tempdimc=561bp %
\put(\vl@tempdima,\vl@tempdimc){Kostenstelle}%
\put(218bp,\vl@tempdimc){Finanzstelle}%
\put(401bp,\vl@tempdimc){Titel}%
\vl@tempdimc=533bp %
\put(\vl@tempdima,\vl@tempdimc){ggf. SAP-Auftragsnummer}%
\put(218bp,\vl@tempdimc){Wertangabe}%
\put(401bp,\vl@tempdimc){PSP-Element}%
\normalsize
\vl@tempdimc=502bp %
\put(\vl@tempdima,\vl@tempdimc){Empfänger (Name, Straße, PLZ, Ort, Land)
Zustellungen an ein Postfach sind nicht möglich!}%
\put(\vl@tempdima,393bp){Inhalt:}%
\put(\vl@tempdima,194bp){Sendung mit folgendem \textbf{Warnhinweis} versehen:}
\put(\vl@tempdima,173bp){\checkBox[\ifInflammable 1\else 0\fi]{Feuergefährlich!}}%
\put(167bp,173bp){\checkBox[\ifGlas 1\else 0\fi]{Vorsicht Glas!}}%
\put(258bp,173bp){\checkBox[\ifSensitive 1\else 0\fi]{Vorsicht! Empfindliche}}%
\put(274bp,163bp){Elektrogeräte}%
\put(386bp,173bp){\checkBox[\ifTop 1\else 0\fi]{Oben}}%
\put(402bp,163bp){Nicht stürzen!}%
\put(478bp,173bp){\checkBox[\ifDangerous 1\else 0\fi]{Gefahrgut}}%
\put(193bp,145bp){{\large\textbf{Nur von der Versandstelle auszufüllen}}}
\footnotesize
\vl@tempdimc=132bp %
\put(\vl@tempdima,\vl@tempdimc){Verpackung}%
\begingroup
\vl@tempdimc=111bp %
\put(\vl@tempdima,\vl@tempdimc){\line(1,0){26bp}}%
\large
\put(105bp,\vl@tempdimc){\checkBox{Karton}}%
\put(168bp,\vl@tempdimc){\checkBox{Kiste}}%
\put(220bp,\vl@tempdimc){\checkBox{Palette}}%
\put(281bp,\vl@tempdimc){\checkBox{Versandtasche}}%
\endgroup
\put(412bp,\vl@tempdimc){Gewicht}%
\put(468bp,112bp){{\large kg}}%
\vl@tempdimc=94bp %
\put(\vl@tempdima,\vl@tempdimc){Eingang bei Z.1533 am}%
\put(250bp,\vl@tempdimc){Verpackt durch}%
\put(412bp,\vl@tempdimc){Abgesandt am}%
\vl@tempdimc=72bp %
\put(\vl@tempdima,\vl@tempdimc){Frachtbriefnummer:}%
\put(295bp,\vl@tempdimc){Unterschrift}%
% ...
% Variable Beschriftung
%
\vl@tempdima=62bp %
\begingroup
\ttfamily\normalsize
\vl@tempdimc=744bp % -14bp
\put(\vl@tempdima,\vl@tempdimc){\vl@WorkingGroup,~\vl@Referee}%
\put(395bp,757bp){%
\parbox[t]{146bp}{%
\vl@Purchaser\\[-1ex]
\texttt{vacuum.cal@ptb.de}%
}
}%
\put(232bp,\vl@tempdimc){\vl@TelefonExtension}%
\put(310bp,\vl@tempdimc){\vl@Date}%
\vl@tempdimc=547bp % -14bp
\put(\vl@tempdima,\vl@tempdimc){\vl@CostUnit}%
\put(218bp,\vl@tempdimc){\vl@FinanceUnit}%
\put(401bp,\vl@tempdimc){\vl@Account}%
\vl@tempdimc=518bp %
\put(\vl@tempdima,\vl@tempdimc){\vl@SAPNo}%
\put(218bp,\vl@tempdimc){\vl@Value}%
\put(401bp,\vl@tempdimc){\vl@PSP}% PSP-Element
\put(\vl@tempdima,485bp){%
\parbox[t]{0.975\textwidth}{%
\setstretch{1}%
\vl@ShippingName \\
\vl@ShippingContact \\
\vl@ShippingStreet \\
\vl@ShippingZipcode~\vl@ShippingTown \\
\vl@ShippingLand
}%
}%
\put(300bp,425bp){%
\parbox[t]{.56\textwidth}{%
\setstretch{1}%
\@tempswafalse
\ifx\vl@ShippingEmail\@empty\else
\@tempswatrue
\fi
\ifx\vl@ShippingPhone\@empty\else
\@tempswatrue
\fi
\if@tempswa
\begin{tabular}{@{}l@{~}l@{}}%
\multicolumn{1}{@{}l@{}}{\rlap{%
\negthinspace\negthinspace\parbox{244bp}{\dotfill}}} \\
\ifx\vl@ShippingEmail\@empty\else
E-Mail: & \expandafter\url\expandafter{\vl@ShippingEmail} \\
\fi
\ifx\vl@ShippingPhone\@empty\else
Telefon: & \vl@ShippingPhone
\fi
\end{tabular}\\[.5em]
\fi
}%
}
\put(\vl@tempdima,375bp){\lfitbox[t]{477bp}{162bp}{\setstretch{1.2}%
\begin{sloppypar}\vl@Content\end{sloppypar}}}%
\endgroup
}
\AtPageLowerLeft{%
\put(57bp,58bp){%
\linethickness{1.4bp}%
\framebox(\textwidth,99bp){}%
\put(0,83bp){\line(-1,0){\textwidth}}%
}
}
}%
\endinput
versandauftrag/vl-versandauftrag-2020.clo 0 → 100644
View file @ b1187749
\ProvidesFile{vl-versandauftrag-2020.clo}
[2021/04/08 Versandauftrag (2020er Definitionen)]
\AddToShipoutPictureBG{%
\frenchspacing
\AtPageLowerLeft{%
\linethickness{0.6bp}%
\vl@tempdima=57bp %
\vl@tempdimb=58bp %
\put(\vl@tempdima,\vl@tempdimb){\framebox(\textwidth,\textheight){}}%
% dünne waagerechte Linien
\put(\vl@tempdima,767bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,739bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,630bp){\line(1,0){\textwidth}}% "Zahlungsart"
\put(\vl@tempdima,570bp){\line(1,0){\textwidth}}% nach "Kostenbescheid"
\put(\vl@tempdima,542bp){\line(1,0){340bp}}% nach "Kostenstelle"
%%%%
\put(\vl@tempdima,514bp){\line(1,0){\textwidth}}% nach "Wertangabe"
\put(\vl@tempdima,406bp){\line(1,0){\textwidth}}% vor "Inhalt"
\put(\vl@tempdima,205bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima,104bp){\line(1,0){\textwidth}}%
\put(\vl@tempdima, 81bp){\line(1,0){\textwidth}}%
% dünne senkrechte Linien
\put(227bp,630bp){\line(0,1){137bp}}% hinter "Sachbearbeiter"
\put(305bp,739bp){\line(0,1){60bp}}% hinter "Telefon"
\put(389bp,739bp){\line(0,1){28bp}}% hinter "Datum"
\put(245bp,82bp){\line(0,1){22bp}}% vor "Verpackt durch"
\put(290bp,\vl@tempdimb){\line(0,1){23bp}}% vor "Unterschrift"
\put(213bp,514bp){\line(0,1){56bp}}% vor "Finanzstelle"
\put(397bp,514bp){\line(0,1){56bp}}% vor "Kosten der Kalibrierung"
\put(407bp,81bp){\line(0,1){60bp}}% vor "Gewicht"
% Feste Beschriftung
\put(57bp,780bp){\parbox[c][32bp]{247bp}{\centering\bfseries\vl@mainTitle}}%
\put(321bp,786bp){\large Physikalisch-Technische Bundesanstalt}%
\put(343bp,772bp){\large Abbestraße 2--12, 10587 Berlin}%
\footnotesize
\vl@tempdimc=758bp %
\put( 62bp,\vl@tempdimc){Org.-Einheit, Sachbearbeiter}%
\put(232bp,\vl@tempdimc){Telefon: 030/3481}%
\put(310bp,\vl@tempdimc){Datum}%
\put(395bp,\vl@tempdimc){Versandauftrag wurde ausgefüllt von}%
\vl@tempdimc=728bp %
\normalsize
\put(62bp,\vl@tempdimc){\textbf{Versand per:}}%
\iffalse
\put(62bp,709bp){\checkBox{\textbf{Transportunternehmen}}}%
\put(77bp,689bp){\checkBox{Logiline}}%
\put(77bp,675bp){\checkBox{TNT}}%
\put(77bp,661bp){\checkBox{UPS}}%
\put(77bp,647bp){\checkBox{FedEx}}%
\put(77bp,633bp){\checkBox{Post/DHL Express
(unfreier}}%
\put(94bp,622bp){Versand nur ins Inland)}%
\put(77bp,606bp){\checkBox[\vl@SelCompany{5}]{}}%
\fi
\ifShippingCompany
\put(62bp,709bp){\checkBox[1]{\textbf{Transportunternehmen}}}%
\put(77bp,689bp){\checkBox[1]{\vl@ModeOfTransport}}%
\put(62bp,667bp){\textbf{Kundennr.:}~\texttt{\vl@ShippingCustomerID}}%
\else
\put(62bp,709bp){%
\checkBox[1]{\parbox[t]{141bp}{\setstretch{1}%
\textbf{\vl@ModeOfTransport}}}%
}%
\fi
\ifInsurance
\put(62bp,636bp){\checkBox[1]{Kunde wünscht Versicherung}}%
\fi
\put(233bp,\vl@tempdimc){\textbf{Zustellungsart:}}%
\put(233bp,709bp){\checkBox[\ifnum\c@vl@ShippingType=0 1\else0\fi]%
{Standard \scriptsize(2--3 Tage)}}%
\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]%
{andere:}}%
\vl@tempdima=62bp %
\vl@tempdimc=561bp %
\small
\put(\vl@tempdima,620bp){Angaben zur Zahlungsart:}%
\put(62bp,600bp){\checkBox[\ifnum\c@vl@ShippingPayment=0 1\else0\fi]%
{\textbf{frei}~(Kosten trägt die PTB)}}%
\put(62bp,590bp){\footnotesize Begründung}%
\put(220bp,600bp){\checkBox[\ifnum\c@vl@ShippingPayment=1 1\else0\fi]%
{\textbf{unfrei}~(Empfänger zahlt)}}%
\put(370bp,600bp){\checkBox[\ifnum\c@vl@ShippingPayment=2 1\else0\fi]%
{Kosten werden vom Laboratorium}}%
\put(386bp,590bp){per \textbf{Kostenbescheid} eingezogen}%
\footnotesize
\put(\vl@tempdima,\vl@tempdimc){Kostenstelle}%
\put(218bp,\vl@tempdimc){Finanzstelle}%
\put(401bp,\vl@tempdimc){Kosten der Kalibrierung}%
\vl@tempdimc=533bp %
\put(\vl@tempdima,\vl@tempdimc){ggf. SAP-Auftragsnummer}%
\put(218bp,\vl@tempdimc){Wertangabe}%
%%%\put(401bp,\vl@tempdimc){PSP-Element}%
\normalsize
\vl@tempdimc=502bp %
\put(\vl@tempdima,\vl@tempdimc){Empfänger (Name, Straße, PLZ, Ort, Land)
Zustellungen an ein Postfach sind nicht möglich!}%
\put(\vl@tempdima,393bp){Inhalt:}%
\put(\vl@tempdima,194bp){Sendung mit folgendem \textbf{Warnhinweis} versehen:}
\put(\vl@tempdima,173bp){\checkBox[\ifInflammable 1\else 0\fi]{Feuergefährlich!}}%
\put(167bp,173bp){\checkBox[\ifGlas 1\else 0\fi]{Vorsicht Glas!}}%
\put(258bp,173bp){\checkBox[\ifSensitive 1\else 0\fi]{Vorsicht! Empfindliche}}%
\put(274bp,163bp){Elektrogeräte}%
\put(386bp,173bp){\checkBox[\ifTop 1\else 0\fi]{Oben}}%
\put(402bp,163bp){Nicht stürzen!}%
\put(478bp,173bp){\checkBox[\ifDangerous 1\else 0\fi]{Gefahrgut}}%
\put(193bp,145bp){{\large\textbf{Nur von der Versandstelle auszufüllen}}}
\footnotesize
\vl@tempdimc=132bp %
\put(\vl@tempdima,\vl@tempdimc){Verpackung}%
\begingroup
\vl@tempdimc=111bp %
\put(\vl@tempdima,\vl@tempdimc){\line(1,0){26bp}}%
\large
\put(105bp,\vl@tempdimc){\checkBox{Karton}}%
\put(168bp,\vl@tempdimc){\checkBox{Kiste}}%
\put(220bp,\vl@tempdimc){\checkBox{Palette}}%
\put(281bp,\vl@tempdimc){\checkBox{Versandtasche}}%
\endgroup
\put(412bp,\vl@tempdimc){Gewicht}%
\put(468bp,112bp){{\large kg}}%
\vl@tempdimc=94bp %
\put(\vl@tempdima,\vl@tempdimc){Eingang bei Z.1533 am}%
\put(250bp,\vl@tempdimc){Verpackt durch}%
\put(412bp,\vl@tempdimc){Abgesandt am}%
\vl@tempdimc=72bp %
\put(\vl@tempdima,\vl@tempdimc){Frachtbriefnummer:}%
\put(295bp,\vl@tempdimc){Unterschrift}%
% ...
% Variable Beschriftung
%
\vl@tempdima=62bp %
\begingroup
\ttfamily\normalsize
\vl@tempdimc=744bp % -14bp
\put(\vl@tempdima,\vl@tempdimc){\vl@WorkingGroup,~\vl@Purchaser}%
\put(395bp,757bp){
\parbox[t]{146bp}{%
\ \\[-1ex]
\texttt{\vl@PurchaserEmail}%
}
}%
\put(232bp,\vl@tempdimc){\vl@TelefonExtension}%
\put(310bp,\vl@tempdimc){\vl@Date}%
\vl@tempdimc=547bp % -14bp
\put(\vl@tempdima,\vl@tempdimc){\vl@CostUnit}%
\put(218bp,\vl@tempdimc){\vl@FinanceUnit}%
\put(401bp,\vl@tempdimc){\vl@CalibrationCosts}%
\vl@tempdimc=518bp %
\put(\vl@tempdima,\vl@tempdimc){\vl@SAPNo}%
\put(218bp,\vl@tempdimc){\vl@IndicationOfValue}%
%%%\put(401bp,\vl@tempdimc){\vl@CalibrationCosts}%
\put(\vl@tempdima,485bp){%
\parbox[t]{0.975\textwidth}{%
\setstretch{1}%
\vl@ShippingName \\
\vl@ShippingContact \\
\vl@ShippingStreet \\
\vl@ShippingZipcode~\vl@ShippingTown \\
\vl@ShippingLand
}%
}%
\put(300bp,425bp){%
\parbox[t]{.56\textwidth}{%
\setstretch{1}%
\@tempswafalse
\ifx\vl@ShippingEmail\@empty\else
\@tempswatrue
\fi
\ifx\vl@ShippingPhone\@empty\else
\@tempswatrue
\fi
\if@tempswa
\begin{tabular}{@{}l@{~}l@{}}%
\multicolumn{1}{@{}l@{}}{\rlap{%
\negthinspace\negthinspace\parbox{244bp}{\hrulefill}}} \\
\ifx\vl@ShippingEmail\@empty\else
E-Mail: & \expandafter\url\expandafter{\vl@ShippingEmail} \\
\fi
\ifx\vl@ShippingPhone\@empty\else
Telefon: & \vl@ShippingPhone
\fi
\end{tabular}\\[.5em]
\fi
}%
}
\put(\vl@tempdima,375bp){\lfitbox[t]{477bp}{162bp}{\setstretch{1.2}%
\begin{sloppypar}\vl@Content\end{sloppypar}}}%
\endgroup
}
\AtPageLowerLeft{%
\put(57bp,58bp){%
\linethickness{1.4bp}%
\framebox(\textwidth,99bp){}%
\put(0,83bp){\line(-1,0){\textwidth}}%
}
}
}%
\endinput
versandauftrag/vl-versandauftrag-new-engines.clo 0 → 100644
View file @ b1187749
\ProvidesFile{vl-versandauftrag-new-engines}[2021/06/14 Fontdef. luaLaTeX/XeLaTeX]
\RequirePackage{fontspec}
%\setsansfont[Ligatures=TeX]{texgyreheros}
\setsansfont{texgyreheros}[
Ligatures=TeX,
Extension=.otf,
UprightFont=*-regular,
BoldFont=*-bold,
ItalicFont=*-italic,
BoldItalicFont=*-bolditalic]
\setmonofont{AnonymousPro-Regular}[%
Extension = .ttf,
BoldFont = AnonymousPro-Bold,
ItalicFont = AnonymousPro-Italic,
BoldItalicFont = AnonymousPro-BoldItalic,
Scale = 1.034
]
%\setmonofont[Scale=1.05]{Latin Modern Mono}
\RequirePackage{newunicodechar}
\newunicodechar{^^^^202f}{\,}% 'NARROW NO-BREAK SPACE' (\u202F, 8239)
\newunicodechar{^^^^2009}{\,\hspace{0pt}}% 'THIN SPACE'
\newunicodechar{^^^^00ad}{\-}% 'SOFT HYPHEN'
\endinput
\RequirePackage[utf8]{inputenc}
\RequirePackage[T1]{fontenc}
\RequirePackage{textcomp}
\RequirePackage{lmodern}
\RequirePackage{tgheros}
\RequirePackage[ttdefault=true,scale=1.034]{AnonymousPro}
versandauftrag/vl-versandauftrag-old-engines.clo 0 → 100644
View file @ b1187749
\ProvidesFile{vl-versandauftrag-old-engines}[2021/06/14 Fontdef. pdfLaTeX]
\RequirePackage[utf8]{inputenc}
\RequirePackage[T1]{fontenc}
\RequirePackage{textcomp}
\RequirePackage{lmodern}
\RequirePackage{tgheros}
\RequirePackage[ttdefault=true,scale=1.034]{AnonymousPro}
%\RequirePackage[scaled=1.05]{zlmtt}% ist lmodern!
\DeclareUnicodeCharacter{202F}{\,}% 'NARROW NO-BREAK SPACE'
\DeclareUnicodeCharacter{2009}{\,\hspace{0pt}}% 'THIN SPACE'
\DeclareUnicodeCharacter{00AD}{\-}% 'SOFT HYPHEN'
\endinput
versandauftrag/vl-versandauftrag.cls 0 → 100644
View file @ b1187749
\setcounter{errorcontextlines}{100}
\listfiles
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
\ProvidesClass{vl-versandauftrag}
[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}
\LoadClass[%
,fontsize=10pt
]{scrartcl}
\RequirePackage{iftex,setspace,url}
\setstretch{1.5}
\iftutex% XeLaTeX oder luaLaTeX
\input{vl-versandauftrag-new-engines.clo}
\else
\input{vl-versandauftrag-old-engines.clo}
\fi
\setlength\textwidth{488bp}
\setlength\textheight{741bp}
\RequirePackage{eso-pic,pict2e,picture,xcolor,relsize,trimspaces}
\RequirePackage[\vl@lang]{babel}
\RequirePackage{iflang}
\IfLanguageName{ngerman}{%
\RequirePackage[babel=once,german=guillemets]{csquotes}
\AtEndOfClass{\shorthandon{"}}
\defineshorthand{"`}{\openautoquote}
\defineshorthand{"'}{\closeautoquote}
\MakeAutoQuote{»}{«}
}{%
\RequirePackage[babel=once]{csquotes}
}
\definecolor{thisGray}{gray}{0.881}
\let\vl@tempdima=\@ovxx
\let\vl@tempdimb=\@ovyy
\let\vl@tempdimc=\@ovdx
\let\vl@tempdimd=\@clnwd
\let\vl@tempdime=\@clnht
\let\vl@tempdimf=\@dashdim
\newcommand\vl@tempa{}
\newcommand\vl@tempb{}
\newdimen\vl@fontdim
\newdimen\vl@upperfontdim
\newdimen\vl@lowerfontdim
\newif\if@vl@moreiterations
\vl@fontdim=12pt %
\newcommand\vl@buildbox[2]{%
\setbox0\vbox{\hbox{\parbox{#1}{%
\fontsize{\vl@fontdim}{\vl@fontdim}\selectfont #2}}}%
\dimen@\ht0 %
\advance\dimen@\dp0 %
}
% Modifiziert nach:
% http://tex.stackexchange.com/questions/26002/fit-text-into-given-box-by-adjusting-the-fontsize
% siehe auch: http://www.tug.org/TUGboat/tb29-1/tb91pearls.pdf
%
% Verhält sich wie \parbox, wenn Text in vorgegebene Höhe passt,
% sonst Reduktion der Schriftgröße.
\newcommand\lfitbox[4][c]{% [pos] <width> <height> <stuff>
\vl@buildbox{#2}{#4}%
\ifdim\dimen@<#3\relax
\parbox[#1][#3]{#2}{#4}%
\else
% Compute upper and lower bounds
\loop
\vl@fontdim.5\vl@fontdim % Reduce font size by half
\vl@buildbox{#2}{#4}%
\ifdim\dimen@>#3\relax \repeat
\vl@lowerfontdim\vl@fontdim
\vl@upperfontdim=2\vl@fontdim
\vl@fontdim=1.5\vl@fontdim
% Now try to find the optimum size
\loop
%\message{Bounds: \the\vl@lowerfontdim\space
% \the\vl@fontdim\space \the\vl@upperfontdim^^J}
\vl@buildbox{#2}{#4}%
\ifdim\dimen@>#3\relax %
\@vl@moreiterationstrue
\vl@upperfontdim\vl@fontdim
\advance\vl@fontdim\vl@lowerfontdim
\vl@fontdim=.5\vl@fontdim
\else
\advance\dimen@-#3\relax %
\ifdim\dimen@<10pt %
\vl@lowerfontdim\vl@fontdim
\advance\vl@fontdim\vl@upperfontdim
\vl@fontdim=.5\vl@fontdim
\dimen@\vl@upperfontdim
\advance\dimen@-\vl@lowerfontdim
\ifdim\dimen@<.2pt %
\@vl@moreiterationsfalse
\else
\@vl@moreiterationstrue
\fi
\else
\@vl@moreiterationsfalse
\fi
\fi
\if@vl@moreiterations \repeat
\parbox[#1][#3]{#2}{\fontsize{\vl@fontdim}{\vl@fontdim}\selectfont#4}%
\fi
}
\newcommand*\vl@setboolean[3][false]{% #1=default (opt.), #2=if, #3=value
\edef\vl@tempa{\trim@spaces{#3}}%
\expandafter\csname #2\ifx\@empty\vl@tempa #1\else\vl@tempa\fi\endcsname
}
\newcommand*\vl@setcounter[3][0]{% #1=default (opt.), #2=counter, #3=value
\edef\vl@tempa{\trim@spaces{#3}}%
\setcounter{#2}{\ifx\@empty\vl@tempa #1\else\vl@tempa\fi}%
}
\newcommand*\vl@setcommand[3][]{% #1=default (opt.), #2=macro, #3=value
\edef\vl@tempa{\trim@spaces@noexp{#3}}%
\expandafter\protected@xdef\csname #2\endcsname{%
\ifx\@empty\vl@tempa #1\else\vl@tempa\fi}%
}
\newcommand*\Inland[1]{}% nur wegen Kompatibilität zur 2017er Version
\newcommand*\EU[1]{}% nur wegen Kompatibilität zur 2017er Version
\newcommand*\ShippingComment[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{}
\newcommand*\ShippingName[1]{\vl@setcommand{vl@ShippingName}{#1}}
\newcommand*\vl@ShippingContact{}
\newcommand*\ShippingContact[1]{\vl@setcommand{vl@ShippingContact}{#1}}
\newcommand*\vl@ShippingStreet{}
\newcommand*\ShippingStreet[1]{\vl@setcommand{vl@ShippingStreet}{#1}}
\newcommand*\vl@ShippingTown{}
\newcommand*\ShippingTown[1]{\vl@setcommand{vl@ShippingTown}{#1}}
\newcommand*\vl@ShippingZipcode{}
\newcommand*\ShippingZipcode[1]{\vl@setcommand{vl@ShippingZipcode}{#1}}
\newcommand*\vl@ShippingLand{}
\newcommand*\ShippingLand[1]{\vl@setcommand{vl@ShippingLand}{#1}}
\newcommand*\vl@ShippingEmail{}
\newcommand*\ShippingEmail[1]{\vl@setcommand{vl@ShippingEmail}{#1}}
\newcommand*\vl@ShippingPhone{}
\newcommand*\ShippingPhone[1]{\vl@setcommand{vl@ShippingPhone}{#1}}
%%\newcommand*\vl@ShippingComment{}
%%\newcommand*\ShippingComment[1]{\vl@setcommand{vl@ShippingComment}{#1}}
\newcommand*\vl@CostUnit{}
\newcommand*\CostUnit[1]{\vl@setcommand{vl@CostUnit}{#1}}
\newcommand*\vl@FinanceUnit{}
\newcommand*\FinanceUnit[1]{\vl@setcommand{vl@FinanceUnit}{#1}}
\newcommand*\vl@SAPNo{}
\newcommand*\SAPNo[1]{\vl@setcommand{vl@SAPNo}{#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{}
\newcommand*\TelefonExtension[1]{\vl@setcommand{vl@TelefonExtension}{#1}}
\newcommand*\vl@Date{}
\newcommand*\Date[1]{\vl@setcommand{vl@Date}{#1}}
\newcommand*\vl@Content{}
\newcommand*\Content[1]{\vl@setcommand{vl@Content}{#1}}
\newcommand*\vl@Purchaser{}
\newcommand*\Purchaser[1]{\vl@setcommand{vl@Purchaser}{#1}}
\newcommand*\vl@Referee{}
\newcommand*\Referee[1]{\vl@setcommand{vl@Referee}{#1}}
\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@ShippingCompany} \setcounter{vl@ShippingCompany}{4}
\newcommand*\ShippingCompany[1]{\vl@setcounter[4]{vl@ShippingCompany}{#1}}
\newcounter{vl@ShippingPayment} \setcounter{vl@ShippingPayment}{2}
\newcommand*\ShippingPayment[1]{\vl@setcounter{vl@ShippingPayment}{#1}}
\newif\ifInsurance \Insurancefalse
\newcommand*\Insurance[1]{\vl@setboolean{Insurance}{#1}}
\newif\ifInflammable \Inflammablefalse
\newcommand*\LabelInflammable[1]{\vl@setboolean{Inflammable}{#1}}
\newif\ifGlas \Glasfalse
\newcommand*\LabelGlas[1]{\vl@setboolean{Glas}{#1}}
\newif\ifSensitive \Sensitivefalse
\newcommand*\LabelSensitive[1]{\vl@setboolean{Sensitive}{#1}}
\newif\ifTop \Topfalse
\newcommand*\LabelTop[1]{\vl@setboolean{Top}{#1}}
\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}
\mbox{}
\iffalse % Kopie unterdrücken
\newpage
\def\vl@mainTitle{\vl@mainTitle@ii}
\mbox{}
\fi
}
\renewcommand*\familydefault{\sfdefault}
\def\huge{\@setfontsize\huge{20.08}{24.2}}
%%\def\large{\@setfontsize\large{11.62}{13.56}}
%%\def\tiny{\@setfontsize\tiny\@viipt\@viiipt}
\newcommand*\checkBox[2][0]{%
\begingroup
\fboxrule=0.7bp\fboxsep=0pt % 0.7bp (10pt)
\raisebox{.3\height}{\fbox{\parbox[c][11bp]{11bp}{%
\mbox{}\ifcase#1\or\centering\relscale{1.35}$\times$\fi%
}}}%
\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
}
\input{vl-versandauftrag-\vl@version.clo}
\emergencystretch=3em %
\pagestyle{empty}
\endinput