Fix bank fees dropout.

members-payments.scm

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