gnucash stable: [report-utilities.scm] pull out gnc:dump-transaction
Christopher Lam
clam at code.gnucash.org
Fri Oct 13 08:04:46 EDT 2023
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(-)
More information about the gnucash-changes
mailing list