Transactions table.

members-print.scm

@@ -32,6 +32,7 @@
   print-member-info
   print-member-table
   print-member-source
+  print-member-payments
   print-members-base-info
   print-members-base-table
   print-members-base-stats
@@ -53,7 +54,8 @@
 	 period
 	 primes
 	 members-base
-	 configuration)
+	 configuration
+	 bank-account)
 
  ;; Prints human-readable information
  (define (print-member-info mr)
@@ -146,6 +148,22 @@
       #:context -1
       )))
 
+ ;; Prints nicely printed payments
+ (define (print-member-payments mr)
+   (print
+    (table->string (cons
+		    (list "Var" "Amount" "Cur" "Date" "TrId")
+		    (map (lambda (tr)
+			   (list (sprintf "\t~A" (bank-transaction-varsym tr))
+				 (sprintf "\t~A" (bank-transaction-amount tr))
+				 (bank-transaction-currency tr)
+				 (bank-transaction-date tr)
+				 (bank-transaction-id tr)))
+			 (member-payments mr)))
+		   #:row0-border #t
+		   #:col-border #t
+		   )))
+
  ;; Converts member records to string, optional arguments are format
  ;; and separator. Format defaults to "~N" and separator to ", ".
  (define (member-records->string mrs . args)