\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{kiviletter}[2020/04/24 Letter Layouts for Kivitendo]

\newif\if@kivi@infobox
\newif\if@kivi@footer
\DeclareOption{reffields}{\@kivi@infoboxfalse}
\DeclareOption{infobox}{\@kivi@infoboxtrue}
\DeclareOption{nofooter}{\@kivi@footerfalse}
\DeclareOption{footer}{\@kivi@footertrue}
\@kivi@infoboxtrue
\@kivi@footertrue

\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{scrletter}}

\ProcessOptions\relax


\RequirePackage{expl3}
\RequirePackage{iftex}
\KOMAoptions{fontsize=12pt}
% Schriftart, Eingabelayout der Tastatur
\ifPDFTeX
\RequirePackage[utf8]{inputenc}% Nur notwendig, wenn Basis älter als TL2018
\RequirePackage[T1]{fontenc}
\RequirePackage{lmodern}
\else
\RequirePackage{fontspec}
\fi

%\RequirePackage{xltabular}
\RequirePackage{tabularx}
\RequirePackage{longtable}
\RequirePackage{booktabs}
\RequirePackage{graphicx}

\ifPDFTeX
\RequirePackage{eurosym}
\DeclareUnicodeCharacter{20AC}{\euro}
\fi

\RequirePackage[fromlogo,fromalign=right,
  firstfoot=false,%Für einheitliche Randeinstellungen
  refline=nodate,
	]{scrletter}
\LoadLetterOption{DIN}

\newkomavar{transaction}
\newkomavar[\lieferschein{}~\nr]{delivery}
\newkomavar[\angebot{}~\nr]{quote}
\newkomavar{orderID}
\newkomavar{projectID}

\usepackage{geometry}

\ExplSyntaxOn
\dim_new:N \g_kivi_margin_dim
\dim_gset:Nn \g_kivi_margin_dim {\useplength{toaddrhpos}}
\geometry{a4paper,margin=\g_kivi_margin_dim,heightrounded}
%Scratch variables
\int_new:N \l_kivi_tmp_int
\bool_new:N \l_kivi_tmp_bool
\bool_new:N  \g_kivi_TableFoot_bool
\dim_new:N \g_kivi_orig@textheight_dim
\ExplSyntaxOff

\newsavebox{\shippingAddressBox}


\DeclareNewLayer[
foreground,
hoffset=\useplength{toaddrhpos},
voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+4\baselineskip,%sep to shippingaddressbox
contents={\usebox\shippingAddressBox}
]{kivitendo.shippingaddress}

\newpairofpagestyles{kivitendo.letter}{}

\renewcommand*{\letterpagestyle}{kivitendo.letter}

\DeclareNewPageStyleByLayers{kivitendo.letter.first}{
	kivitendo.shippingaddress,
	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}

\setkomavar{firsthead}{
	\if@logo
	\rlap{\usekomavar{fromlogo}}%
	\fi
}

\@setplength{locwidth}{6cm}

\ExplSyntaxOn
\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}

\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}[1]{>{\raggedleft\arraybackslash}p{#1}<{\__kivi_tab_column_currency:}}

\RequirePackage{tcolorbox}
\tcbuselibrary{breakable, skins}

\tcb@new@skin{kivi@LT}{base@unbroken,%
	frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
	skin~first=kivi@LT@first,skin~middle=kivi@LT@middle,skin~last=kivi@LT@last,
	underlay~first~and~middle={
		\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@foot_box}};
	},
	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 + \aboverulesep,
	top=\box_ht:N  \g_kivi_LT@head_box+\box_dp:N  \g_kivi_LT@head_box +\belowrulesep,
	parbox=false,
}

\tcb@new@skin{kivi@LT@first}{base@first,%
	frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
	skin~first=kivi@LT@first,skin~middle=kivi@LT@middle,skin~last=kivi@LT@middle,
}

\tcb@new@skin{kivi@LT@middle}{base@middle,%
	frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
	skin~first=kivi@LT@middle,skin~middle=kivi@LT@middle,skin~last=kivi@LT@middle,
}

