gnucash maint: [income-gst-statement] rename options

Frank H.Ellenberger fell at code.gnucash.org
Fri Dec 28 22:29:11 EST 2018


Updated	 via  https://github.com/Gnucash/gnucash/commit/0d4575da (commit)
	from  https://github.com/Gnucash/gnucash/commit/5d7ca8b5 (commit)



commit 0d4575da6cbc5feba595f95be7ee389e8fd514ec
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Fri Dec 28 17:10:15 2018 +0800

    [income-gst-statement] rename options
    
    Further commit to fix 3466ce78b
    
    Discussion as follows
    https://code.gnucash.org/logs/2018/12/27.html#T12:31:58
    https://code.gnucash.org/logs/2018/12/28.html#T19:12:18

diff --git a/gnucash/report/standard-reports/income-gst-statement.scm b/gnucash/report/standard-reports/income-gst-statement.scm
index 4e2fc7a..0e139c2 100644
--- a/gnucash/report/standard-reports/income-gst-statement.scm
+++ b/gnucash/report/standard-reports/income-gst-statement.scm
@@ -105,8 +105,8 @@ for taxes paid on expenses, and type LIABILITY for taxes collected on sales.")
       (gnc:make-simple-boolean-option
        gnc:pagename-display (car l) (cadr l) (caddr l) (cadddr l))))
    (list
-    (list (N_ "Individual income columns")    "p" (N_ "Display individual income columns rather than their sum") #f)
-    (list (N_ "Individual expense columns")   "q" (N_ "Display individual expense columns rather than their sum") #f)
+    (list (N_ "Individual sales columns")     "p" (N_ "Display individual sales columns rather than their sum") #f)
+    (list (N_ "Individual purchases columns") "q" (N_ "Display individual purchases columns rather than their sum") #f)
     (list (N_ "Individual tax columns")       "r" (N_ "Display individual tax columns rather than their sum") #f)
     (list (N_ "Gross Balance")                "s" (N_ "Display the gross balance (gross sales - gross purchases)") #f)
     (list (N_ "Net Balance")                  "t" (N_ "Display the net balance (sales without tax - purchases without tax)") #f)
@@ -198,7 +198,7 @@ for taxes paid on expenses, and type LIABILITY for taxes collected on sales.")
      ;; each column will be a vector
      ;; (vector heading                                      ;; string
      ;;         calculator-function                          ;; (calculator-function split) to obtain amount
-     ;;         reverse-column?                              ;; #t for income, #f for expense
+     ;;         reverse-column?                              ;; #t for sales, #f for purchases
      ;;         subtotal?                                    ;; #t - all columns need subtotals
      ;;         start-dual-column?                           ;; unused in GST report
      ;;         friendly-heading-fn                          ;; unused in GST report
@@ -207,7 +207,7 @@ for taxes paid on expenses, and type LIABILITY for taxes collected on sales.")
                    gross-sales
                    #t #t #f
                    (lambda (a) "")))
-     (if (opt-val gnc:pagename-display (N_ "Individual income columns"))
+     (if (opt-val gnc:pagename-display (N_ "Individual sales columns"))
          (map (lambda (acc) (vector (xaccAccountGetName acc)
                                     (account-adder-neg acc)
                                     #t #t #f
@@ -232,7 +232,7 @@ for taxes paid on expenses, and type LIABILITY for taxes collected on sales.")
                    gross-purchases
                    #f #t #f
                    (lambda (a) "")))
-     (if (opt-val gnc:pagename-display (N_ "Individual expense columns"))
+     (if (opt-val gnc:pagename-display (N_ "Individual purchases columns"))
          (map (lambda (acc) (vector (xaccAccountGetName acc)
                                     (account-adder acc)
                                     #f #t #f
diff --git a/gnucash/report/standard-reports/test/test-income-gst.scm b/gnucash/report/standard-reports/test/test-income-gst.scm
index 88f7786..ae7303b 100644
--- a/gnucash/report/standard-reports/test/test-income-gst.scm
+++ b/gnucash/report/standard-reports/test/test-income-gst.scm
@@ -200,10 +200,10 @@
           (sxml->table-row-col sxml 1 #f 9)))
 
       (set-option! options "Display" "Individual tax columns" #t)
-      (set-option! options "Display" "Individual expense columns" #t)
-      (set-option! options "Display" "Individual income columns" #t)
-      (set-option! options "Display" "Remittance amount" #t)
-      (set-option! options "Display" "Net Income" #t)
+      (set-option! options "Display" "Individual purchases columns" #t)
+      (set-option! options "Display" "Individual sales columns" #t)
+      (set-option! options "Display" "Gross Balance" #t)
+      (set-option! options "Display" "Net Balance" #t)
       (set-option! options "Display" "Tax payable" #t)
       (let ((sxml (options->sxml options "display options enabled")))
         (test-equal "all display columns enabled"
diff --git a/libgnucash/app-utils/options.scm b/libgnucash/app-utils/options.scm
index 04dbd95..e8a676b 100644
--- a/libgnucash/app-utils/options.scm
+++ b/libgnucash/app-utils/options.scm
@@ -1718,12 +1718,19 @@
                                         "Sign Reverses?" (cons #f "Sign Reverses")
                                         "To" (cons #f "End Date")
                                         "Charge Type" (cons #f "Action") ;easy-invoice.scm, renamed June 2018
+                                        ;; the following 4 options in income-gst-statement.scm renamed Dec 2018
+                                        "Individual income columns" (cons #f "Individual sales columns")
+                                        "Individual expense columns" (cons #f "Individual purchases columns")
+                                        "Remittance amount" (cons #f "Gross Balance")
+                                        "Net Income" (cons #f "Net Balance")
+                                        ;; transaction.scm:
                                         "Use Full Account Name?" (cons #f "Use Full Account Name")
                                         "Use Full Other Account Name?" (cons #f "Use Full Other Account Name")
                                         "Void Transactions?" (cons "Filter" "Void Transactions")
                                         "Void Transactions" (cons "Filter" "Void Transactions")
                                         "Account Substring" (cons "Filter" "Account Name Filter")
-                                        "Individual Taxes" (cons "#f" "Use Detailed Tax Summary") ;invoice.scm, renamed November 2018
+                                        ;; invoice.scm, renamed November 2018
+                                        "Individual Taxes" (cons "#f" "Use Detailed Tax Summary")
                                         ))
                        (name-match (member name new-names-list)))
 



Summary of changes:
 gnucash/report/standard-reports/income-gst-statement.scm | 10 +++++-----
 gnucash/report/standard-reports/test/test-income-gst.scm |  8 ++++----
 libgnucash/app-utils/options.scm                         |  9 ++++++++-
 3 files changed, 17 insertions(+), 10 deletions(-)



More information about the gnucash-changes mailing list