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                                 ~./.~\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{schriftsatztext}{%
 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 }{%
 181         \end{addmargin}
 182         \setlength{\textwidth}{\normaltextwidth}
 183 %       \nopagebreak
 184 %       \enlargethispage{2\baselineskip}
 185 %       \nopagebreak%
 186 %       \begin{center}
 187 %       \vspace{8ex}
 188 %       Friedrich Vosberg\\ Rechtsanwalt
 189 %       \end{center}
 190 }
 191 %%--------------------------------------------------------------------BEGR†NDUNG
 192 \newenvironment{gruende}{%
 193 %       \setlength{\emergencystretch}{.7em}
 194         \sloppy
 195         \newlength\normaltextwidth{}
 196         \setlength{\normaltextwidth}{\textwidth}
 197         \ifthenelse{\equal{\documentclass}{scrlttr2}}{%
 198                 \cohead{\raisebox{-5ex}{\rule{\normaltextwidth}{.4pt}}}
 199         }{%
 200         }
 201         \setlength{\linewidth}{\normaltextwidth}
 202         \begin{addmargin}[.2\normaltextwidth]{0em}
 203         \setlength{\baselineskip}{3ex}
 204         \setlength{\parindent}{0em}
 205         \par
 206                 {\LARGE{\textbf{\rule{0pt}{4ex}Begründung:}}}
 207         \par
 208         \nopagebreak
 209 }{%
 210         \end{addmargin}
 211         \setlength{\textwidth}{\normaltextwidth}
 212 %       \nopagebreak
 213 %       \enlargethispage{2\baselineskip}
 214 %       \nopagebreak%
 215 %       \begin{center}
 216 %       \vspace{8ex}
 217 %       Friedrich Vosberg\\ Rechtsanwalt
 218 %       \end{center}
 219 }
 220 %%------------------------------------------------------------------BEWEIS (alt)
 221 %%
 222 \newcounter{beweismittel}% ZŠhler, der die beigefŸgten Beweismittel hochzŠhlt
 223 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 224 \newcommand*{\beweis}[2][]{% Anweisung zum Eingeben des Beweismittels
 225         \def\jxbwmttl{#2}% Bezeichnung des Beweismittels
 226         \def\jxbwmark{#1}% Marker fŸr zu zŠhlende Beweismittel
 227         \jxbwform%
 228 }
 229 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 230 \def\jxbwform{% Formatierung des Beweismittels
 231         \vspace{.5ex}\par\hspace*{1em}\textbf{Beweis:\hspace{.5em}}%
 232         \parbox[t]{%
 233                 .98\linewidth% Das kann so nicht stimmen, hier mŸsste auch 1.0 gehen
 234                 -\widthof{\hspace*{1em}\textbf{Beweis:\hspace{.5em}}}%
 235                 -\widthof{\hspace*{1em}\textbf{--\,\jxbwmark\,\arabic{beweismittel}\,--}}%
 236                                                 }{%
 237                                                         \raggedright
 238                                                         \jxbwmttl
 239                                                 }%
 240         \ifthenelse{\equal{\jxbwmark}{}}{%
 241         }{%
 242                 \stepcounter{beweismittel}% ... wird der ZŠhler hochgesetzt, ...
 243                 \hfill\hspace{1em}\textbf{--\,\jxbwmark\ \arabic{beweismittel}\,--}
 244         }%
 245         \ignorespaces
 246         \vspace{.5ex}\par
 247 }
 248 %%------------------------------------------------------------------BEWEIS (neu)
 249 \newcounter{RTXevdc}
 250 \newcounter{RTXevdcencl}
 251 \newcommandtwoopt*{\rtxevdc}[3][][]{%
 252         \ifthenelse{\equal{#2}{}}{}{%
 253                 \stepcounter{JXattachcntr}%
 254                 \stepcounter{RTXevdc}%
 255         }%
 256         \par\vspace{1.5ex}%
 257         \hspace{1.5em}\textbf{Beweis:}%
 258         \hspace{1ex}\parbox[t]{.5\textwidth}{\linespread{1}\selectfont\RaggedRight#3}%
 259         \ifthenelse{\equal{#2}{}}{}{%
 260                 \marginpar{%
 261                         \setlength{\baselineskip}{1.5ex}{%
 262                                 \bfseries\RaggedRight%
 263                                 \hspace{0pt}--\,#1~\theRTXevdc\,--{}
 264                         }%
 265                 }%
 266                 \protected@edef\JXenclContent{\JXenclContent #1~\theRTXevdc{} (\JXenclAnlNr{}~\theJXattachcntr)\endgraf}%
 267                 \g@addto@macro\IncludeAppendixHook{%
 268                         \cleardoublepage%
 269                         \stepcounter{JXenclcntr}%
 270                         \stepcounter{RTXevdcencl}%
 271                         \includepdf[%
 272                                 pages={-},
 273                                 picturecommand*={%
 274                                         \put(.72\paperwidth,.955\paperheight){%
 275                                                 \fboxrule2mm\fboxsep2mm%
 276                                                 \fcolorbox{red}{white}{%
 277                                                         \large\bfseries\sffamily
 278                                                         -- Anlage~#1~\theRTXevdcencl~--
 279                                                 }%
 280                                         }%
 281                                 }%
 282                         ]%
 283                         {#2}%
 284                 }%
 285         }\vspace{2.5ex}%
 286 }%
 287 %%---------------------------------------------------------------BEWEIS (ganz neu)
 288 %% Das ganz neue Beweismakro rtxevdx {x fŸr extended} kann auf einzelne BlŠtter
 289 %% eines als PDF-Datei vorliegenden Dokuments zugreifen. Zu diesem Zweck wurde
 290 %% das bisher optionale Argument des BeweismittelfŸhrers obligatorisch gemacht,
 291 %% es kann aber leer bleiben. Wenn schon keine PDF-Datei angegeben ist, wird
 292 %% ohnehin keine Angabe des BeweisfŸhrers gesetzt. Die Syntax lautet jetzt:
 293 %%      \rtxevdx[Blattt][Datei]{Bezeichnung}{BeweisfŸhrer}
 294 %%
 295 \newcommandtwoopt*{\rtxevdx}[4][][]{%
 296         \ifthenelse{\equal{#2}{}}{}{%
 297                 \stepcounter{JXattachcntr}%
 298                 \stepcounter{RTXevdc}%
 299         }%
 300         \par\vspace{1.5ex}%
 301         \hspace{1.5em}\textbf{Beweis:}%
 302         \hspace{1ex}\parbox[t]{.5\textwidth}{\linespread{1}\selectfont\RaggedRight#3}%
 303         \ifthenelse{\equal{#2}{}}{}{%
 304                 \marginpar{%
 305                         \setlength{\baselineskip}{1.5ex}{%
 306                                 \bfseries\RaggedRight%
 307                                 \hspace{0pt}--\,#4~\theRTXevdc\,--{}
 308                         }%
 309                 }%
 310                 \protected@edef\JXenclContent{\JXenclContent #1~\theRTXevdc{} (\JXenclAnlNr{}~\theJXattachcntr)\endgraf}%
 311                 \g@addto@macro\IncludeAppendixHook{%
 312                         \cleardoublepage%
 313                         \stepcounter{JXenclcntr}%
 314                         \stepcounter{RTXevdcencl}%
 315                         \includepdf[%
 316                                 pages={#1},
 317                                 picturecommand*={%
 318                                         \put(.72\paperwidth,.955\paperheight){%
 319                                                 \fboxrule2mm\fboxsep2mm%
 320                                                 \fcolorbox{red}{white}{%
 321                                                         \large\bfseries\sffamily
 322                                                         -- Anlage~#4~\theRTXevdcencl~--
 323                                                 }%
 324                                         }%
 325                                 }%
 326                         ]%
 327                         {#2}%
 328                 }%
 329         }\vspace{2.5ex}%
 330 }%
 331 %%-----------------------------------------------------------------------VERTRAG
 332 %%
 333 %% Die Umgebung Vertrag erwartet zwei obligatorische Argumente: {1} den Ort des
 334 %% Vertragsabschlusses und {2} die Anzahl der Vertragsparteien für die Anzahl
 335 %% der Unterschriftsfelder am Schluss des Vertrags
 336 %%
 337 %% Dem Vertrag werden die Parteien (PATREI) in einer Rubrum-Umgebung (RUBRUM)
 338 %% vorangestellt.
 339 %%
 340 %% In der Umgebung Vertrag können die Anweisungen aus NORMTEXT verwendet werden.
 341 %%
 342 \newsavebox{\vertragsort}
 343 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 344 \newsavebox{\unterschriften}
 345 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 346 \newcounter{unterschriftencounter}
 347 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 348 \newenvironment{vertrag}[2]{%
 349         \setlength{\parindent}{0em}%
 350         \setlength{\parskip}{1.5ex}
 351         \savebox{\vertragsort}{#1}
 352         \def\sigcount{#2}%
 353         \savebox{\unterschriften}{%
 354 %               \stepcounter{unterschriftencounter}%
 355                 \parbox{\textwidth}{%
 356                         \begin{center}
 357                         \whiledo{\arabic{unterschriftencounter}<\sigcount}{%
 358 %                               \parbox{.45\textwidth}{%
 359 %                                       \begin{center}
 360 %                                       \vspace{4ex}
 361 %                                       \vfill
 362 %                                       \rule{.4\textwidth}{.2pt}%
 363 %                                       \linebreak%
 364 %                                       \footnotesize{Rechtsanwalt Friedrich Vosberg}%
 365 %                                       \linebreak%
 366 %                                       \footnotesize{fŸr Ottmar Hermann, Insolvenzverwalter}%
 367 %                                       \end{center}\vspace{-12ex}
 368 %                               \stepcounter{unterschriftencounter}%
 369 %                               }%
 370 %                       \hfill%
 371                                 \parbox{.45\textwidth}{%
 372                                         \begin{center}
 373                                         \vspace{4ex}
 374 %                                       \vfill
 375                                         \rule{.4\textwidth}{.2pt}%
 376                                         \linebreak%
 377                                         \footnotesize{(Unterschrift)}%
 378                                         \linebreak%
 379                                         \footnotesize{(ggf. Stempel)}%
 380                                         \end{center}
 381 %                                       \vspace{-12ex}
 382                                 \stepcounter{unterschriftencounter}%
 383                                 }%
 384                         \hfill%
 385                         }%
 386                 \end{center}%\vspace{-6ex}
 387                 }%
 388         }%
 389 }{%
 390         \par
 391         \parbox{\textwidth}{%
 392                 \vspace{3ex}\par\usebox{\vertragsort}, den \dotfill
 393                 \par%
 394                 \begin{center}
 395                 \usebox{\unterschriften}
 396                 \end{center}
 397         }%
 398         \setcounter{unterschriftencounter}{0}%
 399         \setcounter{PGF}{0}%
 400         \setcounter{ABSATZ}{0}%
 401         \setcounter{SATZ}{0}%
 402         \setcounter{TEIL}{0}%
 403 }%
 404 %% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 405 \def\salvatorischeklausel{%
 406         \pgf[Vertragserhaltung]{}
 407         \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.%
 408 }%
 409 \def\schriftformerfordernis{%
 410         \pgf[Zugang von WillenserklŠrungen und Formerfordernisse]{}
 411         \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.
 412         \abs\stz Änderungen und Ergänzungen dieses Vertrages bedürfen zu Ihrer Wirksamkeit der Schriftform.
 413 }
 414 \def\vollstaendigkeitsklausel{%
 415         \pgf[Vollständigkeit der Urkunde]{}
 416         \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.
 417 }
 418 \def\schlussbestimmungen{%
 419         \salvatorischeklausel
 420         \schriftformerfordernis
 421         \vollstaendigkeitsklausel
 422 }
 423
 424 %%----------------------------------------------------------------------NORMTEXT
 425 %%
 426 %% \teil fett zentriert, römisch nummeriert
 427 %% \pgf[<Paragrafüberschrift]{<ggf. klein A>}
 428 %% \abs\stz <erster Satz des ersten Absatz'> \stz <zweiter Satz>
 429 %% \abs\stz <zweiter Absatz>
 430 %%
 431 %%
 432 %%
 433 \InputIfFileExists{\jobname.pgf}{}{}
 434 %
 435 \newwrite\pgfnr
 436 \immediate\openout\pgfnr=\jobname.pgf
 437 %%
 438 \newcounter{PGF}
 439 \newcounter{ABSATZ}[PGF]
 440 \newcounter{SATZ}[ABSATZ]
 441 \newcounter{TEIL}
 442 %%
 443 \newcommand\TEIL[2][Abschnitt]{%
 444         \begin{center}
 445         \parbox{.8\columnwidth}{%
 446                 \begin{center}
 447                         \bfseries%
 448                         \stepcounter{TEIL}%
 449                         \Roman{TEIL}.~#1\\%
 450                         #2%
 451                 \end{center}
 452         }%
 453         \vspace{-3ex}%
 454         \end{center}%
 455         \nopagebreak%
 456 }
 457 %
 458 \def\teil{\TEIL}
 459 %%
 460 \newcommand\PGF[2][]{%
 461         \def\pgftit{%
 462                 \ifthenelse{\equal{#1}{}}{%
 463                 }{%
 464                         #1.%
 465                 }%
 466         }%
 467         \def\thispgf{#2}%
 468         \stepcounter{PGF}%
 469                 {\par\bfseries%
 470                 \vspace{1.5ex}%
 471                 \ifthenelse{\equal{#2}{}}{%
 472                         \S\,\arabic{PGF}%
 473                 }{%
 474                         \setcounter{PGF}{\arabic{PGF}-1}%
 475                         \S\,\arabic{PGF}%
 476                 }%
 477                 \ifthenelse{\equal{#2}{}}{%
 478                 }{%
 479                         \,#2%
 480                 }%
 481                 ~\pgftit%
 482                 \nopagebreak%
 483                 }%
 484 }
 485 %
 486 \def\pgf{\PGF}
 487 %%
 488 \newcommand\ABSATZ{%
 489         \ifnum\theABSATZ>0%
 490         \immediate\write\pgfnr{%
 491                 \string\@namedef{hasmanyabsatz\thePGF}{x}%
 492         }%
 493         \fi%
 494         \stepcounter{ABSATZ}%
 495         \ifnum\theABSATZ>1%
 496         \par%
 497         \fi%
 498         \@ifundefined{hasmanyabsatz\thePGF}{% nur ein Absatz: keine Nummer
 499         }{%
 500                 (\arabic{ABSATZ})~%
 501         }%
 502 }%
 503 %
 504 \def\abs{\ABSATZ}
 505 %%
 506 \newcommand\SATZ{%
 507         \ifnum\theSATZ>0%
 508         \immediate\write\pgfnr{%
 509                 \string\@namedef{hasmanysatz\theABSATZ-\thePGF}{x}%
 510         }%
 511         \fi%
 512         \stepcounter{SATZ}%
 513         \@ifundefined{hasmanysatz\theABSATZ-\thePGF}{% nur ein Satz: keine Nummer
 514         }{%
 515                 \textsuperscript{\arabic{SATZ}}\hspace{.2ex}\nolinebreak%
 516         }%
 517 }
 518 \def\stz{\SATZ}
 519 %%=========================================================================FRIST
 520 %%
 521 %% Die Anweisung \frist[]{} und \frist*[]{} unterscheiden sich dadurch, dass
 522 %% die Sternvariante fett und zentriert gesetzt wird, wŠhrend die andere
 523 %% Variante fett im fortlaufenden Text gesetzt wird. Die Anweisung erwartet als
 524 %% optionales Argument ein etwaiges Satzzeichen am Ende der Angabe des letzten
 525 %% Tags der Frist. Das obligatorsiche Argument muss die Anzahl der Tage
 526 %% enthalten, die die Frist dauern soll. FŠllt das Fristende auf einen Samstag
 527 %% oder Sonntag, legt das Makro das Fristende automatisch auf den folgenden
 528 %% Montag. ZukŸnftig soll \frist gesetzliche Feiertage erkennen kšnnen und ein
 529 %% Fristende, das auf einen gesetzlichen Feiertag fŠllt, automatisch auf den
 530 %% nŠchsten Werktag legen.
 531 %%
 532 \newcommand*\frist{%
 533         \@ifstar\s@frist\@frist%
 534 }%
 535 %%
 536 \newcommand*{\@frist}[2][]{%
 537         \def\CntOfDays{#2}%
 538         \setdatetoday%
 539         \addtocounter{datenumber}{\CntOfDays}%
 540         \setcounter{datenumber}{\thedatenumber}%
 541         \setdatebynumber{\thedatenumber}%
 542 % Die folgenden acht Zeilen sorgen dafŸr, dass, wenn das
 543 % Fristende auf den 3. Oktober fŠllt, die Frist um einen
 544 % Tag verlŠngert wird.
 545         \newcounter{dateone}%
 546         \setmydatenumber{dateone}{\the\year}{10}{03}%
 547         \ifthenelse{\equal{\thedatenumber}{\thedateone}}{%
 548                 \addtocounter{datenumber}{1}%
 549         }{%
 550         }%
 551         \setcounter{datenumber}{\thedatenumber}%
 552         \setdatebynumber{\thedatenumber}%
 553 % Die folgenden zehn Zeilen sorgen dafŸr, dass, wenn das
 554 % Fristende auf einen Samstag oder Sonntag fŠllt, die
 555 % Frist bis zum kommenden Montag verlŠngert wird.
 556         \ifthenelse{\equal{\arabic{datedayname}}{6}}{%
 557                 \addtocounter{datenumber}{2}%
 558         }{%
 559                 \ifthenelse{\equal{\arabic{datedayname}}{7}}{%
 560                         \addtocounter{datenumber}{1}%
 561                 }{%
 562                 }%
 563         }%
 564         \setcounter{datenumber}{\thedatenumber}%
 565         \setdatebynumber{\thedatenumber}%
 566 % Die folgenden sechs Zeilen sorgen dafŸr, dass, wenn das
 567 % wegen des Wochenendes verschobene Fristende auf Montag,
 568 % den 3. Oktober fŠllt, die Frist nochmals um einen Tag
 569 % verlŠngert wird.
 570         \ifthenelse{\equal{\thedatenumber}{\thedateone}}{%
 571                 \addtocounter{datenumber}{1}%
 572         }{%
 573         }%
 574         \setcounter{datenumber}{\thedatenumber}%
 575         \setdatebynumber{\thedatenumber}%
 576 %
 577         \def\FristTag{\datedayname}%
 578         \def\FristDatum{\datedate}%
 579         \textbf{%
 580                 \FristTag, den \FristDatum#1{}%
 581         }%
 582 }%
 583 \newcommand*{\s@frist}[2][]{%
 584         \def\CntOfDays{#2}%
 585         \setdatetoday%
 586         \addtocounter{datenumber}{\CntOfDays}%
 587         \setcounter{datenumber}{\thedatenumber}%
 588         \setdatebynumber{\thedatenumber}%
 589 % Die folgenden acht Zeilen sorgen dafŸr, dass, wenn das
 590 % Fristende auf den 3. Oktober fŠllt, die Frist um einen
 591 % Tag verlŠngert wird.
 592         \newcounter{dateone}%
 593         \setmydatenumber{dateone}{\the\year}{10}{03}
 594         \ifthenelse{\equal{\thedatenumber}{\thedateone}}{%
 595                 \addtocounter{datenumber}{1}
 596         }{%
 597         }
 598         \setcounter{datenumber}{\thedatenumber}%
 599         \setdatebynumber{\thedatenumber}%
 600 % Die folgenden zehn Zeilen sorgen dafŸr, dass, wenn das
 601 % Fristende auf einen Samstag oder Sonntag fŠllt, die
 602 % Frist bis zum kommenden Montag verlŠngert wird.
 603         \ifthenelse{\equal{\arabic{datedayname}}{6}}{%
 604                 \addtocounter{datenumber}{2}%
 605         }{%
 606                 \ifthenelse{\equal{\arabic{datedayname}}{7}}{%
 607                         \addtocounter{datenumber}{1}%
 608                 }{%
 609                 }%
 610         }%
 611         \setcounter{datenumber}{\thedatenumber}%
 612         \setdatebynumber{\thedatenumber}%
 613 % Die folgenden sechs Zeilen sorgen dafŸr, dass, wenn das
 614 % wegen des Wochenendes verschobene Fristende auf Montag,
 615 % den 3. Oktober fŠllt, die Frist nochmals um einen Tag
 616 % verlŠngert wird.
 617         \ifthenelse{\equal{\thedatenumber}{\thedateone}}{%
 618                 \addtocounter{datenumber}{1}
 619         }{%
 620         }
 621         \setcounter{datenumber}{\thedatenumber}%
 622         \setdatebynumber{\thedatenumber}%
 623 %
 624         \def\FristTag{\datedayname}%
 625         \def\FristDatum{\datedate}%
 626         \nopagebreak%
 627         \begin{center}
 628         \bfseries%
 629         \large{\FristTag, den \FristDatum#1}%
 630         \end{center}%
 631         \nopagebreak%
 632         \par%
 633 %       \vspace{\parskip}
 634 }
 635 %%============================================================FETT UND ZENTRIERT
 636 \newcommand{\fettzentriert}[2][\normalsize]{%
 637         \vspace{-.5\baselineskip}
 638         \begin{center}
 639         \bfseries%
 640                 #1#2%
 641         \end{center}
 642 }
 643 %%---------------------------------------------------------------------VOLLMACHT
 644 \newcommand{\Vollmacht}{%
 645         \rtxencl[][]{-}{MdtVollmOrig}{Vollmacht}%
 646 }
 647 %%=======================================================================HISTORY
 648 %% 0.2.1   (2013/09/19) FRIST um Feiertagsfunktion 3. Oktober ergŠnzt
 649 %% 0.2     (2010/06/09) basicly revised version
 650 %% 0.1     (2006/06/06) initial release
 651 %%===========================================================================EOF