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

[html-utilities] gnc:owner-report-text can accepts enddate

Browse Source
This commit is contained in:
Christopher Lam
2020-08-15 16:19:37 +08:00
parent 9ec5c86f55
commit 5e0340560a
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gnucash/report/html-utilities.scm
View File

@@ -94,7 +94,7 @@
(else
""))))
(define (gnc:owner-report-text owner acc)
(define* (gnc:owner-report-text owner acc #:optional date)
(let* ((end-owner (gncOwnerGetEndOwner owner))
(type (gncOwnerGetType end-owner)))
(gnc-build-url
@@ -105,6 +105,7 @@
((eqv? type GNC-OWNER-EMPLOYEE) "owner=e:")
(else "unknown-type="))
(gncOwnerReturnGUID end-owner)
(if date (format #f "&enddate=~a" date) "")
(if (null? acc) "" (string-append "&acct=" (gncAccountGetGUID acc))))
"")))