Allerlei

antragsbestaetigung/antragsbestaetigung-test.tex

 
-\documentclass[en]{antragsbestaetigung}
-
-\usepackage{blindtext}
+\documentclass[de]{ptb-confirm}
 
 \yourref{4711-0815}
 \yourmail{2015-05-08}
 
-\handledby{Peter Silie}
+\handledby{Dr. Karl Jousten}
 \myref{7.5-1V-15-05}
 \mymail{2015-05-14}
 \myphone{7316}
 \myfax{7777}
-\myemail{Peter.Silie@ptb.de}
+\myemail{Karl.Jousten@ptb.de}
 
-\subject{Test der \LaTeX-Dokumentenklasse "`ptbletter"'}
+\DateOfApplication{2015-04-23}
+\KindOfEnquiry{E-Mail}
+\DateOfEnquiry{}% wenn leer, dann identisch zu \DateOfApplication
 
-\date{2015-05-21}
+\date{2015-05-26}
 
 \begin{document}
-
-\begin{letter}{%
-Ellen Bogen \\
-Dorfstraße 1\\
-12345 Musterhausen
-}
-
-\opening{Sehr geehrte Frau Bogen,}
-
-\blindtext[12]
-
-\encl{BlaBla}
-
-\end{letter}
-
 \end{document}

antragsbestaetigung/antragsbestaetigung.cls

-% Rolf Niepraschk, Rolf.Niepraschk@ptb.de
-
-\setcounter{errorcontextlines}{100}  \listfiles
-
-\NeedsTeXFormat{LaTeX2e}[1999/12/01]
-\ProvidesClass{ptbletter}
-    [2015/05/26 v0.1a PTB-Brief-Klasse (RN)]
-
-%\DeclareOption{de}{\def\ptb@lang{main=ngerman}}
-
-\DeclareOption*{\PassOptionsToClass{\CurrentOption}{ptbletter}}
-
-\ProcessOptions\relax
-
-\LoadClass[%
-,BLN
-]{ptbletter}
-
-
-\endinput

antragsbestaetigung/ptb-confirm-de.lco

+\ProvidesFile{ptb-confirm-de.lco}[2015/05/26 v0.1a german (ptb-confirm.cls)]
+
+\makeatletter
+
+\opening{}
+
+Aufgrund Ihres Antrags vom \vl@DateOfApplication{}, hier eingegangen per
+\vl@KindOfEnquiry{} am \vl@DateOfEnquiry{}, führt die PTB folgende
+Kalibrierung durch:
+
+\medskip\noindent
+\begin{tabular}{@{}ll@{}}
+Gerät: & ??? \\
+Kalibrierbedingungen: & ??? \\
+Vorgesehenes Datum: & ??? \\
+Gebühr:  & ???\,€ \\
+\end{tabular}
+
+\medskip\noindent Ihr Antrag wird mit einem separaten Kostenbescheid
+abgerechnet. Die Höhe der festen Gebühr (Durchschnittsgebühr) basiert auf der
+Kostenverordnung für Nutzleistungen in der derzeit gültigen Fassung.
+Überschreitet der Arbeitsaufwand für Ihr Gerät den für die Durchschnittsgebühr
+ermittelten Arbeitsaufwand um mehr als 25\,\%, erfolgt eine Kostenermittlung
+nach tatsächlichem Aufwand.
+
+Die Verfahrensweise der PTB richtet sich nach verwaltungsrechtlichen
+Bestimmungen. Allgemeine Geschäftsbedingungen eines Antragstellers können nicht
+akzeptiert werden.
+
+Bitte haben Sie dafür Verständnis, dass wir zu unserer Sicherheit und zur
+Betriebsbereitschaft unserer Primärnormale keine Kalibrierung beginnen können,
+bevor nicht die beigelegte Erklärung unterschrieben an uns zurückgesandt ist.
+
+\closing{\MFg}
+
+\noindent Im Auftrag \par\medskip\noindent\usekomavar{handledby}
+
+\makeatother
+
+\endinput

antragsbestaetigung/ptb-confirm-en.lco

+\ProvidesFile{ptb-confirm-de.lco}[2015/05/26 v0.1a english (ptb-confirm.cls)]
+
+\endinput

antragsbestaetigung/ptb-confirm.cls

+% Rolf Niepraschk, Rolf.Niepraschk@ptb.de
+
+\setcounter{errorcontextlines}{100}  \listfiles
+
+\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+\ProvidesClass{ptb-confirm}
+    [2015/05/26 v0.1a PTB-Brief-Klasse (RN)]
+
+\DeclareOption*{\PassOptionsToClass{\CurrentOption}{ptbletter}}
+
+\ProcessOptions\relax
+
+\LoadClass[%
+,BLN
+]{ptbletter}
+
+\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}%
+}
+
+\RequirePackage{trimspaces}
+
+\newcommand*\DateOfApplication[1]{\vl@setcommand{vl@DateOfApplication}{#1}}
+\newcommand*\KindOfEnquiry[1]{\vl@setcommand{vl@KindOfEnquiry}{#1}}
+\newcommand*\DateOfEnquiry[1]{\vl@setcommand[\vl@DateOfApplication]{vl@DateOfEnquiry}{#1}}
+
+\newcommand*\vl@DateOfApplication{}
+\newcommand*\vl@KindOfEnquiry{}
+\newcommand*\vl@DateOfEnquiry{}
+
+\AtBeginDocument{%
+  \begin{letter}{%
+  Ellen Bogen \\
+  Dorfstraße 1\\
+  12345 Musterhausen
+  }
+    \iflanguage{ngerman}{%
+      \subject{Antragsbestätigung}%
+      \input{ptb-confirm-de.lco}%
+    }{%
+      \subject{Confirmation of Order}%
+      \input{ptb-confirm-en.lco}%
+    }%
+  \end{letter}
+}%
+
+\endinput

ptbletter/ptbletter.cls

@@ -14,7 +14,9 @@
 \let\ptb@tempdimf=\@dashdim
 
 \newif\ifptb@BLN \ptb@BLNtrue
-\newif\ifptb@serif \ptb@seriffalse
+\newif\ifptb@serif \ptb@seriftrue
+
+\newcommand*\ptb@lang{main=ngerman}
 
 \DeclareOption{german}{\def\ptb@lang{main=ngerman}}
 \DeclareOption{ngerman}{\def\ptb@lang{main=ngerman}}
@@ -120,7 +122,7 @@
 \@setplength{lochpos}{-354bp}% "-" --> vom linken Blattand aus
 \@setplength{locvpos}{146bp}%      --> vom oberen Blattand aus
 \@setplength{locwidth}{212bp}
-\@setplength{locheight}{135bp}
+\@setplength{locheight}{139bp}
 
 %\@setplength{refaftervskip}{75bp}
 
@@ -298,8 +300,13 @@
   \fi
 }
 
-\newcommand*\MFG{Mit freundlichen Gr\"u\ss en}
-
-\newcommand*\MHG{Mit herzlichen Gr\"u\ss en}
-
+\iflanguage{ngerman}{%
+  \newcommand*\MFG{Mit freundlichen Gr\"u\ss en}
+  \newcommand*\MFg{Mit freundlichem Gru\ss}
+  \newcommand*\MHG{Mit herzlichen Gr\"u\ss en}
+}{%
+  \newcommand*\MFG{Yours sincerely}
+  \newcommand*\MFg{Sincerely}
+  \newcommand*\MHG{With kind regards}
+}
 \endinput