Preliminary payments and fees in one table.

src/members-print.scm

@@ -39,6 +39,7 @@
   print-members-fees-table
   unpaired-table
   print-unpaired-table
+  print-member-balances-table
   )
 
  (import scheme
@@ -543,4 +544,20 @@
      (unpaired-table mb)
      "\n")))
 
+ ;; Prints fees/payments/balances of one member
+ (define (print-member-balances-table mr)
+   (let ((data (map (lambda (r)
+		      (list (cal-day->string (cadr r))
+			    (list-ref r 4)
+			    (format "\t~A" (exact->inexact (list-ref r 5)))
+			    (format "\t~A" (exact->inexact (car r)))
+			    ))
+		    (brmember-balance-history mr))))
+     (print-table
+      #:border '(((#:bottom #:right light) ... (#:bottom light))
+		 ((#:right light) ... none)
+		 ...)
+      (cons '("\tDate\t" "\tComment\t" "\tAmount\t" "\tBalance\t")
+	    data))))
+
  )