From 4fa2883715ff46c6450dc30123f14ab0b79f2010 Mon Sep 17 00:00:00 2001
From: Rolf Niepraschk <Rolf.Niepraschk@ptb.de>
Date: Tue, 15 Sep 2020 11:37:17 +0200
Subject: [PATCH] ...
---
versandauftrag/vl-versandauftrag-2020.clo | 199 ++++++++++++++++++++++
1 file changed, 199 insertions(+)
create mode 100644 versandauftrag/vl-versandauftrag-2020.clo
diff --git a/versandauftrag/vl-versandauftrag-2020.clo b/versandauftrag/vl-versandauftrag-2020.clo
new file mode 100644
index 0000000..f169a2a
--- /dev/null
+++ b/versandauftrag/vl-versandauftrag-2020.clo
@@ -0,0 +1,199 @@
+\ProvidesFile{vl-versandauftrag-2020.clo}
+ [2020/09/15 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){\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,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 "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 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,675bp){\textbf{Kundennr.:}~\texttt{\vl@WaybillNumber}}%
+ \else
+ \put(62bp,709bp){%
+ \checkBox[1]{\parbox[t]{141bp}{\setstretch{1}%
+ \textbf{\vl@ModeOfTransport}}}%
+ }%
+ \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:}}%
+ \put(233bp,636bp){\checkBox[\ifInsurance 1\else 0\fi]%
+ {Kunde wünscht Versicherung}}%
+ \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(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){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
--
GitLab