From 46fb2f8e8e6c3c7c519fe6332445154feef84d24 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Wed, 5 Apr 2023 20:24:44 +0200
Subject: [PATCH] Work correctly with checked.ntlm.

---
 src/members-payments.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/members-payments.scm b/src/members-payments.scm
index e06e8d2..5c6aa34 100644
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@@ -100,7 +100,11 @@
 			(compare-member-id (member-id mr) varsym-id))
 		      (lambda (mr)
 			(member-record-add-payment mr transaction)))
-		     (members-base-add-unpaired mb transaction))
+		     (if (or (not last-checked)
+			     (> (bank-transaction-id transaction)
+				last-checked))
+			 (members-base-add-unpaired mb transaction)
+			 mb))
 		 (cdr transactions))))))
 
  ;; Reads the payments
@@ -132,7 +136,8 @@
        (lambda ()
 	 (with-input-from-file file-name
 	   (lambda ()
-	     (number->string (read-line)))))))))
+	     (let ((str (read-line)))
+	       (string->number str)))))))))
 
  ;; If apikeys is not #f, loads the account numbers, loads bank
  ;; accounts and processes transactions.