Prepare for balances in totals table.

members-payments.scm

@@ -39,7 +39,10 @@
 	 bank-account
 	 member-record
 	 members-base
-	 bank-fio)
+	 bank-fio
+
+	 dictionary
+	 member-fees)
 
  ;; Merges bank account statement into members payment keys. The
  ;; payment key will be a list of transactions.
@@ -77,11 +80,20 @@
    (if apikeys-file
        (let* ((accounts (load-accounts
 			 (load-accounts-list apikeys-file))))
-	 (foldl members-payments-process-bank
-		mb
-		accounts))
+	 (map member-add-balances
+	      (foldl members-payments-process-bank
+		     mb
+		     accounts)))
        mb))
 
+ ;; Adds all balances
+ (define (member-add-balances mr)
+   (dict-set mr
+	     'balances
+	     (make-dict `((fees . ,(member-fees-total mr))
+			  (credit . ,(member-credit-total mr))
+			  (balance . ,(member-payments-total mr))))))
+
  ;; Total amount paid
  (define (member-payments-total mr)
    (foldl + 0 (map bank-transaction-amount