Bugfix new reports

This commit is contained in:
Christopher Lam 2020-05-29 21:01:13 +08:00
parent efb9abfb4d
commit 8717c5c3cc
2 changed files with 3 additions and 3 deletions

View File

@ -483,11 +483,11 @@ exist but have no suitable transactions."))
(define (gnc:receivables-create-internal (define (gnc:receivables-create-internal
account split query journal? double? title debit-string credit-string) account split query journal? double? title debit-string credit-string)
(receivables-report-create-internal #f #f)) (receivables-report-create-internal account #f #f))
(define (gnc:payables-create-internal (define (gnc:payables-create-internal
account split query journal? double? title debit-string credit-string) account split query journal? double? title debit-string credit-string)
(payables-report-create-internal #f #f)) (payables-report-create-internal account #f #f))
(gnc:register-report-hook ACCT-TYPE-RECEIVABLE #f gnc:receivables-create-internal) (gnc:register-report-hook ACCT-TYPE-RECEIVABLE #f gnc:receivables-create-internal)
(gnc:register-report-hook ACCT-TYPE-PAYABLE #f gnc:payables-create-internal) (gnc:register-report-hook ACCT-TYPE-PAYABLE #f gnc:payables-create-internal)

View File

@ -1223,7 +1223,7 @@ invoices and amounts.")))))
(owner (gnc:owner-from-split split temp-owner)) (owner (gnc:owner-from-split split temp-owner))
(res (if (null? owner) (res (if (null? owner)
-1 -1
(owner-report-create owner)))) (owner-report-create owner account))))
(gncOwnerFree temp-owner) (gncOwnerFree temp-owner)
res)) res))