IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-12-02 13:39:43 -06:00
Code Issues Packages Projects Releases Wiki Activity

[report-utilities] minor refinements

Browse Source
This commit is contained in:
Christopher Lam 2019-11-01 19:35:58 +08:00
parent 5f6413c6c5
commit b1e32c8a9d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1184,7 +1184,9 @@ flawed. see report-utilities.scm. please update reports.")
(xaccTransGetCurrency txn)
(xaccSplitGetValue spl))))))
(define (trans->str txn)
(format #f "Txn<d:~a>" (qof-print-date (xaccTransGetDate txn))))
(format #f "Txn<d:~a,desc:~a>"
(qof-print-date (xaccTransGetDate txn))
(xaccTransGetDescription txn)))
(define (account->str acc)
(format #f "Acc<~a>" (xaccAccountGetName acc)))
(define (monetary-collector->str coll)
@ -1213,7 +1215,7 @@ flawed. see report-utilities.scm. please update reports.")
(gncInvoiceGetTotal inv)))))
(define (lot->str lot)
(format #f "Lot<Acc:~a,Title:~a,Notes:~a,Balance:~a,NSplits:~a>"
(gnc:strify (xaccAccountGetName (gnc-lot-get-account lot)))
(xaccAccountGetName (gnc-lot-get-account lot))
(gnc-lot-get-title lot)
(gnc-lot-get-notes lot)
(gnc-lot-get-balance lot)