From 4a93a9ce4d8aea53c261d0c6d99dbab1968f44a3 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Mon, 30 Aug 2021 20:08:33 -0700 Subject: [PATCH] fix. --- src/clj/auto_ap/datomic/ledger.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/clj/auto_ap/datomic/ledger.clj b/src/clj/auto_ap/datomic/ledger.clj index 58f71902..1a1b1633 100644 --- a/src/clj/auto_ap/datomic/ledger.clj +++ b/src/clj/auto_ap/datomic/ledger.clj @@ -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)