Projekt

Allgemein

Profil

Herunterladen (12,1 KB) Statistiken
| Zweig: | Markierung: | Revision:
4987cdc7 Jan Büren
\NeedsTeXFormat{LaTeX2e}
33c815ee Jan Büren
\ProvidesPackage{kiviletter}[2020/04/24 Letter Layouts for Kivitendo]

4987cdc7 Jan Büren
\newif\if@kivi@infobox
\DeclareOption{reffields}{\@kivi@infoboxfalse}
\DeclareOption{infobox}{\@kivi@infoboxtrue}
\@kivi@infoboxtrue

\ProcessOptions\relax


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

%\RequirePackage{xltabular}
\RequirePackage{tabularx}
\RequirePackage{longtable}
\RequirePackage{booktabs}
\PassOptionsToPackage{table}{xcolor}

\RequirePackage{xcolor}
\RequirePackage{graphicx}

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

\RequirePackage[fromlogo,fromalign=right,
c1c33278 Jan Büren
firstfoot=false,%Für einheitliche Randeinstellungen
refline=nodate,
4987cdc7 Jan Büren
]{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}
\savegeometry{kivi.letter@default}
%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},
04ad5930 Marei Peischl
voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+4\baselineskip,%sep to shippingaddressbox
4987cdc7 Jan Büren
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,%
}

\setkomavar{backaddress}{\firma\ $\cdot$ \strasse\ $\cdot$ \ort}

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

\@setplength{locwidth}{6cm}

\ExplSyntaxOn
c05124af Marei Peischl
\dim_new:N \l_kivi_tab_desc_dim
2a3b6b54 Marei Peischl
\dim_new:N \l_kivi_tab_desc_leftskip_dim
c05124af Marei Peischl
\bool_new:N \l_kivi_col_desc_bool
\bool_set_true:N \l_kivi_col_desc_bool

\clist_map_inline:nn {pos, id, amount, price, pricetotal} {
\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 {g_kivi_tab_#1_dim} {##1}},
#1 .default:n = true,
#1 .initial:n = true,
}
}

% set default values for colwidth
2a3b6b54 Marei Peischl
\dim_set:Nn \l_kivi_tab_pos_dim {5ex}
c05124af Marei Peischl
\dim_set:Nn \l_kivi_tab_id_dim {4em}
\dim_set:Nn \l_kivi_tab_amount_dim {5em}
\dim_set:Nn \l_kivi_tab_price_dim {7em}
\dim_set:Nn \l_kivi_tab_pricetotal_dim {7em}
4987cdc7 Jan Büren
\dim_new:N \g_kivi_tabcolsep_dim
\dim_gset:Nn \g_kivi_tabcolsep_dim {.5\tabcolsep}
c05124af Marei Peischl
\cs_new:Nn \__kivi_calc_desc_column: {
2a3b6b54 Marei Peischl
\dim_gset:Nn \l_kivi_tab_desc_leftskip_dim {
0pt
\bool_if:NT \l_kivi_col_pos_bool {+\l_kivi_tab_pos_dim +2\g_kivi_tabcolsep_dim}
\bool_if:NT \l_kivi_col_id_bool {+\l_kivi_tab_id_dim +2\g_kivi_tabcolsep_dim}
}
c05124af Marei Peischl
\dim_gset:Nn \l_kivi_tab_desc_dim {
\textwidth
2a3b6b54 Marei Peischl
-\l_kivi_tab_desc_leftskip_dim
c05124af Marei Peischl
\bool_if:NT \l_kivi_col_amount_bool {-\l_kivi_tab_amount_dim -2\g_kivi_tabcolsep_dim}
\bool_if:NT \l_kivi_col_pricetotal_bool {-\l_kivi_tab_pricetotal_dim -2\g_kivi_tabcolsep_dim}
\bool_if:NT \l_kivi_col_price_bool {-\l_kivi_tab_price_dim -2\g_kivi_tabcolsep_dim}
}
4987cdc7 Jan Büren
}

