From 23a9a8039e22b9d7a5bc9e9f57491738123d9b3d Mon Sep 17 00:00:00 2001
From: Bryce Covert <bryce@brycecovertoperations.com>
Date: Tue, 2 May 2023 10:52:39 -0700
Subject: [PATCH] fixes a bug with manual import

---
 src/clj/auto_ap/import/transactions.clj | 14 +++++++-------
 src/clj/user.clj                        | 18 ++++++++++++++++++
 2 files changed, 25 insertions(+), 7 deletions(-)

diff --git a/src/clj/auto_ap/import/transactions.clj b/src/clj/auto_ap/import/transactions.clj
index 553e6de9..d6b07563 100644
--- a/src/clj/auto_ap/import/transactions.clj
+++ b/src/clj/auto_ap/import/transactions.clj
@@ -266,13 +266,13 @@
 (defn get-existing [bank-account]
   (log/info "looking up bank account data for" bank-account)
   (into {}
-        (dc/q {:query {:find ['?tid '?as2]
-                       :in ['$ '?ba]
-                       :where ['[?e :transaction/bank-account ?ba]
-                               '[?e :transaction/id ?tid]
-                               '[?e :transaction/approval-status ?as]
-                               '[?as :db/ident ?as2]]}
-               :args  [(dc/db conn) bank-account]})))
+        (dc/q '[:find  ?tid ?as2
+                :in    $ ?ba
+                :where [?e :transaction/bank-account ?ba]
+                [?e :transaction/id ?tid]
+                [?e :transaction/approval-status ?as]
+                [?as :db/ident ?as2]]
+              (dc/db conn) bank-account)))
 
 (defprotocol ImportBatch
   (import-transaction! [this transaction])
diff --git a/src/clj/user.clj b/src/clj/user.clj
index 28c073aa..5439a24d 100644
--- a/src/clj/user.clj
+++ b/src/clj/user.clj
@@ -533,3 +533,21 @@
                    [(str id) client-code "synthetic" v d a-2 (or a-2-location client-location) amount 0]]]
          a)
        :separator \tab))))
+
+
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
+(defn sample-manual-yodlee
+  ([client-code]
+   (sample-ledger-import client-code 10))
+  ([client-code n] 
+   (let [bank-accounts (map first (d/q '[:find ?bac :in $ ?c :where [?c :client/bank-accounts ?b] [?b :bank-account/code ?bac]] (dc/db conn) [:client/code client-code]))]
+     (clojure.data.csv/write-csv
+       *out*
+       (for [n    (range n)
+             :let [amount (rand-int 2000)
+                   d (-> (t/now)
+                         (t/minus (t/days (rand-int 60)))
+                         (atime/unparse atime/normal-date))
+                   id (rand-int 100000)]]
+         ["posted" d (str "Random Description - " id) "Travel" nil nil (- amount) nil nil nil nil nil (rand-nth bank-accounts) client-code])
+       :separator \tab))))