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

fixes tests.

Browse Source
This commit is contained in:
Bryce
2023-08-31 23:43:19 -07:00
parent 7d251c8398
commit c98766873e
14 changed files with 49 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/clj/auto_ap/datomic/checks.clj
View File

@@ -45,8 +45,7 @@
:where '[[?e :payment/client ?c]]}
:args [db
(:exact-match-id args)
(map :db/id (:clients args))]
}
(map :db/id (:clients args))]}
(cond-> {:query {:find []
:in ['$]
:where []}
@@ -67,7 +66,7 @@
:where []}
:args [(:exact-match-id args)]})
(seq (:clients args))
true
(merge-query {:query {:in ['[?xx ...]]
:where ['[?e :payment/client ?xx]]}
:args [(map :db/id (:clients args))]})

2
src/clj/auto_ap/datomic/expected_deposit.clj
View File

@@ -38,7 +38,7 @@
"fee" ['[?e :expected-deposit/fee ?sort-fee]]}
args)
(seq (:clients args))
true
(merge-query {:query {:in ['[?xx ...]]
:where ['[?e :expected-deposit/client ?xx]]}
:args [(set (map :db/id (:clients args)))]})

2
src/clj/auto_ap/datomic/invoices.clj
View File

@@ -99,7 +99,7 @@
:where ['[?e :invoice/due ?due]
'[(<= ?due ?end-due)]]}
:args [(coerce/to-date (:end (:due-range args)))]})
(seq (:clients args))
true
(merge-query {:query {:in ['[?xx ...]]
:where ['[?e :invoice/client ?xx]]}
:args [ (map :db/id (:clients args))]})

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

@@ -27,7 +27,7 @@
:where []}
:args [db]}
(seq (:clients args))
true
(merge-query {:query {:in ['[?xx ...]]
:where ['[?e :journal-entry/client ?xx]]}
:args [(set (map :db/id (:clients args)))]})

2
src/clj/auto_ap/datomic/transactions.clj
View File

@@ -59,7 +59,7 @@
(merge-query {:query {:in '[[?e ...]]}
:args [potential-duplicates]})
(seq (:clients args))
true
(merge-query {:query {:in ['[?xx ...]]
:where ['[?e :transaction/client ?xx]]}
:args [(set (map :db/id (:clients args)))]})