Parse account and bank code for incoming payments.

src/members-print.scm

@@ -440,7 +440,7 @@
    (print
     (table->string
      (cons
-      (list "Id" "Date" "Amount" "" "VS" "Type" "Message")
+      (list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank")
       (map
        (lambda (tr)
 	 (list (bank-transaction-id tr)
@@ -450,6 +450,8 @@
 	       (sprintf "\t~A" (bank-transaction-varsym tr))
 	       (bank-transaction-type tr)
 	       (bank-transaction-message tr)
+	       (bank-transaction-account tr)
+	       (bank-transaction-bank tr)
 	       ))
        (members-base-unpaired mb)))
      #:row0-border #t