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

git pushMerge branch 'master' of codecommit://integreat

Browse Source
This commit is contained in:
Bryce
2024-09-23 09:50:47 -07:00
parent 4fdc2e2558 cea328ef72
commit bf8d0e51f4
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? %)
(dissoc % :payment/pdf-data)
%) checks) id)]
(doseq [[_ i] (:tempids result)]
(solr/touch-with-ledger i)))
(try
(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))
:pdf-url (if (= type :payment-type/check)
(mu/trace ::merge-pdfs

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

@@ -69,7 +69,7 @@
s3-location)
:import-status :import-status/imported)))]
(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
(alog/warn ::cant-import :error 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)))]
(invoice-payments invoices invoice-payment-lookup))
(:identity request))]
(doseq [[_ i] (:tempids result)]
(solr/touch-with-ledger i)))))
(try
(doseq [[_ i] (:tempids result)]
(solr/touch-with-ledger i))
(catch Exception e
(alog/error ::cant-save-solr
:error e))))))
;; TODO support crediting from balance
(defrecord PayWizard [form-params current-step invoice-by-id]