gnucash stable: [report-utilities.scm] pull out gnc:dump-transaction

[Christopher Lam]

Updated	 via  https://github.com/Gnucash/gnucash/commit/73bb340a (commit)
	from  https://github.com/Gnucash/gnucash/commit/44c278a8 (commit)



commit 73bb340a83d57912bfc7f53aa9b17addb342738b
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Tue Oct 10 22:19:28 2023 +0800

    [report-utilities.scm] pull out gnc:dump-transaction

diff --git a/gnucash/report/report-utilities.scm b/gnucash/report/report-utilities.scm
index 292773e029..e490e00085 100644
--- a/gnucash/report/report-utilities.scm
+++ b/gnucash/report/report-utilities.scm
@@ -1208,6 +1208,15 @@
           (maybe-str 'Action (xaccSplitGetAction s))
           (maybe-str 'Memo (xaccSplitGetMemo s))))
 
+(define-public (gnc:dump-transaction trans)
+  (format #t "  Transaction:~a Date:~a Currency:~a ~a ~a\n"
+          (string-take (gncTransGetGUID trans) 8)
+          (qof-print-date (xaccTransGetDate trans))
+          (gnc-commodity-get-mnemonic (xaccTransGetCurrency trans))
+          (maybe-str 'Desc (xaccTransGetDescription trans))
+          (maybe-str 'Notes (xaccTransGetNotes trans)))
+  (for-each (cut gnc:dump-split <> #t) (xaccTransGetSplitList trans)))
+
 (define-public (gnc:dump-all-transactions)
   (define query (qof-query-create-for-splits))
   (define (split-has-no-account? split) (null? (xaccSplitGetAccount split)))
@@ -1222,13 +1231,7 @@
       (((? split-has-no-account?) . rest) (lp rest))
       ((split . rest)
        (let ((trans (xaccSplitGetParent split)))
-         (format #t "  Trans ~a: ~a Curr ~a ~a~a\n"
-                 (string-take (gncTransGetGUID trans) 8)
-                 (qof-print-date (xaccTransGetDate trans))
-                 (gnc-commodity-get-mnemonic (xaccTransGetCurrency trans))
-                 (maybe-str 'Desc (xaccTransGetDescription trans))
-                 (maybe-str 'Notes (xaccTransGetNotes trans)))
-         (for-each (cut gnc:dump-split <> #t) (xaccTransGetSplitList trans))
+         (gnc:dump-transaction trans)
          (lp rest))))))
 
 ;; utility function for testing. dumps the whole book contents to



Summary of changes:
 gnucash/report/report-utilities.scm | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)