diff --git a/src/members-payments.scm b/src/members-payments.scm index 6f8731d..eee3b7e 100644 --- a/src/members-payments.scm +++ b/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)