marei: simplify insettings.tex file structure
[kivitendo-erp.git] / templates / print / marei / kiviletter.sty
index 219a755..cce6ebe 100644 (file)
@@ -25,9 +25,6 @@
 \RequirePackage{tabularx}
 \RequirePackage{longtable}
 \RequirePackage{booktabs}
-\PassOptionsToPackage{table}{xcolor}
-
-\RequirePackage{xcolor}
 \RequirePackage{graphicx}
 
 \ifPDFTeX
@@ -53,7 +50,6 @@
 \dim_new:N \g_kivi_margin_dim
 \dim_gset:Nn \g_kivi_margin_dim {\useplength{toaddrhpos}}
 \geometry{a4paper,margin=\g_kivi_margin_dim,heightrounded}
-\savegeometry{kivi.letter@default}
 %Scratch variables
 \int_new:N \l_kivi_tmp_int
 \bool_new:N \l_kivi_tmp_bool
@@ -71,25 +67,14 @@ voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+4\baselineskip
 contents={\usebox\shippingAddressBox}
 ]{kivitendo.shippingaddress}
 
-
-\ExplSyntaxOn
-\AtBeginLetter{\dim_gset:Nn \g_kivi_orig@textheight_dim {\textheight}}
-\ExplSyntaxOff
-
 \newpairofpagestyles{kivitendo.letter}{}
+
 \renewcommand*{\letterpagestyle}{kivitendo.letter}
 
-\DeclareNewPageStyleByLayers{kivitendo.letter.PricingTable}{
-       kivitendo.TableHead,
-       kivitendo.TableFoot
-       kivitendo.letter.head.odd,kivitendo.letter.head.even,kivitendo.letter.head.oneside,%
-       kivitendo.letter.foot.odd,kivitendo.letter.foot.even,kivitendo.letter.foot.oneside,%
-}
 \DeclareNewPageStyleByLayers{kivitendo.letter.first}{
        kivitendo.shippingaddress,
-       kivitendo.TableFoot,
-       kivitendo.letter.head.odd,kivitendo.letter.head.even,kivitendo.letter.head.oneside,%
-       kivitendo.letter.foot.odd,kivitendo.letter.foot.even,kivitendo.letter.foot.oneside,%
+       plain.kivitendo.letter.head.odd,plain.kivitendo.letter.head.even,plain.kivitendo.letter.head.oneside,%
+       plain.kivitendo.letter.foot.odd,plain.kivitendo.letter.foot.even,plain.kivitendo.letter.foot.oneside,%
 }
 
 \setkomavar{backaddress}{\firma\ $\cdot$ \strasse\ $\cdot$ \ort}
@@ -103,23 +88,98 @@ contents={\usebox\shippingAddressBox}
 \@setplength{locwidth}{6cm}
 
 \ExplSyntaxOn
