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