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
  10 \ProcessOptions\relax
  11
  12
  13 \RequirePackage{expl3}
  14 \RequirePackage{iftex}
  15 % Schriftart, Eingabelayout der Tastatur
  16 \ifPDFTeX
  17 \RequirePackage[utf8]{inputenc}% Nur notwendig, wenn Basis älter als TL2018
  18 \RequirePackage[T1]{fontenc}
  19 \else
  20 \RequirePackage{fontspec}
  21 \fi
  22
  23 \RequirePackage{xltabular}
  24 \RequirePackage{booktabs}
  25 \PassOptionsToPackage{table}{xcolor}
  26
  27 \RequirePackage{xcolor}
  28 \RequirePackage{graphicx}
  29
  30 \ifPDFTeX
  31 \RequirePackage{eurosym}
  32 \DeclareUnicodeCharacter{20AC}{\euro}
  33 \fi
  34
  35 \RequirePackage[fromlogo,fromalign=right]{scrletter}
  36 \LoadLetterOption{DIN}
  37
  38 \usepackage{geometry}
  39
  40 \geometry{a4paper,left=\useplength{toaddrhpos}, right=\useplength{toaddrhpos}}
  41
  42 \ExplSyntaxOn
  43 %Scratch variables
  44 \int_new:N \l_kivi_tmp_int
  45 \bool_new:N \l_kivi_tmp_bool
  46 \ExplSyntaxOff
  47
  48 \newsavebox{\shippingAddressBox}
  49
  50
  51 \DeclareNewLayer[
  52 foreground,
  53 hoffset=\useplength{toaddrhpos},
  54 voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+\baselineskip,
  55 contents={\usebox\shippingAddressBox}
  56 ]{kivitendo.shippingaddress}
  57 \DeclareNewPageStyleByLayers{kivitendo.letter.first}{kivitendo.shippingaddress}
  58
  59 \setkomavar{backaddress}{\firma\ $\cdot$ \strasse\ $\cdot$ \ort}
  60 \@setplength{locwidth}{6cm}
  61
  62 \ExplSyntaxOn
  63 \dim_new:N \g_kivi_tab_pos_dim
  64 \dim_gset:Nn \g_kivi_tab_pos_dim {3.5ex}
  65 \dim_new:N \g_kivi_tab_id_dim
  66 \dim_gset:Nn \g_kivi_tab_id_dim {4em}
  67 \dim_new:N \g_kivi_tab_num_dim
  68 \dim_gset:Nn \g_kivi_tab_num_dim {4em}
  69 \dim_new:N \g_kivi_tab_price_dim
  70 \dim_gset:Nn \g_kivi_tab_price_dim {4em}
  71 \dim_new:N \g_kivi_tab_desc_dim
  72
  73 \dim_new:N \g_kivi_tabcolsep_dim
  74 \dim_gset:Nn \g_kivi_tabcolsep_dim {.5\tabcolsep}
  75 \newcommand*{\CalcTabCols}{
  76         \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}
  77 }
  78
  79 \newcolumntype{P}{>{\arraybackslash}p{\g_kivi_tab_price_dim}}
  80
  81 \newenvironment{PricingTabular}{
  82         \begingroup
  83         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
  84         \CalcTabCols
  85         \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}}@{}}
  86         % Tabellenkopf
  87         \toprule
  88         \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P}{\bfseries\gesamtpreis}\\
  89         \midrule
  90         \endhead
  91         \midrule
  92         \multicolumn{6}{@{}r@{}}{\weiteraufnaechsterseite}\\
  93         \endfoot
  94 }{
  95         \endlongtable
  96         \endgroup
  97 }
  98
  99 \ExplSyntaxOff
 100
 101 \if@kivi@infobox
 102 \newkomavar{locationtitle}
 103 \setkomavar{location}{
 104         \begin{flushright}
 105                 \bfseries
 106                 \LARGE
 107                 \usekomavar{locationtitle}
 108         \end{flushright}
 109
 110         \medskip
 111         \begin{tabularx}{\linewidth}{@{}l<{:}>{\raggedright\arraybackslash}X@{}}
 112                 \datum&\usekomavar{date}\\
 113                 \kundennummer&\usekomavar{customer}\\
 114                 \ansprechpartner&\usekomavar{fromname}\\
 115                 \ifkomavarempty{fromphone}{}{\textTelefon&\usekomavar{fromphone}\\}
 116                 \ifkomavarempty{fromemail}{}{\textEmail&\usekomavar{fromemail}\\}
 117         \end{tabularx}
 118 }
 119 \removereffields
 120
 121 \ExplSyntaxOn
 122 \AtBeginLetter{
 123         \ifkomavarempty{title}{}{
 124                 \exp_args:Nno\setkomavar{locationtitle}{\scr@title@var}
 125                 \setkomavar{title}{}
 126         }
 127 }
 128 \ExplSyntaxOff
 129 \fi
 130
 131
 132
 133 \renewcommand*{\raggedsignature}{\raggedright}
 134
 135 \endinput