Payments accessors.
This commit is contained in:
parent
b0e5411c5e
commit
dc82f96187
3 changed files with 7 additions and 7 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue