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 \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,
  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 \usepackage{afterpage}
 251
 252 \cs_new:cpn {PricingTabular*}{
 253         \bool_gset_true:N \g_kivi_inTable_bool
 254         \endgroup
 255         \@nameuse{Gm@restore@@kivi.letter@table}%
 256         \Gm@changelayout
 257         \begingroup
 258         \def \@currenvir {PricingTabular*}\edef \@currenvline {\on@line }
 259         \int_gset:Nn \g_PricingTabular_firstpage_int {\c@page}
 260         \addtolength{\vsize}{-\box_ht:N \g_kivi_LT@foot_box}
 261         \pagegoal\vsize
 262         \widowpenalty0
 263         \clubpenalty0
 264         \bool_gset_true:N \g_kivi_TableFoot_bool
 265         \pagestyle{kivitendo.letter.PricingTable}
 266         \leavevmode\box_use:N \g_kivi_LT@head_box
 267         \par\nointerlineskip\ignorespaces
 268 }
 269
 270 \cs_new:cpn {endPricingTabular*} {
 271         \int_compare:nNnF \g_PricingTabular_firstpage_int = \c@page {\thispagestyle{kivitendo.letter.PricingTable}}
 272         \bool_gset_false:N \g_kivi_TableFoot_bool
 273         \@nameuse{Gm@restore@@kivi.letter@default}
 274         \Gm@changelayout
 275         \bool_gset_true:N \g_kivi_restore_geometry_bool
 276         \afterpage{
 277                 \kivi_conditional_restore_geometry:
 278         }
 279 }
 280
 281 \cs_new:Nn \kivi_conditional_restore_geometry: {
 282         \bool_if:NT \g_kivi_restore_geometry_bool
 283         {
 284         \@nameuse{Gm@restore@@kivi.letter@default}
 285         \Gm@changelayout
 286         }
 287         \bool_gset_false:N \g_kivi_restore_geometry_bool
 288 }
 289
 290
 291
 292 \if@kivi@infobox
 293 \setkomavar{location}{
 294         \ifkomavarempty{transaction}{}{
 295         \bfseries
 296         \usekomavar{transaction}
 297         }
 298         \par
 299         \medskip
 300         \begin{tabularx}{\linewidth}{@{}l<{:}>{\raggedright\arraybackslash}X@{}}
 301                 \usekomavar*{date}&\usekomavar{date}\\
 302                 \ifkomavarempty{myref}{}{
 303                         \usekomavar*{myref}&\usekomavar{myref}\\
 304                 }
 305                 \kundennummer&\usekomavar{customer}\\
 306                 \ifkomavarempty{yourref}{}{
 307                         \usekomavar*{yourref}&\usekomavar{yourref}\\
 308                 }
 309                 \ifkomavarempty{delivery}{}{
 310                         \usekomavar*{delivery}&\usekomavar{delivery}\\
 311                 }
 312                 \ifkomavarempty{quote}{}{
 313                         \usekomavar*{quote}&\usekomavar{quote}\\
 314                 }
 315                 \ansprechpartner&\usekomavar{fromname}
 316                 \ifkomavarempty{fromphone}{}{\\\textTelefon&\usekomavar{fromphone}}
 317                 \ifkomavarempty{fromemail}{}{\\\textEmail&\usekomavar{fromemail}}
 318                 \ifkomavarempty{projectID}{}{\\\projektnummer&\usekomavar{projectID}}
 319                 \ifkomavarempty{orderID}{}{\\\auftragsnummer&\usekomavar{orderID}}
 320         \end{tabularx}
 321 }
 322 \removereffields
 323 \AtBeginLetter{
 324         \ifdim\ht\shippingAddressBox>\z@
 325         \addtoplength{refvpos}{\ht\shippingAddressBox}
 326         \addtoplength{refvpos}{4\baselineskip}
 327         \fi
 328 }
 329 \ExplSyntaxOff
 330 \fi
 331
 332
 333
 334 \renewcommand*{\raggedsignature}{\raggedright}
 335
 336 \endinput