|
|
|
|
@ -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)
|
|
|
|
|
|