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

balance sheet fixes

Browse Source
This commit is contained in:
Bryce
2023-09-06 07:35:47 -07:00
parent 4fe048f9c7
commit c417c4ac14
3 changed files with 26 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
scratch-sessions/fix-page-performance.repl
View File

@@ -133,6 +133,7 @@
(do
(println "INVOICES")
(auto-ap.datomic/audit-transact-batch (->> (dc/q '[:find ?e ?c
:in $
:where [?e :invoice/client ?c]]
@@ -143,6 +144,7 @@
:invoice/client c})))
{:user/name "hydrate-tuples"})
(println "TRANSACTIONS")
(auto-ap.datomic/audit-transact-batch (->> (dc/q '[:find ?e ?c
:in $
:where [?e :transaction/client ?c]]
@@ -154,6 +156,7 @@
{:user/name "hydrate-tuples"})
(println "JOURNALS")
(auto-ap.datomic/audit-transact-batch (->> (dc/q '[:find ?e ?c
:in $
:where [?e :journal-entry/client ?c]]
@@ -165,4 +168,16 @@
{:user/name "hydrate-tuples"})
(println "PAYMENTS")
(auto-ap.datomic/audit-transact-batch (->> (dc/q '[:find ?e ?c
:in $
:where [?e :payment/client ?c]]
(dc/db conn)
)
(map (fn [[i c]]
{:db/id i
:payment/client c})))
{:user/name "hydrate-tuples"})
)