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 \dim_new:N \g_kivi_orig@textheight_dim
  55 \ExplSyntaxOff
  56
  57 \newsavebox{\shippingAddressBox}
  58
  59
  60 \DeclareNewLayer[
  61 foreground,
  62 hoffset=\useplength{toaddrhpos},
  63 voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+\baselineskip,
  64 contents={\usebox\shippingAddressBox}
  65 ]{kivitendo.shippingaddress}
  66
  67
  68 \ExplSyntaxOn
  69 \DeclareNewLayer[
  70 foreground,
  71 mode=picture,
  72 hoffset=\g_kivi_margin_dim,
  73 voffset=\g_kivi_margin_dim,
  74 align=tl,
  75 height=\box_ht:N \g_kivi_LT@head_box,
  76 contents={\box_use:N \g_kivi_LT@head_box},
  77 ]{kivitendo.TableHead}
  78
  79 \DeclareNewLayer[
  80 foreground,
  81 textarea,
  82 mode=picture,
  83 voffset=\dim_eval:n {\paperheight-\g_kivi_margin_dim-\box_ht:N \g_kivi_LT@foot_box},
  84 height=\box_ht:N \g_kivi_LT@foot_box,
  85 contents=\bool_if:NT \g_kivi_TableFoot_bool {\box_use:N \g_kivi_LT@foot_box},
  86 align=tl,
  87 ]{kivitendo.TableFoot}
  88
  89 \AtBeginLetter{\dim_gset:Nn \g_kivi_orig@textheight_dim {\textheight}}
  90 \ExplSyntaxOff
  91
  92 \DeclareNewPageStyleByLayers{kivitendo.letter.PricingTable}{
  93         kivitendo.TableHead,
  94         kivitendo.TableFoot
  95 }
  96 \DeclareNewPageStyleByLayers{kivitendo.letter.first}{
  97         kivitendo.shippingaddress,
  98         kivitendo.TableFoot.first
  99 }
 100
 101 \setkomavar{backaddress}{\firma\ $\cdot$ \strasse\ $\cdot$ \ort}
 102 \@setplength{locwidth}{6cm}
 103
 104 \ExplSyntaxOn
 105 \dim_new:N \g_kivi_tab_pos_dim
 106 \dim_gset:Nn \g_kivi_tab_pos_dim {3.5ex}
 107 \dim_new:N \g_kivi_tab_id_dim
 108 \dim_gset:Nn \g_kivi_tab_id_dim {4em}
 109 \dim_new:N \g_kivi_tab_num_dim
 110 \dim_gset:Nn \g_kivi_tab_num_dim {5em}
 111 \dim_new:N \g_kivi_tab_price_dim
 112 \dim_gset:Nn \g_kivi_tab_price_dim {5em}
 113 \dim_new:N \g_kivi_tab_desc_dim
 114
 115 \dim_new:N \g_kivi_tabcolsep_dim
 116 \dim_gset:Nn \g_kivi_tabcolsep_dim {.5\tabcolsep}
 117 \newcommand*{\CalcTabCols}{
 118         \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}
 119 }
 120
 121 \newcolumntype{P}{>{\raggedleft\arraybackslash}p{\g_kivi_tab_price_dim}<{\,\currency}}
 122
 123 %\if@kivi@faketable
 124 \RequirePackage{tcolorbox}
 125 \tcbuselibrary{breakable, skins}
 126 \seq_new:N \l_kivi_PricingTable_seq
 127 \seq_new:N \g_kivi_extraDescription_seq
 128 \newcommand{\FakeTable}[1]{
 129         \par
 130         \CalcTabCols
 131         \seq_set_split:Nnn \l_kivi_PricingTable_seq {\tabularnewline} {#1}
 132         \begingroup
 133         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 134         \seq_map_inline:Nn \l_kivi_PricingTable_seq {
 135         \seq_gclear:N \g_kivi_extraDescription_seq
 136         \exp_args:NnV \use:n {\tabular[t]}\g_kivi_Pricing_colspec_tl
 137         ##1
 138         \endtabular
 139         \seq_if_empty:NTF \g_kivi_extraDescription_seq
 140         {\par\nointerlineskip}
 141         {\par\nointerlineskip
 142         \begin{tcolorbox}[
 143                 empty,
 144                 left=\dim_eval:n {\g_kivi_tab_pos_dim+ \g_kivi_tab_id_dim +4\g_kivi_tabcolsep_dim},
 145                 right=\dim_eval:n {\g_kivi_tab_num_dim+ 2\g_kivi_tab_price_dim +6\g_kivi_tabcolsep_dim},top=0pt,bottom=0pt,
 146                 boxsep=0pt,
 147                 breakable,
 148                 lines~before~break=1,
 149         ]
 150         \seq_use:Nn \g_kivi_extraDescription_seq {\\}
 151         \end{tcolorbox}
 152         \nointerlineskip
 153         }
 154         }
 155         \endgroup
 156 }
 157
 158
 159 \tl_new:N \g_kivi_Pricing_colspec_tl
 160 \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}@{}}
 161
 162
 163 \clist_map_inline:nn {head, foot, firsthead, lastfoot} {%TODO reduce
 164         \box_new:c {g_kivi_LT@#1_box}
 165 }
 166
 167 \AtBeginDocument{
 168         \csname kivi_setup_LT_boxes:\endcsname
 169         \geometry{a4paper,
 170                 hmargin=\g_kivi_margin_dim,
 171                 top=\dim_eval:n {\g_kivi_margin_dim + \box_ht:N \g_kivi_LT@head_box},
 172                 bottom=\dim_eval:n {\g_kivi_margin_dim + \box_ht:N \g_kivi_LT@foot_box},
 173                 heightrounded}
 174         \savegeometry{kivi.letter@table}
 175         \loadgeometry{kivi.letter@default}
 176 }
 177
 178 \cs_new:Nn \kivi_setup_LT_boxes: {
 179         \CalcTabCols
 180         \hbox_gset:Nn \g_kivi_LT@head_box {
 181         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 182         \exp_args:NnV \use:n {\tabular[b]}\g_kivi_Pricing_colspec_tl
 183         \toprule
 184         \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
 185         \midrule
 186         \endtabular
 187         }
 188         \hbox_gset:Nn \g_kivi_LT@foot_box {
 189         \raisebox{\depth}{
 190         \begin{tabular*}{\textwidth}{@{\extracolsep{\fill}}r@{}}
 191         \midrule
 192         \strut\weiteraufnaechsterseite
 193         \end{tabular*}
 194         }
 195         }
 196 }
 197
 198
 199 %Macht es sinn hier eine Variante zu machen, in der alle Spalten Belegbar sind?
 200 \newenvironment{PricingTotal}{
 201         \tabular[t]{@{}p{\dim_eval:n {\linewidth-\g_kivi_tab_price_dim-2\tabcolsep}}P@{}}
 202         \midrule
 203 }{
 204         \bottomrule\endtabular
 205 }
 206
 207 \newcommand{\ExtraDescription}[1]{\seq_gput_right:Nn \g_kivi_extraDescription_seq {#1}}
 208 %\else
 209 \newenvironment{PricingTabular}[1][]{
 210         \begingroup
 211         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 212         \CalcTabCols
 213         \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}}@{}}
 214         % Tabellenkopf
 215         \toprule
 216         \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
 217         \midrule
 218         \endhead
 219         \midrule
 220         \multicolumn{6}{@{}r@{}}{\weiteraufnaechsterseite}\\
 221         \endfoot
 222 }{
 223         \endlongtable
 224         \endgroup
 225 }
 226 %\fi
 227
 228 \ExplSyntaxOff
 229
 230 \if@kivi@infobox
 231 \newkomavar{locationtitle}
 232 \setkomavar{location}{
 233         \begin{flushright}
 234                 \bfseries
 235                 \LARGE
 236                 \usekomavar{locationtitle}
 237         \end{flushright}
 238
 239         \medskip
 240         \begin{tabularx}{\linewidth}{@{}l<{:}>{\raggedright\arraybackslash}X@{}}
 241                 \datum&\usekomavar{date}\\
 242                 \kundennummer&\usekomavar{customer}\\
 243                 \ansprechpartner&\usekomavar{fromname}\\
 244                 \ifkomavarempty{fromphone}{}{\textTelefon&\usekomavar{fromphone}\\}
 245                 \ifkomavarempty{fromemail}{}{\textEmail&\usekomavar{fromemail}\\}
 246         \end{tabularx}
 247 }
 248 \removereffields
 249
 250 \ExplSyntaxOn
 251 \AtBeginLetter{
 252         \ifkomavarempty{title}{}{
 253                 \exp_args:Nno\setkomavar{locationtitle}{\scr@title@var}
 254                 \setkomavar{title}{}
 255         }
 256 }
 257 \ExplSyntaxOff
 258 \fi
 259
 260
 261
 262 \renewcommand*{\raggedsignature}{\raggedright}
 263
 264 \endinput