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

Fix latest payment for debtors and everywhere else with format.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-14 21:36:52 +02:00
parent f6761b1993
commit 6135a09664
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/brmember-format.scm
View file

@ -68,7 +68,10 @@
(let ((payments (brmember-payments mr))) (let ((payments (brmember-payments mr)))
(if (null? payments) (if (null? payments)
"-" "-"
(sprintf "~A" (bank-transaction-date (car payments)))))) (sprintf "~A"
(bank-transaction-date
(car
(reverse payments)))))))
((#\F) ; Fees to be paid (total over all ((#\F) ; Fees to be paid (total over all
; membership periods) ; membership periods)
(sprintf "~A" (member-fees-total mr))) (sprintf "~A" (member-fees-total mr)))