From 6135a09664e012807e511816cc2eacb780ad5973 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sun, 14 May 2023 21:36:52 +0200 Subject: [PATCH] Fix latest payment for debtors and everywhere else with format. --- src/brmember-format.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/brmember-format.scm b/src/brmember-format.scm index 7cc83a1..f0ce763 100644 --- a/src/brmember-format.scm +++ b/src/brmember-format.scm @@ -68,7 +68,10 @@ (let ((payments (brmember-payments mr))) (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 ; membership periods) (sprintf "~A" (member-fees-total mr)))