Generate total balance for member.
This commit is contained in:
parent
d092275797
commit
76ff48329a
3 changed files with 22 additions and 7 deletions
|
@ -29,7 +29,6 @@
|
|||
members-payments
|
||||
(
|
||||
members-payments-process
|
||||
member-payments-total
|
||||
)
|
||||
|
||||
(import scheme
|
||||
|
@ -114,7 +113,7 @@
|
|||
accounts)))
|
||||
mb))
|
||||
|
||||
;; Adds all balances - payments are converted to CZK.
|
||||
;; Adds all balances - payments are converted to CZK in member-payments-total
|
||||
(define (member-add-balance mr)
|
||||
(let ((mr0 (dict-set mr
|
||||
'balance
|
||||
|
@ -129,7 +128,7 @@
|
|||
(bank-transaction-date b)))))))
|
||||
|
||||
|
||||
;; Total amount paid
|
||||
;; Total amount paid - calculated from payments
|
||||
(define (member-payments-total mr)
|
||||
(foldl + 0 (map (lambda (tr)
|
||||
(let ((amount (bank-transaction-amount tr))
|
||||
|
@ -140,4 +139,5 @@
|
|||
(else 0))))
|
||||
(member-payments mr))))
|
||||
|
||||
|
||||
)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue