Implement last payment date in brmember format.
This commit is contained in:
parent
5fed8899a4
commit
f6fb372938
3 changed files with 9 additions and 3 deletions
|
@ -335,7 +335,7 @@ util-format.o: util-format.import.scm
|
||||||
util-format.import.scm: $(UTIL-FORMAT-SOURCES)
|
util-format.import.scm: $(UTIL-FORMAT-SOURCES)
|
||||||
|
|
||||||
BRMEMBER-FORMAT-SOURCES=brmember-format.scm util-dict-list.import.scm \
|
BRMEMBER-FORMAT-SOURCES=brmember-format.scm util-dict-list.import.scm \
|
||||||
brmember.import.scm
|
brmember.import.scm bank-account.import.scm
|
||||||
|
|
||||||
brmember-format.o: brmember-format.import.scm
|
brmember-format.o: brmember-format.import.scm
|
||||||
brmember-format.import.scm: $(BRMEMBER-FORMAT-SOURCES)
|
brmember-format.import.scm: $(BRMEMBER-FORMAT-SOURCES)
|
||||||
|
|
|
@ -36,7 +36,8 @@
|
||||||
(chicken string)
|
(chicken string)
|
||||||
(chicken format)
|
(chicken format)
|
||||||
util-dict-list
|
util-dict-list
|
||||||
brmember)
|
brmember
|
||||||
|
bank-account)
|
||||||
|
|
||||||
;; Member formatting function for general use.
|
;; Member formatting function for general use.
|
||||||
(define (brmember-format fmt mr)
|
(define (brmember-format fmt mr)
|
||||||
|
@ -56,6 +57,11 @@
|
||||||
(if (eq? n 0)
|
(if (eq? n 0)
|
||||||
""
|
""
|
||||||
(sprintf "[~A]" n))))
|
(sprintf "[~A]" n))))
|
||||||
|
((#\P)
|
||||||
|
(let ((payments (brmember-payments mr)))
|
||||||
|
(if (null? payments)
|
||||||
|
"-"
|
||||||
|
(bank-transaction-date (car payments)))))
|
||||||
((#\~) "~"))
|
((#\~) "~"))
|
||||||
resl))
|
resl))
|
||||||
(loop (cdr fmtl)
|
(loop (cdr fmtl)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue