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 \PassOptionsToPackage{table}{xcolor}
  29
  30 \RequirePackage{xcolor}
  31 \RequirePackage{graphicx}
  32
  33 \ifPDFTeX
  34 \RequirePackage{eurosym}
  35 \DeclareUnicodeCharacter{20AC}{\euro}
  36 \fi
  37
  38 \RequirePackage[fromlogo,fromalign=right,
  39   firstfoot=false,%Für einheitliche Randeinstellungen
  40   refline=nodate,
  41         ]{scrletter}
  42 \LoadLetterOption{DIN}
  43
  44 \newkomavar{transaction}
  45 \newkomavar[\lieferschein{}~\nr]{delivery}
  46 \newkomavar[\angebot{}~\nr]{quote}
  47 \newkomavar{orderID}
  48 \newkomavar{projectID}
  49
  50 \usepackage{geometry}
  51
  52 \ExplSyntaxOn
  53 \dim_new:N \g_kivi_margin_dim
  54 \dim_gset:Nn \g_kivi_margin_dim {\useplength{toaddrhpos}}
  55 \geometry{a4paper,margin=\g_kivi_margin_dim,heightrounded}
  56 \savegeometry{kivi.letter@default}
  57 %Scratch variables
  58 \int_new:N \l_kivi_tmp_int
  59 \bool_new:N \l_kivi_tmp_bool
  60 \bool_new:N  \g_kivi_TableFoot_bool
  61 \dim_new:N \g_kivi_orig@textheight_dim
  62 \ExplSyntaxOff
  63
  64 \newsavebox{\shippingAddressBox}
  65
  66
  67 \DeclareNewLayer[
  68 foreground,
  69 hoffset=\useplength{toaddrhpos},
  70 voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+4\baselineskip,%sep to shippingaddressbox
  71 contents={\usebox\shippingAddressBox}
  72 ]{kivitendo.shippingaddress}
  73
  74
  75 \ExplSyntaxOn
  76 \AtBeginLetter{\dim_gset:Nn \g_kivi_orig@textheight_dim {\textheight}}
  77 \ExplSyntaxOff
  78
  79 \newpairofpagestyles{kivitendo.letter}{}
  80 \renewcommand*{\letterpagestyle}{kivitendo.letter}
  81
  82 \DeclareNewPageStyleByLayers{kivitendo.letter.PricingTable}{
  83         kivitendo.TableHead,
  84         kivitendo.TableFoot
  85         kivitendo.letter.head.odd,kivitendo.letter.head.even,kivitendo.letter.head.oneside,%
  86         kivitendo.letter.foot.odd,kivitendo.letter.foot.even,kivitendo.letter.foot.oneside,%
  87 }
  88 \DeclareNewPageStyleByLayers{kivitendo.letter.first}{
  89         kivitendo.shippingaddress,
  90         kivitendo.TableFoot,
  91         kivitendo.letter.head.odd,kivitendo.letter.head.even,kivitendo.letter.head.oneside,%
  92         kivitendo.letter.foot.odd,kivitendo.letter.foot.even,kivitendo.letter.foot.oneside,%
  93 }
  94
  95 \setkomavar{backaddress}{\firma\ $\cdot$ \strasse\ $\cdot$ \ort}
  96
  97 \setkomavar{firsthead}{
  98         \if@logo
  99         \rlap{\usekomavar{fromlogo}}%
 100         \fi
 101 }
 102
 103 \@setplength{locwidth}{6cm}
 104
 105 \ExplSyntaxOn
 106 \dim_new:N \l_kivi_tab_desc_dim
 107 \dim_new:N \l_kivi_tab_desc_leftskip_dim
 108 \bool_new:N \l_kivi_col_desc_bool
 109 \bool_set_true:N \l_kivi_col_desc_bool
 110
 111 \clist_map_inline:nn {pos, id, amount, price, pricetotal} {
 112         \bool_new:c {l_kivi_col_#1_bool}
 113         \dim_new:c {l_kivi_tab_#1_dim}
 114         \keys_define:nn {kivi/PricingTable} {
 115                 #1 .choice:,
 116                 #1 / true .code:n = \bool_set_true:c {l_kivi_col_#1_bool},
 117                 #1 / false .code:n = \bool_set_false:c {l_kivi_col_#1_bool},
 118                 #1  /unknown .code:n = {\bool_set_true:c {l_kivi_col_#1_bool}\dim_set:cn {g_kivi_tab_#1_dim} {##1}},
 119                 #1 .default:n = true,
 120                 #1 .initial:n = true,
 121         }
 122 }
 123
 124 % set default values for colwidth
 125 \dim_set:Nn \l_kivi_tab_pos_dim {5ex}
 126 \dim_set:Nn \l_kivi_tab_id_dim {4em}
 127 \dim_set:Nn \l_kivi_tab_amount_dim {5em}
 128 \dim_set:Nn \l_kivi_tab_price_dim {7em}
 129 \dim_set:Nn \l_kivi_tab_pricetotal_dim {7em}
 130
 131 \dim_new:N \g_kivi_tabcolsep_dim
 132 \dim_gset:Nn \g_kivi_tabcolsep_dim {.5\tabcolsep}
 133
 134 \cs_new:Nn \__kivi_calc_desc_column: {
 135         \dim_gset:Nn \l_kivi_tab_desc_leftskip_dim {
 136                 0pt
 137                 \bool_if:NT \l_kivi_col_pos_bool {+\l_kivi_tab_pos_dim +2\g_kivi_tabcolsep_dim}
 138                 \bool_if:NT \l_kivi_col_id_bool {+\l_kivi_tab_id_dim +2\g_kivi_tabcolsep_dim}
 139         }
 140         \dim_gset:Nn \l_kivi_tab_desc_dim {
 141                 \textwidth
 142                 -\l_kivi_tab_desc_leftskip_dim
 143                 \bool_if:NT \l_kivi_col_amount_bool {-\l_kivi_tab_amount_dim -2\g_kivi_tabcolsep_dim}
 144                 \bool_if:NT \l_kivi_col_pricetotal_bool  {-\l_kivi_tab_pricetotal_dim -2\g_kivi_tabcolsep_dim}
 145                 \bool_if:NT \l_kivi_col_price_bool  {-\l_kivi_tab_price_dim -2\g_kivi_tabcolsep_dim}
 146         }
 147 }
 148
 149 \newcolumntype{P}{>{\raggedleft\arraybackslash}p{\l_kivi_tab_price_dim}<{\,\currency}}
 150
 151 \RequirePackage{tcolorbox}
 152 \tcbuselibrary{breakable, skins}
 153
 154 \tcb@new@skin{kivi@LT}{base@unbroken,%
 155         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
 156         skin~first=kivi@LT@first,skin~middle=kivi@LT@middle,skin~last=kivi@LT@last,
 157         underlay~first~and~middle={
 158                 \node[anchor=north]  at (interior.north)  {\csname box_use:c\endcsname  {g_kivi_LT@head_box}};
 159                 \node[anchor=south]  at (interior.south)  {\csname box_use:c\endcsname  {g_kivi_LT@foot_box}};
 160         },
 161         underlay~unbroken~and~last={
 162         \node[anchor=north]  at (interior.north)  {\csname box_use:c\endcsname  {g_kivi_LT@head_box}};
 163         },
 164         boxsep=0pt,
 165         boxrule=0pt,
 166         left=0pt,
 167         right=0pt,
 168         bottom=\box_ht:N  \g_kivi_LT@foot_box+\box_dp:N  \g_kivi_LT@foot_box + \aboverulesep,
 169         top=\box_ht:N  \g_kivi_LT@head_box+\box_dp:N  \g_kivi_LT@head_box +\belowrulesep,
 170         parbox=false,
 171 }
 172
 173 \tcb@new@skin{kivi@LT@first}{base@first,%
 174         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
 175         skin~first=kivi@LT@first,skin~middle=kivi@LT@middle,skin~last=kivi@LT@middle,
 176 }
 177
 178 \tcb@new@skin{kivi@LT@middle}{base@middle,%
 179         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
 180         skin~first=kivi@LT@middle,skin~middle=kivi@LT@middle,skin~last=kivi@LT@middle,
 181 }
 182
 183 \tcb@new@skin{kivi@LT@last}{base@last,%
 184         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
 185         skin~first=kivi@LT@middle,skin~middle=kivi@LT@middle,skin~last=kivi@LT@last,
 186 }
 187
 188 \tcbset{kivi@LT/.style={skin=kivi@LT}}%
 189
 190
 191
 192 \seq_new:N \l_kivi_PricingTable_seq
 193 \seq_new:N \l_kivi_columns_seq
 194 \seq_new:N \g_kivi_extraDescription_seq
 195 \newcommand{\FakeTable}[1]{
 196         \par
 197         \seq_set_split:Nnn \l_kivi_PricingTable_seq {\tabularnewline} {#1}
 198         \seq_remove_all:Nn \l_kivi_PricingTable_seq {}
 199         \begingroup
 200         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 201         \seq_map_inline:Nn \l_kivi_PricingTable_seq {
 202                 \seq_set_split:Nnn  \l_kivi_columns_seq {&} {##1}
 203         \seq_gclear:N \g_kivi_extraDescription_seq
 204         \exp_args:Nnx \use:n {\tabular[t]}\g_kivi_Pricing_colspec_tl
 205                 \seq_pop_left:NN \__l_FakeTable_columns_seq \l_tmpa_tl
 206                 \seq_item:Nn \l_kivi_columns_seq {\l_tmpa_tl}
 207                 \seq_map_inline:Nn \__l_FakeTable_columns_seq {
 208                         &\seq_item:Nn \l_kivi_columns_seq {####1}
 209                 }
 210         \endtabular
 211         \seq_if_empty:NTF \g_kivi_extraDescription_seq
 212         {\par}
 213         {\par
 214         \begingroup
 215         \setlength{\hsize}{\dimexpr\l_kivi_tab_desc_dim+\l_kivi_tab_desc_leftskip_dim}
 216         \setlength{\leftskip}{\l_kivi_tab_desc_leftskip_dim}
 217         \seq_use:Nn \g_kivi_extraDescription_seq {\\}
 218     \par\nointerlineskip
 219     \endgroup
 220         }
 221         }
 222         \endgroup
 223 }
 224
 225
 226 \seq_new:N  \__l_FakeTable_columns_seq
 227 \cs_new:Nn \__kivi_setup_FakeTable: {
 228         \seq_clear:N \__l_FakeTable_columns_seq
 229         \bool_if:NT \l_kivi_col_pos_bool {\seq_put_right:Nn \__l_FakeTable_columns_seq {1}}
 230         \bool_if:NT \l_kivi_col_id_bool  {\seq_put_right:Nn \__l_FakeTable_columns_seq {2}}
 231         \bool_if:NT \l_kivi_col_desc_bool  {\seq_put_right:Nn \__l_FakeTable_columns_seq {3}}
 232         \bool_if:NT \l_kivi_col_amount_bool {\seq_put_right:Nn \__l_FakeTable_columns_seq {4}}
 233         \bool_if:NT \l_kivi_col_pricetotal_bool   {\seq_put_right:Nn \__l_FakeTable_columns_seq {5}}
 234         \bool_if:NT \l_kivi_col_price_bool   {\seq_put_right:Nn \__l_FakeTable_columns_seq {6}}
 235 }
 236
 237 \tl_new:N \g_kivi_Pricing_colspec_tl
 238 \tl_gset:Nn \g_kivi_Pricing_colspec_tl {
 239         @{}
 240         \bool_if:NT \l_kivi_col_pos_bool {p{\l_kivi_tab_pos_dim}}
 241         \bool_if:NT \l_kivi_col_id_bool {p{\l_kivi_tab_id_dim}}
 242         p{\l_kivi_tab_desc_dim}
 243         \bool_if:NT \l_kivi_col_amount_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_amount_dim}}}
 244         \bool_if:NT \l_kivi_col_price_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_price_dim}<{\,\currency}}}
 245         \bool_if:NT \l_kivi_col_pricetotal_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_pricetotal_dim}<{\,\currency}}}
 246         @{}
 247 }
 248
 249
 250 \clist_map_inline:nn {head, foot, firsthead, lastfoot} {%TODO reduce
 251         \box_new:c {g_kivi_LT@#1_box}
 252 }
 253
 254 \cs_new:Nn \__kivi_setup_LT_boxes: {
 255         \__kivi_calc_desc_column:
 256         \hbox_gset:Nn \g_kivi_LT@head_box {
 257                 \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 258                 \exp_args:Nnx \use:n {\tabular[b]}\g_kivi_Pricing_colspec_tl
 259                 \toprule
 260                 \bool_if:NT \l_kivi_col_pos_bool {\bfseries\position &}
 261                 \bool_if:NT \l_kivi_col_id_bool {\bfseries\artikelnummer &}
 262                 \bfseries\bezeichnung
 263                 \bool_if:NT \l_kivi_col_amount_bool {&\bfseries\menge}
 264                 \bool_if:NT \l_kivi_col_price_bool { &\multicolumn{1}{>{\raggedleft}p{\l_kivi_tab_price_dim}}{\bfseries\einzelpreis}}
 265                 \bool_if:NT \l_kivi_col_pricetotal_bool {&\multicolumn{1}{>{\raggedleft}p{\l_kivi_tab_pricetotal_dim}@{}}{\bfseries\gesamtpreis}}
 266                 \\
 267                 \midrule
 268                 \endtabular
 269         }
 270         \hbox_gset:Nn \g_kivi_LT@foot_box {
 271                 \raisebox{\depth}{
 272                         \begin{tabular*}{\textwidth}{@{\extracolsep{\fill}}r@{}}
 273                                 \midrule
 274                                 \strut\weiteraufnaechsterseite
 275                         \end{tabular*}
 276                 }
 277         }
 278 }
 279
 280
 281 %Macht es sinn hier eine Variante zu machen, in der alle Spalten Belegbar sind?
 282 \newenvironment{PricingTotal}{
 283         \tabular[t]{@{}p{\dim_eval:n {\linewidth-\l_kivi_tab_price_dim-2\tabcolsep}}P@{}}
 284         \midrule
 285 }{
 286         \bottomrule\endtabular
 287 }
 288
 289 \newcommand{\ExtraDescription}[1]{\seq_gput_right:Nn \g_kivi_extraDescription_seq {#1}}
 290
 291 \newenvironment{PricingTabular}[1][]{
 292         \begingroup
 293         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 294         \__kivi_calc_desc_column:
 295         \exp_args:Nx \longtable \g_kivi_Pricing_colspec_tl
 296         % Tabellenkopf
 297         \toprule
 298         \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
 299         \midrule
 300         \endhead
 301         \midrule
 302         \multicolumn{6}{@{}r@{}}{\weiteraufnaechsterseite}\\
 303         \endfoot
 304 }{
 305         \endlongtable
 306         \endgroup
 307 }
 308
 309 \RequirePackage{xltabular}
 310
 311
 312 \newenvironment{SimpleTabular}[1][\bfseries\position & \bfseries\menge & \bfseries\bezeichnung]
 313 {
 314         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 315         \xltabular{\linewidth}{@{}rrX@{}}
 316         \toprule
 317         #1\\
 318         \midrule\\\endhead
 319         \midrule
 320         \multicolumn{3}{@{}>{\raggedright}p{\linewidth}@{}}{\weiteraufnaechsterseite}\\
 321         \endfoot
 322         \bottomrule
 323         \endlastfoot
 324         \ignorespaces
 325 }{
 326         \def\@currenvir{tabularx}
 327         \endxltabular
 328 }
 329
 330 %PricingTabular* kann automatisch spalten ignorieren
 331 % \begin{PricingTabular*}[id=false]
 332 % deaktiviert damit die Spalte der Produktnummer
 333 % analog ist dies für pos, amount, price, pricetotal möglich.
 334 % Die Spalte der Bezeichnung ist nicht deaktivierbar
 335 \newenvironment{PricingTabular*}[1][]{
 336         \bool_gset_true:N \g_kivi_inTable_bool
 337         \tl_if_empty:nF {#1} {\keys_set:nn {kivi/PricingTable} {#1}}
 338         \__kivi_setup_LT_boxes:
 339         \__kivi_setup_FakeTable:
 340         \PricingTabularBox\ignorespaces
 341 }{\endPricingTabularBox}
 342
 343 \newtcolorbox{PricingTabularBox}{breakable,skin=kivi@LT}
 344
 345
 346
 347 \if@kivi@infobox
 348 \setkomavar{location}{
 349         \ifkomavarempty{transaction}{}{
 350         \bfseries
 351         \usekomavar{transaction}
 352         }
 353         \par
 354         \medskip
 355         \begin{tabularx}{\useplength{locwidth}}{@{}l<{:}>{\raggedleft\arraybackslash}X@{}}
 356                 \usekomavar*{date}&\usekomavar{date}\\
 357                 \ifkomavarempty{myref}{}{
 358                         \usekomavar*{myref}&\usekomavar{myref}\\
 359                 }
 360                 \kundennummer&\usekomavar{customer}\\
 361                 \ifkomavarempty{yourref}{}{
 362                         \usekomavar*{yourref}&\usekomavar{yourref}\\
 363                 }
 364                 \ifkomavarempty{delivery}{}{
 365                         \usekomavar*{delivery}&\usekomavar{delivery}\\
 366                 }
 367                 \ifkomavarempty{quote}{}{
 368                         \usekomavar*{quote}&\usekomavar{quote}\\
 369                 }
 370                 \ifkomavarempty{orderID}{}{\auftragsnummer&\usekomavar{orderID}\\}
 371                 \ifkomavarempty{projectID}{}{\projektnummer&\usekomavar{projectID}\\}
 372                 \ansprechpartner&\usekomavar{fromname}
 373                 \ifkomavarempty{fromphone}{}{\\\textTelefon&\usekomavar{fromphone}}
 374                 \ifkomavarempty{fromemail}{}{\\\textEmail&\usekomavar{fromemail}}
 375         \end{tabularx}
 376 }
 377 \removereffields
 378 \AtBeginLetter{
 379         \ifdim\ht\shippingAddressBox>\z@
 380         \@addtoplength{refvpos}{\dimexpr\ht\shippingAddressBox+\dp\shippingAddressBox}
 381         \@addtoplength{refvpos}{4\baselineskip}%sep between address boxes
 382         \fi
 383 }
 384 \ExplSyntaxOff
 385 \fi
 386
 387
 388
 389 \renewcommand*{\raggedsignature}{\raggedright}
 390
 391 \endinput