\tcb@new@skin{kivi@LT@last}{base@last,%
	frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
	skin~first=kivi@LT@middle,skin~middle=kivi@LT@middle,skin~last=kivi@LT@last,
}

\tcbset{kivi@LT/.style={skin=kivi@LT}}%



\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
	\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: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}
	{\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 {\\}
	\par
	\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 {
	@{}
	\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: {
	\__kivi_calc_desc_column:
	\hbox_gset:Nn \g_kivi_LT@head_box {
		\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*}
		}
	}
	\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}{
	\par\nointerlineskip
	\unskip
	\tabular[t]{@{}p{\dim_eval:n {\linewidth-\l_kivi_tab_pricetotal_dim-2\tabcolsep}}P{\l_kivi_tab_pricetotal_dim}@{}}
	\midrule
}{
	\endtabular
}


\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}
	\__kivi_calc_desc_column:
	\exp_args:Nx \longtable \g_kivi_Pricing_colspec_tl
	% Tabellenkopf
	\__kivi_PricingTabular_header:
	\endhead
	\midrule
	\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},
}

\newcommand*{\SetupSimpleTabular}[1]{\keys_set:nn {kivi/SimpleTabular} {#1}}
\newcommand*{\SetupPricingTabular}[1]{\keys_set:nn {kivi/PricingTable} {#1}}

\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}
	\dim_set:Nn \parskip {\c_zero_dim}
	\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
		\cs_gset_eq:NN \__kivi_tab_column_currency: \__kivi_tab_column_header_currency:
		\l_kivi_SimpleTabular_headline_tl
		\\
		\noalign{\cs_gset_eq:NN \__kivi_tab_column_currency: \__kivi_tab_column_body_currency:}
		\midrule
	\endhead
		\midrule
		\rlap{\makebox[\textwidth][r]{\weiteraufnaechsterseite}}\\
	\endfoot
		\bottomrule
	\endlastfoot
	\ignorespaces
}{
	\def\@currenvir{tabularx}
	\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][]{
	\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}

\newtcolorbox{PricingTabularBox}{breakable,skin=kivi@LT}



\if@kivi@infobox
\setkomavar{location}{
	\Ifkomavarempty{transaction}{}{
	\bfseries
	\usekomavar{transaction}
	}
	\par
	\medskip
	\begin{tabularx}{\useplength{locwidth}}{@{}l<{:}>{\raggedleft\arraybackslash}X@{}}
		\usekomavar*{date}&\usekomavar{date}\\
		\Ifkomavarempty{myref}{}{
			\usekomavar*{myref}&\usekomavar{myref}\\
		}
		\kundennummer&\usekomavar{customer}\\
		\Ifkomavarempty{yourref}{}{
			\usekomavar*{yourref}&\usekomavar{yourref}\\
		}
		\Ifkomavarempty{delivery}{}{
			\usekomavar*{delivery}&\usekomavar{delivery}\\
		}
		\Ifkomavarempty{quote}{}{
			\usekomavar*{quote}&\usekomavar{quote}\\
		}
		\Ifkomavarempty{orderID}{}{\auftragsnummer&\usekomavar{orderID}\\}
		\Ifkomavarempty{projectID}{}{\projektnummer&\usekomavar{projectID}\\}
		\ansprechpartner&\usekomavar{fromname}
		\Ifkomavarempty{fromphone}{}{\\\textTelefon&\usekomavar{fromphone}}
		\Ifkomavarempty{fromemail}{}{\\\textEmail&\usekomavar{fromemail}}
	\end{tabularx}
}
\removereffields
\AtBeginLetter{
	\ifdim\ht\shippingAddressBox>\z@
	\@addtoplength{refvpos}{\dimexpr\ht\shippingAddressBox+\dp\shippingAddressBox}
	\@addtoplength{refvpos}{4\baselineskip}%sep between address boxes
	\fi
}

\fi

%Fallback for older KOMA-Script-Versions
\cs_if_exist:NF \Ifstr {\let\Ifstr\ifstr}
\cs_if_exist:NF \Ifkomavarempty {\let\Ifkomavarempty\ifkomavarempty}

%Definitionen für die insettings.tex

\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
