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

Include credits.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-18 20:10:23 +02:00
parent 0c3ebde1fb
commit aff99d7c9c
1 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/members-payments.scm
View file

@ -271,11 +271,25 @@
"Payment"))) "Payment")))
bts)) bts))
;; Returns a single credit/debit list of payments and fees calendar ;; Converts credit records to transactions usable in balance history
(define (credits->balance-history crs)
(map (lambda (cr)
(list (cal-ensure-day (cadr cr))
(car cr)
"CZK"
(caddr cr)
(car cr)
"Credit"))
crs))
;; Returns a single credit/debit list of payments and fees
;; calendar. The result is a list of lists:
;; (list balance day amount currency message/comment czk-amount type-string)
(define (brmember-balance-history mr) (define (brmember-balance-history mr)
(let* ((mcal (calendar->balance-history (member-calendar mr))) (let* ((mcal (calendar->balance-history (member-calendar mr)))
(pmts (transactions->balance-history (brmember-payments mr))) (pmts (transactions->balance-history (brmember-payments mr)))
(all-unsorted (append mcal pmts)) (crs (credits->balance-history (brmember-credit mr)))
(all-unsorted (append mcal pmts crs))
(all (sort all-unsorted (all (sort all-unsorted
(lambda (a b) (lambda (a b)
(cal-day<? (car a) (car b)))))) (cal-day<? (car a) (car b))))))