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

Prevents saving unless it's recommended.

Browse Source
This commit is contained in:
Bryce Covert
2020-10-23 19:12:49 -07:00
parent 7603263ba4
commit 5b459cd6f9
2 changed files with 103 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
scratch-sessions/fix_incorrect_locations.clj Normal file
View File

@@ -0,0 +1,71 @@
(ns fix-incorrect-locations)
(count
(d/query {:query {:find ['?e]
:in ['$]
:where ['[?e :journal-entry/line-items ?jel]
'[?jel :journal-entry-line/account ?a]
'[?a :account/location "A"]
'(not [?jel :journal-entry-line/location "A"])
]}
:args [(d/db auto-ap.datomic/conn)]}))
#_(->> (d/query {:query {:find ['?ea]
:in ['$]
:where ['[?e :journal-entry/line-items ?jel]
'[?jel :journal-entry-line/account ?a]
'[?a :account/location "A"]
'(not [?jel :journal-entry-line/location "A"])
'[?e :journal-entry/original-entity ?i]
'[?i :invoice/invoice-number]
'[?i :invoice/expense-accounts ?ea]
'[?ea :invoice-expense-account/account ?a]
'(not [?ea :invoice-expense-account/location "A"])
]}
:args [(d/db auto-ap.datomic/conn)]})
(map (fn [[ea]]
{:db/id ea
:invoice-expense-account/location "A"}))
(d/transact auto-ap.datomic/conn)
deref)
#_(count
(->>
(d/query {:query {:find ['?ta]
:in ['$]
:where ['[?e :journal-entry/line-items ?jel]
'[?jel :journal-entry-line/account ?a]
'[?a :account/location "A"]
'(not [?jel :journal-entry-line/location "A"])
'[?e :journal-entry/original-entity ?t]
'[?t :transaction/accounts ?ta]
'[?ta :transaction-account/account ?a]
'(not [?ta :transaction-account/location "A"])
]}
:args [(d/db auto-ap.datomic/conn)]})
(map (fn [[ea]]
{:db/id ea
:transaction-account/location "A"}))
(d/transact auto-ap.datomic/conn)
deref))
#_(count
(->>
(d/query {:query {:find ['?jel]
:in ['$]
:where ['[?e :journal-entry/line-items ?jel]
'[?jel :journal-entry-line/account ?a]
'[?a :account/location "A"]
'(not [?jel :journal-entry-line/location "A"])
'[?e :journal-entry/external-id]
]}
:args [(d/db auto-ap.datomic/conn)]})
(map (fn [[ea]]
{:db/id ea
:journal-entry-line/location "A"}))
(d/transact auto-ap.datomic/conn)
deref))