mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
[new-aging] create owner report with end-date
This commit is contained in:
parent
5e0340560a
commit
4aafa1752f
@ -230,7 +230,9 @@ exist but have no suitable transactions."))
|
|||||||
(else (op-num (car aging1) (car aging2)))))))))
|
(else (op-num (car aging1) (car aging2)))))))))
|
||||||
|
|
||||||
;; set default title
|
;; set default title
|
||||||
(gnc:html-document-set-title! document report-title)
|
(gnc:html-document-set-title!
|
||||||
|
document
|
||||||
|
(format #f "~a - ~a" report-title (qof-print-date report-date)))
|
||||||
|
|
||||||
(cond
|
(cond
|
||||||
((null? accounts)
|
((null? accounts)
|
||||||
@ -309,7 +311,7 @@ exist but have no suitable transactions."))
|
|||||||
"number-cell"
|
"number-cell"
|
||||||
(gnc:make-html-text
|
(gnc:make-html-text
|
||||||
(gnc:html-markup-anchor
|
(gnc:html-markup-anchor
|
||||||
(gnc:owner-report-text owner account)
|
(gnc:owner-report-text owner account report-date)
|
||||||
(gnc:make-gnc-monetary comm aging-total)))))
|
(gnc:make-gnc-monetary comm aging-total)))))
|
||||||
(options->address options receivable owner)))))
|
(options->address options receivable owner)))))
|
||||||
(sort owners-and-aging sort-aging<?))
|
(sort owners-and-aging sort-aging<?))
|
||||||
|
Loading…
Reference in New Issue
Block a user