notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

Dry running intuit

Browse Source
This commit is contained in:
Bryce Covert
2021-12-14 11:18:24 -08:00
parent 1178e723d1
commit b7324af538
3 changed files with 80 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/clj/auto_ap/yodlee/import.clj
View File

@@ -334,11 +334,30 @@
transaction->bank-account (comp all-bank-accounts :bank-account-id)]
(log/info "Importing " (count transformed-transactions) " grouped transactions")
(doseq [tx (transactions->txs transformed-transactions transaction->bank-account (rm/rule-applying-fn all-rules) (get-existing))]
#_(doseq [tx (transactions->txs transformed-transactions transaction->bank-account (rm/rule-applying-fn all-rules) (get-existing))]
(audit-transact tx {:user/name "Yodlee import"
:user/role ":admin"}))
(transactions->txs transformed-transactions transaction->bank-account (rm/rule-applying-fn all-rules) (get-existing))
(log/info "Imported grouped transactions"))))
(defn grouped-new [manual-transactions]
(let [transformed-transactions (->> manual-transactions
(filter #(= "posted" (:status %)))
(group-by #(select-keys % [:date :description-original :amount]))
(vals)
(mapcat (fn [transaction-group]
(map
(fn [index {:keys [date description-original high-level-category amount bank-account-id client-id] :as transaction}]
(assoc transaction :id
(str date "-" bank-account-id "-" description-original "-" amount "-" index "-" client-id)))
(range)
transaction-group))))
existing (get-existing)]
(map #(if (existing (sha-256 (str (:id %))))
(assoc % :new? false)
(assoc % :new? true))
transformed-transactions)))
(defn do-import
([]
(do-import (client/get-transactions)))