Very simple unpaired transactions listing.

src/members-print.scm

@@ -38,6 +38,7 @@
   print-members-base-stats
   print-members-ids-stats
   print-members-fees-table
+  print-unpaired-table
   )
 
  (import scheme
@@ -432,4 +433,24 @@
      )
    )
 
+ ;; Prints all transactions which the members base considers unpaired.
+ (define (print-unpaired-table mb)
+   (print
+    (table->string
+     (cons
+      (list "Id" "Date" "Amount" "" "VS" "Type" "Message")
+      (map
+       (lambda (tr)
+	 (list (bank-transaction-id tr)
+	       (bank-transaction-date tr)
+	       (sprintf "\t~A" (bank-transaction-amount tr))
+	       (bank-transaction-currency tr)
+	       (sprintf "\t~A" (bank-transaction-varsym tr))
+	       (bank-transaction-type tr)
+	       (bank-transaction-message tr)
+	       ))
+       (members-base-unpaired mb)))
+     #:row0-border #t
+     #:col-border #t)))
+
  )