gnucash maint: [trep-engine] Option to show date of entry

[Christopher Lam]

Updated	 via  https://github.com/Gnucash/gnucash/commit/f560596f (commit)
	from  https://github.com/Gnucash/gnucash/commit/7f3f4979 (commit)



commit f560596f8162a08c46a09d252ab94688d9b27264
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Sun Dec 26 12:43:44 2021 +0800

    [trep-engine] Option to show date of entry
    
    This closes https://bugs.gnucash.org/show_bug.cgi?id=797772

diff --git a/gnucash/report/trep-engine.scm b/gnucash/report/trep-engine.scm
index 9ae656727..153f188a0 100644
--- a/gnucash/report/trep-engine.scm
+++ b/gnucash/report/trep-engine.scm
@@ -924,6 +924,7 @@ be excluded from periodic reporting.")
      (list
       (list (N_ "Date")                         "a"  (G_ "Display the date?") #t)
       (list (N_ "Reconciled Date")              "a2" (G_ "Display the reconciled date?") #f)
+      (list (N_ "Date Entered")                 "a3" (G_ "Display the entered date?") #f)
       (if BOOK-SPLIT-ACTION
           (list (N_ "Num/Action")               "b"  (G_ "Display the check number?") #t)
           (list (N_ "Num")                      "b"  (G_ "Display the check number?") #t))
@@ -1048,6 +1049,7 @@ be excluded from periodic reporting.")
     (define amount-setting (opt-val gnc:pagename-display (N_ "Amount")))
     (list (cons 'date (opt-val gnc:pagename-display (N_ "Date")))
           (cons 'reconciled-date (opt-val gnc:pagename-display (N_ "Reconciled Date")))
+          (cons 'entered (opt-val gnc:pagename-display (N_ "Date Entered")))
           (cons 'num (if BOOK-SPLIT-ACTION
                          (opt-val gnc:pagename-display (N_ "Num/Action"))
                          (opt-val gnc:pagename-display (N_ "Num"))))
@@ -1150,6 +1152,15 @@ be excluded from periodic reporting.")
                                         (xaccTransGetDate
                                          (xaccSplitGetParent split))))))))
 
+               (add-if (column-uses? 'entered)
+                       (vector (G_ "Date Entered")
+                               (lambda (split transaction-row?)
+                                 (and transaction-row?
+                                      (gnc:make-html-table-cell/markup
+                                       "date-cell" (qof-print-date
+                                                    (xaccTransRetDateEntered
+                                                     (xaccSplitGetParent split))))))))
+
                (add-if (column-uses? 'reconciled-date)
                        (vector (G_ "Reconciled Date")
                                (lambda (split transaction-row?)



Summary of changes:
 gnucash/report/trep-engine.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)