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

[customer-summary] convert loop to srfi-1

Browse Source
This commit is contained in:
Christopher Lam 2019-03-23 12:43:29 +08:00
parent 523837ddbe
commit 07f44ad7c5
1 changed files with 4 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gnucash/report/business-reports/customer-summary.scm
View File

@ -305,26 +305,12 @@
(* 100 (gnc-numeric-div profit sales 1000 GNC-HOW-RND-ROUND)))) (* 100 (gnc-numeric-div profit sales 1000 GNC-HOW-RND-ROUND))))
(define (query-split-value sub-query toplevel-query) (define (query-split-value sub-query toplevel-query)
(let ((splits (qof-query-run-subquery sub-query toplevel-query)) (let ((splits (qof-query-run-subquery sub-query toplevel-query)))
(total (gnc-numeric-zero)) (apply + (map xaccSplitGetValue splits))))
)
(for-each
(lambda (split)
(set! total (gnc-numeric-add-fixed total (xaccSplitGetValue split)))
)
splits) ;; END for-each splits
total))
(define (single-query-split-value query) (define (single-query-split-value query)
(let ((splits (qof-query-run query)) (let ((splits (qof-query-run query)))
(total (gnc-numeric-zero)) (apply + (map xaccSplitGetValue splits))))
)
(for-each
(lambda (split)
(set! total (gnc-numeric-add-fixed total (xaccSplitGetValue split)))
)
splits) ;; END for-each splits
total))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;