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

adds extra logging, allows printing of checks even if solr has issues.

Browse Source
This commit is contained in:
Bryce
2024-09-15 21:42:33 -07:00
parent 3b410cf200
commit 065e56d621
3 changed files with 14 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/clj/auto_ap/graphql/checks.clj
View File

@@ -412,9 +412,13 @@
(let [result (audit-transact (map #(if (map? %) (let [result (audit-transact (map #(if (map? %)
(dissoc % :payment/pdf-data) (dissoc % :payment/pdf-data)
%) checks) id)] %) checks) id)]
(doseq [[_ i] (:tempids result)] (try
(solr/touch-with-ledger i))) (doseq [[_ i] (:tempids result)]
(solr/touch-with-ledger i))
(catch Exception e
(alog/error ::cant-save-solr
:error e))))
{:invoices (d-invoices/get-multi (map :invoice-id invoice-payments)) {:invoices (d-invoices/get-multi (map :invoice-id invoice-payments))
:pdf-url (if (= type :payment-type/check) :pdf-url (if (= type :payment-type/check)
(mu/trace ::merge-pdfs (mu/trace ::merge-pdfs

2
src/clj/auto_ap/jobs/import_uploaded_invoices.clj
View File

@@ -69,7 +69,7 @@
s3-location) s3-location)
:import-status :import-status/imported)))] :import-status :import-status/imported)))]
(alog/info ::found-imports :imports imports) (alog/info ::found-imports :imports imports)
(invoices/import-uploaded-invoice {:user/role "admin"} imports)))) (invoices/import-uploaded-invoice {:user/role "admin" :user/name "Email Invoice Importer"} imports))))
(catch Exception e (catch Exception e
(alog/warn ::cant-import :error e) (alog/warn ::cant-import :error e)
(send-email-about-failed-message (-> r :s3 :bucket :name) (-> r :s3 :object :key) (str e))) (send-email-about-failed-message (-> r :s3 :bucket :name) (-> r :s3 :object :key) (str e)))

8
src/clj/auto_ap/ssr/invoices.clj
View File

@@ -1086,8 +1086,12 @@
:payment/date (coerce/to-date (:handwritten-date snapshot)))] :payment/date (coerce/to-date (:handwritten-date snapshot)))]
(invoice-payments invoices invoice-payment-lookup)) (invoice-payments invoices invoice-payment-lookup))
(:identity request))] (:identity request))]
(doseq [[_ i] (:tempids result)] (try
(solr/touch-with-ledger i))))) (doseq [[_ i] (:tempids result)]
(solr/touch-with-ledger i))
(catch Exception e
(alog/error ::cant-save-solr
:error e))))))
;; TODO support crediting from balance ;; TODO support crediting from balance
(defrecord PayWizard [form-params current-step invoice-by-id] (defrecord PayWizard [form-params current-step invoice-by-id]