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_leftskip_dim
 107
 108
 109
 110 \cs_new:Nn \__kivi_set_colwidth:nn  {
 111         \dim_set:cn {l_kivi_tab_#1_dim} {#2}
 112 }
 113
 114
 115 \cs_new:Nn \__kivi_initialize_columns: {
 116         \clist_map_inline:Nn \g_kivi_pricingtable_col_clist {
 117                 \bool_if_exist:cF {l_kivi_col_##1_bool}
 118                 {
 119                         \bool_new:c {l_kivi_col_##1_bool}
 120                         \dim_new:c {l_kivi_tab_##1_dim}
 121                         \keys_define:nn {kivi/PricingTable} {
 122                                 ##1 .choice:,
 123                                 ##1 / true .code:n = \bool_set_true:c {l_kivi_col_##1_bool},
 124                                 ##1 / false .code:n = \bool_set_false:c {l_kivi_col_##1_bool},
 125                                 ##1 / unknown .code:n = {
 126                                         \bool_set_true:c {l_kivi_col_##1_bool}
 127                                         \dim_set:cn {l_kivi_tab_##1_dim} {####1}
 128                                 },
 129                                 ##1 .default:n = true,
 130                                 ##1 .initial:n = true,
 131                                 ##1 / header .prop_put:c = {l_kivi_col_##1_prop},
 132                                 ##1 / colspec .prop_put:c = {l_kivi_col_##1_prop},
 133                         }
 134                 }
 135         }
 136 }
 137
 138 \clist_new:N \g_kivi_pricingtable_col_clist
 139
 140 \keys_define:nn {kivi/PricingTable} {
 141         columns .code:n =
 142         \clist_gset:Nn \g_kivi_pricingtable_col_clist {#1}
 143         \__kivi_initialize_columns:,
 144         columns .initial:n = {pos, id, desc, amount, price, pricetotal},
 145 }
 146
 147 % set default values for colwidth
 148 \keys_set:nn {kivi/PricingTable} {
 149         pos=5ex,
 150         id=4em,
 151         amount=5em,
 152         price=7em,
 153         pricetotal=7em,
 154 %       desc=auto,
 155         pos/header=\position,
 156         id/header=\artikelnummer,
 157         desc/header=\bezeichnung,
 158         amount/header=\menge,
 159         price/header=\einzelpreis,
 160         pricetotal/header=\gesamtpreis,
 161         price / colspec = Price,
 162         pricetotal / colspec = Price ,
 163 }
 164
 165 \dim_new:N \g_kivi_tabcolsep_dim
 166 \dim_gset:Nn \g_kivi_tabcolsep_dim {.5\tabcolsep}
 167
 168 \cs_new:Nn \__kivi_calc_desc_column: {
 169         \dim_zero:N \l_kivi_tab_desc_leftskip_dim
 170         \dim_zero:N \l_kivi_tab_desc_dim
 171         \bool_set_false:N \l_tmpa_bool
 172         \clist_map_inline:Nn \g_kivi_pricingtable_col_clist {
 173                 \tl_if_eq:nnTF {##1} {desc}  {
 174                         \dim_set:Nn \l_kivi_tab_desc_dim {
 175                                 \textwidth-\l_kivi_tab_desc_leftskip_dim
 176                         }
 177                         \bool_set_true:N \l_tmpa_bool
 178
 179                 }{
 180                         \bool_if:NTF \l_tmpa_bool {
 181                                 \bool_if:cT {l_kivi_col_##1_bool} {
 182                                         \dim_sub:Nn \l_kivi_tab_desc_dim {
 183                                                 \dim_use:c {l_kivi_tab_##1_dim}+2\g_kivi_tabcolsep_dim
 184                                         }
 185                                 }
 186                         }{
 187                                 \bool_if:cT {l_kivi_col_##1_bool} {
 188                                         \dim_add:Nn \l_kivi_tab_desc_leftskip_dim {
 189                                                 \dim_use:c {l_kivi_tab_##1_dim}+2\g_kivi_tabcolsep_dim
 190                                         }
 191                                 }
 192                         }
 193                 }
 194         }
 195 }
 196
 197 \newcolumntype{P}[1]{>{\raggedleft\arraybackslash}p{#1}<{\__kivi_tab_column_currency:}}
 198
 199 \RequirePackage{tcolorbox}
 200 \tcbuselibrary{breakable, skins}
 201
 202 \tcb@new@skin{kivi@LT}{base@unbroken,%
 203         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
 204         skin~first=kivi@LT@first,skin~middle=kivi@LT@middle,skin~last=kivi@LT@last,
 205         underlay~first~and~middle={
 206                 \node[anchor=north]  at (interior.north)  {\csname box_use:c\endcsname  {g_kivi_LT@head_box}};
 207                 \node[anchor=south]  at (interior.south)  {\csname box_use:c\endcsname  {g_kivi_LT@foot_box}};
 208         },
 209         underlay~unbroken~and~last={
 210         \node[anchor=north]  at (interior.north)  {\csname box_use:c\endcsname  {g_kivi_LT@head_box}};
 211         },
 212         boxsep=0pt,
 213         boxrule=0pt,
 214         left=0pt,
 215         right=0pt,
 216         bottom=\box_ht:N  \g_kivi_LT@foot_box+\box_dp:N  \g_kivi_LT@foot_box + \aboverulesep,
 217         top=\box_ht:N  \g_kivi_LT@head_box+\box_dp:N  \g_kivi_LT@head_box +\belowrulesep,
 218         parbox=false,
 219 }
 220
 221 \tcb@new@skin{kivi@LT@first}{base@first,%
 222         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
 223         skin~first=kivi@LT@first,skin~middle=kivi@LT@middle,skin~last=kivi@LT@middle,
 224 }
 225
 226 \tcb@new@skin{kivi@LT@middle}{base@middle,%
 227         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
 228         skin~first=kivi@LT@middle,skin~middle=kivi@LT@middle,skin~last=kivi@LT@middle,
 229 }
 230
 231 \tcb@new@skin{kivi@LT@last}{base@last,%
 232         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
 233         skin~first=kivi@LT@middle,skin~middle=kivi@LT@middle,skin~last=kivi@LT@last,
 234 }
 235
 236 \tcbset{kivi@LT/.style={skin=kivi@LT}}%
 237
 238
 239
 240 \seq_new:N \l_kivi_PricingTable_seq
 241 \seq_new:N \l_kivi_columns_seq
 242 \seq_new:N \g_kivi_extraDescription_seq
 243 \newcommand{\FakeTable}[1]{
 244         \par
 245         \seq_set_split:Nnn \l_kivi_PricingTable_seq {\tabularnewline} {#1}
 246         \seq_remove_all:Nn \l_kivi_PricingTable_seq {}
 247         \begingroup
 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
 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         \seq_use:Nn \g_kivi_extraDescription_seq {\\}
 266         \par\nointerlineskip
 267         \endgroup
 268         }
 269         }
 270         \endgroup
 271 }
 272
 273
 274 \seq_new:N  \__l_FakeTable_columns_seq
 275 \cs_new:Nn \__kivi_setup_FakeTable: {
 276         \seq_clear:N \__l_FakeTable_columns_seq
 277         \int_zero:N \l_tmpa_int
 278         \clist_map_inline:Nn \g_kivi_pricingtable_col_clist {
 279                 \int_incr:N \l_tmpa_int
 280                 \bool_if:cT {l_kivi_col_##1_bool} {\seq_put_right:Nx \__l_FakeTable_columns_seq {\int_use:N \l_tmpa_int}}
 281         }
 282 }
 283
 284 \tl_new:N \g_kivi_Pricing_colspec_tl
 285 \tl_gset:Nn \g_kivi_Pricing_colspec_tl {
 286         @{}
 287         \bool_if:NT \l_kivi_col_pos_bool {p{\l_kivi_tab_pos_dim}}
 288         \bool_if:NT \l_kivi_col_id_bool {p{\l_kivi_tab_id_dim}}
 289         p{\l_kivi_tab_desc_dim}
 290         \bool_if:NT \l_kivi_col_amount_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_amount_dim}}}
 291         \bool_if:NT \l_kivi_col_price_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_price_dim}<{\__kivi_tab_column_currency:}}}
 292         \bool_if:NT \l_kivi_col_pricetotal_bool {\exp_not:n {>{\raggedleft\arraybackslash}p{\l_kivi_tab_pricetotal_dim}<{\__kivi_tab_column_currency:}}}
 293         @{}
 294 }
 295
 296 \cs_new:Nn \__kivi_tab_column_currency: {\,\currency}
 297 \cs_set:Nn \__kivi_tab_column_header_currency: {}
 298 \cs_set_eq:NN \__kivi_tab_column_body_currency:  \__kivi_tab_column_currency:
 299
 300 \clist_map_inline:nn {head, foot, firsthead, lastfoot} {%TODO reduce
 301         \box_new:c {g_kivi_LT@#1_box}
 302 }
 303
 304 \newkomafont{PricingTableHeader}{\bfseries}
 305
 306 \cs_new:Nn \__kivi_setup_LT_boxes: {
 307         \__kivi_calc_desc_column:
 308         \hbox_gset:Nn \g_kivi_LT@head_box {
 309                 \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 310                 \exp_args:Nnx \use:n {\tabular[b]}\g_kivi_Pricing_colspec_tl
 311                 \toprule
 312                 \cs_gset_eq:NN \__kivi_tab_column_currency: \__kivi_tab_column_header_currency:
 313                 \bool_set_false:N \l_tmpa_bool
 314                 \clist_map_inline:Nn \g_kivi_pricingtable_col_clist     {
 315                         \bool_if:cT {l_kivi_col_##1_bool} {
 316                         \bool_if:NT \l_tmpa_bool {&}
 317                         \bool_set_true:N \l_tmpa_bool
 318                                 \usekomafont{PricingTableHeader}
 319                                 \prop_item:cn {l_kivi_col_##1_prop} {header}
 320                         }
 321                 }
 322                 \cs_gset_eq:NN \__kivi_tab_column_currency: \__kivi_tab_column_body_currency:
 323                 \\
 324                 \midrule
 325                 \endtabular
 326         }
 327         \hbox_gset:Nn \g_kivi_LT@foot_box {
 328                 \raisebox{\depth}{
 329                         \begin{tabular*}{\textwidth}{@{\extracolsep{\fill}}r@{}}
 330                                 \midrule
 331                                 \strut\weiteraufnaechsterseite
 332                         \end{tabular*}
 333                 }
 334         }
 335 }
 336
 337
 338 %Macht es sinn hier eine Variante zu machen, in der alle Spalten Belegbar sind?
 339 \newenvironment{PricingTotal}{
 340         \tabular[t]{@{}p{\dim_eval:n {\linewidth-\l_kivi_tab_price_dim-2\tabcolsep}}P@{}}
 341         \midrule
 342 }{
 343         \bottomrule\endtabular
 344 }
 345
 346 \newcommand{\ExtraDescription}[1]{\seq_gput_right:Nn \g_kivi_extraDescription_seq {#1}}
 347
 348 \newenvironment{PricingTabular}[1][]{
 349         \begingroup
 350         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 351         \__kivi_calc_desc_column:
 352         \exp_args:Nx \longtable \g_kivi_Pricing_colspec_tl
 353         % Tabellenkopf
 354         \toprule
 355         \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
 356         \midrule
 357         \endhead
 358         \midrule
 359         \multicolumn{6}{@{}r@{}}{\weiteraufnaechsterseite}\\
 360         \endfoot
 361 }{
 362         \endlongtable
 363         \endgroup
 364 }
 365
 366 \RequirePackage{xltabular}
 367
 368
 369 \newenvironment{SimpleTabular}[1][\bfseries\position & \bfseries\menge & \bfseries\bezeichnung]
 370 {
 371         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 372         \xltabular{\linewidth}{@{}rrX@{}}
 373         \toprule
 374         #1\\
 375         \midrule\\\endhead
 376         \midrule
 377         \multicolumn{3}{@{}>{\raggedright}p{\linewidth}@{}}{\weiteraufnaechsterseite}\\
 378         \endfoot
 379         \bottomrule
 380         \endlastfoot
 381         \ignorespaces
 382 }{
 383         \def\@currenvir{tabularx}
 384         \endxltabular
 385 }
 386
 387 %PricingTabular* kann automatisch spalten ignorieren
 388 % \begin{PricingTabular*}[id=false]
 389 % deaktiviert damit die Spalte der Produktnummer
 390 % analog ist dies für pos, amount, price, pricetotal möglich.
 391 % Die Spalte der Bezeichnung ist nicht deaktivierbar
 392 \newenvironment{PricingTabular*}[1][]{
 393         \bool_gset_true:N \g_kivi_inTable_bool
 394         \tl_if_empty:nF {#1} {\keys_set:nn {kivi/PricingTable} {#1}}
 395         \__kivi_setup_LT_boxes:
 396         \__kivi_setup_FakeTable:
 397         \PricingTabularBox\ignorespaces
 398 }{\endPricingTabularBox}
 399
 400 \newtcolorbox{PricingTabularBox}{breakable,skin=kivi@LT}
 401
 402
 403
 404 \if@kivi@infobox
 405 \setkomavar{location}{
 406         \ifkomavarempty{transaction}{}{
 407         \bfseries
 408         \usekomavar{transaction}
 409         }
 410         \par
 411         \medskip
 412         \begin{tabularx}{\useplength{locwidth}}{@{}l<{:}>{\raggedleft\arraybackslash}X@{}}
 413                 \usekomavar*{date}&\usekomavar{date}\\
 414                 \ifkomavarempty{myref}{}{
 415                         \usekomavar*{myref}&\usekomavar{myref}\\
 416                 }
 417                 \kundennummer&\usekomavar{customer}\\
 418                 \ifkomavarempty{yourref}{}{
 419                         \usekomavar*{yourref}&\usekomavar{yourref}\\
 420                 }
 421                 \ifkomavarempty{delivery}{}{
 422                         \usekomavar*{delivery}&\usekomavar{delivery}\\
 423                 }
 424                 \ifkomavarempty{quote}{}{
 425                         \usekomavar*{quote}&\usekomavar{quote}\\
 426                 }
 427                 \ifkomavarempty{orderID}{}{\auftragsnummer&\usekomavar{orderID}\\}
 428                 \ifkomavarempty{projectID}{}{\projektnummer&\usekomavar{projectID}\\}
 429                 \ansprechpartner&\usekomavar{fromname}
 430                 \ifkomavarempty{fromphone}{}{\\\textTelefon&\usekomavar{fromphone}}
 431                 \ifkomavarempty{fromemail}{}{\\\textEmail&\usekomavar{fromemail}}
 432         \end{tabularx}
 433 }
 434 \removereffields
 435 \AtBeginLetter{
 436         \ifdim\ht\shippingAddressBox>\z@
 437         \@addtoplength{refvpos}{\dimexpr\ht\shippingAddressBox+\dp\shippingAddressBox}
 438         \@addtoplength{refvpos}{4\baselineskip}%sep between address boxes
 439         \fi
 440 }
 441 \ExplSyntaxOff
 442 \fi
 443
 444
 445
 446 \renewcommand*{\raggedsignature}{\raggedright}
 447
 448 \endinput