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

Sort member payments.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-31 22:59:04 +02:00
parent d3efbaa82d
commit 3429790dbe
1 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

18
members-payments.scm
View file

@ -37,6 +37,7 @@
(chicken string) (chicken string)
(chicken io) (chicken io)
(chicken irregex) (chicken irregex)
(chicken sort)
bank-account bank-account
member-record member-record
members-base members-base
@ -115,11 +116,18 @@
;; Adds all balances - payments are converted to CZK. ;; Adds all balances - payments are converted to CZK.
(define (member-add-balance mr) (define (member-add-balance mr)
(dict-set mr (let ((mr0 (dict-set mr
'balance 'balance
(make-dict `((fees . ,(member-fees-total mr)) (make-dict `((fees . ,(member-fees-total mr))
(credit . ,(member-credit-total mr)) (credit . ,(member-credit-total mr))
(payment . ,(member-payments-total mr)))))) (payment . ,(member-payments-total mr)))))))
(dict-set mr0
'payments
(sort (dict-ref mr0 'payments '())
(lambda (a b)
(string<? (bank-transaction-date a)
(bank-transaction-date b)))))))
;; Total amount paid ;; Total amount paid
(define (member-payments-total mr) (define (member-payments-total mr)