Parse account and bank code for incoming payments.

src/bank-account.scm

@@ -42,6 +42,8 @@
   bank-transaction-id
   bank-transaction-message
   bank-transaction-type
+  bank-transaction-account
+  bank-transaction-bank
   )
 
  (import scheme
@@ -70,7 +72,7 @@
 	 (cdr account)))
 
  ;; Creates a new bank transaction.
- (define-record bank-transaction id date amount currency varsym message type)
+ (define-record bank-transaction id date amount currency varsym message type account bank)
 
  (set-record-printer! bank-transaction
 		      (lambda (tr out)

src/bank-fio.scm

@@ -56,8 +56,11 @@
 	 (currency (string->symbol (cadddr row)))
 	 (varsym (list-ref row 9))
 	 (message (list-ref row 12))
-	 (type (list-ref row 13)))
+	 (type (list-ref row 13))
-     (make-bank-transaction id date amount currency varsym message type)))
+	 (bank (list-ref row 6))
+	 (account (list-ref row 4)))
+     (make-bank-transaction id date amount currency varsym message type
+			    account bank)))
 
  ;; Loads Fio bank accound statement.
  (define (bank-fio-parse fn)

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