fixes a bug with manual import

This commit is contained in:
2023-05-02 10:52:39 -07:00
parent f3be9bc5d2
commit 23a9a8039e
2 changed files with 25 additions and 7 deletions

View File

@@ -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])