updating general ledger automatically.

This commit is contained in:
BC
2019-03-14 23:23:58 -07:00
parent 0551879b51
commit e35bc97a7d
7 changed files with 160 additions and 41 deletions

View File

@@ -2,6 +2,7 @@
(:require
[auto-ap.datomic.clients :as d-clients]
[auto-ap.datomic.vendors :as d-vendors]
[auto-ap.datomic.ledger :as d-ledger]
[auto-ap.datomic.transactions :as d-transactions]
[auto-ap.utils :refer [by]]
[auto-ap.parse :as parse]
@@ -53,6 +54,10 @@
(GET "/vendors/export" {:keys [query-params identity]}
(assert-admin identity)
(map <-graphql (d-vendors/get-graphql {})))
(GET "/ledger/export" {:keys [query-params identity]}
(assert-admin identity)
(map <-graphql (d-ledger/get-graphql {})))
(GET "/transactions/export" {:keys [query-params identity]}
(assert-admin identity)
(let [[transactions] (d-transactions/get-graphql {:client-code (query-params "client-code")