1 \NeedsTeXFormat{LaTeX2e}
2 \ProvidesPackage{kiviletter}[2019/10/10 Letter Layouts for Kivitendo]
5 \DeclareOption{reffields}{\@kivi@infoboxfalse}
6 \DeclareOption{infobox}{\@kivi@infoboxtrue}
9 \newif\if@kivi@faketable
10 \DeclareOption{faketable}{\@kivi@faketabletrue}
15 \RequirePackage{expl3}
16 \RequirePackage{iftex}
17 % Schriftart, Eingabelayout der Tastatur
19 \RequirePackage[utf8]{inputenc}% Nur notwendig, wenn Basis älter als TL2018
20 \RequirePackage[T1]{fontenc}
22 \RequirePackage{fontspec}
25 %\RequirePackage{xltabular}
26 \RequirePackage{tabularx}
27 \RequirePackage{longtable}
28 \RequirePackage{booktabs}
29 \PassOptionsToPackage{table}{xcolor}
31 \RequirePackage{xcolor}
32 \RequirePackage{graphicx}
35 \RequirePackage{eurosym}
36 \DeclareUnicodeCharacter{20AC}{\euro}
39 \RequirePackage[fromlogo,fromalign=right,
40 firstfoot=false,%Für einheitliche Randeinstellungen
42 \LoadLetterOption{DIN}
47 \dim_new:N \g_kivi_margin_dim
48 \dim_gset:Nn \g_kivi_margin_dim {\useplength{toaddrhpos}}
49 \geometry{a4paper,margin=\g_kivi_margin_dim,heightrounded}
50 \savegeometry{kivi.letter@default}
52 \int_new:N \l_kivi_tmp_int
53 \bool_new:N \l_kivi_tmp_bool
54 \bool_new:N \g_kivi_TableFoot_bool
55 \dim_new:N \g_kivi_orig@textheight_dim
56 \int_new:N \g_PricingTabular_firstpage_int
59 \newsavebox{\shippingAddressBox}
64 hoffset=\useplength{toaddrhpos},
65 voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+2\baselineskip,
66 contents={\usebox\shippingAddressBox}
67 ]{kivitendo.shippingaddress}
74 hoffset=\g_kivi_margin_dim,
75 voffset=\g_kivi_margin_dim,
77 height=\box_ht:N \g_kivi_LT@head_box,
78 contents={\box_use:N \g_kivi_LT@head_box},
79 ]{kivitendo.TableHead}
86 voffset=\dim_eval:n {\paperheight-\g_kivi_margin_dim},
87 height=\box_ht:N \g_kivi_LT@foot_box,
88 contents=\bool_if:NT \g_kivi_TableFoot_bool {\box_use:N \g_kivi_LT@foot_box},
90 ]{kivitendo.TableFoot}
92 \AtBeginLetter{\dim_gset:Nn \g_kivi_orig@textheight_dim {\textheight}}
95 \newpairofpagestyles{kivitendo.letter}{}
96 \renewcommand*{\letterpagestyle}{kivitendo.letter}
98 \DeclareNewPageStyleByLayers{kivitendo.letter.PricingTable}{
101 kivitendo.letter.head.odd,kivitendo.letter.head.even,kivitendo.letter.head.oneside,%
102 kivitendo.letter.foot.odd,kivitendo.letter.foot.even,kivitendo.letter.foot.oneside,%
104 \DeclareNewPageStyleByLayers{kivitendo.letter.first}{
105 kivitendo.shippingaddress,
107 kivitendo.letter.head.odd,kivitendo.letter.head.even,kivitendo.letter.head.oneside,%
108 kivitendo.letter.foot.odd,kivitendo.letter.foot.even,kivitendo.letter.foot.oneside,%
111 \setkomavar{backaddress}{\firma\ $\cdot$ \strasse\ $\cdot$ \ort}
113 \setkomavar{firsthead}{
115 \rlap{\usekomavar{fromlogo}}%
119 \@setplength{locwidth}{6cm}
122 \dim_new:N \g_kivi_tab_pos_dim
123 \dim_gset:Nn \g_kivi_tab_pos_dim {3.5ex}
124 \dim_new:N \g_kivi_tab_id_dim
125 \dim_gset:Nn \g_kivi_tab_id_dim {4em}
126 \dim_new:N \g_kivi_tab_num_dim
127 \dim_gset:Nn \g_kivi_tab_num_dim {5em}
128 \dim_new:N \g_kivi_tab_price_dim
129 \dim_gset:Nn \g_kivi_tab_price_dim {7em}
130 \dim_new:N \g_kivi_tab_desc_dim
132 \dim_new:N \g_kivi_tabcolsep_dim
133 \dim_gset:Nn \g_kivi_tabcolsep_dim {.5\tabcolsep}
134 \newcommand*{\CalcTabCols}{
135 \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}
138 \newcolumntype{P}{>{\raggedleft\arraybackslash}p{\g_kivi_tab_price_dim}<{\,\currency}}
141 \RequirePackage{tcolorbox}
142 \tcbuselibrary{breakable, skins}
143 \seq_new:N \l_kivi_PricingTable_seq
144 \seq_new:N \g_kivi_extraDescription_seq
145 \newcommand{\FakeTable}[1]{
148 \seq_set_split:Nnn \l_kivi_PricingTable_seq {\tabularnewline} {#1}
150 \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
151 \seq_map_inline:Nn \l_kivi_PricingTable_seq {
152 \seq_gclear:N \g_kivi_extraDescription_seq
153 \exp_args:NnV \use:n {\tabular[t]}\g_kivi_Pricing_colspec_tl
156 \seq_if_empty:NTF \g_kivi_extraDescription_seq
157 {\par\nointerlineskip}
158 {\par\nointerlineskip
161 left=\dim_eval:n {\g_kivi_tab_pos_dim+ \g_kivi_tab_id_dim +4\g_kivi_tabcolsep_dim},
162 right=\dim_eval:n {\g_kivi_tab_num_dim+ 2\g_kivi_tab_price_dim +6\g_kivi_tabcolsep_dim},top=0pt,bottom=0pt,
165 lines~before~break=1,
167 \seq_use:Nn \g_kivi_extraDescription_seq {\\}
176 \tl_new:N \g_kivi_Pricing_colspec_tl
177 \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}@{}}
180 \clist_map_inline:nn {head, foot, firsthead, lastfoot} {%TODO reduce
181 \box_new:c {g_kivi_LT@#1_box}
185 \csname kivi_setup_LT_boxes:\endcsname
187 hmargin=\g_kivi_margin_dim,
188 top=\dim_eval:n {\g_kivi_margin_dim + \box_ht:N \g_kivi_LT@head_box},
189 bottom=\dim_eval:n {\g_kivi_margin_dim + \box_ht:N \g_kivi_LT@foot_box},
191 \savegeometry{kivi.letter@table}
192 \loadgeometry{kivi.letter@default}
195 \cs_new:Nn \kivi_setup_LT_boxes: {
197 \hbox_gset:Nn \g_kivi_LT@head_box {
198 \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
199 \exp_args:NnV \use:n {\tabular[b]}\g_kivi_Pricing_colspec_tl
201 \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
205 \hbox_gset:Nn \g_kivi_LT@foot_box {
207 \begin{tabular*}{\textwidth}{@{\extracolsep{\fill}}r@{}}
209 \strut\weiteraufnaechsterseite
216 %Macht es sinn hier eine Variante zu machen, in der alle Spalten Belegbar sind?
217 \newenvironment{PricingTotal}{
218 \tabular[t]{@{}p{\dim_eval:n {\linewidth-\g_kivi_tab_price_dim-2\tabcolsep}}P@{}}
221 \bottomrule\endtabular
224 \newcommand{\ExtraDescription}[1]{\seq_gput_right:Nn \g_kivi_extraDescription_seq {#1}}
226 \newenvironment{PricingTabular}[1][]{
228 \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
230 \exp_args:NV \longtable \g_kivi_Pricing_colspec_tl
233 \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
237 \multicolumn{6}{@{}r@{}}{\weiteraufnaechsterseite}\\
244 \usepackage{afterpage}
246 \cs_new:cpn {PricingTabular*}{
247 \bool_gset_true:N \g_kivi_inTable_bool
249 \@nameuse{Gm@restore@@kivi.letter@table}%
252 \def \@currenvir {PricingTabular*}\edef \@currenvline {\on@line }
253 \int_gset:Nn \g_PricingTabular_firstpage_int {\c@page}
254 \addtolength{\vsize}{-\box_ht:N \g_kivi_LT@foot_box}
258 \bool_gset_true:N \g_kivi_TableFoot_bool
259 \pagestyle{kivitendo.letter.PricingTable}
260 \leavevmode\box_use:N \g_kivi_LT@head_box
261 \par\nointerlineskip\ignorespaces
264 \cs_new:cpn {endPricingTabular*} {
265 \int_compare:nNnF \g_PricingTabular_firstpage_int = \c@page {\thispagestyle{kivitendo.letter.PricingTable}}
266 \bool_gset_false:N \g_kivi_TableFoot_bool
267 \@nameuse{Gm@restore@@kivi.letter@default}
269 \bool_gset_true:N \g_kivi_restore_geometry_bool
271 \kivi_conditional_restore_geometry:
275 \cs_new:Nn \kivi_conditional_restore_geometry: {
276 \bool_if:NT \g_kivi_restore_geometry_bool
278 \@nameuse{Gm@restore@@kivi.letter@default}
281 \bool_gset_false:N \g_kivi_restore_geometry_bool
286 \newkomavar{locationtitle}
287 \setkomavar{location}{
291 \usekomavar{locationtitle}
295 \begin{tabularx}{\linewidth}{@{}l<{:}>{\raggedright\arraybackslash}X@{}}
296 \datum&\usekomavar{date}\\
297 \kundennummer&\usekomavar{customer}\\
298 \ansprechpartner&\usekomavar{fromname}
299 \ifkomavarempty{fromphone}{}{\\\textTelefon&\usekomavar{fromphone}}
300 \ifkomavarempty{fromemail}{}{\\\textEmail&\usekomavar{fromemail}}
307 \ifkomavarempty{title}{}{
308 \exp_args:Nno\setkomavar{locationtitle}{\scr@title@var}
311 \ifdim\ht\shippingAddressBox>\z@
312 \addtoplength{refvpos}{\ht\shippingAddressBox}
313 \addtoplength{refvpos}{2\baselineskip}
321 \renewcommand*{\raggedsignature}{\raggedright}