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

Makes insights actually work

Browse Source
This commit is contained in:
Bryce
2023-08-19 21:13:49 -07:00
parent 8a31112c5b
commit ecc31f3680
7 changed files with 128 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/clj/auto_ap/ssr/invoice/glimpse.clj
View File

@@ -23,7 +23,9 @@
[datomic.api :as dc]
[hiccup2.core :as hiccup]
[iol-ion.tx :refer [random-tempid]]
[auto-ap.client-routes :as client-routes])
[auto-ap.client-routes :as client-routes]
[auto-ap.datomic.vendors :as d-vendors]
[clj-time.core :as time])
(:import
(java.util UUID)))
@@ -328,10 +330,16 @@ invoice_dropzone = new Dropzone(\"#invoice\", {
[_ total] (:textract-invoice/total textract-invoice)
[_ date] (:textract-invoice/date textract-invoice)
[_ invoice-number] (:textract-invoice/invoice-number textract-invoice)
vendor (dc/pull (dc/db conn) d-vendors/default-read vendor-id)
location (when client-id
(->> (dc/pull (dc/db conn) '[:client/locations] client-id)
:client/locations
first))]
first))
due (and (:vendor/terms vendor)
(coerce/to-date
(time/plus date (time/days (d-vendors/terms-for-client-id vendor client-id)))))
scheduled-payment (and (d-vendors/automatically-paid-for-client-id? vendor client-id)
due)]
(when (and client-id date invoice-number vendor-id total)
{:db/id (random-tempid)
:invoice/client client-id
@@ -340,6 +348,8 @@ invoice_dropzone = new Dropzone(\"#invoice\", {
:invoice/invoice-number invoice-number
:invoice/total total
:invoice/date date
:invoice/due (coerce/to-date due)
:invoice/scheduled-payment (coerce/to-date scheduled-payment)
:invoice/location location
:invoice/import-status :import-status/imported
:invoice/outstanding-balance total