updating general ledger automatically.

src/clj/auto_ap/datomic/ledger.clj

@@ -0,0 +1,12 @@
+(ns auto-ap.datomic.ledger
+  (:require [datomic.api :as d]
+            [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]
+                                 }])
+              :where [?e :general-ledger/original-entity]]
+            (d/db (d/connect uri)))
+       (map first)))
+