ratex.sty

   1 %% Damit Dokumente mit ratex.sty vollstŠndig gesetzt werden, sind in der
   2 %% Regel mindestens zwei LaTeX-LŠufe erforderlich.
   3 %%
   4 \NeedsTeXFormat{LaTeX2e}
   5 \ProvidesPackage{ratex}[2010/11/11 v0.3.0.0 RA Friedrich Vosberg]
   6 \RequirePackage{scrpage2}
   7 \RequirePackage{ifthen}
   8 \RequirePackage{twoopt}
   9 \RequirePackage{refcount}
  10 \RequirePackage{calc}
  11 \RequirePackage{xspace}
  12 \RequirePackage{enumerate}
  13 \RequirePackage[ngerman]{datenumber}
  14 \RequirePackage{pdfpages}
  15 %%--------------------------------------------------------------------GENERELLES
  16 \setlength{\parskip}{1.5ex}
  17 \setlength{\parindent}{0ex}
  18 %%------------------------------------------------------------------------PARTEI
  19 %% Die Anweisung Partei erwartet zwei optionale und drei obligatorische
  20 %% Argumente: [1] den gesetzlichen Vertreter der Partei, [2] den
  21 %% Prozessvertreter der Partei, {3} den Namen/die Firma der Partei, {4} die
  22 %% die Anschrift der Partei und {5} die Bezeichnung der Partei
  23 \newcounter{parteicntr}% Dieser ZŠhler kšnnte verwendet werden, um bei gleichartigen Parteibezeichnungen automatisch in der Kurzbezeichnung die ErgŠnzung Èzu 1Ç, Èzu 2Ç, Èzu 3Ç usw. einzufŸgen. Problematisch wird das allerdings, wenn die Parteibezeichnungen sich durch die mŠnnliche und weibliche Form unterscheiden (KlŠger zu 1, KlŠgerin zu 2).
  24 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
  25 \newcommandtwoopt{\partei}[5][%
  26         ][%
  27         ]{%
  28                 \def\parteivertreter{#1}%
  29                 \def\parteianwalt{#2}%
  30                 \def\parteiname{#3}%
  31                 \def\parteianschrift{#4}%
  32                 \def\parteibezeichnung{#5}%
  33         \stepcounter{parteicntr}%
  34         \parteibox%
  35 }
  36 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
  37 \def\parteibox{%
  38         \begingroup
  39                 \setlength{\parindent}{0em}
  40                 \vspace{\baselineskip}
  41                 \par%
  42                 \parbox[b]{.6666\textwidth}{%
  43                         \raggedright
  44                         \textbf{\parteiname}\par
  45                         \ifthenelse{\equal{\parteivertreter}{}}{%
  46                         }{%
  47                         \textit{gesetzl.\,vertr.\,d.\,d.~{\parteivertreter}}\par
  48                         }
  49                         \parteianschrift\par%
  50                         \ifthenelse{\equal{\parteianwalt}{}}{%
  51                         }{%
  52                                 \vspace{.5\baselineskip}
  53                                         \hspace{3em}\parbox[b]{.6666\textwidth-3em}{\emph{rechtsanwaltlich vertreten durch: \parteianwalt}}
  54                         }%
  55                 }%
  56                 \hfill%
  57                 \textbf{%
  58                         --\,\parteibezeichnung\,--%
  59                 }%
  60         \vspace{.5\baselineskip}
  61         \par
  62         \endgroup
  63 }
  64 %%------------------------------------------------------------------------RUBRUM
  65 \newcommand{\rubox}[1]{%
  66         \begingroup
  67                 \setlength{\parindent}{0em}
  68                 \vspace{\baselineskip}
  69                 \par%
  70                 \parbox{.75\textwidth}{%
  71                         \raggedright
  72                         \textbf{#1}\par
  73                 }%
  74         \endgroup
  75 }
  76 %% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  77 \newenvironment{rubrum}{%
  78         \def\normalparindent{\parindent}%
  79         \setlength{\parindent}{2.5em}
  80         \rule{5em}{0pt}\vspace{-2.5ex}\par
  81 }{%
  82 \par
  83         \vspace{1.5ex}
  84         \setlength{\parindent}{\normalparindent}
  85 }
  86 %%--------------------------------------------------------------------KURZRUBRUM
  87 \newcommand{\kurzrubrum}[4][]{%
  88         \def\jxkrsache{#1}%
  89         \def\jxkrprta{#2}%
  90         \def\jxkrprtb{#3}%
  91         \def\jxkraz{#4}%
  92         \jxkrmform%
  93 }%
  94 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
  95 \def\jxkrmform{%
  96         \par\vspace{.5\parskip}%
  97         \hspace*{1.2em}%
  98         \parbox{\textwidth-2.4em}{%
  99                 \bfseries%
 100                 \setlength{\parskip}{1.5ex}
 101                         \jxkrprta{}%
 102                         \ifthenelse{\equal{\jxkrprtb}{}}{%
 103                         }{%
 104                                 ~gg.~\jxkrprtb%
 105                         }%
 106                         \ifthenelse{\equal{\jxkrsache}{}}{%
 107                         }{%
 108                                 {\mdseries\\~wg.~\jxkrsache}%
 109                         }%
 110                         \par%
 111                         \ifthenelse{\equal{\jxkraz}{}}{}{%
 112                         --\,\jxkraz\,--%
 113                         }%
 114         }%
 115         \par%
 116         \vspace{.5\baselineskip}%
 117 }
 118 %%-------------------------------------------------------------------------TENOR
 119 \newcounter{jxtenor}% zŠhlt jxtenor-Umgebungen zur Identifizierung
 120 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 121 \newcounter{subjxtenor}[jxtenor]% zŠhlt \items in jxtenor-Umgebung
 122 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 123 \newcounter{refjxtenor}% HilfszŠhler, nur nštig da es in Version 2.x
 124   % von refcount noch kein \getrefnumber gibt und 3.0 habe ich
 125   % noch nicht auf CTAN gestellt.
 126 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 127 \newenvironment{tenor}{%
 128   \stepcounter{jxtenor}%
 129   \let\jx@org@item\item
 130   \def\item{%
 131     \stepcounter{subjxtenor}%
 132     \jx@org@item
 133   }%
 134   \@ifundefined{r@jxtenor@\thejxtenor}{%
 135     % Referenz ist undefiniert
 136     \enumerate
 137   }{%
 138     \setcounterref{refjxtenor}{jxtenor@\thejxtenor}%
 139     \ifnum\value{refjxtenor}>1 %
 140       \expandafter\enumerate
 141         \bfseries
 142     \else
 143       \expandafter\itemize
 144         \renewcommand{\labelitemi}{}
 145         \bfseries
 146     \fi
 147   }%
 148 }{
 149   \@ifundefined{r@jxtenor@\thejxtenor}{%
 150     \endenumerate
 151   }{%
 152     \ifnum\value{refjxtenor}>1 %
 153       \expandafter\endenumerate
 154     \else
 155       \expandafter\enditemize
 156     \fi
 157   }%
 158   % Schreibe Label "jxtenor@<Umgebungs-ID>" mit
 159   % Zahl der \item-EintrŠge als Referenzwert.
 160   % Ich hatte vorher absichtlich kein \refstepcounter
 161   % genommen, um das normale \label/\ref innerhalb
 162   % der Umgebung nicht weiter zu stšren.
 163   \def\@currentlabel{\thesubjxtenor}%
 164   \label{jxtenor@\thejxtenor}%
 165 }
 166 %%--------------------------------------------------------------------BEGR†NDUNG
 167 \newenvironment{gruende}{%
 168 %       \setlength{\emergencystretch}{.7em}
 169         \sloppy
 170         \newlength\normaltextwidth{}
 171         \setlength{\normaltextwidth}{\textwidth}
 172         \ifthenelse{\equal{\documentclass}{scrlttr2}}{%
 173                 \cohead{\raisebox{-5ex}{\rule{\normaltextwidth}{.4pt}}}
 174         }{%
 175         }
 176         \setlength{\linewidth}{\normaltextwidth}
 177         \begin{addmargin}[.2\normaltextwidth]{0em}
 178         \setlength{\baselineskip}{3ex}
 179         \setlength{\parindent}{0em}
 180         \par
 181                 {\LARGE{\textbf{\rule{0pt}{4ex}Begründung:}}}
 182         \par
 183         \nopagebreak
 184 }{%
 185         \end{addmargin}
 186         \setlength{\textwidth}{\normaltextwidth}
 187 %       \nopagebreak
 188 %       \enlargethispage{2\baselineskip}
 189 %       \nopagebreak%
 190 %       \begin{center}
 191 %       \vspace{8ex}
 192 %       Friedrich Vosberg\\ Rechtsanwalt
 193 %       \end{center}
 194 }
 195 %%------------------------------------------------------------------BEWEIS (alt)
 196 %%
 197 \newcounter{beweismittel}% ZŠhler, der die beigefŸgten Beweismittel hochzŠhlt
 198 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 199 \newcommand*{\beweis}[2][]{% Anweisung zum Eingeben des Beweismittels
 200         \def\jxbwmttl{#2}% Bezeichnung des Beweismittels
 201         \def\jxbwmark{#1}% Marker fŸr zu zŠhlende Beweismittel
 202         \jxbwform%
 203 }
 204 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 205 \def\jxbwform{% Formatierung des Beweismittels
 206         \vspace{.5ex}\par\hspace*{1em}\textbf{Beweis:\hspace{.5em}}%
 207         \parbox[t]{%
 208                 .98\linewidth% Das kann so nicht stimmen, hier mŸsste auch 1.0 gehen
 209                 -\widthof{\hspace*{1em}\textbf{Beweis:\hspace{.5em}}}%
 210                 -\widthof{\hspace*{1em}\textbf{--\,\jxbwmark\,\arabic{beweismittel}\,--}}%
 211                                                 }{%
 212                                                         \raggedright
 213                                                         \jxbwmttl
 214                                                 }%
 215         \ifthenelse{\equal{\jxbwmark}{}}{%
 216         }{%
 217                 \stepcounter{beweismittel}% ... wird der ZŠhler hochgesetzt, ...
 218                 \hfill\hspace{1em}\textbf{--\,\jxbwmark\ \arabic{beweismittel}\,--}
 219         }%
 220         \ignorespaces
 221         \vspace{.5ex}\par
 222 }
 223 %%------------------------------------------------------------------BEWEIS (neu)
 224 \newcounter{RTXevdc}
 225 \newcounter{RTXevdcencl}
 226 \newcommandtwoopt*{\rtxevdc}[3][][]{%
 227         \ifthenelse{\equal{#2}{}}{}{%
 228                 \stepcounter{JXattachcntr}%
 229                 \stepcounter{RTXevdc}%
 230         }%
 231         \par\vspace{1.5ex}%
 232         \hspace{1.5em}\textbf{Beweis:}%
 233         \hspace{1ex}\parbox[t]{.5\textwidth}{\linespread{1}\selectfont\RaggedRight#3}%
 234         \ifthenelse{\equal{#2}{}}{}{%
 235                 \marginpar{%
 236                         \setlength{\baselineskip}{1.5ex}{%
 237                                 \bfseries\RaggedRight%
 238                                 \hspace{0pt}--\,#1~\theRTXevdc\,--{}
 239                         }%
 240                 }%
 241                 \protected@edef\JXenclContent{\JXenclContent #1~\theRTXevdc{} (\JXenclAnlNr{}~\theJXattachcntr)\endgraf}%
 242                 \g@addto@macro\IncludeAppendixHook{%
 243                         \cleardoublepage%
 244                         \stepcounter{JXenclcntr}%
 245                         \stepcounter{RTXevdcencl}%
 246                         \includepdf[%
 247                                 pages={-},
 248                                 picturecommand*={%
 249                                         \put(.72\paperwidth,.955\paperheight){%
 250                                                 \fboxrule2mm\fboxsep2mm%
 251                                                 \fcolorbox{red}{white}{%
 252                                                         \large\bfseries\sffamily
 253                                                         -- Anlage~#1~\theRTXevdcencl~--
 254                                                 }%
 255                                         }%
 256                                 }%
 257                         ]%
 258                         {#2}%
 259                 }%
 260         }\vspace{2.5ex}%
 261 }%
 262 %%---------------------------------------------------------------BEWEIS (ganz neu)
 263 %% Das ganz neue Beweismakro rtxevdx {x fŸr extended} kann auf einzelne BlŠtter
 264 %% eines als PDF-Datei vorliegenden Dokuments zugreifen. Zu diesem Zweck wurde
 265 %% das bisher optionale Argument des BeweismittelfŸhrers obligatorisch gemacht,
 266 %% es kann aber leer bleiben. Wenn schon keine PDF-Datei angegeben ist, wird
 267 %% ohnehin keine Angabe des BeweisfŸhrers gesetzt. Die Syntax lautet jetzt:
 268 %%      \rtxevdx[Blattt][Datei]{Bezeichnung}{BeweisfŸhrer}
 269 %%
 270 \newcommandtwoopt*{\rtxevdx}[4][][]{%
 271         \ifthenelse{\equal{#2}{}}{}{%
 272                 \stepcounter{JXattachcntr}%
 273                 \stepcounter{RTXevdc}%
 274         }%
 275         \par\vspace{1.5ex}%
 276         \hspace{1.5em}\textbf{Beweis:}%
 277         \hspace{1ex}\parbox[t]{.5\textwidth}{\linespread{1}\selectfont\RaggedRight#3}%
 278         \ifthenelse{\equal{#2}{}}{}{%
 279                 \marginpar{%
 280                         \setlength{\baselineskip}{1.5ex}{%
 281                                 \bfseries\RaggedRight%
 282                                 \hspace{0pt}--\,#4~\theRTXevdc\,--{}
 283                         }%
 284                 }%
 285                 \protected@edef\JXenclContent{\JXenclContent #1~\theRTXevdc{} (\JXenclAnlNr{}~\theJXattachcntr)\endgraf}%
 286                 \g@addto@macro\IncludeAppendixHook{%
 287                         \cleardoublepage%
 288                         \stepcounter{JXenclcntr}%
 289                         \stepcounter{RTXevdcencl}%
 290                         \includepdf[%
 291                                 pages={#1},
 292                                 picturecommand*={%
 293                                         \put(.72\paperwidth,.955\paperheight){%
 294                                                 \fboxrule2mm\fboxsep2mm%
 295                                                 \fcolorbox{red}{white}{%
 296                                                         \large\bfseries\sffamily
 297                                                         -- Anlage~#4~\theRTXevdcencl~--
 298                                                 }%
 299                                         }%
 300                                 }%
 301                         ]%
 302                         {#2}%
 303                 }%
 304         }\vspace{2.5ex}%
 305 }%
 306 %%-----------------------------------------------------------------------VERTRAG
 307 %%
 308 %% Die Umgebung Vertrag erwartet zwei obligatorische Argumente: {1} den Ort des
 309 %% Vertragsabschlusses und {2} die Anzahl der Vertragsparteien fŸr die Anzahl
 310 %% der Unterschriftsfelder am Schluss des Vertrags
 311 %%
 312 %% Dem Vertrag werden die Parteien (PATREI) in einer Rubrum-Umgebung (RUBRUM)
 313 %% vorangestellt.
 314 %%
 315 %% In der Umgebung Vertrag kšnnen die Anweisungen aus NORMTEXT verwendet werden.
 316 %%
 317 \newsavebox{\vertragsort}
 318 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 319 \newsavebox{\unterschriften}
 320 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 321 \newcounter{unterschriftencounter}
 322 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 323 \newenvironment{vertrag}[2]{%
 324         \setlength{\parindent}{0em}%
 325         \setlength{\parskip}{1.5ex}
 326         \savebox{\vertragsort}{#1}
 327         \def\sigcount{#2}%
 328         \savebox{\unterschriften}{%
 329 %               \stepcounter{unterschriftencounter}%
 330                 \parbox{\textwidth}{%
 331                         \begin{center}
 332                         \whiledo{\arabic{unterschriftencounter}<\sigcount}{%
 333 %                               \parbox{.45\textwidth}{%
 334 %                                       \begin{center}
 335 %                                       \vspace{4ex}
 336 %                                       \vfill
 337 %                                       \rule{.4\textwidth}{.2pt}%
 338 %                                       \linebreak%
 339 %                                       \footnotesize{Rechtsanwalt Friedrich Vosberg}%
 340 %                                       \linebreak%
 341 %                                       \footnotesize{fŸr Ottmar Hermann, Insolvenzverwalter}%
 342 %                                       \end{center}\vspace{-12ex}
 343 %                               \stepcounter{unterschriftencounter}%
 344 %                               }%
 345 %                       \hfill%
 346                                 \parbox{.45\textwidth}{%
 347                                         \begin{center}
 348                                         \vspace{4ex}
 349 %                                       \vfill
 350                                         \rule{.4\textwidth}{.2pt}%
 351                                         \linebreak%
 352                                         \footnotesize{(Unterschrift)}%
 353                                         \linebreak%
 354                                         \footnotesize{(ggf. Stempel)}%
 355                                         \end{center}
 356 %                                       \vspace{-12ex}
 357                                 \stepcounter{unterschriftencounter}%
 358                                 }%
 359                         \hfill%
 360                         }%
 361                 \end{center}%\vspace{-6ex}
 362                 }%
 363         }%
 364 }{%
 365         \par
 366         \parbox{\textwidth}{%
 367                 \vspace{3ex}\par\usebox{\vertragsort}, den \dotfill
 368                 \par%
 369                 \begin{center}
 370                 \usebox{\unterschriften}
 371                 \end{center}
 372         }%
 373         \setcounter{unterschriftencounter}{0}%
 374         \setcounter{PGF}{0}%
 375         \setcounter{ABSATZ}{0}%
 376         \setcounter{SATZ}{0}%
 377         \setcounter{TEIL}{0}%
 378 }%
 379 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 380 \def\salvatorischeklausel{%
 381         \pgf[Vertragserhaltung]{}
 382         \abs\stz Sollten einzelne Bestimmungen dieses Vertrags ganz oder teilweise unwirksam oder undurchfŸhrbar sein oder werden, oder sollte dieser Vertrag LŸcken enthalten, so wird die Wirksamkeit der Ÿbrigen Bestimmungen nicht berŸhrt. \stz Anstelle der unwirksamen, undurchfŸhrbaren oder fehlenden Regelung gilt eine Regelung als vereinbart, die den Interessen der Parteien zur Zeit der Vertragsvereinbarung am ehesten entspricht.%
 383 }%
 384 \def\schriftformerfordernis{%
 385         \pgf[Zugang von WillenserklŠrungen und Formerfordernisse]{}
 386         \abs\stz\sloppy WillenserklŠrungen einer Partei im Zusammenhang mit dem Zustandekommen, der DurchfŸhrung oder der Beendigung dieses Vertrages bedŸrfen zu ihrer Wirksamkeit der Schriftform, sofern dieser Vertrag oder das Gesetz nicht ausdrŸcklich eine andere Form vorschreibt oder dieser Vertrag eine andere Form genŸgen lŠsst. \stz ZugangsbedŸrftige WillenserklŠrungen einer Partei gelten als zugegangen, wenn sie in Schriftform der anderen Partei zugegangen sind. \stz Ist eine in dieser Weise zugegangene WillenserklŠrung zuvor bereits in Textform zugegangen, so gilt zugunsten der erklŠrenden Partei die WillenserklŠrung als zu dieser Zeit wirksam zugegangen, sofern sie unverzŸglich danach in Schriftform zugegangen ist.
 387         \abs\stz €nderungen und ErgŠnzungen dieses Vertrages bedŸrfen zu Ihrer Wirksamkeit der Schriftform.
 388 }
 389 \def\vollstaendigkeitsklausel{%
 390         \pgf[VollstŠndigkeit der Urkunde]{}
 391         \abs\stz\sloppy Diese Urkunde enthŠlt oberhalb der Unterschriften der Parteien sŠmtliche WillenserklŠrungen, die die Parteien mit rechtsverbindlicher Wirkung in Bezug auf den Gegenstand dieses Vertrages abgegeben haben. \stz Nebenabreden au§erhalb dieser Urkunden bestehen nicht.
 392 }
 393 \def\schlussbestimmungen{%
 394         \salvatorischeklausel
 395         \schriftformerfordernis
 396         \vollstaendigkeitsklausel
 397 }
 398
 399 %%----------------------------------------------------------------------NORMTEXT
 400 %%
 401 %% \teil fett zentriert, ršmisch nummeriert
 402 %% \pgf[<ParagrafŸberschrift]{<ggf. klein A>}
 403 %% \abs\stz <erster Satz des ersten Absatz'> \stz <zweiter Satz>
 404 %% \abs\stz <zweiter Absatz>
 405 %%
 406 %%
 407 %%
 408 \InputIfFileExists{\jobname.pgf}{}{}
 409 %
 410 \newwrite\pgfnr
 411 \immediate\openout\pgfnr=\jobname.pgf
 412 %%
 413 \newcounter{PGF}
 414 \newcounter{ABSATZ}[PGF]
 415 \newcounter{SATZ}[ABSATZ]
 416 \newcounter{TEIL}
 417 %%
 418 \newcommand\TEIL[2][Abschnitt]{%
 419         \begin{center}
 420         \parbox{.8\columnwidth}{%
 421                 \begin{center}
 422                         \bfseries%
 423                         \stepcounter{TEIL}%
 424                         \Roman{TEIL}.~#1\\%
 425                         #2%
 426                 \end{center}
 427         }%
 428         \vspace{-3ex}%
 429         \end{center}%
 430         \nopagebreak%
 431 }
 432 %
 433 \def\teil{\TEIL}
 434 %%
 435 \newcommand\PGF[2][]{%
 436         \def\pgftit{%
 437                 \ifthenelse{\equal{#1}{}}{%
 438                 }{%
 439                         #1.%
 440                 }%
 441         }%
 442         \def\thispgf{#2}%
 443         \stepcounter{PGF}%
 444                 {\par\bfseries%
 445                 \vspace{1.5ex}%
 446                 \ifthenelse{\equal{#2}{}}{%
 447                         \S\,\arabic{PGF}%
 448                 }{%
 449                         \setcounter{PGF}{\arabic{PGF}-1}%
 450                         \S\,\arabic{PGF}%
 451                 }%
 452                 \ifthenelse{\equal{#2}{}}{%
 453                 }{%
 454                         \,#2%
 455                 }%
 456                 ~\pgftit%
 457                 \nopagebreak%
 458                 }%
 459 }
 460 %
 461 \def\pgf{\PGF}
 462 %%
 463 \newcommand\ABSATZ{%
 464         \ifnum\theABSATZ>0%
 465         \immediate\write\pgfnr{%
 466                 \string\@namedef{hasmanyabsatz\thePGF}{x}%
 467         }%
 468         \fi%
 469         \stepcounter{ABSATZ}%
 470         \ifnum\theABSATZ>1%
 471         \par%
 472         \fi%
 473         \@ifundefined{hasmanyabsatz\thePGF}{% nur ein Absatz: keine Nummer
 474         }{%
 475                 (\arabic{ABSATZ})~%
 476         }%
 477 }%
 478 %
 479 \def\abs{\ABSATZ}
 480 %%
 481 \newcommand\SATZ{%
 482         \ifnum\theSATZ>0%
 483         \immediate\write\pgfnr{%
 484                 \string\@namedef{hasmanysatz\theABSATZ-\thePGF}{x}%
 485         }%
 486         \fi%
 487         \stepcounter{SATZ}%
 488         \@ifundefined{hasmanysatz\theABSATZ-\thePGF}{% nur ein Satz: keine Nummer
 489         }{%
 490                 \textsuperscript{\arabic{SATZ}}\hspace{.2ex}\nolinebreak%
 491         }%
 492 }
 493 \def\stz{\SATZ}
 494 %%=========================================================================FRIST
 495 %%
 496 %% Die Anweisung \frist[]{} und \frist*[]{} unterscheiden sich dadurch, dass
 497 %% die Sternvariante fett und zentriert gesetzt wird, wŠhrend die andere
 498 %% Variante fett im fortlaufenden Text gesetzt wird. Die Anweisung erwartet als
 499 %% optionales Argument ein etwaiges Satzzeichen am Ende der Angabe des letzten
 500 %% Tags der Frist. Das obligatorsiche Argument muss die Anzahl der Tage
 501 %% enthalten, die die Frist dauern soll. FŠllt das Fristende auf einen Samstag
 502 %% oder Sonntag, legt das Makro das Fristende automatisch auf den folgenden
 503 %% Montag. ZukŸnftig soll \frist gesetzliche Feiertage erkennen kšnnen und ein
 504 %% Fristende, das auf einen gesetzlichen Feiertag fŠllt, automatisch auf den
 505 %% nŠchsten Werktag legen.
 506 %%
 507 \newcommand*\frist{%
 508         \@ifstar\s@frist\@frist%
 509 }%
 510 %%
 511 \newcommand*{\@frist}[2][]{%
 512         \def\CntOfDays{#2}%
 513         \setdatetoday%
 514         \addtocounter{datenumber}{\CntOfDays}%
 515         \setcounter{datenumber}{\thedatenumber}%
 516         \setdatebynumber{\thedatenumber}%
 517 % Die folgenden acht Zeilen sorgen dafŸr, dass, wenn das
 518 % Fristende auf den 3. Oktober fŠllt, die Frist um einen
 519 % Tag verlŠngert wird.
 520         \newcounter{dateone}%
 521         \setmydatenumber{dateone}{\the\year}{10}{03}%
 522         \ifthenelse{\equal{\thedatenumber}{\thedateone}}{%
 523                 \addtocounter{datenumber}{1}%
 524         }{%
 525         }%
 526         \setcounter{datenumber}{\thedatenumber}%
 527         \setdatebynumber{\thedatenumber}%
 528 % Die folgenden zehn Zeilen sorgen dafŸr, dass, wenn das
 529 % Fristende auf einen Samstag oder Sonntag fŠllt, die
 530 % Frist bis zum kommenden Montag verlŠngert wird.
 531         \ifthenelse{\equal{\arabic{datedayname}}{6}}{%
 532                 \addtocounter{datenumber}{2}%
 533         }{%
 534                 \ifthenelse{\equal{\arabic{datedayname}}{7}}{%
 535                         \addtocounter{datenumber}{1}%
 536                 }{%
 537                 }%
 538         }%
 539         \setcounter{datenumber}{\thedatenumber}%
 540         \setdatebynumber{\thedatenumber}%
 541 % Die folgenden sechs Zeilen sorgen dafŸr, dass, wenn das
 542 % wegen des Wochenendes verschobene Fristende auf Montag,
 543 % den 3. Oktober fŠllt, die Frist nochmals um einen Tag
 544 % verlŠngert wird.
 545         \ifthenelse{\equal{\thedatenumber}{\thedateone}}{%
 546                 \addtocounter{datenumber}{1}%
 547         }{%
 548         }%
 549         \setcounter{datenumber}{\thedatenumber}%
 550         \setdatebynumber{\thedatenumber}%
 551 %
 552         \def\FristTag{\datedayname}%
 553         \def\FristDatum{\datedate}%
 554         \textbf{%
 555                 \FristTag, den \FristDatum#1{}%
 556         }%
 557 }%
 558 \newcommand*{\s@frist}[2][]{%
 559         \def\CntOfDays{#2}%
 560         \setdatetoday%
 561         \addtocounter{datenumber}{\CntOfDays}%
 562         \setcounter{datenumber}{\thedatenumber}%
 563         \setdatebynumber{\thedatenumber}%
 564 % Die folgenden acht Zeilen sorgen dafŸr, dass, wenn das
 565 % Fristende auf den 3. Oktober fŠllt, die Frist um einen
 566 % Tag verlŠngert wird.
 567         \newcounter{dateone}%
 568         \setmydatenumber{dateone}{\the\year}{10}{03}
 569         \ifthenelse{\equal{\thedatenumber}{\thedateone}}{%
 570                 \addtocounter{datenumber}{1}
 571         }{%
 572         }
 573         \setcounter{datenumber}{\thedatenumber}%
 574         \setdatebynumber{\thedatenumber}%
 575 % Die folgenden zehn Zeilen sorgen dafŸr, dass, wenn das
 576 % Fristende auf einen Samstag oder Sonntag fŠllt, die
 577 % Frist bis zum kommenden Montag verlŠngert wird.
 578         \ifthenelse{\equal{\arabic{datedayname}}{6}}{%
 579                 \addtocounter{datenumber}{2}%
 580         }{%
 581                 \ifthenelse{\equal{\arabic{datedayname}}{7}}{%
 582                         \addtocounter{datenumber}{1}%
 583                 }{%
 584                 }%
 585         }%
 586         \setcounter{datenumber}{\thedatenumber}%
 587         \setdatebynumber{\thedatenumber}%
 588 % Die folgenden sechs Zeilen sorgen dafŸr, dass, wenn das
 589 % wegen des Wochenendes verschobene Fristende auf Montag,
 590 % den 3. Oktober fŠllt, die Frist nochmals um einen Tag
 591 % verlŠngert wird.
 592         \ifthenelse{\equal{\thedatenumber}{\thedateone}}{%
 593                 \addtocounter{datenumber}{1}
 594         }{%
 595         }
 596         \setcounter{datenumber}{\thedatenumber}%
 597         \setdatebynumber{\thedatenumber}%
 598 %
 599         \def\FristTag{\datedayname}%
 600         \def\FristDatum{\datedate}%
 601         \nopagebreak%
 602         \begin{center}
 603         \bfseries%
 604         \large{\FristTag, den \FristDatum#1}%
 605         \end{center}%
 606         \nopagebreak%
 607         \par%
 608 %       \vspace{\parskip}
 609 }
 610 %%============================================================FETT UND ZENTRIERT
 611 \newcommand{\fettzentriert}[2][\normalsize]{%
 612         \vspace{-.5\baselineskip}
 613         \begin{center}
 614         \bfseries%
 615                 #1#2%
 616         \end{center}
 617 }
 618 %%---------------------------------------------------------------------VOLLMACHT
 619 \newcommand{\Vollmacht}{%
 620         \rtxencl[][]{-}{MdtVollmOrig}{Vollmacht}%
 621 }
 622 %%=======================================================================HISTORY
 623 %% 0.2.1   (2013/09/19) FRIST um Feiertagsfunktion 3. Oktober ergŠnzt
 624 %% 0.2     (2010/06/09) basicly revised version
 625 %% 0.1     (2006/06/06) initial release
 626 %%===========================================================================EOF