c05124af Marei Peischl
\newcolumntype{P}{>{\raggedleft\arraybackslash}p{\l_kivi_tab_price_dim}<{\,\currency}}
4987cdc7 Jan Büren
\RequirePackage{tcolorbox}
\tcbuselibrary{breakable, skins}
01b1d8ff Marei Peischl
\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}};
},
boxsep=0pt,
boxrule=0pt,
left=0pt,
right=0pt,
0f97d98c Marei Peischl
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,
01b1d8ff Marei Peischl
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}}%



4987cdc7 Jan Büren
\seq_new:N \l_kivi_PricingTable_seq
c05124af Marei Peischl
\seq_new:N \l_kivi_columns_seq
4987cdc7 Jan Büren
\seq_new:N \g_kivi_extraDescription_seq
\newcommand{\FakeTable}[1]{
\par
\seq_set_split:Nnn \l_kivi_PricingTable_seq {\tabularnewline} {#1}
2a3b6b54 Marei Peischl
\seq_remove_all:Nn \l_kivi_PricingTable_seq {}
4987cdc7 Jan Büren
\begingroup
\setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
\seq_map_inline:Nn \l_kivi_PricingTable_seq {
c05124af Marei Peischl
\seq_set_split:Nnn \l_kivi_columns_seq {&} {##1}
4987cdc7 Jan Büren
\seq_gclear:N \g_kivi_extraDescription_seq
c05124af Marei Peischl
\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}
}
4987cdc7 Jan Büren
\endtabular
\seq_if_empty:NTF \g_kivi_extraDescription_seq
2a3b6b54 Marei Peischl
{\par}
{\par
c5d1ec18 Marei Peischl
\begingroup
2a3b6b54 Marei Peischl
\setlength{\hsize}{\dimexpr\l_kivi_tab_desc_dim+\l_kivi_tab_desc_leftskip_dim}
\setlength{\leftskip}{\l_kivi_tab_desc_leftskip_dim}
c5d1ec18 Marei Peischl
\seq_use:Nn \g_kivi_extraDescription_seq {\\}
\par\nointerlineskip
\endgroup
4987cdc7 Jan Büren
}
}
\endgroup
}


c05124af Marei Peischl
\seq_new:N \__l_FakeTable_columns_seq
\cs_new:Nn \__kivi_setup_FakeTable: {
\seq_clear:N \__l_FakeTable_columns_seq
\bool_if:NT \l_kivi_col_pos_bool {\seq_put_right:Nn \__l_FakeTable_columns_seq {1}}
\bool_if:NT \l_kivi_col_id_bool {\seq_put_right:Nn \__l_FakeTable_columns_seq {2}}
\bool_if:NT \l_kivi_col_desc_bool {\seq_put_right:Nn \__l_FakeTable_columns_seq {3}}
\bool_if:NT \l_kivi_col_amount_bool {\seq_put_right:Nn \__l_FakeTable_columns_seq {4}}
\bool_if:NT \l_kivi_col_pricetotal_bool {\seq_put_right:Nn \__l_FakeTable_columns_seq {5}}
\bool_if:NT \l_kivi_col_price_bool {\seq_put_right:Nn \__l_FakeTable_columns_seq {6}}
}

4987cdc7 Jan Büren
\tl_new:N \g_kivi_Pricing_colspec_tl
c05124af Marei Peischl
\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}}}
18e3b943 Marei Peischl
\bool_if:NT \l_kivi_col_price_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_price_dim}<{\,\currency}}}
\bool_if:NT \l_kivi_col_pricetotal_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_pricetotal_dim}<{\,\currency}}}
c05124af Marei Peischl
@{}
}
4987cdc7 Jan Büren

