Basic payments pairing.

members-payments.scm

@@ -32,17 +32,53 @@
   )
 
  (import scheme
-	 bank-account)
+	 (chicken base)
+	 (chicken string)
+	 (chicken io)
+	 bank-account
+	 member-record
+	 members-base
+	 bank-fio)
 
  ;; Merges bank account statement into members payment keys. The
  ;; payment key will be a list of transactions.
- (define (members-payments-process mb ba)
+ (define (members-payments-process-bank mb ba)
    (let loop ((mb mb)
 	      (transactions (bank-account-transactions ba)))
      (if (null? transactions)
 	 mb
-	 (let* ((transaction (car transactions)))
-	   (loop mb
+	 (let* ((transaction (car transactions))
+		(varsym-id (string->number (bank-transaction-varsym transaction))))
+	   (loop (members-base-update mb
+				      (lambda (mr)
+					(eq? (member-id mr)
+					     varsym-id))
+				      (lambda (mr)
+					(member-record-add-payment mr transaction)))
 		 (cdr transactions))))))
 
+ ;; Reads the payments
+ (define (load-accounts-list apikeys)
+   (map (compose car string-split)
+	(read-lines
+	 (open-input-file apikeys))))
+
+ ;; Loads all accounts - it expects .csv files in the current
+ ;; directory.
+ (define (load-accounts accounts-list)
+   (map (lambda (acc)
+	  (bank-fio-parse (string-append acc ".csv")))
+	accounts-list))
+
+ ;; If apikeys is not #f, loads the account numbers, loads bank
+ ;; accounts and processes transactions.
+ (define (members-payments-process mb apikeys-file)
+   (if apikeys-file
+       (let* ((accounts (load-accounts
+			 (load-accounts-list apikeys-file))))
+	 (foldl members-payments-process-bank
+		mb
+		accounts))
+       mb))
+
  )