From 31386d3153b617813073998d55c2c4acd527dc98 Mon Sep 17 00:00:00 2001
From: Bryce Covert <bryce@pelo.tech>
Date: Sun, 3 May 2020 08:17:22 -0700
Subject: [PATCH] account numbers.

---
 src/clj/auto_ap/graphql/ledger.clj | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/clj/auto_ap/graphql/ledger.clj b/src/clj/auto_ap/graphql/ledger.clj
index 08f99d34..0d7c3aed 100644
--- a/src/clj/auto_ap/graphql/ledger.clj
+++ b/src/clj/auto_ap/graphql/ledger.clj
@@ -182,7 +182,8 @@
                             {}
                             (:entries args))
         all-vendors (into all-vendors new-hidden-vendors)
-        all-accounts  (transduce (map :account/code) conj #{} (a/get-accounts))
+        all-accounts  (transduce (map (comp str :account/numeric-code)) conj #{} (a/get-accounts))
+        _ (println all-accounts)
         transaction (doall (map
                             (assoc-error (fn [entry]
                                            (let [entry (-> entry