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

fix.

Browse Source
This commit is contained in:
Bryce Covert
2021-08-30 20:08:33 -07:00
parent 439e552ea1
commit 4a93a9ce4d
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -69,14 +69,14 @@
(:to-numeric-code args))
(merge-query {:query {:in []
:where ['[?li :journal-entry-line/account ?a]
'(or-join [?c]
'(or-join [?a ?c]
[?a :account/numeric-code ?c]
(and [?a :bank-account/type :bank-account-type/check]
[?c 11100])
[(ground 11100) ?c])
(and [?a :bank-account/type :bank-account-type/cash]
[?c 11100])
[(ground 11100) ?c])
(and [?a :bank-account/type :bank-account-type/credit]
[?c 28000]))]}
[(ground 28000) ?c]))]}
:args []})
(:from-numeric-code args)