qrbill (29jun20)

git-svn-id: svn://tug.org/texlive/trunk@55700 c570f23f-e606-0410-a88d-b1316a301751

4 files changed, 152 insertions, 1 deletions

diff --git a/Master/texmf-dist/tex/latex/qrbill/qrbill-vocab.csv b/Master/texmf-dist/tex/latex/qrbill/qrbill-vocab.csv
new file mode 100644
index 00000000000..e9df8266aca
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/qrbill/qrbill-vocab.csv
@@ -0,0 +1,14 @@
+language,{ngerman, german, nswissgerman, swissgerman},{french},{italian},{english,british,american}
+paymentpart,Zahlteil,Section paiement,Sezione pagamento,Payment part
+account,Konto / Zahlbar an,Compte / Payable à,Conto / Pagabile a,Account / Payable to
+reference,Referenz,Référence,Riferimento,Reference
+addinfo,Zusätzliche Informationen,Informations additionnelles,Informazioni aggiuntive,Additional information
+furtherinfo,Weitere Informationen,Informations supplémentaires,Informazioni supplementari,Further information
+currency,Währung,Monnaie,Valuta,Currency
+amount,Betrag,Montant,Importo,Amount
+receipt,Empfangsschein,Récépissé,Ricevuta,Receipt
+acceptant,Annahmestelle,Point de dépôt,Punto di accettazione,Acceptance point
+separate,Vor der Einzahlung abzutrennen,A détacher avant le versement,Da staccare prima del versamento,Separate before paying in
+debtor,Zahlbar durch,Payable par,Pagabile da,Payable by
+debtoraddr,Zahlbar durch (Name/Adresse),Payable par (nom/adresse),Pagabile da (nome/indirizzo),Payable by (name/address)
+infavourof,Zugunsten,En faveur de,A favore di,In favour of
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/latex/qrbill/qrbill.sty b/Master/texmf-dist/tex/latex/qrbill/qrbill.sty
index d3a665b250f..ff602b56172 100644
--- a/Master/texmf-dist/tex/latex/qrbill/qrbill.sty
+++ b/Master/texmf-dist/tex/latex/qrbill/qrbill.sty
@@ -49,6 +49,7 @@
 \bool_new:N \g__qrbill_bottom_frame_bool
 \bool_new:N \g__qrbill_left_frame_bool
 \bool_new:N \g__qrbill_right_frame_bool
