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