\clist_map_inline:nn {head, foot, firsthead, lastfoot} {%TODO reduce
\box_new:c {g_kivi_LT@#1_box}
}

c05124af Marei Peischl
\cs_new:Nn \__kivi_setup_LT_boxes: {
\__kivi_calc_desc_column:
4987cdc7 Jan Büren
\hbox_gset:Nn \g_kivi_LT@head_box {
c05124af Marei Peischl
\setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
\exp_args:Nnx \use:n {\tabular[b]}\g_kivi_Pricing_colspec_tl
\toprule
\bool_if:NT \l_kivi_col_pos_bool {\bfseries\position &}
\bool_if:NT \l_kivi_col_id_bool {\bfseries\artikelnummer &}
\bfseries\bezeichnung
\bool_if:NT \l_kivi_col_amount_bool {&\bfseries\menge}
\bool_if:NT \l_kivi_col_price_bool { &\multicolumn{1}{>{\raggedleft}p{\l_kivi_tab_price_dim}}{\bfseries\einzelpreis}}
2a3b6b54 Marei Peischl
\bool_if:NT \l_kivi_col_pricetotal_bool {&\multicolumn{1}{>{\raggedleft}p{\l_kivi_tab_pricetotal_dim}@{}}{\bfseries\gesamtpreis}}
c05124af Marei Peischl
\\
2a3b6b54 Marei Peischl
\midrule
c05124af Marei Peischl
\endtabular
4987cdc7 Jan Büren
}
\hbox_gset:Nn \g_kivi_LT@foot_box {
c05124af Marei Peischl
\raisebox{\depth}{
\begin{tabular*}{\textwidth}{@{\extracolsep{\fill}}r@{}}
\midrule
\strut\weiteraufnaechsterseite
\end{tabular*}
}
4987cdc7 Jan Büren
}
}


%Macht es sinn hier eine Variante zu machen, in der alle Spalten Belegbar sind?
\newenvironment{PricingTotal}{
c05124af Marei Peischl
\tabular[t]{@{}p{\dim_eval:n {\linewidth-\l_kivi_tab_price_dim-2\tabcolsep}}P@{}}
4987cdc7 Jan Büren
\midrule
}{
\bottomrule\endtabular
}

\newcommand{\ExtraDescription}[1]{\seq_gput_right:Nn \g_kivi_extraDescription_seq {#1}}
c05124af Marei Peischl
4987cdc7 Jan Büren
\newenvironment{PricingTabular}[1][]{
\begingroup
\setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
c05124af Marei Peischl
\__kivi_calc_desc_column:
\exp_args:Nx \longtable \g_kivi_Pricing_colspec_tl
4987cdc7 Jan Büren
% Tabellenkopf
\toprule
\bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
\midrule
\endhead
\midrule
\multicolumn{6}{@{}r@{}}{\weiteraufnaechsterseite}\\
\endfoot
}{
\endlongtable
\endgroup
}

\RequirePackage{xltabular}


\newenvironment{SimpleTabular}[1][\bfseries\position & \bfseries\menge & \bfseries\bezeichnung]
{
\setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
\xltabular{\linewidth}{@{}rrX@{}}
\toprule
#1\\
\midrule\\\endhead
\midrule
\multicolumn{3}{@{}>{\raggedright}p{\linewidth}@{}}{\weiteraufnaechsterseite}\\
\endfoot
\bottomrule
\endlastfoot
\ignorespaces
}{
\def\@currenvir{tabularx}
\endxltabular
}

662d2792 Marei Peischl
%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
01b1d8ff Marei Peischl
\newenvironment{PricingTabular*}[1][]{
4987cdc7 Jan Büren
\bool_gset_true:N \g_kivi_inTable_bool
01b1d8ff Marei Peischl
\tl_if_empty:nF {#1} {\keys_set:nn {kivi/PricingTable} {#1}}
\__kivi_setup_LT_boxes:
\__kivi_setup_FakeTable:
\PricingTabularBox\ignorespaces
}{\endPricingTabularBox}
4987cdc7 Jan Büren
01b1d8ff Marei Peischl
\newtcolorbox{PricingTabularBox}{breakable,skin=kivi@LT}
4987cdc7 Jan Büren


\if@kivi@infobox
\setkomavar{location}{
\ifkomavarempty{transaction}{}{
\bfseries
\usekomavar{transaction}
}
\par
\medskip
c1c33278 Jan Büren
\begin{tabularx}{\useplength{locwidth}}{@{}l<{:}>{\raggedleft\arraybackslash}X@{}}
4987cdc7 Jan Büren
\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@
18e3b943 Marei Peischl
\@addtoplength{refvpos}{\dimexpr\ht\shippingAddressBox+\dp\shippingAddressBox}
\@addtoplength{refvpos}{4\baselineskip}%sep between address boxes
4987cdc7 Jan Büren
\fi
}
\ExplSyntaxOff
\fi



\renewcommand*{\raggedsignature}{\raggedright}

\endinput