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

[report-utilities] make gnc:owner-splits->aging-list less noisy

Browse Source 
invoice processing messages dumped in debug mode. use gnc:msg
This commit is contained in:
Christopher Lam 2019-11-25 08:07:11 +08:00
parent 9adf8db1a2
commit 0973d54d6c
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gnucash/report/report-system/report-utilities.scm
View File

@ -1124,7 +1124,8 @@ flawed. see report-utilities.scm. please update reports.")
;; Outputs: aging list of numbers ;; Outputs: aging list of numbers
(define-public (gnc:owner-splits->aging-list splits num-buckets (define-public (gnc:owner-splits->aging-list splits num-buckets
to-date date-type receivable?) to-date date-type receivable?)
(gnc:pk 'processing: (qof-print-date to-date) date-type 'receivable? receivable?) (gnc:msg "processing " (qof-print-date to-date) " date-type " date-type
"receivable? " receivable?)
(let ((bucket-dates (make-extended-interval-list to-date (- num-buckets 2))) (let ((bucket-dates (make-extended-interval-list to-date (- num-buckets 2)))
(buckets (make-vector num-buckets 0))) (buckets (make-vector num-buckets 0)))
(define (addbucket! idx amt) (define (addbucket! idx amt)
@ -1148,7 +1149,8 @@ flawed. see report-utilities.scm. please update reports.")
(date (if (eq? date-type 'postdate) (date (if (eq? date-type 'postdate)
(gncInvoiceGetDatePosted invoice) (gncInvoiceGetDatePosted invoice)
(gncInvoiceGetDateDue invoice)))) (gncInvoiceGetDateDue invoice))))
(gnc:pk 'next=invoice (car splits) invoice bal) (gnc:msg "next " (gnc:strify (car splits))
" invoice " (gnc:strify invoice) " bal " bal)
(let loop ((idx 0) (bucket-dates bucket-dates)) (let loop ((idx 0) (bucket-dates bucket-dates))
(if (< date (car bucket-dates)) (if (< date (car bucket-dates))
(addbucket! idx bal) (addbucket! idx bal)
@ -1170,14 +1172,15 @@ flawed. see report-utilities.scm. please update reports.")
(- payment-left (gncInvoiceGetTotal (car inv-and-splits))) (- payment-left (gncInvoiceGetTotal (car inv-and-splits)))
payment-left)) payment-left))
(if receivable? (- payment) payment) invoices-and-splits))) (if receivable? (- payment) payment) invoices-and-splits)))
(gnc:pk 'payment (car splits) payment "->" overpayment) (gnc:msg "next " (gnc:strify (car splits)) " payment " payment
" overpayment " overpayment)
(when (positive? overpayment) (when (positive? overpayment)
(addbucket! (1- num-buckets) (- overpayment))) (addbucket! (1- num-buckets) (- overpayment)))
(lp (cdr splits) invoices-and-splits))) (lp (cdr splits) invoices-and-splits)))
;; not invoice/prepayment. regular or payment split. ;; not invoice/prepayment. regular or payment split.
(else (else
(gnc:pk 'next=skipped (car splits)) (gnc:msg "next " (gnc:strify (car splits)) " skipped")
(lp (cdr splits) invoices-and-splits)))))) (lp (cdr splits) invoices-and-splits))))))
;; *************************************************************************** ;; ***************************************************************************