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

logging

Browse Source
This commit is contained in:
Bryce
2024-09-23 09:50:31 -07:00
parent babb0302d2
commit 4fdc2e2558
1 changed files with 22 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/clj/auto_ap/graphql/clients.clj
View File

@@ -1,5 +1,6 @@
(ns auto-ap.graphql.clients
(:require [auto-ap.datomic :refer [conn]]
[auto-ap.logging :as alog]
[auto-ap.datomic.clients :as d-clients]
[auto-ap.graphql.utils
:refer [->graphql <-graphql assert-admin attach-tracing-resolvers
@@ -18,10 +19,7 @@
db)]
(doseq [[{client :db/id code :client/code bank-accounts :client/bank-accounts}] clients
{bank-account :db/id bac :bank-account/code} bank-accounts]
@(dc/transact conn [{:db/id bank-account
:bank-account/current-balance-synced (c/to-date (time/now))
:bank-account/current-balance
(or
(let [balance (or
(->> (dc/index-pull db
{:index :avet
:selector [:db/id :journal-entry-line/location :journal-entry-line/account :journal-entry-line/running-balance :journal-entry-line/client+account+location+date {:journal-entry/_line-items [:journal-entry/date :journal-entry/client]}]
@@ -35,7 +33,13 @@
(map :journal-entry-line/running-balance)
(first))
0.0)}])))))
0.0)]
(alog/info ::updating
:bank-account bac
:balance balance)
@(dc/transact conn [{:db/id bank-account
:bank-account/current-balance-synced (c/to-date (time/now))
:bank-account/current-balance balance}]))))))
(defn get-client [context _ _]
(->graphql