Parse account and bank code for incoming payments.
This commit is contained in:
parent
6638f7d8fb
commit
b00139bd89
3 changed files with 11 additions and 4 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue