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

Fix Account Report menu option when used on A/R or A/P registers.

Browse Source 
This has been broken since r20766

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@22218 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Geert Janssens 2012-06-13 15:24:21 +00:00
parent d7729b3140
commit 7af123cd60
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/report/business-reports/payables.scm
View File

@ -80,14 +80,15 @@
(title-op (gnc:lookup-option options acc-page gnc:optname-reportname))) (title-op (gnc:lookup-option options acc-page gnc:optname-reportname)))
(gnc:option-set-value acct-op acct) (gnc:option-set-value acct-op acct)
(gnc:option-set-value title-op title) (if (not (string-null? title))
(gnc:option-set-value title-op title))
(gnc:option-set-value zero-op show-zeros?) (gnc:option-set-value zero-op show-zeros?)
(gnc:make-report payables-aging-guid options))) (gnc:make-report payables-aging-guid options)))
(define (gnc:payables-report-create-internal (define (gnc:payables-report-create-internal
account split query journal? double? title account split query journal? double? title
debit-string credit-string) debit-string credit-string)
(payables-report-create-internal account #f #f)) (payables-report-create-internal account "" #f))
(gnc:register-report-hook ACCT-TYPE-PAYABLE #f (gnc:register-report-hook ACCT-TYPE-PAYABLE #f
gnc:payables-report-create-internal) gnc:payables-report-create-internal)

5
src/report/business-reports/receivables.scm
View File

@ -81,14 +81,15 @@
(title-op (gnc:lookup-option options acc-page gnc:optname-reportname))) (title-op (gnc:lookup-option options acc-page gnc:optname-reportname)))
(gnc:option-set-value acct-op acct) (gnc:option-set-value acct-op acct)
(gnc:option-set-value title-op title) (if (not (string-null? title))
(gnc:option-set-value title-op title))
(gnc:option-set-value zero-op show-zeros?) (gnc:option-set-value zero-op show-zeros?)
(gnc:make-report receivables-aging-guid options))) (gnc:make-report receivables-aging-guid options)))
(define (gnc:receivables-report-create-internal (define (gnc:receivables-report-create-internal
account split query journal? double? title account split query journal? double? title
debit-string credit-string) debit-string credit-string)
(receivables-report-create-internal account #f #f)) (receivables-report-create-internal account "" #f))
(gnc:register-report-hook ACCT-TYPE-RECEIVABLE #f (gnc:register-report-hook ACCT-TYPE-RECEIVABLE #f
gnc:receivables-report-create-internal) gnc:receivables-report-create-internal)