summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:57:09 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:57:09 +0000
commit16839a77380dadad1538924a576ce9e03fb5ade1 (patch)
treeca98bc24546022606c746e4a62ed5b57088ef4ea
parentad49b1da75fc4eef2808ccb07ceae93a5ba5dcf3 (diff)
invoice
git-svn-id: svn://tug.org/texlive/trunk@996 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf-dist/tex/latex/invoice/invoice.def319
-rw-r--r--Master/texmf-dist/tex/latex/invoice/invoice.sty1012
2 files changed, 1331 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/invoice/invoice.def b/Master/texmf-dist/tex/latex/invoice/invoice.def
new file mode 100644
index 00000000000..f6be4f47a00
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/invoice/invoice.def
@@ -0,0 +1,319 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% File: invoice.def
+% Author: Oliver Corff
+% Date: 2003-12-12
+%
+% This file contains messages, labels etc. in English, German
+% and other languages.
+%
+% This file cannot be used alone but is called by invoice.sty
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% This file is the only file of this package which may be
+% modified without renaming it.
+%
+% Adding a new language to labels is simple. Follow the
+% instructions at line 275 of this file, and, please!,
+% do not forget to send the result to
+%
+% corff@zedat.fu-berlin.de or oliver.corff@email.de
+%
+% Credits for language contributions given in invoice.sty.
+%
+% Thank you very much for your support of "invoice".
+%
+% Oliver Corff,
+%
+% Berlin, Guangzhou, Ulaanbaatar, Zagreb, Shenyang, Shanghai 2003
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% English definitions are default. Other
+% languages are selected automatically.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Warning messages for non-fatal situations
+%
+\def\InvoiceCompleted {Invoice completed. Command ignored.}%
+\def\FeeSTExists {You cannot print a fee subtotal twice!}%
+\def\ProjectEmpty {Project empty. No subtotal possible!}%
+\def\ProjectSTExists {You cannot print a project subtotal twice!}%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Error messages for fatal situations
+%
+\def\InternalError {Package `invoice': Internal error!}%
+%
+\def\NoInvoiceNesting {Invoices cannot be nested.
+ Close this invoice first!}%
+%
+\def\InvoiceCompletedNoExpense {Invoice closed.
+ No new expense item allowed.
+ Start a new invoice
+ first!}%
+%
+\def\InvoiceCompletedNoFee {Invoice closed.
+ No new fee item allowed.
+ Start a new invoice
+ first!}%
+%
+\def\InvoiceCompletedNoFeeST {Invoice closed.
+ No fee subtotal allowed.
+ Start a new invoice
+ first!}%
+%
+\def\InvoiceCompletedNoProject {Invoice closed.
+ No new project allowed.
+ Start a new invoice
+ first!}%
+%
+\def\InvoiceCompletedNoProjectST {Invoice closed.
+ No project subtotal allowed.
+ Start a new invoice
+ first!}%
+%
+\def\MissingFee {No fee given.
+ You must charge at least one fee!}%
+%
+\def\MissingInputData {Missing input data!}%
+%
+\def\MissingOpening {You must open an invoice!}%
+%
+\def\MissingProject {No project given.
+ Open a project first!}%
+%
+\def\FeeBeforeExpense {Fees are charged first.
+ Expenses follow.}%
+%
+\def\NoProjectNesting {Projects cannot be nested.
+ Close this project first!}%
+%
+\def\ProjectCompletedNoExpense {Project closed.
+ No new expense item allowed.
+ Start a new project
+ first!}%
+%
+\def\ProjectCompletedNoFee {Project closed.
+ No new fee item allowed.
+ Start a new project
+ first!}%
+%
+\def\KOMA {Users of KOMA-Script's scrlettr.cls%
+ ^^Jsay `invoiceno' for the scrlettr
+ invoice command,^^Jand `invoiceenv'
+ for the invoice environment!}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Labels. These ones are available in translation, too. See below.
+%
+\def\Warning {Warning}%
+\def\Error {Error}%
+\def\Expense {Expense}%
+\def\Amount {Amount}%
+\def\Currency {Currency}%
+\def\Factor {Factor}%
+\def\Activity {Activity}%
+\def\Count {Count}%
+\def\UnitRate {Rate/Unit}%
+\def\Fees {Fees}%
+\def\VAT {VAT}%
+\def\Expenses {Expenses}%
+\def\SumFees {Sum \Fees}%
+\def\SumVAT {Sum \VAT}%
+\def\SumExpenses {Sum \Expenses}%
+\def\SubtotalFee {Subtotal \Fees}%
+\def\SubtotalExpenses {Subtotal \Expenses}%
+\def\SubtotalProject {Subtotal \Project}%
+
+\def\Total {Total}%
+%
+% This is German.
+%
+\ifx\l@german\undefined
+ \message{^^J(invoice) \Warning:
+ Language \string\l@german\space unknown.^^J^^J}
+\else
+\ifnum\number\invoice@language=\number\l@german
+ \def\Warning {Warnung}%
+ \def\Error {Fehler}%
+ \def\Expense {Auslage}%
+ \def\Amount {Betrag}%
+ \def\Currency {W\"ahrung}%
+ \def\Factor {Faktor}%
+ \def\Activity {Aktivit\"at}%
+ \def\Count {Anzahl}%
+ \def\UnitRate {Rate/Einheit}%
+ \def\Fees {Honorare}%
+ \def\VAT {MWSt.}%
+ \def\Expenses {Auslagen}%
+ \def\SumFees {Summe \Fees}%
+ \def\SumVAT {Summe \VAT}%
+ \def\SumExpenses {Summe \Expenses}%
+ \def\SubtotalFee {Zwischensumme \Fees}%
+ \def\SubtotalExpenses {Zwischensumme \Expenses}%
+ \def\SubtotalProject {Zwischensumme \Project}%
+ \def\Total {Gesamtsumme}%
+\fi\fi
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% This is Dutch.
+%
+\ifx\l@dutch\undefined
+ \message{^^J(invoice) \Warning:
+ Language \string\l@dutch\space unknown.^^J^^J}
+\else
+\ifnum\number\invoice@language=\number\l@dutch
+ \def\Warning {Waarschuwing}%
+ \def\Error {Fout}%
+ \def\Expense {Onkosten}%
+ \def\Amount {Bedrag}%
+ \def\Currency {Valuta}%
+ \def\Factor {Faktor}%
+ \def\Activity {Activiteit}%
+ \def\Count {Aantal}%
+ \def\UnitRate {Prijs/Eenheid}%
+ \def\Fees {Honorarium}%
+ \def\VAT {BTW}%
+ \def\Expenses {Onkosten}%
+ \def\SumFees {Totaal \Fees}%
+ \def\SumVAT {Totaal \VAT}%
+ \def\SumExpenses {Totaal \Expenses}%
+ \def\SubtotalFee {Subtotaal \Fees}%
+ \def\SubtotalExpenses {Subtotaal \Expenses}%
+ \def\SubtotalProject {Subtotaal \Project}%
+ \def\Total {Totaal}%
+\fi\fi
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% This is French.
+%
+\ifx\l@french\undefined
+ \message{^^J(invoice) \Warning:
+ Language \string\l@french\space unknown.^^J^^J}
+\else
+\ifnum\number\invoice@language=\number\l@french
+ \def\Warning {Avertissement}%
+ \def\Error {Erreur}%
+ \def\Expense {D\'epense}%
+ \def\Amount {Montant}%
+ \def\Currency {Devise}%
+ \def\Factor {Facteur}%
+ \def\Activity {Activit\'e}%
+ \def\Count {Quantit\'e}%
+ \def\UnitRate {Prix/Unit\'e}%
+ \def\Fees {Honoraires}%
+ \def\VAT {TVA}%
+ \def\Expenses {D\'epenses}%
+ \def\SumFees {Total \Fees}%
+ \def\SumVAT {Total \VAT}%
+ \def\SumExpenses {Total \Expenses}%
+ \def\SubtotalFee {Sous-Total \Fees}%
+ \def\SubtotalExpenses {Sous-Total \Expenses}%
+ \def\SubtotalProject {Sous-Total \Project}%
+ \def\Total {Total}%
+\fi\fi
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% This is Afrikaans.
+%
+\ifx\l@afrikaans\undefined
+ \message{^^J(invoice) \Warning:
+ Language \string\l@afrikaans\space unknown.^^J^^J}
+\else
+\ifnum\number\invoice@language=\number\l@afrikaans
+ \def\Warning {Waarskuwing}
+ \def\Error {Fout}
+ \def\Expense {Onkostes}
+ \def\Amount {Bedrag}
+ \def\Currency {Valuta}
+ \def\Factor {Faktor}
+ \def\Activity {Aktiwiteit}
+ \def\Count {Aantal ure}
+ \def\UnitRate {Tarief}
+ \def\Fees {Fooie}
+ \def\VAT {BTW}
+ \def\Expenses {Uitgawes}
+ \def\SumFees {Totaal Fooie}
+ \def\SumVAT {Totaal BTW}
+ \def\SumExpenses {Totaal Uitgawes}
+ \def\SubtotalFee {Subtotaal \Fees}
+ \def\SubtotalExpenses {Subtotaal \Expenses}
+ \def\SubtotalProject {Subtotaal \Project}
+ \def\Total {Totaal}
+\fi\fi
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% This is Italian.
+%
+\ifx\l@italian\undefined
+ \message{^^J(invoice) \Warning:
+ Language \string\l@italian\space unknown.^^J^^J}
+\else
+\ifnum\number\invoice@language=\number\l@italian
+ \def\Warning {Avvertenza}%
+ \def\Error {Errore}%
+ \def\Expense {Spesa}%
+ \def\Amount {Ammontare}%
+ \def\Currency {Valuta}%
+ \def\Factor {Fattore}%
+ \def\Activity {Attivit\'a}%
+ \def\Count {Quantit\'a}%
+ \def\UnitRate {Prezzo/Unit\'a}%
+ \def\Fees {Onorario}%
+ \def\VAT {IVA}%
+ \def\Expenses {Spese}%
+ \def\SumFees {Totale onorario}%
+ \def\SumVAT {Totale IVA}%
+ \def\SumExpenses {Totale spese}%
+ \def\SubtotalFee {Subtotale onorario}%
+ \def\SubtotalExpenses {Subtotale spese}%
+ \def\SubtotalProject {Subtotale progetto}%
+ \def\Total {Totale}%
+\fi\fi
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% How to add new label languages to the `invoice' package:
+%
+% 1. Copy all following lines after this explanation
+% and insert them above this comment.
+%
+% 2. Remove all comment symbols at the beginning of the lines.
+%
+% 3. Fill the empty parentheses {} with the appropriate
+% translations.
+%
+% 4. Enter the correct internal language name used by LaTeX2e
+% into the condition of the \ifnum clause.
+%
+% 5. Please do not forget to mail the resulting file to
+% corff@zedat.fu-berlin.de or oliver.corff@email.de
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Name correct language name here --v--
+% and --v--!
+%\ifx\l@german\undefined
+% \message{^^J(invoice) \Warning:
+% Language \string\l@german\space unknown.^^J^^J}
+%\else
+%\ifnum\number\invoice@language=\number\l@german
+% \def\Warning {} % Enter translations here!
+% \def\Error {} %
+% \def\Expense {} %
+% \def\Amount {} %
+% \def\Currency {} %
+% \def\Factor {} %
+% \def\Activity {} %
+% \def\Count {} %
+% \def\UnitRate {} %
+% \def\Fees {} %
+% \def\VAT {} %
+% \def\Expenses {} %
+% \def\SumFees {} %
+% \def\SumVAT {} %
+% \def\SumExpenses {} %
+% \def\SubtotalFee {} %
+% \def\SubtotalExpenses {} %
+% \def\SubtotalProject {} %
+% \def\Total {} %
+%\fi
diff --git a/Master/texmf-dist/tex/latex/invoice/invoice.sty b/Master/texmf-dist/tex/latex/invoice/invoice.sty
new file mode 100644
index 00000000000..dbe6aaf4e6e
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/invoice/invoice.sty
@@ -0,0 +1,1012 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Datei: invoice.sty
+% Autor: Oliver Corff
+% Contact: corff@zedat.fu-berlin.de, oliver.corff@email.de
+% Datum: December 16, 2003
+% Version: 0.7
+% Copyright: Ulaanbaatar, Beijing, Berlin, Zagreb, Shenyang, Shanghai
+% Description: This collection of macros provides
+% tools for generating complex invoices
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Corrections, suggestions and contributions by:
+%%%%%%
+% Jacopo, May 2003
+% e-mail: jacopo@
+%
+% Contributed labels in Italian.
+%
+%%%%%%
+% O. Corff, July 2003
+%
+% fixed one nasty spacing bug, simplified internal table
+% construction (table now has five instead of six columns,
+% the second of which was never used).
+%
+%%%%%%
+% Johann Spies, January 21, 2002
+% e-mail: jspies@sun.ac.za
+%
+% Hinted that \Subtotal Project should show the project name
+% rather than just `Project'.
+%
+% Contributed labels in Afrikaans.
+%
+%%%%%%
+% Robin Fairbairns, December 6, 2001
+%
+% Hinted that the dollar sign can also be printed by saying
+% \string$.
+%
+%%%%%%
+% Vincent Tougait, France, November 27, 2001
+%
+% Pointed out that fractions of VAT percents were not allowed.
+% Bugfix on December 06, 2001
+%
+%%%%%%
+% Fred Donck, The Hague, The Netherlands, October, 2001
+% e-mail: fd0@donck.com
+%
+% Dutch labels
+%
+%%%%%%
+% Ian Wormsbecker, October 31, 2001
+%
+% Skips the VAT lines if VAT=0
+% Noticed that the terminal message will not accept a Dollar sign.
+% The only workaround is to say \char`$ in \begin{invoice}{}
+%
+%%%%%%
+% Fred Donck, The Hague, The Netherlands, Sept 18, 2001
+% e-mail: fd0@donck.com
+%
+% fixed some minor issues:
+% real arithmetic will use integer intermediate values, so
+% some calculations failed with the \Fee{title}{rate}{amount}
+% where \rate is not an integer
+%
+% another fix is that in my opinion the VAT line should be
+% printed also even though only one project is specified
+%
+% third fix is that the subtotal-line should not be printed
+% on a project with only one \Fee line
+%
+%%%%%%
+% Jacco Kok (fixed some labels),
+%
+%%%%%%
+% Thilo Barth (discussed alternative names and command clashes
+% with KOMA Script class scrlettr.cls),
+%
+%%%%%%
+% Robert Inder (discussed general issues)
+%
+% were gladly and gratefully received and accepted.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% ------------------- identification -------------------
+%
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{invoice}[2003/12/16]
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% ------------------- language options -------------------
+%
+%
+\newcount\invoice@language
+\let\invoice@language=\language
+%
+\ifx\l@english\undefined \newlanguage\l@english \fi
+\ifx\l@german\undefined \newlanguage\l@german \fi
+\ifx\l@dutch\undefined \newlanguage\l@dutch \fi
+\ifx\l@french\undefined \newlanguage\l@french \fi
+\ifx\l@afrikaans\undefined \newlanguage\l@afrikaans \fi
+\ifx\l@italian\undefined \newlanguage\l@italian \fi
+%
+\DeclareOption{english}{\invoice@language=\number\l@english}
+\DeclareOption{german}{\invoice@language=\number\l@german}
+\DeclareOption{dutch}{\invoice@language=\number\l@dutch}
+\DeclareOption{french}{\invoice@language=\number\l@french}
+\DeclareOption{afrikaans}{\invoice@language=\number\l@afrikaans}
+\DeclareOption{italian}{\invoice@language=\number\l@italian}
+%
+\ProcessOptions
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% ------------------- initial code -------------------
+%
+\RequirePackage{ifthen}
+\RequirePackage{longtable}
+\RequirePackage{calc}
+\input{realcalc}
+\input{invoice.def}
+%
+\newcommand{\InvoiceVersion}{0.7}%
+\newcounter{Fee} %
+\newcounter{VAT} %
+%\newcounter{VAT@rate} %
+\newcounter{Expenses} %
+\newcounter{Discount} % Discount item
+\newcounter{Total} %
+\newcounter{Project} %
+%
+\newcounter{Fee@ctr} % Number of fees per project
+ % no subtotal will be printed in case of
+ % value < 2
+%
+\newcounter{Expense@ctr} % Number of expense items per project
+ % no subtotal will be printed in case of
+ % value < 2
+%
+\newcounter{One@Fee} % Individual Fee
+\newcounter{One@VAT} % Individual VAT
+\newcounter{One@Expense} % Individual Expense
+%
+\newcounter{ST@Fee} % Subtotal Fee
+\newcounter{ST@VAT} % Subtotal VAT
+\newcounter{ST@Expenses} % Subtotal Expenses
+\newcounter{ST@Project} % Subtotal Project
+%
+\gdef\Flag{0}% % State 0: Invoice not started yet
+ % State 1: Start invoice
+ % State 2: Start project, print title
+ % State 3: Fee Item
+ % State 4: Print Subtotal Fee
+ % State 5: Expense Item
+ % State 6: Print Subtotal Expenses
+ % State 7: Print Subtotal Project
+ % State 8: Print Total, Close invoice
+%
+\gdef\Project{}% % Empty Project Name
+\def\Null{0}%
+\newif\ifVATnonzero
+% \def\BC{Euro}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%\newcommand{\my@message}[1]{\message{^^J#1^^J^^J}}
+\newcommand{\error@message}[1]{\errmessage{^^J\Error: #1^^J^^J}}
+\newcommand{\warning@message}[1]{\message{^^J\Warning: #1^^J^^J}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\ifx\invoice\undefined % False if KOMA Script scrlettr.cls
+ \def\my@invoice{invoice} % loaded. In this case one may say
+\else % "invoice". If true, the environ-
+ \def\my@invoice{invoiceenv} % ment is renamed to "invoiceenv"
+ \let\invoiceno\invoice % and the scrlettr macro is renamed
+ \def\invoice#1{% % to "invoiceno". Thank you, Thilo,
+ \error@message{\KOMA}} % for this hint!
+\fi %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newenvironment{\my@invoice}[2]{%
+ \setcounter{Fee@ctr}{0}% % reset counter
+ \setcounter{Expense@ctr}{0}% % reset counter
+ \def\Null{0}%
+ \setcounter{Project}{0}%
+ \ST@Reset\Total@Reset%
+ \def\BC{#1}%
+ \def\VAT@rate{#2}%
+ \ifx\VAT@rate\Null\VATnonzerofalse\else\VATnonzerotrue\fi%
+ \ifVATnonzero
+ \message{^^J^^JVAT is not zero!^^J^^J}%
+ \else
+ \message{^^J^^JVAT is zero!^^J^^J}%
+ \fi%
+ % The VAT is: \the\VAT@rate % Debugging Diagnostics only
+ \parindent=0cm%
+ \ifcase\Flag % 0: Invoice not started yet
+ %
+ \gdef\Flag{1}%
+ \begin{center}%
+ \begin{longtable}{p{5cm}lrrr}%
+ %
+ \else \error@message{\NoInvoiceNesting}%
+ \fi}%
+% At the end of environment:
+% Yields state 8->0, Close and complete invoice, finish tables, etc.
+{%
+ \ifcase\Flag % 0: Invoice not started yet
+ %
+ \error@message{\MissingOpening}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 1: Start invoice
+ %
+ \error@message{\MissingProject}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 2: Start project, print title
+ %
+ \error@message{\MissingInputData}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 3: Print remuneration item
+ %
+ \ifnum\theProject>0 \ST@Fee\ST@Project\fi%
+ \Tot@l%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 4: Print subtotal remuneration
+ %
+ \ifnum\theProject>1 \ST@Project\fi%
+ \Tot@l%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 5: Expense item
+ %
+ \ifnum\theProject>1 \ST@Expenses\ST@Project\fi%
+ \Tot@l%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 6: Print subtotal expenses
+ %
+ \ifnum\theProject>1 \ST@Project\fi%
+ \Tot@l%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 7: Print subtotal project
+ %
+ \Tot@l%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 8: Print total, close invoice
+ %
+ \warning@message{\InvoiceCompleted}%
+ %
+ \else \error@message{\InternalError}%
+ \fi%
+ \gdef\Flag{0}%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\ProjectTitle}[1]{% Yields state 2: Start Project
+ %\gdef\NewProject{#1}
+ %
+ \ifcase\Flag% 0: Invoice not started yet
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 1: Start invoice
+ %
+ \Project@Title{#1}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 2: Start project, print title
+ %
+ \error@message{\NoProjectNesting}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 3: Print remuneration item
+ %
+ \ST@Fee%
+ \ST@Project%
+ \Project@Title{#1}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 4: Print subtotal remuneration
+ %
+ \ST@Project%
+ \Project@Title{#1}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 5: Expense item
+ %
+ \ST@Expenses%
+ \ST@Project%
+ \Project@Title{#1}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 6: Print subtotal expenses
+ %
+ \ST@Project%
+ \Project@Title{#1}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 7: Print subtotal project
+ %
+ \Project@Title{#1}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 8: Print total, close invoice
+ %
+ \error@message{\InvoiceCompletedNoProject}%
+ %
+ \else \error@message{\InternalError}%
+ \fi%
+ \setcounter{Fee@ctr}{0}% % reset counter
+ \setcounter{Expense@ctr}{0}% % reset counter
+}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Fee}[3]{% Yields state 3, Print Fee Item
+ %
+ % #1 Contents
+ % #2 Fee per Unit
+ % #3 Unit Count
+ %
+ \ifcase\Flag % 0: Invoice not started yet
+ \error@message{\MissingOpening}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 1: Start invoice
+ %
+ \error@message{\MissingProject}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 2: Start project, print title
+ %
+ \Fee@Title%
+ \Fee@Line{#1}{#2}{#3}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 3: Print remuneration item
+ %
+ \Fee@Line{#1}{#2}{#3}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 4: Print subtotal remuneration
+ %
+ \warning@message{\FeeSTExists}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 5: Expense item
+ %
+ \error@message{\FeeBeforeExpense}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 6: Print subtotal expenses
+ %
+ \error@message{\FeeBeforeExpense}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 7: Print subtotal project
+ %
+ \error@message{\ProjectCompletedNoFee}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 8: Print total, close invoice
+ %
+ \error@message{\InvoiceCompletedNoFee}%
+ %
+ %
+ \else \error@message{\InternalError}%
+ \fi%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\STFee}{% Yields state 4, print subtotal remuneration
+ %
+ \ifcase\Flag % 0: Invoice not started yet
+ %
+ \error@message{\MissingOpening}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 1: Start invoice
+ %
+ \error@message{\MissingProject}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 2: Start project, print title
+ %
+ \error@message{\MissingFee}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 3: Print remuneration item
+ %
+ \Print@ST@Fees%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 4: Print subtotal remuneration
+ %
+ \warning@message{\FeeSTExists}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 5: Expense item
+ %
+ \error@message{\FeeBeforeExpense}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 6: Print subtotal expenses
+ %
+ \error@message{\FeeBeforeExpense}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 7: Print subtotal project
+ %
+ \error@message{\ProjectCompletedNoFee}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 8: Print total, close invoice
+ %
+ \error@message{\ProjectCompletedNoFee}%
+ %
+ \else \error@message{\InternalError}%
+ \fi%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\EBC}[2]{% Yields state 5: Expenses in BaseCurrency
+ %
+ % #1 Contents und Datum
+ % #2 Amount in BaseCurrency
+ %
+ \ifcase\Flag % 0: Invoice not started yet
+ %
+ \error@message{\MissingOpening}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 1: Start invoice
+ %
+ \error@message{\MissingProject}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 2: Start project, print title
+ %
+ \Expense@Title%
+ \Expense@BaseCurrency{#1}{#2}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 3: Print remuneration item
+ %
+ \ST@Fee%
+ \Expense@Title%
+ \Expense@BaseCurrency{#1}{#2}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 4: Print subtotal remuneration
+ %
+ \Expense@Title%
+ \Expense@BaseCurrency{#1}{#2}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 5: Expense item
+ %
+ \Expense@BaseCurrency{#1}{#2}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 6: Print subtotal expenses
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 7: Print subtotal project
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 8: Print total, close invoice
+ %
+ \error@message{\InvoiceCompletedNoExpense}%
+ %
+ \else \error@message{\InternalError}%
+ \fi%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\EBCi}[2]{% Yields state 5: Expenses in BaseCurrency
+ % But, unlike base form (no
+ % 'invisible') this version does
+ % not state the item, it only
+ % the total amount of expenses.
+ %
+ % #1 Contents und Datum
+ % #2 Amount in BaseCurrency
+ %
+ \ifcase\Flag % 0: Invoice not started yet
+ %
+ \error@message{\MissingOpening}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 1: Start invoice
+ %
+ \error@message{\MissingProject}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 2: Start project, print title
+ %
+ %\Expense@Title%
+ \Expense@Base@Currency{#1}{#2}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 3: Print remuneration item
+ %
+ \ST@Fee%
+ %\Expense@Title%
+ \Expense@Base@Currency{#1}{#2}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 4: Print subtotal remuneration
+ %
+ %\Expense@Title%
+ \Expense@Base@Currency{#1}{#2}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 5: Expense item
+ %
+ \Expense@Base@Currency{#1}{#2}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 6: Print subtotal expenses
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 7: Print subtotal project
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 8: Print total, close invoice
+ %
+ \error@message{\InvoiceCompletedNoExpense}%
+ %
+ \else \error@message{\InternalError}%
+ \fi%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\EFC}[5]{% Yields state 5: Expenses in ForeignCurrency
+ %
+ % #1 Contents und Datum
+ % #2 Currency
+ % #3 Amount
+ % #4 Exchange Rate
+ % #5 Amount Zielwaehrung
+ %
+ % Usage:
+ % 1. {Contents}{ForeignCurrency}{ExchangeRate}{}
+ % 2. {Contents}{ForeignCurrency}{}{BaseCurrency}
+ % 3. {Contents}{ForeignCurrency}{ExchangeRate}{BaseCurrency}
+ %
+ \ifcase\Flag % 0: Invoice not started yet
+ %
+ \error@message{\MissingOpening}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 1: Start invoice
+ %
+ \error@message{\MissingProject}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 2: Start project, print title
+ %
+ \Expense@Title%
+ \Expense@ForeignCurrency{#1}{#2}{#3}{#4}{#5}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 3: Print remuneration item
+ %
+ \ST@Fee%
+ \Expense@Title%
+ \Expense@ForeignCurrency{#1}{#2}{#3}{#4}{#5}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 4: Print subtotal remuneration
+ %
+ \Expense@Title%
+ \Expense@ForeignCurrency{#1}{#2}{#3}{#4}{#5}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 5: Expense item
+ %
+ \Expense@ForeignCurrency{#1}{#2}{#3}{#4}{#5}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 6: Print subtotal expenses
+ %
+ \error@message{\ProjectCompletedNoExpense}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 7: Print subtotal project
+ %
+ \error@message{\ProjectCompletedNoExpense}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 8: Print total, close invoice
+ %
+ \error@message{\InvoiceCompletedNoExpense}%
+ %
+ \else \error@message{\InternalError}%
+ \fi%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\EFCi}[5]{% Yields state 5: Expenses in ForeignCurrency
+ % But, unlike base form (no
+ % 'invisible') this version does
+ % not state the item, it only
+ % the total amount of expenses.
+ %
+ % #1 Contents und Datum
+ % #2 Currency
+ % #3 Amount
+ % #4 Exchange Rate
+ % #5 Amount Zielwaehrung
+ %
+ % Usage:
+ % 1. {Contents}{ForeignCurrency}{ExchangeRate}{}
+ % 2. {Contents}{ForeignCurrency}{}{BaseCurrency}
+ % 3. {Contents}{ForeignCurrency}{ExchangeRate}{BaseCurrency}
+ %
+ \ifcase\Flag % 0: Invoice not started yet
+ %
+ \error@message{\MissingOpening}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 1: Start invoice
+ %
+ \error@message{\MissingProject}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 2: Start project, print title
+ %
+ \Expense@Title%
+ \Expense@Foreign@Currency{#1}{#2}{#3}{#4}{#5}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 3: Print remuneration item
+ %
+ \ST@Fee%
+ % \Expense@Title%
+ \Expense@Foreign@Currency{#1}{#2}{#3}{#4}{#5}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 4: Print subtotal remuneration
+ %
+ % \Expense@Title%
+ \Expense@Foreign@Currency{#1}{#2}{#3}{#4}{#5}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 5: Expense item
+ %
+ \Expense@Foreign@Currency{#1}{#2}{#3}{#4}{#5}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 6: Print subtotal expenses
+ %
+ \error@message{\ProjectCompletedNoExpense}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 7: Print subtotal project
+ %
+ \error@message{\ProjectCompletedNoExpense}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 8: Print total, close invoice
+ %
+ \error@message{\InvoiceCompletedNoExpense}%
+ %
+ \else \error@message{\InternalError}%
+ \fi%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\STExpenses}{% Yields state 6: Ausgabe der ST Expenses
+ %
+ \ifcase\Flag % 0: Invoice not started yet
+ %
+ \error@message{\MissingOpening}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 1: Start invoice
+ %
+ \error@message{\MissingProject}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ \or % 2: Start project, print title
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ \or % 3: Print remuneration item
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ \or % 4: Print subtotal remuneration
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 5: Expense item
+ %
+ \Print@ST@Expenses%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 6: Print subtotal expenses
+ %
+ \warning@message{\ProjectCompletedNoExpense}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 7: Print subtotal project
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 8: Print total, close invoice
+ %
+ \error@message{\InvoiceCompletedNoExpense}%
+ %
+ \else \error@message{\InternalError}%
+ \fi%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\STProject}{% Yields state 7: Ausgabe der ST Project
+ %
+ \ifcase\Flag % 0: Invoice not started yet
+ %
+ \error@message{\MissingOpening}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 1: Start invoice
+ %
+ \error@message{\MissingProject}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 2: Start project, print title
+ %
+ \warning@message{\ProjectEmpty}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 3: Print remuneration item
+ %
+ \ST@Fee%
+ \ST@Project%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 4: Print subtotal remuneration
+ %
+ \ST@Project%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 5: Expense item
+ %
+ \ST@Expenses%
+ \ST@Project%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 6: Print subtotal expenses
+ %
+ \ST@Project%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 7: Print subtotal project
+ %
+ \warning@message{\ProjectSTExists}%
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \or % 8: Print total, close invoice
+ %
+ \error@message{\InvoiceCompletedNoProjectST}%
+ %
+ \else \error@message{\InternalError}%
+ \fi%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Discount}[2]{% Yields no particular state.
+ % Inserts discount in project total,
+ % names discount reason
+ % and amount of discount
+ %
+ \gdef\Discount@Contents{#1}%
+ \setcounter{Discount}{100 * \real{-#2}}%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Total@Reset}{%
+ \setcounter{Fee}{0}%
+ \setcounter{VAT}{0}%
+ \setcounter{Expenses}{0}%
+ \setcounter{Total}{0}%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\ST@Reset}{%
+ \setcounter{ST@Fee}{0}%
+ \setcounter{ST@VAT}{0}%
+ \setcounter{ST@Expenses}{0}%
+ \setcounter{ST@Project}{0}%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Print@Value}[1]{%
+ \Rmul\r#1{0.01}%% <- Reduce to BaseCurrency
+ \Rtrunc\r{2}\r% % <- Truncate to two digits
+ \r% % <- Output data!
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Message@Value}[1]{%
+ \Rmul\r#1{0.01}%% <- Reduce to BaseCurrency
+ \Rtrunc\r{2}\r% % <- Truncate to two digits
+ \message{\r}% % <- Output data!
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Project@Title}[1]{%
+ % Internal command called by \ProjectTitle.
+ %
+ \gdef\Flag{2}%
+ \gdef\Project{#1}%
+ \ST@Reset\addtocounter{Project}{1}%
+ \ifnum\theProject>1 \\\\\else\\\fi%
+ \multicolumn{5}{c}{\textbf{\large#1}}\\%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Fee@Title}{%
+ \\
+ \noindent\textbf{\Activity}&&\UnitRate&\Count&\Amount\ (\BC)\\
+ \hline%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Fee@Line}[3]{%
+ %
+ % #1 Contents
+ % #2 Charged Fee per Unit
+ % #3 Count
+ %
+ % Internal command, called by \Fee.
+ %
+ \gdef\Flag{3}%
+ %
+ #1 & &#2 &#3 &
+%
+% next is reversed to allow real arithmetic.
+% intermediate results are stored in integer format, so calculations are
+% incorrect in case #2 is a real.
+% fixed by exchanging the 1 and the 100
+%
+ \setcounter{One@Fee}{100 * \real{#2} * \real{#3} * 1}%
+%
+ \addtocounter{ST@Fee}{\theOne@Fee}%
+ \addtocounter{Fee}{\theOne@Fee}%
+ \addtocounter{Fee@ctr}{1}% increase counter with 1
+ \Print@Value{\theOne@Fee}\\%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\ST@Fee}{%
+ % \gdef\Flag{4}%
+ \ifnum\theST@Fee>0%
+ \ifthenelse{\theFee@ctr>1} % % if more than 1 \Fee line
+ {\Print@ST@Fees% % print it, else
+ }%
+ {}% % do nothing
+ \ifVATnonzero\ST@VAT@Printout\fi%
+ \fi%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Print@ST@Fees}{%
+ \gdef\Flag{4}%
+ \SubtotalFee & & & &% print the subtotal of fees
+ \Print@Value{\theST@Fee}\\%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\ST@VAT@Printout}{%
+ \VAT\ (\VAT@rate\%) & & & &%
+ \setcounter{ST@VAT}{\theST@Fee * \real{\VAT@rate} / 100}%
+ \Print@Value{\theST@VAT}\\%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Expense@BaseCurrency}[2]{%
+ #1 & \BC & & &%
+ \gdef\Flag{5}%
+ \Rmul\r{100}{#2}%
+ \setcounter{One@Expense}{1*\real{\r}}%
+ \addtocounter{ST@Expenses}{\theOne@Expense}%
+ \addtocounter{Expenses}{\theOne@Expense}%
+ \addtocounter{Expense@ctr}{1}%advance counter
+ \Print@Value{\theOne@Expense}\\%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Expense@Base@Currency}[2]{%
+ \gdef\Flag{5}%
+ \Rmul\r{100}{#2}%
+ \setcounter{One@Expense}{1*\real{\r}}%
+ \addtocounter{ST@Expenses}{\theOne@Expense}%
+ \addtocounter{Expenses}{\theOne@Expense}%
+ \addtocounter{Expense@ctr}{1}%advance counter
+ & & & & \\[-1.2em]% This is an ugly kludge:
+ % Inserting an empty line
+ % which rolls backwards
+ % makes disappear the spurious
+ % spaces caused by external
+ % routines.
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Expense@ForeignCurrency}[5]{%
+ \gdef\Flag{5}%
+ %
+ % Folgende Angaben sind moeglich:
+ % 1. {Contents}{Currency}{Amount}{Umrechnung}{ }
+ % 2. {Contents}{Currency}{Amount}{ }{BaseCurrency}
+ % 3. {Contents}{Currency}{Amount}{Umrechnung}{BaseCurrency}
+ %
+ #1 & #2 & #3 & #4&%
+ \ifthenelse{\equal{#5}{}}% Target in BaseCurrency or not?
+ {% Target not in BaseCurrency
+ \Rmul\r{100}{#3}%
+ \Rmul\r \r {#4}%
+ }%
+ {% Target in BaseCurrency
+ \Rmul\r{100}{#5}%
+ }%
+ \setcounter{One@Expense}{1*\real{\r}}%
+ \addtocounter{ST@Expenses}{\theOne@Expense}%
+ \addtocounter{Expenses}{\theOne@Expense}%
+ \addtocounter{Expense@ctr}{1}%advance counter
+ \Print@Value{\theOne@Expense}%
+\\%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Expense@Foreign@Currency}[5]{%
+ \gdef\Flag{5}%
+ %
+ % Folgende Angaben sind moeglich:
+ % 1. {Contents}{Currency}{Amount}{Umrechnung}{ }
+ % 2. {Contents}{Currency}{Amount}{ }{BaseCurrency}
+ % 3. {Contents}{Currency}{Amount}{Umrechnung}{BaseCurrency}
+ %
+ \ifthenelse{\equal{#5}{}}% Target in BaseCurrency or not?
+ {% Target not in BaseCurrency
+ \Rmul\r{100}{#3}%
+ \Rmul\r\r{#4}%
+ }%
+ {% Target in BaseCurrency
+ \Rmul\r{100}{#5}%
+ }%
+ \setcounter{One@Expense}{1*\real{\r}}%
+ \addtocounter{ST@Expenses}{\theOne@Expense}%
+ \addtocounter{Expenses}{\theOne@Expense}%
+ \addtocounter{Expense@ctr}{1}%advance counter
+ & & & & \\[-1.2em]% ugly kludge as above
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Expense@Title}{%
+ \\%
+ \textbf{\Expense}&\Currency&\Amount&\Factor &\BC\\%
+ \hline%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\ST@Expenses}{%
+ % \gdef\Flag{6}%
+ \ifnum\theST@Expenses>0%
+ \ifthenelse{\theExpense@ctr>1}% % if more than 1 Expense line
+ {\Print@ST@Expenses}% % print it, else
+ {}% % do nothing
+ \fi%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Print@ST@Expenses}{%
+ \gdef\Flag{6}%
+ & & & & \\[-1.2em]% ugly kludge as above
+ \SubtotalExpenses & & & &% print the subtotal of expenses
+ \Print@Value{\theST@Expenses}\\%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\ST@Project}{%
+ \gdef\Flag{7}%
+ \\
+ %\multicolumn{4}{l}{\SubtotalProject}%
+ %\let\Project\NewProject%
+ %&
+ \SubtotalProject & & & &
+ \addtocounter{ST@Project}{\theST@Fee}%
+ \addtocounter{ST@Project}{\theST@VAT}%
+ \addtocounter{ST@Project}{\theST@Expenses}%
+ \Print@Value{\theST@Project}\\
+}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Total@VAT@Printout}{%
+ \setcounter{VAT}{\theFee*\real{\VAT@rate}/100}%
+ \SumVAT & & & &\Print@Value{\theVAT}\\%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand{\Tot@l}{%
+ \\\hline
+ \ifnum\theFee>0 \SumFees& & & &%
+ \Print@Value{\theFee}\\
+ \ifVATnonzero%
+ \Total@VAT@Printout%
+ \fi%
+ \fi%
+ \ifnum\theExpenses>0 \SumExpenses& & & &%
+ \Print@Value{\theExpenses}\\
+ \fi%
+ \ifnum\theDiscount<0 \Discount@Contents& & & &%
+ \Print@Value{\theDiscount}\\
+ \fi%
+ \hline\hline
+ \textbf{\Total} & & & &%
+ \message{^^J\Currency: \BC}%
+ \message{^^J\VAT: \VAT@rate}%
+ \addtocounter{Total}{\theFee}%
+ \message{^^J\SumFees: }\Message@Value{\theFee}%
+ \addtocounter{Total}{\theVAT}%
+ \message{^^J\SumVAT: }\Message@Value{\theVAT}%
+ \addtocounter{Total}{\theExpenses}%
+ \message{^^J\SumExpenses: }\Message@Value{\theExpenses}%
+ \ifnum\theDiscount<0 %
+ \addtocounter{Total}{\theDiscount}%
+ \message{^^J\Discount@Contents: }\Message@Value{\theDiscount}%
+ \fi %
+ \textbf{\Print@Value{\theTotal}}%
+ \message{^^J\Total: }%
+ \Message@Value{\theTotal}\message{^^J^^J}\\%
+ \end{longtable}
+ \end{center}
+ \gdef\Flag{8}%
+}
+\endinput
+% vim:ts=4:sw=4