vl-versandauftrag-2018.clo

\ProvidesFile{vl-versandauftrag-2018.clo}[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:  & \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