]{scrletter}
\LoadLetterOption{DIN}
+\newkomavar{transaction}
+\newkomavar[\lieferschein{}~\nr]{delivery}
+\newkomavar[\angebot{}~\nr]{quote}
+\newkomavar{orderID}
+\newkomavar{projectID}
+
\usepackage{geometry}
\ExplSyntaxOn
%Scratch variables
\int_new:N \l_kivi_tmp_int
\bool_new:N \l_kivi_tmp_bool
+\bool_new:N \g_kivi_TableFoot_bool
\dim_new:N \g_kivi_orig@textheight_dim
+\int_new:N \g_PricingTabular_firstpage_int
\ExplSyntaxOff
\newsavebox{\shippingAddressBox}
\DeclareNewLayer[
foreground,
hoffset=\useplength{toaddrhpos},
-voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+\baselineskip,
+voffset=\dimexpr\useplength{toaddrvpos}+\useplength{toaddrheight}+4\baselineskip,
contents={\usebox\shippingAddressBox}
]{kivitendo.shippingaddress}
contents={\box_use:N \g_kivi_LT@head_box},
]{kivitendo.TableHead}
+
\DeclareNewLayer[
foreground,
textarea,
mode=picture,
-voffset=\dim_eval:n {\paperheight-\g_kivi_margin_dim-\box_ht:N \g_kivi_LT@foot_box},
+voffset=\dim_eval:n {\paperheight-\g_kivi_margin_dim},
height=\box_ht:N \g_kivi_LT@foot_box,
contents=\bool_if:NT \g_kivi_TableFoot_bool {\box_use:N \g_kivi_LT@foot_box},
-align=tl,
+align=bl,
]{kivitendo.TableFoot}
\AtBeginLetter{\dim_gset:Nn \g_kivi_orig@textheight_dim {\textheight}}
\ExplSyntaxOff
+\newpairofpagestyles{kivitendo.letter}{}
+\renewcommand*{\letterpagestyle}{kivitendo.letter}
+
\DeclareNewPageStyleByLayers{kivitendo.letter.PricingTable}{
kivitendo.TableHead,
kivitendo.TableFoot
+ kivitendo.letter.head.odd,kivitendo.letter.head.even,kivitendo.letter.head.oneside,%
+ kivitendo.letter.foot.odd,kivitendo.letter.foot.even,kivitendo.letter.foot.oneside,%
}
\DeclareNewPageStyleByLayers{kivitendo.letter.first}{
kivitendo.shippingaddress,
- kivitendo.TableFoot.first
+ kivitendo.TableFoot,
+ kivitendo.letter.head.odd,kivitendo.letter.head.even,kivitendo.letter.head.oneside,%
+ kivitendo.letter.foot.odd,kivitendo.letter.foot.even,kivitendo.letter.foot.oneside,%
}
\setkomavar{backaddress}{\firma\ $\cdot$ \strasse\ $\cdot$ \ort}
+
+\setkomavar{firsthead}{
+ \if@logo
+ \rlap{\usekomavar{fromlogo}}%
+ \fi
+}
+
\@setplength{locwidth}{6cm}
\ExplSyntaxOn
\dim_new:N \g_kivi_tab_num_dim
\dim_gset:Nn \g_kivi_tab_num_dim {5em}
\dim_new:N \g_kivi_tab_price_dim
-\dim_gset:Nn \g_kivi_tab_price_dim {5em}
+\dim_gset:Nn \g_kivi_tab_price_dim {7em}
\dim_new:N \g_kivi_tab_desc_dim
\dim_new:N \g_kivi_tabcolsep_dim
\seq_new:N \l_kivi_PricingTable_seq
\seq_new:N \g_kivi_extraDescription_seq
\newcommand{\FakeTable}[1]{
- \kivi_save_LT@boxes:
- \box_gset_eq:NN \LT@lastfoot \c_empty_box
- \box_gset_eq:NN \LT@foot \c_empty_box
- \endPricingTabular
+ \par
+ \CalcTabCols
\seq_set_split:Nnn \l_kivi_PricingTable_seq {\tabularnewline} {#1}
\begingroup
\setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
\seq_map_inline:Nn \l_kivi_PricingTable_seq {
\seq_gclear:N \g_kivi_extraDescription_seq
- \tabular{@{}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<{\,\currency}}@{}}
+ \exp_args:NnV \use:n {\tabular[t]}\g_kivi_Pricing_colspec_tl
##1
\endtabular
\seq_if_empty:NTF \g_kivi_extraDescription_seq
{\par\nointerlineskip}
{\par\nointerlineskip
- \begin{tcolorbox}[left~skip=\dim_eval:n {\g_kivi_tab_pos_dim+ \g_kivi_tab_id_dim +4\tabcolsep},right~skip=\dim_eval:n {\g_kivi_tab_num_dim+ 2\g_kivi_tab_price_dim +6\tabcolsep}, breakable, blank]
- \seq_use:Nn \g_kivi_extraDescription_seq {\newline}
- \end{tcolorbox}
+ \begin{tcolorbox}[
+ empty,
+ left=\dim_eval:n {\g_kivi_tab_pos_dim+ \g_kivi_tab_id_dim +4\g_kivi_tabcolsep_dim},
+ right=\dim_eval:n {\g_kivi_tab_num_dim+ 2\g_kivi_tab_price_dim +6\g_kivi_tabcolsep_dim},top=0pt,bottom=0pt,
+ boxsep=0pt,
+ breakable,
+ lines~before~break=1,
+ ]
+ \seq_use:Nn \g_kivi_extraDescription_seq {\\}
+ \end{tcolorbox}
+ \nointerlineskip
}
}
\endgroup
- \PricingTabular
- \kivi_restore_LT@boxes:
}
\tl_new:N \g_kivi_Pricing_colspec_tl
-\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<{\,\currency}}@{}}
+\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}@{}}
\clist_map_inline:nn {head, foot, firsthead, lastfoot} {%TODO reduce
\AtBeginDocument{
\csname kivi_setup_LT_boxes:\endcsname
+ \geometry{a4paper,
+ hmargin=\g_kivi_margin_dim,
+ top=\dim_eval:n {\g_kivi_margin_dim + \box_ht:N \g_kivi_LT@head_box},
+ bottom=\dim_eval:n {\g_kivi_margin_dim + \box_ht:N \g_kivi_LT@foot_box},
+ heightrounded}
+ \savegeometry{kivi.letter@table}
+ \loadgeometry{kivi.letter@default}
}
\cs_new:Nn \kivi_setup_LT_boxes: {
\endtabular
}
\hbox_gset:Nn \g_kivi_LT@foot_box {
- \begin{tabular*}{\textwidth}[b]{@{\extracolsep{\fill}}r@{}}
+ \raisebox{\depth}{
+ \begin{tabular*}{\textwidth}{@{\extracolsep{\fill}}r@{}}
\midrule
- \weiteraufnaechsterseite
+ \strut\weiteraufnaechsterseite
\end{tabular*}
}
-}
-
-
-
-\cs_new:Nn \kivi_save_LT@boxes: {
- \clist_map_inline:nn {head, firsthead, foot, lastfoot} {
- \box_gset_eq:cc {g_kivi_LT@##1_box} {LT@##1}
}
}
-\cs_new:Nn \kivi_restore_LT@boxes: {
- \clist_map_inline:nn {head, firsthead, foot, lastfoot} {
- \box_gset_eq:cc {LT@##1} {g_kivi_LT@##1_box}
- \box_gclear:c {g_kivi_LT@##1_box}
- }
+
+%Macht es sinn hier eine Variante zu machen, in der alle Spalten Belegbar sind?
+\newenvironment{PricingTotal}{
+ \tabular[t]{@{}p{\dim_eval:n {\linewidth-\g_kivi_tab_price_dim-2\tabcolsep}}P@{}}
+ \midrule
+}{
+ \bottomrule\endtabular
}
\newcommand{\ExtraDescription}[1]{\seq_gput_right:Nn \g_kivi_extraDescription_seq {#1}}
\begingroup
\setlength{\tabcolsep}{\g_kivi_tabcolsep_dim}
\CalcTabCols
- \longtable{@{}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<{\,\currency}}@{}}
+ \exp_args:NV \longtable \g_kivi_Pricing_colspec_tl
% Tabellenkopf
\toprule
\bfseries\position & \bfseries\artikelnummer & \bfseries\bezeichnung & \bfseries\menge &\multicolumn{1}{P}{\bfseries\einzelpreis}&\multicolumn{1}{P@{}}{\bfseries\gesamtpreis}\\
\endlongtable
\endgroup
}
-%\fi
-\ExplSyntaxOff
+\usepackage{afterpage}
+
+\cs_new:cpn {PricingTabular*}{
+ \bool_gset_true:N \g_kivi_inTable_bool
+ \endgroup
+ \@nameuse{Gm@restore@@kivi.letter@table}%
+ \Gm@changelayout
+ \begingroup
+ \def \@currenvir {PricingTabular*}\edef \@currenvline {\on@line }
+ \int_gset:Nn \g_PricingTabular_firstpage_int {\c@page}
+ \addtolength{\vsize}{-\box_ht:N \g_kivi_LT@foot_box}
+ \pagegoal\vsize
+ \widowpenalty0
+ \clubpenalty0
+ \bool_gset_true:N \g_kivi_TableFoot_bool
+ \pagestyle{kivitendo.letter.PricingTable}
+ \leavevmode\box_use:N \g_kivi_LT@head_box
+ \par\nointerlineskip\ignorespaces
+}
+
+\cs_new:cpn {endPricingTabular*} {
+ \int_compare:nNnF \g_PricingTabular_firstpage_int = \c@page {\thispagestyle{kivitendo.letter.PricingTable}}
+ \bool_gset_false:N \g_kivi_TableFoot_bool
+ \@nameuse{Gm@restore@@kivi.letter@default}
+ \Gm@changelayout
+ \bool_gset_true:N \g_kivi_restore_geometry_bool
+ \afterpage{
+ \kivi_conditional_restore_geometry:
+ }
+}
+
+\cs_new:Nn \kivi_conditional_restore_geometry: {
+ \bool_if:NT \g_kivi_restore_geometry_bool
+ {
+ \@nameuse{Gm@restore@@kivi.letter@default}
+ \Gm@changelayout
+ }
+ \bool_gset_false:N \g_kivi_restore_geometry_bool
+}
+
+
\if@kivi@infobox
-\newkomavar{locationtitle}
\setkomavar{location}{
- \begin{flushright}
- \bfseries
- \LARGE
- \usekomavar{locationtitle}
- \end{flushright}
-
+ \ifkomavarempty{transaction}{}{
+ \bfseries
+ \usekomavar{transaction}
+ }
+ \par
\medskip
\begin{tabularx}{\linewidth}{@{}l<{:}>{\raggedright\arraybackslash}X@{}}
- \datum&\usekomavar{date}\\
+ \usekomavar*{date}&\usekomavar{date}\\
+ \ifkomavarempty{myref}{}{
+ \usekomavar*{myref}&\usekomavar{myref}\\
+ }
\kundennummer&\usekomavar{customer}\\
- \ansprechpartner&\usekomavar{fromname}\\
- \ifkomavarempty{fromphone}{}{\textTelefon&\usekomavar{fromphone}\\}
- \ifkomavarempty{fromemail}{}{\textEmail&\usekomavar{fromemail}\\}
+ \ifkomavarempty{yourref}{}{
+ \usekomavar*{yourref}&\usekomavar{yourref}\\
+ }
+ \ifkomavarempty{delivery}{}{
+ \usekomavar*{delivery}&\usekomavar{delivery}\\
+ }
+ \ifkomavarempty{quote}{}{
+ \usekomavar*{quote}&\usekomavar{quote}\\
+ }
+ \ansprechpartner&\usekomavar{fromname}
+ \ifkomavarempty{fromphone}{}{\\\textTelefon&\usekomavar{fromphone}}
+ \ifkomavarempty{fromemail}{}{\\\textEmail&\usekomavar{fromemail}}
+ \ifkomavarempty{projectID}{}{\\\projektnummer&\usekomavar{projectID}}
+ \ifkomavarempty{orderID}{}{\\\auftragsnummer&\usekomavar{orderID}}
\end{tabularx}
}
\removereffields
-
-\ExplSyntaxOn
\AtBeginLetter{
- \ifkomavarempty{title}{}{
- \exp_args:Nno\setkomavar{locationtitle}{\scr@title@var}
- \setkomavar{title}{}
- }
+ \ifdim\ht\shippingAddressBox>\z@
+ \addtoplength{refvpos}{\ht\shippingAddressBox}
+ \addtoplength{refvpos}{4\baselineskip}
+ \fi
}
\ExplSyntaxOff
\fi
projects / mfinanz.git / blobdiff