Implement last payment date in brmember format.

src/brmember-format.scm

@@ -36,7 +36,8 @@
 	 (chicken string)
 	 (chicken format)
 	 util-dict-list
-	 brmember)
+	 brmember
+	 bank-account)
 
  ;; Member formatting function for general use.
  (define (brmember-format fmt mr)
@@ -56,6 +57,11 @@
 				(if (eq? n 0)
 				    ""
 				    (sprintf "[~A]" n))))
+			     ((#\P)
+			      (let ((payments (brmember-payments mr)))
+				(if (null? payments)
+				    "-"
+				    (bank-transaction-date (car payments)))))
 			     ((#\~) "~"))
 			   resl))
 	       (loop (cdr fmtl)