kiviletter.sty

   1 \NeedsTeXFormat{LaTeX2e}
   2 \ProvidesPackage{kiviletter}[2019/10/10 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 \newif\if@kivi@faketable
  10 \DeclareOption{faketable}{\@kivi@faketabletrue}
  11
  12 \ProcessOptions\relax
  13
  14
  15 \RequirePackage{expl3}
  16 \RequirePackage{iftex}
  17 % Schriftart, Eingabelayout der Tastatur
  18 \ifPDFTeX
  19 \RequirePackage[utf8]{inputenc}% Nur notwendig, wenn Basis älter als TL2018
  20 \RequirePackage[T1]{fontenc}
  21 \else
  22 \RequirePackage{fontspec}
  23 \fi
  24
  25 %\RequirePackage{xltabular}
  26 \RequirePackage{tabularx}
  27 \RequirePackage{longtable}
  28 \RequirePackage{booktabs}
  29 \PassOptionsToPackage{table}{xcolor}
  30
  31 \RequirePackage{xcolor}
  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         ]{scrletter}
  42 \LoadLetterOption{DIN}
  43
  44 \usepackage{geometry}
  45
  46 \ExplSyntaxOn
  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}
  51 %Scratch variables
  52 \int_new:N \l_kivi_tmp_int
  53 \bool_new:N \l_kivi_tmp_bool
  54 \ExplSyntaxOff
  55
  56 \newsavebox{\shippingAddressBox}
  57
  58
  59 \DeclareNewLayer[
  60 foreground,
  61 hoffset=\useplength{toaddrhpos},
  62 voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+\baselineskip,
  63 contents={\usebox\shippingAddressBox}
  64 ]{kivitendo.shippingaddress}
  65 \DeclareNewPageStyleByLayers{kivitendo.letter.first}{kivitendo.shippingaddress}
  66
  67
  68 \ExplSyntaxOn
  69 \DeclareNewLayer[
  70 foreground,
  71 textarea,
  72 mode=picture,
  73 contents={\box_use:N \g_kivi_LT@head_box},
  74 align=tl,
  75 height=\box_ht:N \g_kivi_LT@head_box,
  76 ]{kivitendo.TableHead}
  77
  78 \DeclareNewLayer[
  79 foreground,
  80 textarea,
  81 mode=picture,
  82 addvoffset=\textheight,
  83 height=\box_ht:N \g_kivi_LT@foot_box,
  84 contents=\box_use:N \g_kivi_LT@foot_box,
  85 align=bl,
  86 ]{kivitendo.TableFoot}
  87 \ExplSyntaxOff
  88
  89 \DeclareNewPageStyleByLayers{kivitendo.letter.PricingTable}{kivitendo.TableHead, kivitendo.TableFoot}
  90 \DeclareNewPageStyleByLayers{kivitendo.letter.PricingTable.las}{kivitendo.TableHead}
  91
  92 \setkomavar{backaddress}{\firma\ $\cdot$ \strasse\ $\cdot$ \ort}
  93 \@setplength{locwidth}{6cm}
  94
  95 \ExplSyntaxOn
  96 \dim_new:N \g_kivi_tab_pos_dim
  97 \dim_gset:Nn \g_kivi_tab_pos_dim {3.5ex}
  98 \dim_new:N \g_kivi_tab_id_dim
  99 \dim_gset:Nn \g_kivi_tab_id_dim {4em}
 100 \dim_new:N \g_kivi_tab_num_dim
 101 \dim_gset:Nn \g_kivi_tab_num_dim {5em}
 102 \dim_new:N \g_kivi_tab_price_dim
 103 \dim_gset:Nn \g_kivi_tab_price_dim {5em}
 104 \dim_new:N \g_kivi_tab_desc_dim
 105
 106 \dim_new:N \g_kivi_tabcolsep_dim
 107 \dim_gset:Nn \g_kivi_tabcolsep_dim {.5\tabcolsep}
 108 \newcommand*{\CalcTabCols}{
 109         \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}
 110 }
 111
 112 \newcolumntype{P}{>{\raggedleft\arraybackslash}p{\g_kivi_tab_price_dim}}
 113
 114 %\if@kivi@faketable
 115 \RequirePackage{tcolorbox}
 116 \tcbuselibrary{breakable, skins}
 117 \seq_new:N \l_kivi_PricingTable_seq
 118 \seq_new:N \g_kivi_extraDescription_seq
 119 \newcommand{\FakeTable}[1]{
 120         \kivi_save_LT@boxes:
 121         \box_gset_eq:NN \LT@lastfoot \c_empty_box
 122         \box_gset_eq:NN \LT@foot \c_empty_box
 123         \endPricingTabular
 124         \seq_set_split:Nnn \l_kivi_PricingTable_seq {\tabularnewline} {#1}
 125         \begingroup
 126         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 127         \seq_map_inline:Nn \l_kivi_PricingTable_seq {
 128         \seq_gclear:N \g_kivi_extraDescription_seq
 129         \tabular{@{}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<{\,\currency}}@{}}
 130         ##1
 131         \endtabular
 132         \seq_if_empty:NTF \g_kivi_extraDescription_seq
 133         {\par\nointerlineskip}
 134         {\par\nointerlineskip
 135                 \begin{tcolorbox}[left~skip=\dim_eval:n {\g_kivi_tab_pos_dim+ \g_kivi_tab_id_dim +4\tabcolsep},right~skip=\dim_eval:n {\g_kivi_tab_num_dim+ 2\g_kivi_tab_price_dim +6\tabcolsep}, breakable, blank]
 136                 \seq_use:Nn \g_kivi_extraDescription_seq {\newline}
 137                 \end{tcolorbox}
 138         }
 139         }
 140         \endgroup
 141         \PricingTabular
 142         \kivi_restore_LT@boxes:
 143 }
 144
 145
 146 \tl_new:N \g_kivi_Pricing_colspec_tl
 147 \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<{\,\currency}}@{}}
 148
 149
 150 \clist_map_inline:nn {head, foot, firsthead, lastfoot} {%TODO reduce
 151         \box_new:c {g_kivi_LT@#1_box}
 152 }
 153
 154 \AtBeginDocument{
 155         \csname kivi_setup_LT_boxes:\endcsname
 156 }
 157
 158 \cs_new:Nn \kivi_setup_LT_boxes: {
 159         \CalcTabCols
 160         \hbox_gset:Nn \g_kivi_LT@head_box {
 161         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 162         \exp_args:NnV \use:n {\tabular[b]}\g_kivi_Pricing_colspec_tl
 163         \toprule
 164         \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
 165         \midrule
 166         \endtabular
 167         }
 168         \hbox_gset:Nn \g_kivi_LT@foot_box {
 169         \begin{tabular*}{\textwidth}[b]{@{\extracolsep{\fill}}r@{}}
 170         \midrule
 171         \weiteraufnaechsterseite
 172         \end{tabular*}
 173         }
 174 }
 175
 176
 177
 178 \cs_new:Nn \kivi_save_LT@boxes: {
 179         \clist_map_inline:nn {head, firsthead, foot, lastfoot} {
 180         \box_gset_eq:cc {g_kivi_LT@##1_box} {LT@##1}
 181         }
 182 }
 183
 184 \cs_new:Nn \kivi_restore_LT@boxes: {
 185         \clist_map_inline:nn {head, firsthead, foot, lastfoot} {
 186         \box_gset_eq:cc  {LT@##1} {g_kivi_LT@##1_box}
 187         \box_gclear:c {g_kivi_LT@##1_box}
 188         }
 189 }
 190
 191 \newcommand{\ExtraDescription}[1]{\seq_gput_right:Nn \g_kivi_extraDescription_seq {#1}}
 192 %\else
 193 \newenvironment{PricingTabular}[1][]{
 194         \begingroup
 195         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 196         \CalcTabCols
 197         \longtable{@{}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<{\,\currency}}@{}}
 198         % Tabellenkopf
 199         \toprule
 200         \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
 201         \midrule
 202         \endhead
 203         \midrule
 204         \multicolumn{6}{@{}r@{}}{\weiteraufnaechsterseite}\\
 205         \endfoot
 206 }{
 207         \endlongtable
 208         \endgroup
 209 }
 210 %\fi
 211
 212 \ExplSyntaxOff
 213
 214 \if@kivi@infobox
 215 \newkomavar{locationtitle}
 216 \setkomavar{location}{
 217         \begin{flushright}
 218                 \bfseries
 219                 \LARGE
 220                 \usekomavar{locationtitle}
 221         \end{flushright}
 222
 223         \medskip
 224         \begin{tabularx}{\linewidth}{@{}l<{:}>{\raggedright\arraybackslash}X@{}}
 225                 \datum&\usekomavar{date}\\
 226                 \kundennummer&\usekomavar{customer}\\
 227                 \ansprechpartner&\usekomavar{fromname}\\
 228                 \ifkomavarempty{fromphone}{}{\textTelefon&\usekomavar{fromphone}\\}
 229                 \ifkomavarempty{fromemail}{}{\textEmail&\usekomavar{fromemail}\\}
 230         \end{tabularx}
 231 }
 232 \removereffields
 233
 234 \ExplSyntaxOn
 235 \AtBeginLetter{
 236         \ifkomavarempty{title}{}{
 237                 \exp_args:Nno\setkomavar{locationtitle}{\scr@title@var}
 238                 \setkomavar{title}{}
 239         }
 240 }
 241 \ExplSyntaxOff
 242 \fi
 243
 244
 245
 246 \renewcommand*{\raggedsignature}{\raggedright}
 247
 248 \endinput