Payments accessors.

This commit is contained in:
Dominik Pantůček 2023-04-11 22:40:42 +02:00
parent b0e5411c5e
commit dc82f96187
3 changed files with 7 additions and 7 deletions

View file

@ -101,7 +101,7 @@
(lambda (mr)
(compare-member-id (brmember-id mr) varsym-id))
(lambda (mr)
(member-record-add-payment mr transaction)))
(brmember-add-payment mr transaction)))
(if (and (or (not last-checked)
(> (bank-transaction-id transaction)
last-checked))
@ -210,7 +210,7 @@
((CZK) amount)
((EUR) (* amount (lookup-eur-rate)))
(else 0))))
(member-payments mr))))
(brmember-payments mr))))
;; Return members to notify because of late payments for more than
;; given number of months