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

Supports assigning vendors to transactions

Browse Source
This commit is contained in:
Bryce Covert
2019-04-11 07:07:31 -07:00
parent 41838d8d78
commit 67eb3cf019
4 changed files with 94 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/clj/auto_ap/datomic/transactions.clj
View File

@@ -113,10 +113,12 @@
(defn graphql-results [ids db args]
(->> (d/pull-many db '[* {:transaction/client [:client/name :db/id :client/code]
:transaction/bank-account [:bank-account/name :bank-account/code :bank-account/yodlee-account-id :db/id]}]
:transaction/bank-account [:bank-account/name :bank-account/code :bank-account/yodlee-account-id :db/id]
:transaction/vendor [:db/id :vendor/name]}]
ids)
(map #(update % :transaction/date c/from-date))
(map #(update % :transaction/post-date c/from-date))
(map #(dissoc % :transaction/id))
(apply-sort args (some-> (:sort-by args) sort-fn))))
(defn get-graphql [args]
@@ -125,3 +127,14 @@
[(->> (graphql-results ids-to-retrieve db args))
matching-count]))
(defn get-by-id [id]
(->
(d/pull (d/db (d/connect uri))
'[* {:transaction/client [:client/name :db/id :client/code]
:transaction/bank-account [:bank-account/name :bank-account/code :bank-account/yodlee-account-id :db/id]
:transaction/vendor [:db/id :vendor/name]}]
id)
(update :transaction/date c/from-date)
(update :transaction/post-date c/from-date)
(dissoc :transaction/id)))