brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use current month for filtering payments in member-record.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-04 10:00:07 +02:00
parent ba62b905fd
commit f62fe1a08c
3 changed files with 12 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/members-payments.scm
View file

@ -49,9 +49,7 @@
dictionary
member-fees
period
configuration
utils
month)
configuration)
;; Exchange rates
(define exchange-rates-lookup-table
@ -162,12 +160,7 @@
((CZK) amount)
((EUR) (* amount (lookup-eur-rate)))
(else 0))))
(filter
(lambda (tr)
(let* ((isodate (bank-transaction-date tr))
(month (iso-date->month isodate)))
(month<=? month (*current-month*))))
(member-payments mr)))))
(member-payments mr))))
)