marei: location to \@hangfrom
[kivitendo-erp.git] / templates / print / marei / kiviletter.sty
1 \NeedsTeXFormat{LaTeX2e}
2 \ProvidesPackage{kiviletter}[2020/04/24 Letter Layouts for Kivitendo]
3
4 \newif\if@kivi@infobox
5 \newif\if@kivi@footer
6 \DeclareOption{reffields}{\@kivi@infoboxfalse}
7 \DeclareOption{infobox}{\@kivi@infoboxtrue}
8 \DeclareOption{nofooter}{\@kivi@footerfalse}
9 \DeclareOption{footer}{\@kivi@footertrue}
10 \@kivi@infoboxtrue
11 \@kivi@footertrue
12
13 \DeclareOption*{\PassOptionsToPackage{\CurrentOption}{scrletter}}
14
15 \ProcessOptions\relax
16
17
18 \RequirePackage{expl3}
19 \RequirePackage{iftex}
20 \KOMAoptions{fontsize=12pt}
21 % Schriftart, Eingabelayout der Tastatur
22 \ifPDFTeX
23 \RequirePackage[utf8]{inputenc}% Nur notwendig, wenn Basis älter als TL2018
24 \RequirePackage[T1]{fontenc}
25 \RequirePackage{lmodern}
26 \else
27 \RequirePackage{fontspec}
28 \fi
29
30 \RequirePackage{xltabular}
31 \RequirePackage{booktabs}
32 \RequirePackage{graphicx}
33
34 \ifPDFTeX
35 \RequirePackage{eurosym}
36 \DeclareUnicodeCharacter{20AC}{\euro}
37 \fi
38
39 \RequirePackage[fromlogo,fromalign=right,
40   firstfoot=false,%Für einheitliche Randeinstellungen
41   refline=nodate,
42         ]{scrletter}
43 \LoadLetterOption{DIN}
44
45 \newkomavar{transaction}
46 \newkomavar[\lieferschein{}~\nr]{delivery}
47 \newkomavar[\angebot{}~\nr]{quote}
48 \newkomavar[\auftragsnummer]{orderID}
49 \newkomavar[\projektnummer]{projectID}
50 \setkomavar*{fromphone}{\textTelefon}
51 \setkomavar*{fromemail}{\textEmail}
52 \setkomavar*{fromfax}{\textFax}
53 \setkomavar*{customer}{\kundennummer}
54
55
56 \usepackage{geometry}
57
58 \ExplSyntaxOn
59 \dim_new:N \g_kivi_margin_dim
60 \dim_gset:Nn \g_kivi_margin_dim {\useplength{toaddrhpos}}
61 \geometry{a4paper,margin=\g_kivi_margin_dim,heightrounded}
62 %Scratch variables
63 \int_new:N \l_kivi_tmp_int
64 \bool_new:N \l_kivi_tmp_bool
65 \bool_new:N  \g_kivi_TableFoot_bool
66 \dim_new:N \g_kivi_orig@textheight_dim
67 \ExplSyntaxOff
68
69 \newsavebox{\shippingAddressBox}
70
71
72 \DeclareNewLayer[
73 foreground,
74 hoffset=\useplength{toaddrhpos},
75 voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+4\baselineskip,%sep to shippingaddressbox
76 contents={\usebox\shippingAddressBox}
77 ]{kivitendo.shippingaddress}
78
79 \newpairofpagestyles{kivitendo.letter}{}
80
81 \renewcommand*{\letterpagestyle}{kivitendo.letter}
82
83 \DeclareNewPageStyleByLayers{kivitendo.letter.first}{
84         kivitendo.shippingaddress,
85         plain.kivitendo.letter.head.odd,plain.kivitendo.letter.head.even,plain.kivitendo.letter.head.oneside,%
86         plain.kivitendo.letter.foot.odd,plain.kivitendo.letter.foot.even,plain.kivitendo.letter.foot.oneside,%
87 }
88
89 \setkomavar{backaddress}{\firma\ $\cdot$ \strasse\ $\cdot$ \ort}
90
91 \setkomavar{firsthead}{
92         \if@logo
93         \rlap{\usekomavar{fromlogo}}%
94         \fi
95 }
96
97 \@setplength{locwidth}{6cm}
98
99 \ExplSyntaxOn
100 \dim_new:N \l_kivi_tab_desc_leftskip_dim
101
102
103
104 \cs_new:Nn \__kivi_set_colwidth:nn  {
105         \dim_set:cn {l_kivi_tab_#1_dim} {#2}
106 }
107
108
109 \cs_new:Nn \__kivi_initialize_columns: {
110         \clist_map_inline:Nn \g_kivi_pricingtable_col_clist {
111                 \bool_if_exist:cF {l_kivi_col_##1_bool} 
112                 {
113                         \bool_new:c {l_kivi_col_##1_bool}
114                         \dim_new:c {l_kivi_tab_##1_dim}
115                         \keys_define:nn {kivi/PricingTable} {
116                                 ##1 .choice:,
117                                 ##1 / true .code:n = \bool_set_true:c {l_kivi_col_##1_bool},
118                                 ##1 / false .code:n = \bool_set_false:c {l_kivi_col_##1_bool},
119                                 ##1 / unknown .code:n = {
120                                         \bool_set_true:c {l_kivi_col_##1_bool}
121                                         \dim_set:cn {l_kivi_tab_##1_dim} {####1}
122                                 },
123                                 ##1 .default:n = true,
124                                 ##1 .initial:n = true,
125                                 ##1 / header .prop_put:c = {l_kivi_col_##1_prop},
126                                 ##1 / colspec .prop_put:c = {l_kivi_col_##1_prop},
127                         }
128                 }
129         }
130 }
131
132 \clist_new:N \g_kivi_pricingtable_col_clist
133
134 \keys_define:nn {kivi/PricingTable} {
135         columns .code:n = 
136         \clist_gset:Nn \g_kivi_pricingtable_col_clist {#1}
137         \__kivi_initialize_columns:,
138         columns .initial:n = {pos, id, desc, amount, price, pricetotal},
139 }
140
141 % set default values for colwidth
142 \keys_set:nn {kivi/PricingTable} {
143         pos=5ex,
144         id=4em,
145         amount=5em,
146         price=7em,
147         pricetotal=7em,
148 %       desc=auto,
149         pos/header=\position,
150         id/header=\artikelnummer,
151         desc/header=\bezeichnung,
152         amount/header=\menge,
153         price/header=\einzelpreis,
154         pricetotal/header=\gesamtpreis,
155         price / colspec = Price,
156         pricetotal / colspec = Price ,
157 }
158
159 \dim_new:N \g_kivi_tabcolsep_dim
160 \dim_gset:Nn \g_kivi_tabcolsep_dim {.5\tabcolsep}
161
162 \prg_new_conditional:Nnn \kivi_if_Price_col:n {T} {
163         \prop_get:cnN {l_kivi_col_#1_prop} {colspec} \l_tmpa_tl
164         \tl_if_eq:NnTF \l_tmpa_tl {Price}
165                 {\prg_return_true:}
166                 {\prg_return_false:}
167 }
168
169
170 \cs_new:Nn \__kivi_calc_desc_column: {
171         \dim_zero:N \l_kivi_tab_desc_leftskip_dim
172         \dim_zero:N \l_kivi_tab_desc_dim
173         \bool_set_false:N \l_tmpa_bool
174         \tl_gclear:N \g_kivi_Pricing_colspec_tl
175         \clist_map_inline:Nn \g_kivi_pricingtable_col_clist {
176                 \tl_if_eq:nnTF {##1} {desc}  {
177                         \dim_set:Nn \l_kivi_tab_desc_dim {
178                                 \textwidth-\l_kivi_tab_desc_leftskip_dim
179                         }
180                         \bool_set_true:N \l_tmpa_bool
181                         \tl_gput_right:Nn \g_kivi_Pricing_colspec_tl {p{\l_kivi_tab_desc_dim}}
182                 }{
183                         \bool_if:cT {l_kivi_col_##1_bool} {
184                                 \bool_if:NTF \l_tmpa_bool {
185                                         \dim_sub:Nn \l_kivi_tab_desc_dim {
186                                                 \dim_use:c {l_kivi_tab_##1_dim}+2\g_kivi_tabcolsep_dim
187                                         }
188                                 }{
189                                         \dim_add:Nn \l_kivi_tab_desc_leftskip_dim {
190                                                 \dim_use:c {l_kivi_tab_##1_dim}+2\g_kivi_tabcolsep_dim
191                                         }
192                                 }
193                                 \tl_gput_right:Nn \g_kivi_Pricing_colspec_tl {>{\raggedleft\arraybackslash}p{\dim_use:c {l_kivi_tab_##1_dim}}}
194                                 \kivi_if_Price_col:nT {##1} {\tl_gput_right:Nn \g_kivi_Pricing_colspec_tl {<{\__kivi_tab_column_currency:}}}
195                         }
196                 }
197         }
198         \tl_gput_left:Nn \g_kivi_Pricing_colspec_tl {@{}}
199         \tl_gput_right:Nn \g_kivi_Pricing_colspec_tl {@{}}
200 }
201
202 \newcolumntype{P}[1]{>{\raggedleft\arraybackslash}p{#1}<{\__kivi_tab_column_currency:}}
203
204 \RequirePackage{tcolorbox}
205 \tcbuselibrary{breakable, skins}
206
207 \tcb@new@skin{kivi@LT}{base@unbroken,%
208         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
209         skin~first=kivi@LT@first,skin~middle=kivi@LT@middle,skin~last=kivi@LT@last,
210         underlay~first~and~middle={
211                 \node[anchor=north]  at (interior.north)  {\csname box_use:c\endcsname  {g_kivi_LT@head_box}};
212                 \node[anchor=south]  at (interior.south)  {\csname box_use:c\endcsname  {g_kivi_LT@foot_box}};
213         },
214         underlay~unbroken~and~last={
215         \node[anchor=north]  at (interior.north)  {\csname box_use:c\endcsname  {g_kivi_LT@head_box}};
216         \node[anchor=south]  at (interior.south)  {\csname box_use:c\endcsname  {g_kivi_LT@lastfoot_box}};
217         },
218         boxsep=0pt,
219         boxrule=0pt,
220         left=0pt,
221         right=0pt,
222         bottom=\box_ht:N  \g_kivi_LT@foot_box+\box_dp:N  \g_kivi_LT@foot_box + \aboverulesep,
223         top=\box_ht:N  \g_kivi_LT@head_box+\box_dp:N  \g_kivi_LT@head_box +\belowrulesep,
224         parbox=false,
225 }
226
227 \tcb@new@skin{kivi@LT@first}{base@first,%
228         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
229         skin~first=kivi@LT@first,skin~middle=kivi@LT@middle,skin~last=kivi@LT@middle,
230 }
231
232 \tcb@new@skin{kivi@LT@middle}{base@middle,%
233         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
234         skin~first=kivi@LT@middle,skin~middle=kivi@LT@middle,skin~last=kivi@LT@middle,
235 }
236
237 \tcb@new@skin{kivi@LT@last}{base@last,%
238         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
239         skin~first=kivi@LT@middle,skin~middle=kivi@LT@middle,skin~last=kivi@LT@last,
240 }
241
242 \tcbset{kivi@LT/.style={skin=kivi@LT}}%
243
244
245
246 \seq_new:N \l_kivi_PricingTable_seq
247 \seq_new:N \l_kivi_columns_seq
248 \seq_new:N \g_kivi_extraDescription_seq
249 \newcommand{\FakeTable}[1]{
250         \par
251         \seq_set_split:Nnn \l_kivi_PricingTable_seq {\tabularnewline} {#1}
252         \seq_remove_all:Nn \l_kivi_PricingTable_seq {}
253         \begingroup
254         \setlength{\parskip}{\c_zero_dim}
255         \let\ExtraDescription\__kivi_addExtraDescription:n
256         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
257         \seq_map_inline:Nn \l_kivi_PricingTable_seq {
258                 \seq_set_split:Nnn  \l_kivi_columns_seq {&} {##1}
259         \seq_gclear:N \g_kivi_extraDescription_seq
260         \exp_args:Nnx \use:n {\tabular[t]}\g_kivi_Pricing_colspec_tl
261                 \seq_pop_left:NN \__l_FakeTable_columns_seq \l_tmpa_tl
262                 \seq_item:Nn \l_kivi_columns_seq {\l_tmpa_tl}
263                 \seq_map_inline:Nn \__l_FakeTable_columns_seq {
264                         &\seq_item:Nn \l_kivi_columns_seq {####1}
265                 }
266         \endtabular
267         \seq_if_empty:NTF \g_kivi_extraDescription_seq
268         {\par}
269         {\par\nopagebreak
270         \begingroup
271         \setlength{\hsize}{\dimexpr\l_kivi_tab_desc_dim+\l_kivi_tab_desc_leftskip_dim}
272         \setlength{\leftskip}{\l_kivi_tab_desc_leftskip_dim}
273         \usekomafont{extraDescription}
274         \seq_use:Nn \g_kivi_extraDescription_seq {\\}
275         \par
276         \endgroup
277         }
278         }
279         \endgroup
280 }
281
282
283 \seq_new:N  \__l_FakeTable_columns_seq
284 \cs_new:Nn \__kivi_setup_FakeTable: {
285         \seq_clear:N \__l_FakeTable_columns_seq
286         \int_zero:N \l_tmpa_int
287         \clist_map_inline:Nn \g_kivi_pricingtable_col_clist {
288                 \int_incr:N \l_tmpa_int
289                 \bool_if:cT {l_kivi_col_##1_bool} {\seq_put_right:Nx \__l_FakeTable_columns_seq {\int_use:N \l_tmpa_int}}
290         }
291 }
292
293 \tl_new:N \g_kivi_Pricing_colspec_tl
294 \tl_gset:Nn \g_kivi_Pricing_colspec_tl {
295         @{}
296         \bool_if:NT \l_kivi_col_pos_bool {p{\l_kivi_tab_pos_dim}}
297         \bool_if:NT \l_kivi_col_id_bool {p{\l_kivi_tab_id_dim}}
298         p{\l_kivi_tab_desc_dim}
299         \bool_if:NT \l_kivi_col_amount_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_amount_dim}}}
300         \bool_if:NT \l_kivi_col_price_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_price_dim}<{\__kivi_tab_column_currency:}}}
301         \bool_if:NT \l_kivi_col_pricetotal_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_pricetotal_dim}<{\__kivi_tab_column_currency:}}}
302         @{}
303 }
304
305 \cs_new:Nn \__kivi_tab_column_currency: {\,\currency}
306 \def\tabcurrency{\__kivi_tab_column_currency:}
307 \cs_set:Nn \__kivi_tab_column_header_currency: {}
308 \cs_set_eq:NN \__kivi_tab_column_body_currency:  \__kivi_tab_column_currency:
309
310 \clist_map_inline:nn {head, foot, firsthead, lastfoot} {%TODO reduce
311         \box_new:c {g_kivi_LT@#1_box}
312 }
313
314 \newkomafont{PricingTableHeader}{\bfseries}
315
316 \cs_new:Nn \__kivi_setup_LT_boxes: {
317         \__kivi_calc_desc_column:
318         \hbox_gset:Nn \g_kivi_LT@head_box {
319                 \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
320                 \exp_args:Nnx \use:n {\tabular[b]}\g_kivi_Pricing_colspec_tl
321                 \__kivi_PricingTabular_header:
322                 \endtabular
323         }
324         \hbox_gset:Nn \g_kivi_LT@foot_box {
325                 \raisebox{\depth}{
326                         \begin{tabular*}{\textwidth}{@{\extracolsep{\fill}}r@{}}
327                                 \midrule
328                                 \strut\weiteraufnaechsterseite
329                         \end{tabular*}
330                 }
331         }
332         \hbox_gset:Nn \g_kivi_LT@lastfoot_box {
333                 \raisebox{\dimexpr\depth+\baselineskip}[0pt][0pt]{
334                         \begin{tabular*}{\textwidth}{@{\extracolsep{\fill}}r@{}}
335                                 \bottomrule
336                         \end{tabular*}
337                 }
338         }
339 }
340
341
342 %Macht es sinn hier eine Variante zu machen, in der alle Spalten Belegbar sind?
343 \newenvironment{PricingTotal}{
344         \par\nointerlineskip
345         \unskip
346         \tabular[t]{@{}p{\dim_eval:n {\linewidth-\l_kivi_tab_pricetotal_dim-2\tabcolsep}}P{\l_kivi_tab_pricetotal_dim}@{}}
347         \midrule
348 }{
349         \endtabular
350 }
351
352
353 \newcommand*\ExtraDescription{
354         \PackageError{kiviletter}{The~command~\string\ExtraDescription\space~may~be~only~used~inside~the~\string\FakeTable\space~environment.}{See~documentation~for~details}
355 }
356
357
358 \cs_new:Nn \__kivi_addExtraDescription:n {\seq_gput_right:Nn \g_kivi_extraDescription_seq {#1}}
359
360 \newenvironment{PricingTabular}[1][]{
361         \begingroup
362         \dim_set:Nn \parskip {\c_zero_dim}
363         \tl_if_empty:nF {#1} {\keys_set:nn {kivi/PricingTable} {#1}}
364         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
365         \__kivi_calc_desc_column:
366         \exp_args:Nx \longtable \g_kivi_Pricing_colspec_tl
367         % Tabellenkopf
368         \__kivi_PricingTabular_header:
369         \endhead
370         \midrule
371         \rlap{\makebox[\textwidth][r]{\weiteraufnaechsterseite}}\\
372         \endfoot
373         \bottomrule
374         \endlastfoot
375 }{
376         \endlongtable
377         \endgroup
378 }
379
380 \cs_set:Nn \__kivi_PricingTabular_header: {
381         \toprule
382         \cs_gset_eq:NN \__kivi_tab_column_currency: \__kivi_tab_column_header_currency:
383         \bool_set_false:N \l_tmpa_bool
384         \clist_map_inline:Nn \g_kivi_pricingtable_col_clist     {
385                 \bool_if:cT {l_kivi_col_##1_bool} {
386                         \bool_if:NT \l_tmpa_bool {&}
387                         \bool_set_true:N \l_tmpa_bool
388                         \usekomafont{PricingTableHeader}
389                         \prop_item:cn {l_kivi_col_##1_prop} {header}
390                 }
391         }
392         \cs_gset_eq:NN \__kivi_tab_column_currency: \__kivi_tab_column_body_currency:
393         \\
394         \midrule
395 }
396
397
398 \keys_define:nn {kivi/SimpleTabular} {
399         colspec .tl_set:N =\l_kivi_SimpleTabular_colspec_tl,
400         colspec .initial:n = {rrX},
401         headline .tl_set:N = \l_kivi_SimpleTabular_headline_tl,
402         headline .initial:n = {\bfseries\position & \bfseries\menge & \bfseries\bezeichnung},
403 }
404
405 \newcommand*{\SetupSimpleTabular}[1]{\keys_set:nn {kivi/SimpleTabular} {#1}}
406 \newcommand*{\SetupPricingTabular}[1]{\keys_set:nn {kivi/PricingTable} {#1}}
407
408 \newenvironment{SimpleTabular}[1][]
409 {
410         \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}}}
411         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
412         \dim_set:Nn \parskip {\c_zero_dim}
413         \tl_put_right:Nn \l_kivi_SimpleTabular_colspec_tl {@{}}
414         \tl_put_left:Nn \l_kivi_SimpleTabular_colspec_tl {@{}}
415         \exp_args:NnV \xltabular{\linewidth}\l_kivi_SimpleTabular_colspec_tl
416                 \toprule
417                 \cs_gset_eq:NN \__kivi_tab_column_currency: \__kivi_tab_column_header_currency:
418                 \l_kivi_SimpleTabular_headline_tl
419                 \\
420                 \noalign{\cs_gset_eq:NN \__kivi_tab_column_currency: \__kivi_tab_column_body_currency:}
421                 \midrule
422         \endhead
423                 \midrule
424                 \rlap{\makebox[\textwidth][r]{\weiteraufnaechsterseite}}\\
425         \endfoot
426                 \bottomrule
427         \endlastfoot
428         \ignorespaces
429 }{
430         \def\@currenvir{tabularx}
431         \endxltabular
432 }
433
434 %PricingTabular* kann automatisch spalten ignorieren
435 % \begin{PricingTabular*}[id=false]
436 % deaktiviert damit die Spalte der Produktnummer
437 % analog ist dies für pos, amount, price, pricetotal möglich.
438 % Die Spalte der Bezeichnung ist nicht deaktivierbar
439 \newenvironment{PricingTabular*}[1][]{
440         \tl_if_empty:nF {#1} {\keys_set:nn {kivi/PricingTable} {#1}}
441         \__kivi_setup_LT_boxes:
442         \__kivi_setup_FakeTable:
443         \dim_set:Nn \parskip {\c_zero_dim}
444         \PricingTabularBox\ignorespaces
445 }{\endPricingTabularBox}
446
447 \newtcolorbox{PricingTabularBox}{breakable,skin=kivi@LT}
448
449 \if@kivi@infobox
450
451         \def\locationsep{:}
452
453         \NewDocumentCommand{\locationentry}{som}{
454                 \Ifkomavarempty{#3}{}{
455                 \IfBooleanTF {#1} {
456                         \strut
457                         \IfNoValueTF {#2}
458                                 {\usekomavar*{#3}}
459                                 {#2}
460                         \locationsep
461                         \hfill\strut\space
462                         \hbox_set:Nn \l_tmpa_box {\usekomavar{#3}}
463                         \dim_compare:nTF {\box_wd:N \l_tmpa_box>\linewidth}
464                                 {\newline\hspace*{\fill}\llap}
465                                 {\hspace*{\fill}}
466                                 {\box_use:N \l_tmpa_box\strut}
467                 }{
468                         \@hangfrom{\strut
469                                 \IfNoValueTF {#2}
470                                         {\usekomavar*{#3}}
471                                         {#2}\locationsep~
472                         }{
473                                 \parbox[t]{\dimexpr\linewidth-\hangindent}{
474                                         \raggedleft
475                                         \usekomavar{#3}\strut
476                                 }
477                         }
478                 }
479                 }
480                 \par
481         }
482
483
484 \setkomavar{location}{
485         \Ifkomavarempty{transaction}{}{
486         \bfseries
487         \usekomavar{transaction}
488         }
489         \par
490         \medskip
491         \parbox{\useplength{locwidth}}{
492                 \locationentry{date}
493                 \locationentry{myref}
494                 \locationentry{customer}
495                 \locationentry{yourref}
496                 \locationentry{delivery}
497                 \locationentry{quote}
498                 \locationentry{orderID}
499                 \locationentry{projectID}
500                 \locationentry[\ansprechpartner]{fromname}
501                 \locationentry{fromphone}
502                 \locationentry*{fromemail}
503         }
504 }
505 \removereffields
506 \AtBeginLetter{
507         \ifdim\ht\shippingAddressBox>\z@
508         \@addtoplength{refvpos}{\dimexpr\ht\shippingAddressBox+\dp\shippingAddressBox}
509         \@addtoplength{refvpos}{4\baselineskip}%sep between address boxes
510         \fi
511 }
512
513 \fi
514
515 %Fallback for older KOMA-Script-Versions
516 \cs_if_exist:NF \Ifstr {\let\Ifstr\ifstr}
517 \cs_if_exist:NF \Ifkomavarempty {\let\Ifkomavarempty\ifkomavarempty}
518
519 %Definitionen für die insettings.tex
520
521 \newcommand*{\setupIdentpath}[1]{
522         \int_set:Nn \l_kivi_tmp_int {1}
523         \bool_set_true:N \l_kivi_tmp_bool
524         \bool_while_do:Nn \l_kivi_tmp_bool {
525                 \file_if_exist:nTF {firma\int_use:N \l_kivi_tmp_int/ident.tex}
526                 {
527                         \exp_args:Nf \str_if_in:nnTF {#1} {Firma\int_use:N \l_kivi_tmp_int}
528                         {
529                                 \newcommand*{\identpath}{firma\int_use:N \l_kivi_tmpa_int}
530                                 \bool_set_false:N \l_kivi_tmp_bool
531                         }
532                         {\int_incr:N \l_kivi_tmp_int}
533                 }
534                 {
535                         \bool_set_false:N \l_kivi_tmp_bool
536                         \newcommand*{\identpath}{firma}
537                 }
538         }
539 }
540
541 \newcommand*{\setupCurrencyConfig}[2]{
542         \tl_new:N \g_kivi_currency_tl
543         \exp_args:Nf \str_if_in:nnT {#2} {USD} {\tl_gset:Nn \g_kivi_currency_tl {usd}}
544         \exp_args:Nf \str_if_in:nnT {#2} {CHF} {\tl_gset:Nn \g_kivi_currency_tl {chf}}
545         \exp_args:Nf \str_if_in:nnT {#2} {EUR} {\tl_gset:Nn \g_kivi_currency_tl {euro}}
546         \tl_if_empty:NT  \g_kivi_currency_tl {
547                 \tl_gset:Nn \g_kivi_currency_tl {default}
548                 \edef \currency {\tl_to_str:N \lxcurrency}
549         }
550         \input{#1/\g_kivi_currency_tl _account.tex}
551 }
552
553 \ExplSyntaxOff
554
555
556 \renewcommand*{\raggedsignature}{\raggedright}
557
558 \newkomafont{extraDescription}{}
559
560 \endinput