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