Fix latest payment for debtors and everywhere else with format.

2023-05-14 21:36:52 +02:00 · 2023-05-14 21:36:52 +02:00 · 6135a09664
commit 6135a09664
parent f6761b1993
1 changed files with 4 additions and 1 deletions
--- 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)))