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{booktabs}
  27 \PassOptionsToPackage{table}{xcolor}
  28
  29 \RequirePackage{xcolor}
  30 \RequirePackage{graphicx}
  31
  32 \ifPDFTeX
  33 \RequirePackage{eurosym}
  34 \DeclareUnicodeCharacter{20AC}{\euro}
  35 \fi
  36
  37 \RequirePackage[fromlogo,fromalign=right]{scrletter}
  38 \LoadLetterOption{DIN}
  39
  40 \usepackage{geometry}
  41
  42 \geometry{a4paper,margin=\useplength{toaddrhpos}}
  43
  44 \ExplSyntaxOn
  45 %Scratch variables
  46 \int_new:N \l_kivi_tmp_int
  47 \bool_new:N \l_kivi_tmp_bool
  48 \ExplSyntaxOff
  49
  50 \newsavebox{\shippingAddressBox}
  51
  52
  53 \DeclareNewLayer[
  54 foreground,
  55 hoffset=\useplength{toaddrhpos},
  56 voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+\baselineskip,
  57 contents={\usebox\shippingAddressBox}
  58 ]{kivitendo.shippingaddress}
  59 \DeclareNewPageStyleByLayers{kivitendo.letter.first}{kivitendo.shippingaddress}
  60
  61 \setkomavar{backaddress}{\firma\ $\cdot$ \strasse\ $\cdot$ \ort}
  62 \@setplength{locwidth}{6cm}
  63
  64 \ExplSyntaxOn
  65 \dim_new:N \g_kivi_tab_pos_dim
  66 \dim_gset:Nn \g_kivi_tab_pos_dim {3.5ex}
  67 \dim_new:N \g_kivi_tab_id_dim
  68 \dim_gset:Nn \g_kivi_tab_id_dim {4em}
  69 \dim_new:N \g_kivi_tab_num_dim
  70 \dim_gset:Nn \g_kivi_tab_num_dim {5em}
  71 \dim_new:N \g_kivi_tab_price_dim
  72 \dim_gset:Nn \g_kivi_tab_price_dim {5em}
  73 \dim_new:N \g_kivi_tab_desc_dim
  74
  75 \dim_new:N \g_kivi_tabcolsep_dim
  76 \dim_gset:Nn \g_kivi_tabcolsep_dim {.5\tabcolsep}
  77 \newcommand*{\CalcTabCols}{
  78         \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}
  79 }
  80
  81 \newcolumntype{P}{>{\raggedleft\arraybackslash}p{\g_kivi_tab_price_dim}}
  82
  83 %\if@kivi@faketable
  84 \RequirePackage{tcolorbox}
  85 \tcbuselibrary{breakable, skins}
  86 \seq_new:N \l_kivi_PricingTable_seq
  87 \seq_new:N \g_kivi_extraDescription_seq
  88 \newcommand{\FakeTable}[1]{
  89         \kivi_save_LT@boxes:
  90         \box_gset_eq:NN \LT@lastfoot \c_empty_box
  91         \endPricingTabular
  92         \seq_set_split:Nnn \l_kivi_PricingTable_seq {\tabularnewline} {#1}
  93         \begingroup
  94         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
  95         \seq_map_inline:Nn \l_kivi_PricingTable_seq {
  96         \seq_gclear:N \g_kivi_extraDescription_seq
  97         \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}}@{}}
  98         ##1
  99         \endtabular
 100         \seq_if_empty:NTF \g_kivi_extraDescription_seq
 101         {\par\nointerlineskip}
 102         {\par\nointerlineskip
 103                 \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]
 104                 \seq_use:Nn \g_kivi_extraDescription_seq {\newline}
 105                 \end{tcolorbox}
 106         }
 107         }
 108         \endgroup
 109         \PricingTabular
 110         \kivi_restore_LT@boxes:
 111 }
 112
 113 \clist_map_inline:nn {head, firsthead, foot, lastfoot} {
 114         \box_new:c {g_kivi_LT@#1_box}
 115 }
 116
 117 \cs_new:Nn \kivi_save_LT@boxes: {
 118         \clist_map_inline:nn {head, firsthead, foot, lastfoot} {
 119         \box_gset_eq:cc {g_kivi_LT@##1_box} {LT@##1}
 120         }
 121 }
 122
 123 \cs_new:Nn \kivi_restore_LT@boxes: {
 124         \clist_map_inline:nn {head, firsthead, foot, lastfoot} {
 125         \box_gset_eq:cc  {LT@##1} {g_kivi_LT@##1_box}
 126         \box_gclear:c {g_kivi_LT@##1_box}
 127         }
 128 }
 129
 130 \newcommand{\ExtraDescription}[1]{\seq_gput_right:Nn \g_kivi_extraDescription_seq {#1}}
 131 %\else
 132 \newenvironment{PricingTabular}[1][]{
 133         \begingroup
 134         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 135         \CalcTabCols
 136         \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}}@{}}
 137         % Tabellenkopf
 138         \toprule
 139         \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
 140         \midrule
 141         \endhead
 142         \midrule
 143         \multicolumn{6}{@{}r@{}}{\weiteraufnaechsterseite}\\
 144         \endfoot
 145 }{
 146         \endlongtable
 147         \endgroup
 148 }
 149 %\fi
 150
 151 \ExplSyntaxOff
 152
 153 \if@kivi@infobox
 154 \newkomavar{locationtitle}
 155 \setkomavar{location}{
 156         \begin{flushright}
 157                 \bfseries
 158                 \LARGE
 159                 \usekomavar{locationtitle}
 160         \end{flushright}
 161
 162         \medskip
 163         \begin{tabularx}{\linewidth}{@{}l<{:}>{\raggedright\arraybackslash}X@{}}
 164                 \datum&\usekomavar{date}\\
 165                 \kundennummer&\usekomavar{customer}\\
 166                 \ansprechpartner&\usekomavar{fromname}\\
 167                 \ifkomavarempty{fromphone}{}{\textTelefon&\usekomavar{fromphone}\\}
 168                 \ifkomavarempty{fromemail}{}{\textEmail&\usekomavar{fromemail}\\}
 169         \end{tabularx}
 170 }
 171 \removereffields
 172
 173 \ExplSyntaxOn
 174 \AtBeginLetter{
 175         \ifkomavarempty{title}{}{
 176                 \exp_args:Nno\setkomavar{locationtitle}{\scr@title@var}
 177                 \setkomavar{title}{}
 178         }
 179 }
 180 \ExplSyntaxOff
 181 \fi
 182
 183
 184
 185 \renewcommand*{\raggedsignature}{\raggedright}
 186
 187 \endinput