templates/print/marei/kiviletter.sty

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