Option zum Verbergen der Anzahl und der Einzelpreise

rechnung.dtx

@@ -483,6 +483,13 @@
 %    \end{macrocode}
 %  \end{macro}
 %
+%  \begin{macro}{\@RCHamo}
+% Ein Schalter der das Anzeigen der Anzahl- und Einzelpreisspalte beeinflusst
+%    \begin{macrocode}
+\newif\if@RCHamo
+%    \end{macrocode}
+%  \end{macro}
+%
 %  \begin{macro}{\@RCHfirst}
 % Ein Schalter der anzeigt, daß der erste Artikel eingefügt wird
 %    \begin{macrocode}
@@ -593,6 +600,14 @@
 %    \end{macrocode}
 %  \end{macro}
 %
+%  \begin{macro}{\AnzahlEin/Aus}
+% Schaltet Anzahlangaben und Einzelpreise ein oder aus.
+%    \begin{macrocode}
+\newcommand*\AnzahlEin[0]{\if@RCHinit\else\global\@RCHamotrue\fi}
+\newcommand*\AnzahlAus[0]{\if@RCHinit\else\global\@RCHamofalse\fi}
+%    \end{macrocode}
+%  \end{macro}
+%
 %  \begin{macro}{\ArtikelPrefix}
 % Setzt einen belibigen Prefix für das Setzen der Artikelbeschreibung. Damit
 % kann beispielsweise die Schriftgröße angepasst werden.
@@ -1101,7 +1116,10 @@
            \hbox to\@RCHPosWidth{\hfil #1\strut}%
            \sep
         \fi% Pos-Spalte
-        \hbox to\@RCHAnzWidth{\hfil #2\strut}\sep% Anzahl-Spalte
+        \if@RCHamo%
+           \hbox to\@RCHAnzWidth{\hfil #2\strut}%
+           \sep
+        \fi% Anzahl-Spalte
         \if@RCHartnum%
           \hbox to\@RCHArtnumWidth{\hfil #3\strut}%
           \sep%
@@ -1109,9 +1127,12 @@
         \vtop{\normalbaselines%
            \noindent\rightskip=0pt plus1cm%
            \hsize\@RCHwdt%
-           \linewidth\hsize#4\null\strut\par}%
+           \linewidth\hsize#4\null\par}%
         \hfil\sep%Beschreibung
-        \hbox to\@RCHEinzelWidth{\hfil #5\strut}\sep% Einzelpreis
+        \if@RCHamo%
+           \hbox to\@RCHEinzelWidth{\hfil #5\strut}%
+           \sep%
+        \fi% Einzelpreis
         \hbox to\@RCHGesamtWidth{\hfil #6\strut}\rsep% Gesamtpreis
       }%hbox
      }%vbox
@@ -1238,6 +1259,7 @@
   \global\@RCHfirsttrue
   \global\@RCHpostrue
   \global\@RCHhortrue
+  \global\@RCHamotrue
 %    \end{macrocode}
 % Param 2: Mit Artikelnummern?
 %    \begin{macrocode}
@@ -1278,6 +1300,16 @@
       \advance\@RCHwdt-2\tabcolsep
     \fi
 %    \end{macrocode}
+% Breite wegen Anzeige von Anzahl und Einzelpreis korrigieren
+%    \begin{macrocode}
+    \unless\if@RCHamo
+      \advance\@RCHwdt+\@RCHAnzWidth
+      \advance\@RCHwdt+\@RCHEinzelWidth
+      \advance\@RCHwdt+0.8pt
+      \advance\@RCHwdt+4\tabcolsep
+      \renewcommand*{\LangTotalPrice}{Preis}
+    \fi
+%    \end{macrocode}
 % Breite wegen Anzeige der Artikelnummern korrigieren
 %    \begin{macrocode}
     \if@RCHartnum