Generate total balance for member.

This commit is contained in:
Dominik Pantůček 2023-04-01 17:41:59 +02:00
parent d092275797
commit 76ff48329a
3 changed files with 22 additions and 7 deletions

View file

@ -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))))
)