From 5f03e0c251bdf790a7cf9ad2c130f32d5ee5e5d7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sun, 24 Dec 2023 21:33:53 +0100 Subject: [PATCH] Another SEPA parser. --- src/members-payments.scm | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/src/members-payments.scm b/src/members-payments.scm index bf2c416..8c8fc41 100644 --- a/src/members-payments.scm +++ b/src/members-payments.scm @@ -90,12 +90,21 @@ (substring msg 0 ci2) msg)) (ci3 (substring-index "NULL" msg)) - (vs3 (if ci3 + (vs3 (if (and ci3 + (>= (string-length msg) (+ ci3 8))) (substring msg (+ ci3 4) (+ ci3 4 4)) - msg))) + msg)) + (ci4 (substring-index "VS" msg)) + (vs4 (if (and ci4 + (>= (string-length msg) (+ ci4 6))) + (substring msg (+ ci4 2) (+ ci4 6)) + msg)) + ) (or (string->number vs1) (string->number vs2) - (string->number vs3)))))) + (string->number vs3) + (string->number vs4) + ))))) varsym-id))) ;; Special comparator (originally with JendaSAP hack)