|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
% Makros zur Berechnung und Ausgabe einer Zwischensumme bei langen Tabellen
|
|
% Der Hack der longtable Ausgabe ist von Heiko Oberdiek, das Paket zref auch.
|
|
% ---<(kaimartin)>---(August, 2007)
|
|
%Angepasst an 2.6.3 von n.simon@linet-services.de, 15. November 2011
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
% Diese Datei steht unter der GPL-Lizenz, Version 3
|
|
% siehe http://www.gnu.de/licenses/gpl-3.0.html
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
\usepackage{etex} % Damit Marken verwendet werden koennen
|
|
\usepackage[savepos,user]{zref} % Um die jeweils aktuelle Position zu merken
|
|
\usepackage{fltpoint} % Rechnen mit Komma-Zahlen
|
|
\usepackage{numprint} % Zahlen formatiert ausgeben
|
|
\usepackage{eurosym} % Das Euro-Zeichen
|
|
\usepackage{calc} % Fuer das Makro \widthof{}
|
|
|
|
% Globale Einstellungen fuer numprint
|
|
\nprounddigits{2} % Zwei Nachkommasstellen
|
|
%% ",00" nicht durch ",--" ersetzen
|
|
\npprintnull
|
|
|
|
\fpDecimalSign{.}
|
|
|
|
\newcommand{\lxNumberFormatGermanInput}{\makeatletter\renewcommand*\nprt@ignorelist{.}\renewcommand*\nprt@dotlist{,}\makeatother}
|
|
\newcommand{\lxNumberFormatEnglishInput}{\makeatletter\renewcommand*\nprt@ignorelist{,}\renewcommand*\nprt@dotlist{.}\makeatother}
|
|
|
|
\newcommand{\lxNumberFormatGerman}{\lxNumberFormatGermanInput\npthousandsep{.}\npdecimalsign{,}}
|
|
\newcommand{\lxNumberFormatGermanNoSeparator}{\lxNumberFormatGermanInput\npthousandsep{}\npdecimalsign{,}}
|
|
|
|
\newcommand{\lxNumberFormatEnglish}{\lxNumberFormatEnglishInput\npthousandsep{,}\npdecimalsign{.}}
|
|
\newcommand{\lxNumberFormatEnglishNoSeparator}{\lxNumberFormatEnglishInput\npthousandsep{}\npdecimalsign{.}}
|
|
|
|
\newcommand{\lxNumberFormatToUse}{\lxNumberFormatGerman}
|
|
|
|
% Paketoptionen: Dezimaltrennzeichen und Tausendertrennzeichen
|
|
\DeclareOption{german}{\renewcommand{\lxNumberFormatToUse}{\lxNumberFormatGerman}}
|
|
\DeclareOption{germannosep}{\renewcommand{\lxNumberFormatToUse}{\lxNumberFormatGermanNoSeparator}}
|
|
\DeclareOption{english}{\renewcommand{\lxNumberFormatToUse}{\lxNumberFormatEnglish}}
|
|
\DeclareOption{englishnosep}{\renewcommand{\lxNumberFormatToUse}{\lxNumberFormatEnglishNoSeparator}}
|
|
|
|
\ProcessOptions
|
|
|
|
\lxNumberFormatToUse
|
|
|
|
%%%%%%%%%%%%%%Befehle zur Berechnung der Zwischensumme%%%%%%%%%%%%%%%%%%%%%%%
|
|
\newcommand*\laufsumme{0}
|
|
\newcommand*\resetlaufsumme{\global\def\laufsumme{0}}
|
|
\newcommand*\addlaufsumme[1]{\fpAdd{\laufsumme}{\laufsumme}{#1}%
|
|
\global\let\laufsumme\laufsumme}
|
|
\newcommand*\printwert[1]{%
|
|
\lxNumberFormatToUse%
|
|
\lxNumberFormatEnglishInput%
|
|
\numprint{#1}%
|
|
\lxNumberFormatToUse}
|
|
|
|
%%%%%%%%Plaintex-Hack fuer Positionierung der Zwischensummen%%%%%%%%%%%%%%%%%%
|
|
|
|
|
|
\makeatletter % Das at-Zeichen in Variablen zulassen
|
|
|
|
% Variablen bereit stellen
|
|
\newdimen\drx
|
|
\newdimen\dry
|
|
|
|
\newmarks\ltm@marks
|
|
\def\ltm@setmarks#1{%
|
|
\marks\ltm@marks{#1}%
|
|
}
|
|
\def\ltm@getmarks{%
|
|
\botmarks\ltm@marks
|
|
}
|
|
|
|
|
|
% Den aktuellen Wert der Laufsumme berechnen und merken
|
|
\newcommand*{\Wert}[1]{%
|
|
\addlaufsumme{#1}% Den uebergebenen Wert zur Laufsumme addieren
|
|
\expandafter\ltm@setmarks\expandafter{\laufsumme}% Die Laufsumme merken
|
|
}
|
|
|
|
% Merken der aktuellen Position
|
|
\newcommand*{\MarkZwsumPos}{%
|
|
\leavevmode
|
|
\zsavepos{zwsumpos\thepage}%
|
|
\zrefused{zwsumpos\thepage}%
|
|
}
|
|
|
|
\newcommand*{\MarkUebertrPos}{%
|
|
\leavevmode
|
|
\zsavepos{uebertrpos\thepage}%
|
|
\zrefused{uebertrpos\thepage}%
|
|
}
|
|
|
|
|
|
% Ausgabe der Zwischensumme
|
|
\def\ltm@insertfoot#1{%
|
|
\vbox to\z@{%
|
|
\vss
|
|
\hb@xt@\z@{%
|
|
\color@begingroup
|
|
\zsavepos{tabende\thepage}% % Die aktuelle Position merken
|
|
\drx=0sp
|
|
\dry=0sp
|
|
% Die aktuelle Position abziehen und die gemerkte addieren
|
|
\advance \drx by -\zposx{tabende\thepage}sp
|
|
\advance \drx by \zposx{zwsumpos\thepage}sp
|
|
\advance \dry by -\zposy{tabende\thepage}sp
|
|
\advance \dry by \zposy{zwsumpos\thepage}sp
|
|
\smash{\kern\drx\raise\dry%
|
|
\hbox{\makebox[0cm][r]{Zwischensumme:\hspace*{2em}\printwert{#1} \currency}}%
|
|
}% end smash
|
|
\color@endgroup
|
|
}%
|
|
}%
|
|
}
|
|
|
|
% Ausgabe des Uebertrags
|
|
% Wie die Ausgabe der Zwischensumme, nur ohne neu gemerkte Position
|
|
\def\ltm@inserthead#1{%
|
|
\vbox to\z@{%
|
|
\vss
|
|
\hb@xt@\z@{%
|
|
\color@begingroup
|
|
\zsavepos{tabstart\thepage}% % Die aktuelle Position merken
|
|
\drx=0sp
|
|
\dry=0sp
|
|
% Die Position des Tabellenendes abziehen und zur gemerkten gehen
|
|
\advance \drx by -\zposx{tabstart\thepage}sp
|
|
\advance \drx by \zposx{uebertrpos\thepage}sp
|
|
\advance \dry by -\zposy{tabstart\thepage}sp
|
|
\advance \dry by \zposy{uebertrpos\thepage}sp
|
|
\smash{\kern\drx\raise\dry%
|
|
\hbox{\makebox[0cm][r]{Übertrag:\hspace*{2em}\printwert{#1} \currency}}%
|
|
}% end smash
|
|
\color@endgroup
|
|
}%
|
|
}%
|
|
}
|
|
|
|
\def\ltm@lastfoot{}
|
|
\def\ltm@foot{\ltm@insertfoot{\ltm@getmarks}}
|
|
\def\ltm@head{\ltm@inserthead{\ltm@getmarks}}
|
|
|
|
|
|
% Ueberschreiben der Output-Routine von longtable
|
|
\def\LT@output{%
|
|
\ifnum\outputpenalty <-\@Mi
|
|
\ifnum\outputpenalty > -\LT@end@pen
|
|
\LT@err{floats and marginpars %
|
|
not allowed in a longtable}\@ehc
|
|
\else
|
|
\setbox\z@\vbox{\unvbox\@cclv}%
|
|
\ifdim \ht\LT@lastfoot>\ht\LT@foot
|
|
\dimen@\pagegoal
|
|
\advance\dimen@-\ht\LT@lastfoot
|
|
\ifdim\dimen@<\ht\z@
|
|
\setbox\@cclv\vbox{%
|
|
\unvbox\z@\copy\LT@foot\ltm@foot\vss
|
|
}%
|
|
\@makecol
|
|
\@outputpage
|
|
\setbox\z@\vbox{\box\LT@head}%
|
|
\fi
|
|
\fi
|
|
\global\@colroom\@colht
|
|
\global\vsize\@colht
|
|
\vbox{%
|
|
\unvbox\z@
|
|
\box\ifvoid\LT@lastfoot
|
|
\LT@foot\ltm@foot
|
|
\else
|
|
\LT@lastfoot\ltm@lastfoot
|
|
\fi
|
|
}%
|
|
\fi
|
|
\else
|
|
\setbox\@cclv\vbox{%
|
|
\unvbox\@cclv\copy\LT@foot\ltm@foot\vss
|
|
}%
|
|
\@makecol
|
|
\@outputpage
|
|
\global\vsize\@colroom
|
|
\copy\LT@head\ltm@head
|
|
\fi
|
|
}
|
|
|
|
\makeatother % Das at-Zeichen in Variablen wieder verbieten
|
|
%%%%%%%%%%%%%%%%%%%%Ende plaintex-Hack%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|