diff --git a/src/tax/us/txf-de_DE.scm b/src/tax/us/txf-de_DE.scm index 6b295543f7..e871437965 100644 --- a/src/tax/us/txf-de_DE.scm +++ b/src/tax/us/txf-de_DE.scm @@ -3,8 +3,14 @@ ;; This file was copied from the file txf.scm by Richard -Gilligan- Uschold ;; ;; Originally, these were meant to hold the codes for the US tax TXF -;; format. I modified this heavily so that it might become useful for +;; format. Christian Stimming modified this heavily so that it might become useful for ;; the German Umsatzsteuer-Voranmeldung. +;; Further modifications by: +;; Jannick Asmus +;; J. Alex Aycinena +;; Frank H. Ellenberger +;; Andreas Köhler +;; Rolf Leggewie ;; ;; This file holds all the Kennzahlen for the ;; Umsatzsteuer-Voranmeldung and their explanations, which can be @@ -19,7 +25,7 @@ (define txf-tax-entity-types (list (cons 'Ind #("Individual, Joint, etc." "Files Individual German Tax Return")) - (cons 'Other #("None" "No Income Tax Options Provided")))) + (cons 'Other #("None" "Keine Steuerberichtsoptionen vorgesehen")))) (define (gnc:tax-type-txf-get-code-info tax-entity-types type-code index) (let ((tax-entity-type (assv type-code tax-entity-types))) @@ -66,7 +72,7 @@ (let ((pair (assv code txf-help-strings))) (if pair (cdr pair) - "No help available."))) + (_ "No help available.") ))) (define (gnc:txf-get-codes categories tax-entity-type) (let* ((tax-entity-code-list-pair (assv (if (eqv? tax-entity-type "") @@ -94,9 +100,9 @@ (define txf-help-categories (list - (cons 'H000 #(current "help" "Name of Current account is exported." 0 #f "")) - (cons 'H002 #(parent "help" "Name of Parent account is exported." 0 #f "")) - (cons 'H003 #(not-impl "help" "Not implemented yet, Do NOT Use!" 0 #f "")))) + (cons 'H000 #(current "help" "Name des aktuellen Kontos wird exportiert." 0 #f "")) + (cons 'H002 #(parent "help" "Name des übergeordneten Kontos wird exportiert." 0 #f "")) + (cons 'H003 #(not-impl "help" "Noch nicht implementiert, NICHT benutzen!" 0 #f "")))) ;; We use several formats; nr. 1 means Euro+Cent, nr. 2 means only full Euro diff --git a/src/tax/us/txf-help-de_DE.scm b/src/tax/us/txf-help-de_DE.scm index 7b5bdc2964..e27f368f86 100644 --- a/src/tax/us/txf-help-de_DE.scm +++ b/src/tax/us/txf-help-de_DE.scm @@ -3,19 +3,22 @@ ;; This file was copied from the file txf.scm by Richard -Gilligan- Uschold ;; ;; Originally, these were meant to hold the codes for the US tax TXF -;; format. I modified this heavily so that it might become useful for +;; format. Christian Stimming modified this heavily so that it might become useful for ;; the German Umsatzsteuer-Voranmeldung. +;; Further modifications by: +;; Jannick Asmus +;; Frank H. Ellenberger +;; Rolf Leggewie ;; ;; This file holds the explanations to the categories from txf-de_DE.scm. ;; (define txf-help-strings '( - (H001 . "Categories marked with a \"<\" or a \"^\", require a Payer identification to be exported. \"<\" indicates that the name of this account is exported as this Payer ID. Typically, this is a bank, stock, or mutual fund name.") - (H002 . "Categories marked with a \"<\" or a \"^\", require a Payer identification to be exported. \"^\" indicates that the name of the PARENT of this account is exported as this Payer ID. Typically, this is a bank, stock, or mutual fund name.") - (H003 . "Categories marked with a \"#\" are not fully implemented yet! Do not use these codes!") - (N000 . "This is a dummy category and only shows up on the tax report, but is not exported.") - + (H001 . "Bei mit \"<\" oder \"^\" markierten Kategorien wird neben dem Betrag eine Beschreibung exportiert. \"<\" indiziert, daß der Name von diesem Konto als Beschreibung exportiert wird. Genaueres kann dem jeweiligen Formular entnommen werden.") + (H002 . "Bei mit \"<\" oder \"^\" markierten Kategorien wird neben dem Betrag eine Beschreibung exportiert. \"^\" indiziert, daß der Name des übergeordneten Kontos als Beschreibung exportiert wird. Genaueres kann dem jeweiligen Formular entnommen werden.") + (H003 . "Mit \"#\" markierte Kategorien sind noch nicht vollständig implementiert! Bitte diese Codes nicht verwenden!") + (N000 . "Dies ist eine Pseudokategorie, welche zwar im Bericht angezeigt, aber nicht exportiert wird.") (K41 . "Innergemeinschaftliche Lieferungen (§ 4 Nr. 1 Buchst. b UStG) an Abnehmer mit USt-IdNr. (Bemessungsgrundlage)") (K44 . "Innergemeinschaftliche Lieferungen neuer Fahrzeuge an Abnehmer ohne USt-IdNr (Bemessungsgrundlage)") diff --git a/src/tax/us/txf.scm b/src/tax/us/txf.scm index f2c71dbb9d..32c6e62361 100644 --- a/src/tax/us/txf.scm +++ b/src/tax/us/txf.scm @@ -70,7 +70,7 @@ (let ((pair (assv code txf-help-strings))) (if pair (cdr pair) - "No help available."))) + (_ "No help available.") ))) (define (gnc:txf-get-codes categories tax-entity-type) (let ((tax-entity-codes (cdr (assv (string->symbol tax-entity-type)