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

(cloud) Made invoice proposition a usable ion

Browse Source
This commit is contained in:
Bryce Covert
2023-03-21 19:18:51 -07:00
parent 444d8d25ef
commit 142d9474ae
6 changed files with 41 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/clj/auto_ap/routes/invoices.clj
View File

@@ -2,6 +2,7 @@
(:require
[amazonica.aws.s3 :as s3]
[auto-ap.datomic :refer [conn remove-nils uri]]
[iol-ion.tx :refer [propose-invoice]]
[auto-ap.datomic.accounts :as a]
[auto-ap.datomic.clients :as d-clients]
[auto-ap.datomic.invoices :as d-invoices]
@@ -253,7 +254,7 @@
:transaction-account/location "A"
:transaction-account/amount (Math/abs (:invoice/total invoice))}]}))
]
[`(d-invoices/propose-invoice ~(d-invoices/code-invoice (validate-invoice (remove-nils invoice)
[`(propose-invoice ~(d-invoices/code-invoice (validate-invoice (remove-nils invoice)
user)))
(some-> payment remove-nils)
transaction])))
@@ -274,7 +275,7 @@
(map #(validate-invoice % user))
admin-only-if-multiple-clients
(mapv d-invoices/code-invoice)
(mapv (fn [i] `(d-invoices/propose-invoice ~i))))]
(mapv (fn [i] `(propose-invoice ~i))))]
(log/info "creating invoice" potential-invoices)
(let [tx (transact-with-ledger potential-invoices user)]