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