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

[new-aging] step 2 - reduce indentation level by 1

Browse Source 
merge two let* together
This commit is contained in:
Christopher Lam 2019-11-10 04:07:08 +08:00
parent b72052137b
commit 97798f9fd1
1 changed files with 37 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
gnucash/report/business-reports/new-aging.scm
View File

@ -325,50 +325,45 @@ exist but have no suitable transactions."))
(let* ((account (car accounts)) (let* ((account (car accounts))
(splits-acc-others (list-split splits split-from-acct? account)) (splits-acc-others (list-split splits split-from-acct? account))
(acc-splits (car splits-acc-others)) (acc-splits (car splits-acc-others))
(other-acc-splits (cdr splits-acc-others))) (other-acc-splits (cdr splits-acc-others))
(split-owners (map split->owner acc-splits))
(acc-owners (sort (sort-and-delete-duplicates
split-owners ownerGUID<? gnc-owner-equal?)
owner<?)))
(gnc:debug 'account account) ;; loop into each APAR account split
(let lp ((acc-owners acc-owners)
(acc-splits acc-splits)
(acc-totals (make-list (1+ num-buckets) 0))
(owners-and-aging '()))
(cond
((null? acc-owners)
(loop (cdr accounts)
other-acc-splits
(if (null? owners-and-aging)
accounts-and-owners
(cons (list account owners-and-aging acc-totals)
accounts-and-owners))
(append-reverse tofree split-owners)))
(let* ((split-owners (map split->owner acc-splits)) (else
(acc-owners (sort (sort-and-delete-duplicates (let* ((owner (car acc-owners))
split-owners ownerGUID<? gnc-owner-equal?) (splits-own-others (list-split acc-splits split-has-owner?
owner<?))) owner))
(owner-splits (car splits-own-others))
(gnc:debug 'owners acc-owners) (other-owner-splits (cdr splits-own-others))
(aging (gnc:owner-splits->aging-list
;; loop into each APAR account split owner-splits num-buckets report-date
(let lp ((acc-owners acc-owners) date-type receivable))
(acc-splits acc-splits) (aging-total (apply + aging)))
(acc-totals (make-list (1+ num-buckets) 0)) (lp (cdr acc-owners)
(owners-and-aging '())) other-owner-splits
(cond (map + acc-totals
((null? acc-owners) (reverse (cons aging-total aging)))
(loop (cdr accounts) (if (or show-zeros (not (every zero? aging)))
other-acc-splits (cons (list owner aging aging-total)
(if (null? owners-and-aging) owners-and-aging)
accounts-and-owners owners-and-aging)))))))))))))
(cons (list account owners-and-aging acc-totals)
accounts-and-owners))
(append-reverse tofree split-owners)))
(else
(let* ((owner (car acc-owners))
(splits-own-others (list-split acc-splits split-has-owner?
owner))
(owner-splits (car splits-own-others))
(other-owner-splits (cdr splits-own-others))
(aging (gnc:owner-splits->aging-list
owner-splits num-buckets report-date
date-type receivable))
(aging-total (apply + aging)))
(lp (cdr acc-owners)
other-owner-splits
(map + acc-totals
(reverse (cons aging-total aging)))
(if (or show-zeros (not (every zero? aging)))
(cons (list owner aging aging-total)
owners-and-aging)
owners-and-aging))))))))))))))
(gnc:report-finished) (gnc:report-finished)
document)) document))