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

maybe made ledger export wicked fast by comparison.

Browse Source
This commit is contained in:
Bryce Covert
2022-01-07 07:34:44 -08:00
parent 634e4f4820
commit 75a08e1dc1
3 changed files with 56 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -9,6 +9,34 @@
[clj-time.coerce :as c]
[clj-time.core :as time]))
(def export-read
[:journal-entry/external-id
:journal-entry/cleared
:journal-entry/alternate-description
:journal-entry/date
:journal-entry/note
:journal-entry/amount
:journal-entry/source
:journal-entry/cleared-against
:journal-entry/original-entity
{:journal-entry/client [:client/name :client/code :db/id]
:journal-entry/vendor [:vendor/name :db/id]
:journal-entry/line-items [:journal-entry-line/location
:journal-entry-line/debit
:journal-entry-line/credit
{:journal-entry-line/account [:bank-account/include-in-reports
:bank-account/bank-name
:bank-account/code
:bank-account/visible
:bank-account/name
:bank-account/number
:account/code
:account/name
:account/numeric-code
:account/location
{:account/type [:db/ident :db/id]}
{:bank-account/type [:db/ident :db/id]}]}]}])
(defn raw-graphql-ids [db args]
(log/info "ARGS" args)

27
src/clj/auto_ap/routes/exports.clj
View File

@@ -185,6 +185,33 @@
(list)
(first (d-ledger/get-graphql {:count Integer/MAX_VALUE
:client-code (query-params "client-code")})))))
(GET "/ledger2/export" {:keys [query-params identity]}
(log/info "exporting for " (query-params "client-code"))
(assert-admin identity)
(statsd/time! [(str "export.time") {:tags #{(client-tag query-params)
"export:ledger2"}}]
(let [results (->> (d/q `[:find (pull ?e ~d-ledger/export-read)
:in $ ?c
:where [?e :journal-entry/client ?c]]
(d/db conn)
[:client/code (query-params "client-code")])
)
tf-result (transduce (comp
(map first)
(filter (fn [je]
(every?
(fn [jel]
(let [include-in-reports (-> jel :journal-entry-line/account :bank-account/include-in-reports)]
(or (nil? include-in-reports)
(true? include-in-reports))))
(:journal-entry/line-items je))))
(map <-graphql))
conj
(list)
results)]
tf-result)))
(GET "/accounts/export" {:keys [query-params identity]}
(assert-admin identity)

1
src/clj/auto_ap/server.clj
View File

@@ -108,6 +108,7 @@
(add-shutdown-hook! shutdown-mount)
(start-server :port 9000 :bind "0.0.0.0" #_#_:handler (cider-nrepl-handler))
(set! nrepl.middleware.print/*print-fn* clojure.pprint/pprint)
(apply mount/start-without without)))
(comment