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 \ExplSyntaxOff
  63
  64 \newsavebox{\shippingAddressBox}
  65
  66
  67 \DeclareNewLayer[
  68 foreground,
  69 hoffset=\useplength{toaddrhpos},
  70 voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+4\baselineskip,%sep to shippingaddressbox
  71 contents={\usebox\shippingAddressBox}
  72 ]{kivitendo.shippingaddress}
  73
  74
  75 \ExplSyntaxOn
  76 \AtBeginLetter{\dim_gset:Nn \g_kivi_orig@textheight_dim {\textheight}}
  77 \ExplSyntaxOff
  78
  79 \newpairofpagestyles{kivitendo.letter}{}
  80 \renewcommand*{\letterpagestyle}{kivitendo.letter}
  81
  82 \DeclareNewPageStyleByLayers{kivitendo.letter.PricingTable}{
  83         kivitendo.TableHead,
  84         kivitendo.TableFoot
  85         kivitendo.letter.head.odd,kivitendo.letter.head.even,kivitendo.letter.head.oneside,%
  86         kivitendo.letter.foot.odd,kivitendo.letter.foot.even,kivitendo.letter.foot.oneside,%
  87 }
  88 \DeclareNewPageStyleByLayers{kivitendo.letter.first}{
  89         kivitendo.shippingaddress,
  90         kivitendo.TableFoot,
  91         kivitendo.letter.head.odd,kivitendo.letter.head.even,kivitendo.letter.head.oneside,%
  92         kivitendo.letter.foot.odd,kivitendo.letter.foot.even,kivitendo.letter.foot.oneside,%
  93 }
  94
  95 \setkomavar{backaddress}{\firma\ $\cdot$ \strasse\ $\cdot$ \ort}
  96
  97 \setkomavar{firsthead}{
  98         \if@logo
  99         \rlap{\usekomavar{fromlogo}}%
 100         \fi
 101 }
 102
 103 \@setplength{locwidth}{6cm}
 104
 105 \ExplSyntaxOn
 106 \dim_new:N \g_kivi_tab_pos_dim
 107 \dim_gset:Nn \g_kivi_tab_pos_dim {3.5ex}
 108 \dim_new:N \g_kivi_tab_id_dim
 109 \dim_gset:Nn \g_kivi_tab_id_dim {4em}
 110 \dim_new:N \g_kivi_tab_num_dim
 111 \dim_gset:Nn \g_kivi_tab_num_dim {5em}
 112 \dim_new:N \g_kivi_tab_price_dim
 113 \dim_gset:Nn \g_kivi_tab_price_dim {7em}
 114 \dim_new:N \g_kivi_tab_desc_dim
 115
 116 \dim_new:N \g_kivi_tabcolsep_dim
 117 \dim_gset:Nn \g_kivi_tabcolsep_dim {.5\tabcolsep}
 118 \newcommand*{\CalcTabCols}{
 119         \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}
 120 }
 121
 122 \newcolumntype{P}{>{\raggedleft\arraybackslash}p{\g_kivi_tab_price_dim}<{\,\currency}}
 123
 124 \RequirePackage{tcolorbox}
 125 \tcbuselibrary{breakable, skins}
 126
 127 \tcb@new@skin{kivi@LT}{base@unbroken,%
 128         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
 129         skin~first=kivi@LT@first,skin~middle=kivi@LT@middle,skin~last=kivi@LT@last,
 130         underlay~first~and~middle={
 131                 \node[anchor=north]  at (interior.north)  {\csname box_use:c\endcsname  {g_kivi_LT@head_box}};
 132                 \node[anchor=south]  at (interior.south)  {\csname box_use:c\endcsname  {g_kivi_LT@foot_box}};
 133         },
 134         underlay~unbroken~and~last={
 135         \node[anchor=north]  at (interior.north)  {\csname box_use:c\endcsname  {g_kivi_LT@head_box}};
 136         },
 137         boxsep=0pt,
 138         boxrule=0pt,
 139         left=0pt,
 140         right=0pt,
 141         bottom=\box_ht:N  \g_kivi_LT@foot_box+\box_dp:N  \g_kivi_LT@foot_box,
 142         top=\box_ht:N  \g_kivi_LT@head_box+\box_dp:N  \g_kivi_LT@head_box,
 143         parbox=false,
 144 }
 145
 146 \tcb@new@skin{kivi@LT@first}{base@first,%
 147         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
 148         skin~first=kivi@LT@first,skin~middle=kivi@LT@middle,skin~last=kivi@LT@middle,
 149 }
 150
 151 \tcb@new@skin{kivi@LT@middle}{base@middle,%
 152         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
 153         skin~first=kivi@LT@middle,skin~middle=kivi@LT@middle,skin~last=kivi@LT@middle,
 154 }
 155
 156 \tcb@new@skin{kivi@LT@last}{base@last,%
 157         frame~engine=empty,interior~titled~engine=empty,interior~engine=empty,segmentation~engine=empty,title~engine=empty,%
 158         skin~first=kivi@LT@middle,skin~middle=kivi@LT@middle,skin~last=kivi@LT@last,
 159 }
 160
 161 \tcbset{kivi@LT/.style={skin=kivi@LT}}%
 162
 163
 164
 165 \seq_new:N \l_kivi_PricingTable_seq
 166 \seq_new:N \g_kivi_extraDescription_seq
 167 \newcommand{\FakeTable}[1]{
 168         \par
 169         \CalcTabCols
 170         \seq_set_split:Nnn \l_kivi_PricingTable_seq {\tabularnewline} {#1}
 171         \begingroup
 172         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 173         \seq_map_inline:Nn \l_kivi_PricingTable_seq {
 174         \seq_gclear:N \g_kivi_extraDescription_seq
 175         \exp_args:NnV \use:n {\tabular[t]}\g_kivi_Pricing_colspec_tl
 176         ##1
 177         \endtabular
 178         \seq_if_empty:NTF \g_kivi_extraDescription_seq
 179         {\par\nointerlineskip}
 180         {\par\nointerlineskip
 181         \begin{tcolorbox}[
 182                 empty,
 183                 left=\dim_eval:n {\g_kivi_tab_pos_dim+ \g_kivi_tab_id_dim +4\g_kivi_tabcolsep_dim},
 184                 right=\dim_eval:n {\g_kivi_tab_num_dim+ 2\g_kivi_tab_price_dim +6\g_kivi_tabcolsep_dim},top=0pt,bottom=0pt,
 185                 boxsep=0pt,
 186                 breakable,
 187                 lines~before~break=1,
 188         ]
 189         \seq_use:Nn \g_kivi_extraDescription_seq {\\}
 190         \end{tcolorbox}
 191         \nointerlineskip
 192         }
 193         }
 194         \endgroup
 195 }
 196
 197
 198 \tl_new:N \g_kivi_Pricing_colspec_tl
 199 \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}@{}}
 200
 201
 202 \clist_map_inline:nn {head, foot, firsthead, lastfoot} {%TODO reduce
 203         \box_new:c {g_kivi_LT@#1_box}
 204 }
 205
 206
 207 \cs_new:Nn \kivi_setup_LT_boxes: {
 208         \CalcTabCols
 209         \hbox_gset:Nn \g_kivi_LT@head_box {
 210         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 211         \exp_args:NnV \use:n {\tabular[b]}\g_kivi_Pricing_colspec_tl
 212         \toprule
 213         \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
 214         \midrule
 215         \endtabular
 216         }
 217         \hbox_gset:Nn \g_kivi_LT@foot_box {
 218         \raisebox{\depth}{
 219         \begin{tabular*}{\textwidth}{@{\extracolsep{\fill}}r@{}}
 220         \midrule
 221         \strut\weiteraufnaechsterseite
 222         \end{tabular*}
 223         }
 224         }
 225 }
 226
 227
 228 %Macht es sinn hier eine Variante zu machen, in der alle Spalten Belegbar sind?
 229 \newenvironment{PricingTotal}{
 230         \tabular[t]{@{}p{\dim_eval:n {\linewidth-\g_kivi_tab_price_dim-2\tabcolsep}}P@{}}
 231         \midrule
 232 }{
 233         \bottomrule\endtabular
 234 }
 235
 236 \newcommand{\ExtraDescription}[1]{\seq_gput_right:Nn \g_kivi_extraDescription_seq {#1}}
 237 %\else
 238 \newenvironment{PricingTabular}[1][]{
 239         \begingroup
 240         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 241         \CalcTabCols
 242         \exp_args:NV \longtable \g_kivi_Pricing_colspec_tl
 243         % Tabellenkopf
 244         \toprule
 245         \bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
 246         \midrule
 247         \endhead
 248         \midrule
 249         \multicolumn{6}{@{}r@{}}{\weiteraufnaechsterseite}\\
 250         \endfoot
 251 }{
 252         \endlongtable
 253         \endgroup
 254 }
 255
 256 \RequirePackage{xltabular}
 257
 258
 259 \newenvironment{SimpleTabular}[1][\bfseries\position & \bfseries\menge & \bfseries\bezeichnung]
 260 {
 261         \setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
 262         \xltabular{\linewidth}{@{}rrX@{}}
 263         \toprule
 264         #1\\
 265         \midrule\\\endhead
 266         \midrule
 267         \multicolumn{3}{@{}>{\raggedright}p{\linewidth}@{}}{\weiteraufnaechsterseite}\\
 268         \endfoot
 269         \bottomrule
 270         \endlastfoot
 271         \ignorespaces
 272 }{
 273         \def\@currenvir{tabularx}
 274         \endxltabular
 275 }
 276
 277 \newenvironment{PricingTabular*}[1][]{
 278         \bool_gset_true:N \g_kivi_inTable_bool
 279         \tl_if_empty:nF {#1} {\keys_set:nn {kivi/PricingTable} {#1}}
 280         \__kivi_setup_LT_boxes:
 281         \__kivi_setup_FakeTable:
 282         \PricingTabularBox\ignorespaces
 283 }{\endPricingTabularBox}
 284
 285 \newtcolorbox{PricingTabularBox}{breakable,skin=kivi@LT}
 286
 287
 288
 289 \if@kivi@infobox
 290 \setkomavar{location}{
 291         \ifkomavarempty{transaction}{}{
 292         \bfseries
 293         \usekomavar{transaction}
 294         }
 295         \par
 296         \medskip
 297         \begin{tabularx}{\useplength{locwidth}}{@{}l<{:}>{\raggedleft\arraybackslash}X@{}}
 298                 \usekomavar*{date}&\usekomavar{date}\\
 299                 \ifkomavarempty{myref}{}{
 300                         \usekomavar*{myref}&\usekomavar{myref}\\
 301                 }
 302                 \kundennummer&\usekomavar{customer}\\
 303                 \ifkomavarempty{yourref}{}{
 304                         \usekomavar*{yourref}&\usekomavar{yourref}\\
 305                 }
 306                 \ifkomavarempty{delivery}{}{
 307                         \usekomavar*{delivery}&\usekomavar{delivery}\\
 308                 }
 309                 \ifkomavarempty{quote}{}{
 310                         \usekomavar*{quote}&\usekomavar{quote}\\
 311                 }
 312                 \ifkomavarempty{orderID}{}{\auftragsnummer&\usekomavar{orderID}\\}
 313                 \ifkomavarempty{projectID}{}{\projektnummer&\usekomavar{projectID}\\}
 314                 \ansprechpartner&\usekomavar{fromname}
 315                 \ifkomavarempty{fromphone}{}{\\\textTelefon&\usekomavar{fromphone}}
 316                 \ifkomavarempty{fromemail}{}{\\\textEmail&\usekomavar{fromemail}}
 317         \end{tabularx}
 318 }
 319 \removereffields
 320 \AtBeginLetter{
 321         \ifdim\ht\shippingAddressBox>\z@
 322         \addtoplength{refvpos}{\dimexpr\ht\shippingAddressBox+\dp\shippingAddressBox}
 323         \addtoplength{refvpos}{4\baselineskip}%sep between address boxes
 324         \fi
 325 }
 326 \ExplSyntaxOff
 327 \fi
 328
 329
 330
 331 \renewcommand*{\raggedsignature}{\raggedright}
 332
 333 \endinput