Handle zero varsym.

2023-12-05 19:38:41 +01:00 · 2023-12-05 19:38:41 +01:00 · 165dd7328e
commit 165dd7328e
parent efb3645f7e
1 changed files with 3 additions and 1 deletions
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@ -77,7 +77,9 @@
 	       (string->number
 		(bank-transaction-varsym transaction)))
 	      (varsym-id
-	       (or varsym-id0
+	       (if (and varsym-id0
+			(> varsym-id0 1000))
+		   varsym-id0
 		   (let* ((msg (bank-transaction-message transaction))
 			  (ci1 (substring-index "," msg))
 			  (vs1 (if ci1