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

[register] simplify make-split-table main loop

Browse Source 
Previous was using nested ifs. use cond instead which is more
appropriate.

Also handle dangling-split separately.
This commit is contained in:
Christopher Lam 2019-02-22 23:09:35 +08:00
parent bae74fed0a
commit b1763ed13d
1 changed files with 66 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

135
gnucash/report/standard-reports/register.scm
View File

@ -605,78 +605,75 @@
(let loop ((splits splits) (let loop ((splits splits)
(odd-row? #t)) (odd-row? #t))
(if (null? splits) (cond
;; ----------------------------------
;; exit condition reached
;; ----------------------------------
(begin
;; ------------------------------------
;; add debit/credit totals to the table
;; ------------------------------------
(if (reg-report-show-totals?)
(begin
(add-subtotal-row (_ "Total Debits") leader table used-columns
debit-collector "grand-total" #f)
(add-subtotal-row (_ "Total Credits") leader table used-columns
credit-collector "grand-total" #f)
(add-subtotal-row (_ "Total Value Debits") leader table used-columns
debit-value "grand-total" #t)
(add-subtotal-row (_ "Total Value Credits") leader table used-columns
credit-value "grand-total" #t)))
(if ledger-type?
(add-subtotal-row (_ "Net Change") leader table used-columns
total-collector "grand-total" #f))
(add-subtotal-row (_ "Value Change") leader table used-columns
total-value "grand-total" #t))
;; ---------------------------------- ;; ----------------------------------
;; process the splits list ;; exit condition reached
;; ---------------------------------- ;; add debit/credit totals to the table
(let* ((current (car splits)) ;; ----------------------------------
(current-row-style (if multi-rows? "normal-row" ((null? splits)
(if odd-row? "normal-row" (when reg-report-show-totals?
"alternate-row"))) (add-subtotal-row (_ "Total Debits") leader table used-columns
(rest (cdr splits)) debit-collector "grand-total" #f)
(valid-split? (not (null? (xaccSplitGetAccount current))))) (add-subtotal-row (_ "Total Credits") leader table used-columns
;; ---------------------------------------------- credit-collector "grand-total" #f)
;; update totals, but don't add them to the table (add-subtotal-row (_ "Total Value Debits") leader table used-columns
;; ---------------------------------------------- debit-value "grand-total" #t)
(if (and multi-rows? valid-split?) (add-subtotal-row (_ "Total Value Credits") leader table used-columns
(for-each (lambda (split) credit-value "grand-total" #t))
(if (string=? (gncAccountGetGUID (when ledger-type?
(xaccSplitGetAccount current)) (add-subtotal-row (_ "Net Change") leader table used-columns
(gncAccountGetGUID total-collector "grand-total" #f))
(xaccSplitGetAccount split))) (add-subtotal-row (_ "Value Change") leader table used-columns
(accumulate-totals split total-value "grand-total" #t))
total-collector total-value
debit-collector debit-value
credit-collector credit-value)))
(xaccTransGetSplitList (xaccSplitGetParent current)))
(accumulate-totals current
total-collector total-value
debit-collector debit-value
credit-collector credit-value))
;; ----------------------------------
;; add the splits to the table
;; ----------------------------------
;; The general journal has a split that doesn't have an account
;; set yet (the new entry transaction).
;; This split should be skipped or the report errors out.
;; See bug #639082
(if valid-split?
(add-split-row table current used-columns
current-row-style #t (not multi-rows?)
action-for-num? ledger-type?
double? (opt-val "Display" "Memo")
(opt-val "Display" "Description")
total-collector))
(if (and multi-rows? valid-split?)
(add-other-split-rows current table used-columns
"alternate-row" action-for-num?
ledger-type? total-collector))
(loop rest (not odd-row?))))) ;; The general journal has a split that doesn't have an account
;; set yet (the new entry transaction).
;; This split should be skipped or the report errors out. See
;; bug #639082
((null? (xaccSplitGetAccount (car splits)))
(loop (cdr splits) (not odd-row?)))
;; ----------------------------------
;; process the splits list
;; ----------------------------------
(else
(let* ((current (car splits))
(current-row-style (if (or multi-rows? odd-row?)
"normal-row"
"alternate-row")))
;; ----------------------------------------------
;; update totals, but don't add them to the table
;; ----------------------------------------------
(if multi-rows?
(for-each
(lambda (split)
(if (equal? (xaccSplitGetAccount current)
(xaccSplitGetAccount split))
(accumulate-totals split
total-collector total-value
debit-collector debit-value
credit-collector credit-value)))
(xaccTransGetSplitList (xaccSplitGetParent current)))
(accumulate-totals current
total-collector total-value
debit-collector debit-value
credit-collector credit-value))
;; ----------------------------------
;; add the splits to the table
;; ----------------------------------
(add-split-row table current used-columns
current-row-style #t (not multi-rows?)
action-for-num? ledger-type?
double? (opt-val "Display" "Memo")
(opt-val "Display" "Description")
total-collector)
(if multi-rows?
(add-other-split-rows current table used-columns
"alternate-row" action-for-num?
ledger-type? total-collector))
(loop (cdr splits)
(not odd-row?))))))
table)) table))
(define (reg-renderer report-obj) (define (reg-renderer report-obj)