Prepare for balances in totals table.

members-print.scm

@@ -36,6 +36,7 @@
   print-members-base-table
   print-members-base-stats
   print-members-ids-stats
+  print-members-fees-table
   )
 
  (import scheme
@@ -320,4 +321,20 @@
 	       ", ")
 	      ")"))))
 
+ ;; Prints summary table of all fees and credits for all members
+ (define (print-members-fees-table MB)
+   (print
+    (table->string
+     (cons
+      (list "Member" "Fees" "Credit" "Payments" "Balance")
+      (map
+       (lambda (mr)
+	 (let ((balances (member-balances mr)))
+	   (list (member-nick mr)
+		 (sprintf "\t~A" (member-fees-total mr))
+		 (sprintf "\t~A" (member-credit-total mr))
+		 )))
+       (sort (filter-members-by-predicate MB member-active?) member<?)))
+     #:col-border #t #:row0-border #t)))
+
  )