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