SEPA payment identification

src/members-payments.scm

@@ -79,11 +79,16 @@
 	      (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)))))
+			  (ci1 (substring-index "," msg))
+			  (vs1 (if ci1
+				   (substring msg 0 ci1)
+				   msg))
+			  (ci2 (substring-index " " msg))
+			  (vs2 (if ci2
+				   (substring msg 0 ci2)
+				   msg)))
+		     (or (string->number vs1)
+			 (string->number vs2))))))
 	 varsym-id)))
 
  ;; Special comparator (originally with JendaSAP hack)