-\dim_new:N \g_kivi_tab_pos_dim
-\dim_gset:Nn \g_kivi_tab_pos_dim {3.5ex}
-\dim_new:N \g_kivi_tab_id_dim
-\dim_gset:Nn \g_kivi_tab_id_dim {4em}
-\dim_new:N \g_kivi_tab_num_dim
-\dim_gset:Nn \g_kivi_tab_num_dim {5em}
-\dim_new:N \g_kivi_tab_price_dim
-\dim_gset:Nn \g_kivi_tab_price_dim {7em}
-\dim_new:N \g_kivi_tab_desc_dim
+\dim_new:N \l_kivi_tab_desc_leftskip_dim
+
+
+
+\cs_new:Nn \__kivi_set_colwidth:nn  {
+       \dim_set:cn {l_kivi_tab_#1_dim} {#2}
+}
+
+
+\cs_new:Nn \__kivi_initialize_columns: {
+       \clist_map_inline:Nn \g_kivi_pricingtable_col_clist {
+               \bool_if_exist:cF {l_kivi_col_##1_bool} 
+               {
+                       \bool_new:c {l_kivi_col_##1_bool}
+                       \dim_new:c {l_kivi_tab_##1_dim}
+                       \keys_define:nn {kivi/PricingTable} {
+                               ##1 .choice:,
+                               ##1 / true .code:n = \bool_set_true:c {l_kivi_col_##1_bool},
+                               ##1 / false .code:n = \bool_set_false:c {l_kivi_col_##1_bool},
+                               ##1 / unknown .code:n = {
+                                       \bool_set_true:c {l_kivi_col_##1_bool}
+                                       \dim_set:cn {l_kivi_tab_##1_dim} {####1}
+                               },
+                               ##1 .default:n = true,
+                               ##1 .initial:n = true,
+                               ##1 / header .prop_put:c = {l_kivi_col_##1_prop},
+                               ##1 / colspec .prop_put:c = {l_kivi_col_##1_prop},
+                       }
+               }
+       }
+}
+
+\clist_new:N \g_kivi_pricingtable_col_clist
+
+\keys_define:nn {kivi/PricingTable} {
+       columns .code:n = 
+       \clist_gset:Nn \g_kivi_pricingtable_col_clist {#1}
+       \__kivi_initialize_columns:,
+       columns .initial:n = {pos, id, desc, amount, price, pricetotal},
+}
+
+% set default values for colwidth
+\keys_set:nn {kivi/PricingTable} {
+       pos=5ex,
+       id=4em,
+       amount=5em,
+       price=7em,
+       pricetotal=7em,
+%      desc=auto,
+       pos/header=\position,
+       id/header=\artikelnummer,
+       desc/header=\bezeichnung,
+       amount/header=\menge,
+       price/header=\einzelpreis,
+       pricetotal/header=\gesamtpreis,
+       price / colspec = Price,
+       pricetotal / colspec = Price ,
+}
 
 \dim_new:N \g_kivi_tabcolsep_dim
 \dim_gset:Nn \g_kivi_tabcolsep_dim {.5\tabcolsep}
-\newcommand*{\CalcTabCols}{
-       \dim_gset:Nn \g_kivi_tab_desc_dim {\textwidth-\g_kivi_tab_pos_dim -\g_kivi_tab_id_dim-\g_kivi_tab_num_dim - 2\g_kivi_tab_price_dim - 10\g_kivi_tabcolsep_dim}
+
+\cs_new:Nn \__kivi_calc_desc_column: {
+       \dim_zero:N \l_kivi_tab_desc_leftskip_dim
+       \dim_zero:N \l_kivi_tab_desc_dim
+       \bool_set_false:N \l_tmpa_bool
+       \clist_map_inline:Nn \g_kivi_pricingtable_col_clist {
+               \tl_if_eq:nnTF {##1} {desc}  {
+                       \dim_set:Nn \l_kivi_tab_desc_dim {
+                               \textwidth-\l_kivi_tab_desc_leftskip_dim
+                       }
+                       \bool_set_true:N \l_tmpa_bool
+               
+               }{
+                       \bool_if:NTF \l_tmpa_bool {
+                               \bool_if:cT {l_kivi_col_##1_bool} {
+                                       \dim_sub:Nn \l_kivi_tab_desc_dim {
+                                               \dim_use:c {l_kivi_tab_##1_dim}+2\g_kivi_tabcolsep_dim
+                                       }
+                               }
+                       }{
+                               \bool_if:cT {l_kivi_col_##1_bool} {
+                                       \dim_add:Nn \l_kivi_tab_desc_leftskip_dim {
+                                               \dim_use:c {l_kivi_tab_##1_dim}+2\g_kivi_tabcolsep_dim
+                                       }
+                               }
+                       }
+               }
+       }
 }
 
-\newcolumntype{P}{>{\raggedleft\arraybackslash}p{\g_kivi_tab_price_dim}<{\,\currency}}
+\newcolumntype{P}[1]{>{\raggedleft\arraybackslash}p{#1}<{\__kivi_tab_column_currency:}}
 
 \RequirePackage{tcolorbox}
 \tcbuselibrary{breakable, skins}
@@ -133,13 +193,14 @@ contents={\usebox\shippingAddressBox}
        },
        underlay~unbroken~and~last={
        \node[anchor=north]  at (interior.north)  {\csname box_use:c\endcsname  {g_kivi_LT@head_box}};
+       \node[anchor=south]  at (interior.south)  {\csname box_use:c\endcsname  {g_kivi_LT@lastfoot_box}};
        },
        boxsep=0pt,
        boxrule=0pt,
        left=0pt,
        right=0pt,
-       bottom=\box_ht:N  \g_kivi_LT@foot_box+\box_dp:N  \g_kivi_LT@foot_box,
-       top=\box_ht:N  \g_kivi_LT@head_box+\box_dp:N  \g_kivi_LT@head_box,
+       bottom=\box_ht:N  \g_kivi_LT@foot_box+\box_dp:N  \g_kivi_LT@foot_box + \aboverulesep,
+       top=\box_ht:N  \g_kivi_LT@head_box+\box_dp:N  \g_kivi_LT@head_box +\belowrulesep,
        parbox=false,
 }
 
@@ -163,108 +224,178 @@ contents={\usebox\shippingAddressBox}
 
 
 \seq_new:N \l_kivi_PricingTable_seq
+\seq_new:N \l_kivi_columns_seq
 \seq_new:N \g_kivi_extraDescription_seq
 \newcommand{\FakeTable}[1]{
        \par
-       \CalcTabCols
        \seq_set_split:Nnn \l_kivi_PricingTable_seq {\tabularnewline} {#1}
+       \seq_remove_all:Nn \l_kivi_PricingTable_seq {}
        \begingroup
+       \setlength{\parskip}{\c_zero_dim}
+       \let\ExtraDescription\__kivi_addExtraDescription:n
        \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
        \seq_map_inline:Nn \l_kivi_PricingTable_seq {
+               \seq_set_split:Nnn  \l_kivi_columns_seq {&} {##1}
        \seq_gclear:N \g_kivi_extraDescription_seq
-       \exp_args:NnV \use:n {\tabular[t]}\g_kivi_Pricing_colspec_tl
-       ##1
+       \exp_args:Nnx \use:n {\tabular[t]}\g_kivi_Pricing_colspec_tl
+               \seq_pop_left:NN \__l_FakeTable_columns_seq \l_tmpa_tl
+               \seq_item:Nn \l_kivi_columns_seq {\l_tmpa_tl}
+               \seq_map_inline:Nn \__l_FakeTable_columns_seq {
+                       &\seq_item:Nn \l_kivi_columns_seq {####1}
+               }
        \endtabular
        \seq_if_empty:NTF \g_kivi_extraDescription_seq
-       {\par\nointerlineskip}
-       {\par\nointerlineskip
-       \begin{tcolorbox}[
-               empty,
-               left=\dim_eval:n {\g_kivi_tab_pos_dim+ \g_kivi_tab_id_dim +4\g_kivi_tabcolsep_dim},
-               right=\dim_eval:n {\g_kivi_tab_num_dim+ 2\g_kivi_tab_price_dim +6\g_kivi_tabcolsep_dim},top=0pt,bottom=0pt,
-               boxsep=0pt,
-               breakable,
-               lines~before~break=1,
-       ]
+       {\par}
+       {\par\nopagebreak
+       \begingroup
+       \setlength{\hsize}{\dimexpr\l_kivi_tab_desc_dim+\l_kivi_tab_desc_leftskip_dim}
+       \setlength{\leftskip}{\l_kivi_tab_desc_leftskip_dim}
+       \usekomafont{extraDescription}
        \seq_use:Nn \g_kivi_extraDescription_seq {\\}
-       \end{tcolorbox}
-       \nointerlineskip
+       \par\nointerlineskip
+       \endgroup
        }
        }
        \endgroup
 }
 
 
+\seq_new:N  \__l_FakeTable_columns_seq
+\cs_new:Nn \__kivi_setup_FakeTable: {
+       \seq_clear:N \__l_FakeTable_columns_seq
+       \int_zero:N \l_tmpa_int
+       \clist_map_inline:Nn \g_kivi_pricingtable_col_clist {
+               \int_incr:N \l_tmpa_int
+               \bool_if:cT {l_kivi_col_##1_bool} {\seq_put_right:Nx \__l_FakeTable_columns_seq {\int_use:N \l_tmpa_int}}
+       }
+}
+
 \tl_new:N \g_kivi_Pricing_colspec_tl
-\tl_gset:Nn \g_kivi_Pricing_colspec_tl {@{}p{\g_kivi_tab_pos_dim}p{\g_kivi_tab_id_dim}p{\g_kivi_tab_desc_dim}>{\raggedleft\arraybackslash}p{\g_kivi_tab_num_dim}*2{P}@{}}
+\tl_gset:Nn \g_kivi_Pricing_colspec_tl {
+       @{}
+       \bool_if:NT \l_kivi_col_pos_bool {p{\l_kivi_tab_pos_dim}}
+       \bool_if:NT \l_kivi_col_id_bool {p{\l_kivi_tab_id_dim}}
+       p{\l_kivi_tab_desc_dim}
+       \bool_if:NT \l_kivi_col_amount_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_amount_dim}}}
+       \bool_if:NT \l_kivi_col_price_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_price_dim}<{\__kivi_tab_column_currency:}}}
+       \bool_if:NT \l_kivi_col_pricetotal_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_pricetotal_dim}<{\__kivi_tab_column_currency:}}}
+       @{}
+}
 
+\cs_new:Nn \__kivi_tab_column_currency: {\,\currency}
+\def\tabcurrency{\__kivi_tab_column_currency:}
+\cs_set:Nn \__kivi_tab_column_header_currency: {}
+\cs_set_eq:NN \__kivi_tab_column_body_currency:  \__kivi_tab_column_currency:
 
 \clist_map_inline:nn {head, foot, firsthead, lastfoot} {%TODO reduce
        \box_new:c {g_kivi_LT@#1_box}
 }
 
+\newkomafont{PricingTableHeader}{\bfseries}
 
-\cs_new:Nn \kivi_setup_LT_boxes: {
-       \CalcTabCols
+\cs_new:Nn \__kivi_setup_LT_boxes: {
+       \__kivi_calc_desc_column:
        \hbox_gset:Nn \g_kivi_LT@head_box {
-       \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
-       \exp_args:NnV \use:n {\tabular[b]}\g_kivi_Pricing_colspec_tl
-       \toprule
-       \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
-       \midrule
-       \endtabular
+               \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
+               \exp_args:Nnx \use:n {\tabular[b]}\g_kivi_Pricing_colspec_tl
+               \__kivi_PricingTabular_header:
+               \endtabular
        }
        \hbox_gset:Nn \g_kivi_LT@foot_box {
-       \raisebox{\depth}{
-       \begin{tabular*}{\textwidth}{@{\extracolsep{\fill}}r@{}}
-       \midrule
-       \strut\weiteraufnaechsterseite
-       \end{tabular*}
+               \raisebox{\depth}{
+                       \begin{tabular*}{\textwidth}{@{\extracolsep{\fill}}r@{}}
+                               \midrule
+                               \strut\weiteraufnaechsterseite
+                       \end{tabular*}
+               }
        }
+       \hbox_gset:Nn \g_kivi_LT@lastfoot_box {
+               \raisebox{\dimexpr\depth+\baselineskip}[0pt][0pt]{
+                       \begin{tabular*}{\textwidth}{@{\extracolsep{\fill}}r@{}}
+                               \bottomrule
+                       \end{tabular*}
+               }
        }
 }
 
 
 %Macht es sinn hier eine Variante zu machen, in der alle Spalten Belegbar sind?
 \newenvironment{PricingTotal}{
-       \tabular[t]{@{}p{\dim_eval:n {\linewidth-\g_kivi_tab_price_dim-2\tabcolsep}}P@{}}
+       \par\nointerlineskip
+       \unskip
+       \tabular[t]{@{}p{\dim_eval:n {\linewidth-\l_kivi_tab_pricetotal_dim-2\tabcolsep}}P{\l_kivi_tab_pricetotal_dim}@{}}
        \midrule
 }{
-       \bottomrule\endtabular
+       \endtabular
 }
 
-\newcommand{\ExtraDescription}[1]{\seq_gput_right:Nn \g_kivi_extraDescription_seq {#1}}
-%\else
+
+\newcommand*\ExtraDescription{
+       \PackageError{kiviletter}{The~command~\string\ExtraDescription\space~may~be~only~used~inside~the~\string\FakeTable\space~environment.}{See~documentation~for~details}
+}
+
+
+\cs_new:Nn \__kivi_addExtraDescription:n {\seq_gput_right:Nn \g_kivi_extraDescription_seq {#1}}
+
 \newenvironment{PricingTabular}[1][]{
        \begingroup
+       \dim_set:Nn \parskip {\c_zero_dim}
+       \tl_if_empty:nF {#1} {\keys_set:nn {kivi/PricingTable} {#1}}
        \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
-       \CalcTabCols
-       \exp_args:NV \longtable \g_kivi_Pricing_colspec_tl
+       \__kivi_calc_desc_column:
+       \exp_args:Nx \longtable \g_kivi_Pricing_colspec_tl
        % Tabellenkopf
-       \toprule
-       \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
-       \midrule
+       \__kivi_PricingTabular_header:
        \endhead
        \midrule
-       \multicolumn{6}{@{}r@{}}{\weiteraufnaechsterseite}\\
+       \rlap{\makebox[\textwidth][r]{\weiteraufnaechsterseite}}\\
        \endfoot
+       \bottomrule
+       \endlastfoot
 }{
        \endlongtable
        \endgroup
 }
 
+\cs_set:Nn \__kivi_PricingTabular_header: {
+       \toprule
+       \cs_gset_eq:NN \__kivi_tab_column_currency: \__kivi_tab_column_header_currency:
+       \bool_set_false:N \l_tmpa_bool
+       \clist_map_inline:Nn \g_kivi_pricingtable_col_clist     {
+               \bool_if:cT {l_kivi_col_##1_bool} {
+                       \bool_if:NT \l_tmpa_bool {&}
+                       \bool_set_true:N \l_tmpa_bool
+                       \usekomafont{PricingTableHeader}
+                       \prop_item:cn {l_kivi_col_##1_prop} {header}
+               }
+       }
+       \cs_gset_eq:NN \__kivi_tab_column_currency: \__kivi_tab_column_body_currency:
+       \\
+       \midrule
+}
+
 \RequirePackage{xltabular}
 
+\keys_define:nn {kivi/SimpleTabular} {
+       colspec .tl_set:N =\l_kivi_SimpleTabular_colspec_tl,
+       colspec .initial:n = {rrX},
+       headline .tl_set:N = \l_kivi_SimpleTabular_headline_tl,
+       headline .initial:n = {\bfseries\position & \bfseries\menge & \bfseries\bezeichnung},
+}
 
-\newenvironment{SimpleTabular}[1][\bfseries\position & \bfseries\menge & \bfseries\bezeichnung]
+\newenvironment{SimpleTabular}[1][]
 {
+       \tl_if_in:nnTF {#1} {=} {\keys_set:nn {kivi/SimpleTabular} {#1}} {\tl_if_empty:nF {#1} {\tl_set:Nn \l_kivi_SimpleTabular_headline_tl {#1}}}
        \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
-       \xltabular{\linewidth}{@{}rrX@{}}
+       \tl_put_right:Nn \l_kivi_SimpleTabular_colspec_tl {@{}}
+       \tl_put_left:Nn \l_kivi_SimpleTabular_colspec_tl {@{}}
+       \exp_args:NnV \xltabular{\linewidth}\l_kivi_SimpleTabular_colspec_tl
        \toprule
-       #1\\
-       \midrule\\\endhead
+       \l_kivi_SimpleTabular_headline_tl\\
+       \midrule
+       \endhead
        \midrule
-       \multicolumn{3}{@{}>{\raggedright}p{\linewidth}@{}}{\weiteraufnaechsterseite}\\
+       \rlap{\makebox[\textwidth][r]{\weiteraufnaechsterseite}}\\
        \endfoot
        \bottomrule
        \endlastfoot
@@ -274,11 +405,16 @@ contents={\usebox\shippingAddressBox}
        \endxltabular
 }
 
+%PricingTabular* kann automatisch spalten ignorieren
+% \begin{PricingTabular*}[id=false]
+% deaktiviert damit die Spalte der Produktnummer
+% analog ist dies für pos, amount, price, pricetotal möglich.
+% Die Spalte der Bezeichnung ist nicht deaktivierbar
 \newenvironment{PricingTabular*}[1][]{
-       \bool_gset_true:N \g_kivi_inTable_bool
        \tl_if_empty:nF {#1} {\keys_set:nn {kivi/PricingTable} {#1}}
        \__kivi_setup_LT_boxes:
        \__kivi_setup_FakeTable:
+       \dim_set:Nn \parskip {\c_zero_dim}
        \PricingTabularBox\ignorespaces
 }{\endPricingTabularBox}
 
@@ -319,15 +455,50 @@ contents={\usebox\shippingAddressBox}
 \removereffields
 \AtBeginLetter{
        \ifdim\ht\shippingAddressBox>\z@
-       \addtoplength{refvpos}{\dimexpr\ht\shippingAddressBox+\dp\shippingAddressBox}
-       \addtoplength{refvpos}{4\baselineskip}%sep between address boxes
+       \@addtoplength{refvpos}{\dimexpr\ht\shippingAddressBox+\dp\shippingAddressBox}
+       \@addtoplength{refvpos}{4\baselineskip}%sep between address boxes
        \fi
 }
-\ExplSyntaxOff
+
 \fi
 
+\newcommand*{\setupIdentpath}[1]{
+       \int_set:Nn \l_kivi_tmp_int {1}
+       \bool_set_true:N \l_kivi_tmp_bool
+       \bool_while_do:Nn \l_kivi_tmp_bool {
+               \file_if_exist:nTF {firma\int_use:N \l_kivi_tmp_int/ident.tex}
+               {
+                       \exp_args:Nf \str_if_in:nnTF {#1} {Firma\int_use:N \l_kivi_tmp_int}
+                       {
+                               \newcommand*{\identpath}{firma\int_use:N \l_kivi_tmpa_int}
+                               \bool_set_false:N \l_kivi_tmp_bool
+                       }
+                       {\int_incr:N \l_kivi_tmp_int}
+               }
+               {
+                       \bool_set_false:N \l_kivi_tmp_bool
+                       \newcommand*{\identpath}{firma}
+               }
+       }
+}
+
+\newcommand*{\setupCurrencyConfig}[2]{
+       \tl_new:N \g_kivi_currency_tl
+       \exp_args:Nf \str_if_in:nnT {#2} {USD} {\tl_gset:Nn \g_kivi_currency_tl {usd}}
+       \exp_args:Nf \str_if_in:nnT {#2} {CHF} {\tl_gset:Nn \g_kivi_currency_tl {chf}}
+       \exp_args:Nf \str_if_in:nnT {#2} {EUR} {\tl_gset:Nn \g_kivi_currency_tl {euro}}
+       \tl_if_empty:NT  \g_kivi_currency_tl {
+               \tl_gset:Nn \g_kivi_currency_tl {default}
+               \edef \currency {\tl_to_str:N \lxcurrency}
+       }
+       \input{#1/\g_kivi_currency_tl _account.tex}
+}
+
+\ExplSyntaxOff
 
 
 \renewcommand*{\raggedsignature}{\raggedright}
 
+\newkomafont{extraDescription}{}
+
 \endinput