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

should make glimpse work correctly (again)

Browse Source
This commit is contained in:
Bryce
2023-09-02 09:00:22 -07:00
parent be75758ca7
commit a891046084
1 changed files with 15 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -341,19 +341,21 @@ invoice_dropzone = new Dropzone(\"#invoice\", {
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)
{:db/id (random-tempid) (cond-> {:db/id (random-tempid)
:invoice/client client-id :invoice/client client-id
:invoice/client-identifier (first (:textract-invoice/customer-identifier textract-invoice)) :invoice/client-identifier (first (:textract-invoice/customer-identifier textract-invoice))
:invoice/vendor vendor-id :invoice/vendor vendor-id
:invoice/invoice-number invoice-number :invoice/invoice-number invoice-number
:invoice/total total :invoice/total total
:invoice/date date :invoice/date date
:invoice/due (coerce/to-date due)
:invoice/scheduled-payment (some-> scheduled-payment coerce/to-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}
(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)))))))
(defn update-textract-invoice- [id {:strs [date total invoice-number client vendor]}] (defn update-textract-invoice- [id {:strs [date total invoice-number client vendor]}]
@(dc/transact-async conn [[:upsert-entity (cond-> {:db/id id} @(dc/transact-async conn [[:upsert-entity (cond-> {:db/id id}