[new-aging] create owner report with end-date

This commit is contained in:
Christopher Lam 2020-08-15 15:51:44 +08:00
parent 5e0340560a
commit 4aafa1752f

View File

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