mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Fix crash in customer/employee/vendor reports.
This commit is contained in:
parent
3c65a30017
commit
47a422070e
@ -757,13 +757,12 @@
|
|||||||
(gnc:date-option-absolute-time
|
(gnc:date-option-absolute-time
|
||||||
(opt-val gnc:pagename-general optname-to-date))))
|
(opt-val gnc:pagename-general optname-to-date))))
|
||||||
(book (gnc-account-get-book account))
|
(book (gnc-account-get-book account))
|
||||||
(date-format (gnc:options-fancy-date book))
|
(date-format (if (not (null? book)) (gnc:options-fancy-date book)))
|
||||||
(type (opt-val "__reg" "owner-type"))
|
(type (opt-val "__reg" "owner-type"))
|
||||||
(owner-descr (owner-string type))
|
(owner-descr (owner-string type))
|
||||||
(date-type (opt-val gnc:pagename-general optname-date-driver))
|
(date-type (opt-val gnc:pagename-general optname-date-driver))
|
||||||
(owner (opt-val owner-page owner-descr))
|
(owner (opt-val owner-page owner-descr))
|
||||||
(report-title (string-append (doctype-str type) " " (_ "Report"))))
|
(report-title (string-append (doctype-str type) " " (_ "Report"))))
|
||||||
|
|
||||||
(if (not (gncOwnerIsValid owner))
|
(if (not (gncOwnerIsValid owner))
|
||||||
(gnc:html-document-add-object!
|
(gnc:html-document-add-object!
|
||||||
document
|
document
|
||||||
|
Loading…
Reference in New Issue
Block a user