Fix bank fees dropout.

bank-account.scm

@@ -41,6 +41,7 @@
   bank-transaction-date
   bank-transaction-id
   bank-transaction-message
+  bank-transaction-type
   )
 
  (import scheme
@@ -68,6 +69,6 @@
 	 (cdr account)))
 
  ;; Creates a new bank transaction.
- (define-record bank-transaction id date amount currency varsym message)
+ (define-record bank-transaction id date amount currency varsym message type)
 
  )

bank-fio.scm

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

members-payments.scm

@@ -47,6 +47,8 @@
 
  ;; Extract probable member-id from transaction
  (define (transaction-extract-member-id transaction)
+   (if (equal? (bank-transaction-type transaction) "Poplatek")
+       #f
        (let* ((varsym-id0
 	       (string->number
 		(bank-transaction-varsym transaction)))
@@ -58,7 +60,7 @@
 				  (substring msg 0 ci)
 				  msg)))
 		     (string->number vs)))))
-     varsym-id))
+	 varsym-id)))
 
  ;; Merges bank account statement into members payment keys. The
  ;; payment key will be a list of transactions.