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

another fix.

Browse Source
This commit is contained in:
Bryce Covert
2019-09-30 21:47:36 -07:00
parent 6c6f49dc25
commit c7c63f6a02
1 changed files with 15 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
src/clj/auto_ap/graphql/transactions.clj
View File

@@ -138,23 +138,22 @@
(when (:transaction/payment transaction) (when (:transaction/payment transaction)
(throw (ex-info "Transaction already associated with a payment" {:validation-error "Transaction already associated with a payment"}))) (throw (ex-info "Transaction already associated with a payment" {:validation-error "Transaction already associated with a payment"}))))
@(d/transact (d/connect uri)
(transduce
(map #(into
[(remove-nils (rm/apply-rule {:db/id (:db/id %)
:transaction/amount (:transaction/amount %)}
transaction-rule
@(d/transact (d/connect uri) (or (-> % :transaction/bank-account :bank-account/locations)
(transduce (-> % :transaction/client :client/locations))))]
(map #(into (map (fn [x] [:db/retractEntity (:db/id x)] )
[(remove-nils (rm/apply-rule {:db/id (:db/id %) (:transaction/accounts %))))
:transaction/amount (:transaction/amount %)} into
transaction-rule []
transactions))
(or (-> % :transaction/bank-account :bank-account/locations) )
(-> % :transaction/client :client/locations))))]
(map (fn [x] [:db/retractEntity (:db/id x)] )
(:transaction/accounts %))))
into
[]
transactions))))
(transduce (transduce
(comp (comp
(map d-transactions/get-by-id) (map d-transactions/get-by-id)