IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

[report-utilities] update gnc:dump-book

Browse Source 
gnc:dump-book also shows
* account balances
* split memo and reconcile status

Exmaple:

Account: <Root.A/Payable> Comm<USD> Type<A/Payable>
n Split: 09/03/80 Amt<-$6.00> Val<-$6.00> Desc<vend-1-name> Memo<vendor-bill>
c Split: 09/04/80 Amt<-$6.00> Val<-$6.00> Desc<emp-1-name> Memo<emp-bill>
y Split: 09/06/80 Amt<$6.00> Val<$6.00> Desc<vend-1-name> Memo<vend-credit-note>
f Split: 09/07/80 Amt<$6.00> Val<$6.00> Desc<emp-1-name> Memo<emp-credit-note>
Balance: $0.00 Cleared: $0.00 Reconciled: $0.00
This commit is contained in:
Christopher Lam 2019-07-22 19:57:30 +08:00
parent a4811b3b46
commit cf6ea4c612
1 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
gnucash/report/report-system/report-utilities.scm
View File

@ -1173,6 +1173,7 @@ flawed. see report-utilities.scm. please update reports.")
;; utility function for testing. dumps the whole book contents to
;; console.
(define (gnc:dump-book)
(display "\n(gnc:dump-book)\n")
(for-each
(lambda (acc)
(format #t "\nAccount: <~a> Comm<~a> Type<~a>\n"
@ -1184,7 +1185,8 @@ flawed. see report-utilities.scm. please update reports.")
(for-each
(lambda (s)
(let ((txn (xaccSplitGetParent s)))
(format #t " Split: ~a Amt<~a> Val<~a> Desc<~a>\n"
(format #t "~a Split: ~a Amt<~a> Val<~a> Desc<~a> Memo<~a>\n"
(xaccSplitGetReconcile s)
(qof-print-date (xaccTransGetDate txn))
(gnc:monetary->string
(gnc:make-gnc-monetary
@ -1194,13 +1196,28 @@ flawed. see report-utilities.scm. please update reports.")
(gnc:make-gnc-monetary
(xaccTransGetCurrency txn)
(xaccSplitGetValue s)))
(xaccTransGetDescription txn))))
(xaccAccountGetSplitList acc)))
(xaccTransGetDescription txn)
(xaccSplitGetMemo s))))
(xaccAccountGetSplitList acc))
(format #t "Balance: ~a Cleared: ~a Reconciled: ~a\n"
(gnc:monetary->string
(gnc:make-gnc-monetary
(xaccAccountGetCommodity acc)
(xaccAccountGetBalance acc)))
(gnc:monetary->string
(gnc:make-gnc-monetary
(xaccAccountGetCommodity acc)
(xaccAccountGetClearedBalance acc)))
(gnc:monetary->string
(gnc:make-gnc-monetary
(xaccAccountGetCommodity acc)
(xaccAccountGetReconciledBalance acc)))))
(gnc-account-get-descendants-sorted
(gnc-get-current-root-account))))
;; dump all invoices posted into an AP/AR account
(define (gnc:dump-invoices)
(display "\n(gnc:dump-invoices)\n")
(let* ((acc-APAR (filter (compose xaccAccountIsAPARType xaccAccountGetType)
(gnc-account-get-descendants-sorted
(gnc-get-current-root-account))))
@ -1218,7 +1235,7 @@ flawed. see report-utilities.scm. please update reports.")
(gncInvoiceGetCurrency inv) amt)))
(for-each
(lambda (inv)
(format #t "\nInvoice: ID<~a> Owner<~a> Account<~a>\n"
(format #t "Invoice: ID<~a> Owner<~a> Account<~a>\n"
(gncInvoiceGetID inv)
(gncOwnerGetName (gncInvoiceGetOwner inv))
(xaccAccountGetName (gncInvoiceGetPostedAcc inv)))