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

fixes glimpse

Browse Source
This commit is contained in:
Bryce
2023-09-14 12:59:32 -07:00
parent 86e9addf01
commit 2454695124
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/clj/auto_ap/jobs/insight_outcome_recommendation.clj
View File

@@ -53,7 +53,8 @@
:content-type :json :content-type :json
:as :json}) :as :json})
:body :body
:matches)) :matches
(doto (#(alog/info ::similarities-found :transaction transaction-id :count (count %) :sample (take 3 %))))))
(do (alog/info ::no-matches-for :transaction transaction-id) (do (alog/info ::no-matches-for :transaction transaction-id)
[]))) [])))

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

@@ -336,8 +336,7 @@ invoice_dropzone = new Dropzone(\"#invoice\", {
:client/locations :client/locations
first)) first))
due (and (:vendor/terms vendor) due (and (:vendor/terms vendor)
(coerce/to-date (time/plus (coerce/to-date-time date) (time/days (d-vendors/terms-for-client-id vendor client-id))))
(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) scheduled-payment (and (d-vendors/automatically-paid-for-client-id? vendor client-id)
due)] due)]
(when (and client-id date invoice-number vendor-id total) (when (and client-id date invoice-number vendor-id total)
@@ -349,11 +348,11 @@ invoice_dropzone = new Dropzone(\"#invoice\", {
:invoice/total total :invoice/total total
:invoice/date date :invoice/date date
:invoice/scheduled-payment (some-> scheduled-payment coerce/to-date)
:invoice/location location :invoice/location location
:invoice/import-status :import-status/imported :invoice/import-status :import-status/imported
:invoice/outstanding-balance total :invoice/outstanding-balance total
:invoice/status :invoice-status/unpaid} :invoice/status :invoice-status/unpaid}
scheduled-payment (assoc :invoice/scheduled-payment (some-> scheduled-payment coerce/to-date))
(instance? org.joda.time.DateTime due) (assoc :invoice/due (some-> due coerce/to-date)) (instance? org.joda.time.DateTime due) (assoc :invoice/due (some-> due coerce/to-date))
(instance? org.joda.time.DateTime scheduled-payment) (assoc :invoice/scheduled-payment (some-> scheduled-payment coerce/to-date))))))) (instance? org.joda.time.DateTime scheduled-payment) (assoc :invoice/scheduled-payment (some-> scheduled-payment coerce/to-date)))))))