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

Using ions for dollar matching

Browse Source
This commit is contained in:
Bryce Covert
2023-03-27 10:58:18 -07:00
parent e3fbc50e6a
commit 952aa38951
5 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
iol_ion/src/iol_ion/query.clj Normal file
View File

@@ -0,0 +1,9 @@
(ns iol-ion.query)
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn dollars-0? [amt]
(< -0.001 amt 0.001))
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn dollars= [amt1 amt2]
(dollars-0? (- amt1 amt2) ))

5
resources/datomic/ion-config.edn
View File

@@ -3,5 +3,8 @@
iol-ion.tx/reset-rels
iol-ion.tx/upsert-ledger
iol-ion.tx/min-by
iol-ion.tx/propose-invoice]
iol-ion.tx/propose-invoice
iol-ion.query/dollars=
iol-ion.query/dollars-0?]
:app-name "iol-cloud"}

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

@@ -117,7 +117,7 @@
(:amount args)
(merge-query {:query {:in ['?amount]
:where ['[?e :payment/amount ?transaction-amount]
'[(auto-ap.utils/dollars= ?transaction-amount ?amount)]]}
'[(iol-ion.query/dollars= ?transaction-amount ?amount)]]}
:args [(:amount args)]})

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

@@ -67,7 +67,7 @@
(:total args)
(merge-query {:query {:in ['?total]
:where ['[?e :expected-deposit/total ?expected-deposit-total]
'[(auto-ap.utils/dollars= ?expected-deposit-total ?total)]]}
'[(iol-ion.query/dollars= ?expected-deposit-total ?total)]]}
:args [(:total args)]})

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

@@ -189,7 +189,7 @@
(:total args)
(merge-query {:query {:in ['?total]
:where ['[?e :sales-order/total ?sales-order-total]
'[(auto-ap.utils/dollars= ?sales-order-total ?total)]]}
'[(iol-ion.query/dollars= ?sales-order-total ?total)]]}
:args [(:total args)]})
true