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

build a ledger from transactions

Browse Source
This commit is contained in:
Bryce Covert
2019-04-11 15:48:14 -07:00
parent e217bad88e
commit 74313613bf
2 changed files with 39 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/clj/auto_ap/datomic/ledger.clj
View File

@@ -3,10 +3,13 @@
[auto-ap.datomic :refer [uri]]))
(defn get-graphql [args]
(->> (d/q '[:find (pull ?e [* {:general-ledger/client [:client/name :client/code :db/id]
:general-ledger/vendor [:vendor/name :db/id]
(->> (d/q '[:find (pull ?e [* {:journal-entry/client [:client/name :client/code :db/id]
:journal-entry/vendor [:vendor/name :db/id]
:journal-entry/line-items [* {:journal-entry-line/account [*
{:account/type [*]}]}]
}])
:where [?e :general-ledger/original-entity]]
:where [?e :journal-entry/original-entity]]
(d/db (d/connect uri)))
(map first)))