Start printing unpaired.

src/bank-fio.scm

@@ -71,7 +71,7 @@
 		(bankrow (assoc "bankId" head))
 		(bank (if bankrow (cadr bankrow) "ERROR")))
 	   (make-bank-account num bank
-			      (map make-fio-transaction body)))
+			      (map make-fio-transaction (cdr body))))
 	 (let ()
 	   (print "Fio: cannot load account " fn)
 	   #f

src/bbstool.scm

@@ -47,7 +47,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	csv-simple
 	members-payments
 	web-static
-	environment)
+	environment
+	bank-account)
 
 ;; Print banner
 (print "bbstool 0.9 (c) 2023 Brmlab, z.s.")
@@ -125,6 +126,9 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	(-action- 'repl))
  (-edit () "Edit selected user"
 	(-action- 'edit))
+ (-unpaired () "Show latest unpaired bank transactions"
+	    (-needs-bank- #t)
+	    (-action- 'unpaired))
  )
 
 ;; Run tests
@@ -238,6 +242,15 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
        (edit-file (member-file-path mr))
        (print "No member to edit.")))
   ((no-op) (void))
+  ((unpaired)
+   (print
+    (table->string
+     (cons
+      (list "Id")
+      (map
+       (lambda (tr)
+	 (list (bank-transaction-id tr)))
+       (members-base-unpaired MB))))))
   (else
    (print "Nothing to do."))