Convert to CZK.
This commit is contained in:
parent
3fbb68543b
commit
8533306dfd
1 changed files with 6 additions and 4 deletions
|
@ -271,10 +271,12 @@
|
||||||
|
|
||||||
;; Returns a single credit/debit list of payments and fees calendar
|
;; Returns a single credit/debit list of payments and fees calendar
|
||||||
(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)))
|
||||||
(print mcal)
|
(all (append mcal pmts))
|
||||||
(print pmts)
|
(all-sorted (sort all (lambda (a b)
|
||||||
|
(cal-day<? (car a) (car b))))))
|
||||||
|
(print all)
|
||||||
'()))
|
'()))
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue