Parse account and bank code for incoming payments.

This commit is contained in:
Dominik Pantůček 2023-04-07 23:21:06 +02:00
parent 6638f7d8fb
commit b00139bd89
3 changed files with 11 additions and 4 deletions

View file

@ -56,8 +56,11 @@
(currency (string->symbol (cadddr row)))
(varsym (list-ref row 9))
(message (list-ref row 12))
(type (list-ref row 13)))
(make-bank-transaction id date amount currency varsym message type)))
(type (list-ref row 13))
(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)