brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

SEPA payment identification

Browse source
This commit is contained in:
Dominik Pantůček 2023-12-05 19:11:10 +01:00
parent cf7ca5be57
commit 87b84a4064
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/members-payments.scm
View file

@ -79,11 +79,16 @@
(varsym-id (varsym-id
(or varsym-id0 (or varsym-id0
(let* ((msg (bank-transaction-message transaction)) (let* ((msg (bank-transaction-message transaction))
(ci (substring-index "," msg)) (ci1 (substring-index "," msg))
(vs (if ci (vs1 (if ci1
(substring msg 0 ci) (substring msg 0 ci1)
msg))
(ci2 (substring-index " " msg))
(vs2 (if ci2
(substring msg 0 ci2)
msg))) msg)))
(string->number vs))))) (or (string->number vs1)
(string->number vs2))))))
varsym-id))) varsym-id)))
;; Special comparator (originally with JendaSAP hack) ;; Special comparator (originally with JendaSAP hack)