+\bool_new:N \g__qrbill_separateinfo_bool
 
 \keys_define:nn {qrbill} {
   font .choices:nn = {Frutiger, Arial, Helvetica, Liberation Sans} {
@@ -102,6 +103,35 @@
   icon .initial:n =,
   iconwidth .dim_gset:N = \g_qrbill_iconwidth_dim,
   iconwidth .initial:n = 7mm,
+  separate .choice:,
+  separate / symbol .code:n = {
+    \bool_gset_true:N \g__qrbill_separateinfo_bool
+    \RequirePackage{marvosym}
+    \cs_set:Nn \qrbill_print_separate_info: {
+      \par\leaders\vbox_to_ht:nn {1sp} {
+        \smash{
+        \hbox_to_wd:nn {\c_qrbill_width_dim }{
+            \leaders\hbox{\rule{1mm}{\g__qrbill_rule_dim}\hspace{1mm}}\hskip 0pt\@plus1 fill\relax
+            \llap{\raisebox{-.5\height}{\LeftScissors}}
+            \leaders\hbox{\rule{1mm}{\g__qrbill_rule_dim}\hspace{1mm}}\hskip 0pt\@plus4 fill\relax
+        }
+        }
+      }
+      \vskip 1sp
+      \vskip -1sp
+    }
+    },
+  separate / text .code:n = {
+    \bool_gset_true:N \g__qrbill_separateinfo_bool
+    \cs_set:Nn \qrbill_print_separate_info: {
+      \centerline{\footnotesize\qrbillseparatename}
+    \par\nointerlineskip
+    \rule{\c_qrbill_width_dim}{\g__qrbill_rule_dim}
+    }
+  }
+  ,
+  separate / false .code:n = {\bool_gset_false:N \g__qrbill_separateinfo_bool},
+  separate .initial:n = text,
 }
 
 \ProcessKeysOptions{qrbill}
@@ -183,7 +213,11 @@
   \parbox{\c_qrbill_width_dim }{
     \vbox to \c_qrbill_height_dim {
       \bool_if:NTF \g__qrbill_top_frame_bool
-        {\rule{\c_qrbill_width_dim}{\g__qrbill_rule_dim}}
+        {
+          \bool_if:NTF \g__qrbill_separateinfo_bool
+            {\qrbill_print_separate_info:}
+            {\rule{\c_qrbill_width_dim}{\g__qrbill_rule_dim}}
+        }
         {\rule{\c_zero_dim}{\g__qrbill_rule_dim}}
       \par\nointerlineskip
       \skip_vertical:n {\c_qrbill_sep_dim-\g__qrbill_rule_dim}
diff --git a/Master/texmf-dist/tex/latex/qrbill/qrbill_swiss-cross.pdf b/Master/texmf-dist/tex/latex/qrbill/qrbill_swiss-cross.pdf
new file mode 100644
index 00000000000..09076134335
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/qrbill/qrbill_swiss-cross.pdf
diff --git a/Master/texmf-dist/tex/latex/qrbill/swiss.qrbill-cfg.tex b/Master/texmf-dist/tex/latex/qrbill/swiss.qrbill-cfg.tex
new file mode 100644
index 00000000000..8c35a1a2dd5
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/qrbill/swiss.qrbill-cfg.tex
@@ -0,0 +1,103 @@
+%%
+%% This is file `swiss.qrbill-cfg.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% qrbill.dtx  (with options: `swiss.qrbill-cfg.tex')
+%% 
+%% Copyright (C) 2020 by Marei Peischl (peiTeX) <marei@peitex.de>
+%% 
+%% This work is a collaboration of
+%%   Marei Peischl (peiTeX) and Alex Antener (foobar LLC).
+%% 
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%    http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This work has the LPPL maintenance status `maintained'.
+%% 
+%% The Current Maintainer of this work is
+%%   Marei Peischl <qrbill@peitex.de>.
+%% 
+%% This work consists of the files
+%% qrbill.dtx and qrbill.ins, qrbill-vocab.csv
+%% and the derived files
+%% qrbill.sty, swiss.qrbill-cfg.tex, qrbill-letter-demo.tex,
+%%  qrbill-standalone-demo.tex .
+%% 
+%% The development repository can be found at
+%% https://github.com/peitex/qrbill
+%% Please use the issue tracker for feedback!
+%% 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\qrbillsetup{
+        creditorprefix =CR-,
+        debtorprefix =UD-,
+}
+
+\SetQrScheme{
+  QRType,
+  Version,
+  CodingType,
+  Account,
+  CR-AddressType,
+  CR-Name,
+  CR-Address1,
+  CR-Address2,
+  CR-PostalCode,
+  CR-City,
+  CR-Country,
+  UCR-AddressType,
+  UCR-Name,
+  UCR-Address1,
+  UCR-Address2,
+  UCR-ZIP,
+  UCR-City,
+  UCR-Country,
+  Amount,
+  Currency,
+  UD-AddressType,
+  UD-Name,
+  UD-Address1,
+  UD-Address2,
+  UD-PostalCode,
+  UD-City,
+  UD-Country,
+  ReferenceType,
+  Reference,
+  Message,
+  Trailer,
+  BillingInfo,
+  AV1-Parameters,
+  AV2-Parameters
+}
+
+\SetBillingInfoScheme{
+  prefix=//S1,
+  10=invoicenum,
+  11=invoicedate,
+  20=customerref,
+  30=vat,
+  31=vatdate,
+  32=vatdetails,
+  33=importvat,
+  40=conditions
+}
+
+\SetupQrBill{
+        QRType=SPC,
+        Version=0210,
+        CodingType=1,
+        Trailer=EPD,
+        Currency=CHF,
+        ReferenceType=NON,
+}
+\endinput
+%%
+%% End of file `swiss.qrbill-cfg.tex'.