notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 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)) (:to-numeric-code args))
(merge-query {:query {:in [] (merge-query {:query {:in []
:where ['[?li :journal-entry-line/account ?a] :where ['[?li :journal-entry-line/account ?a]
'(or-join [?c] '(or-join [?a ?c]
[?a :account/numeric-code ?c] [?a :account/numeric-code ?c]
(and [?a :bank-account/type :bank-account-type/check] (and [?a :bank-account/type :bank-account-type/check]
[?c 11100]) [(ground 11100) ?c])
(and [?a :bank-account/type :bank-account-type/cash] (and [?a :bank-account/type :bank-account-type/cash]
[?c 11100]) [(ground 11100) ?c])
(and [?a :bank-account/type :bank-account-type/credit] (and [?a :bank-account/type :bank-account-type/credit]
[?c 28000]))]} [(ground 28000) ?c]))]}
:args []}) :args []})
(:from-numeric-code args) (:from-numeric-code args)