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

Only shows most recent payments for potential payments for transactions, fixes invoice multiple prints.

Browse Source
This commit is contained in:
Bryce Covert
2023-03-10 14:15:18 -08:00
parent 0ff147a7a0
commit b669984673
2 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -448,11 +448,12 @@
(defn get-potential-payments [context args _]
(let [transaction (d-transactions/get-by-id (:transaction_id args))
_ (assert-can-see-client (:id context) (:transaction/client transaction))
[payments _] (d-checks/get-graphql {:client-id (:db/id (:transaction/client transaction))
:bank-account-id (:db/id (:transaction/bank-account transaction))
:amount (- (:transaction/amount transaction))
:status :payment-status/pending})]
(map ->graphql payments)))
[payments _] (d-checks/get-graphql {:client-id (:db/id (:transaction/client transaction))
:bank-account-id (:db/id (:transaction/bank-account transaction))
:amount (- (:transaction/amount transaction))
:status :payment-status/pending
:date-range {:start (time/plus (:transaction/date transaction) (time/days 1))}})]
(map ->graphql (reverse (sort-by :payment/date payments)))))
(defn add-handwritten-check [context args _]
(let [invoices (d-invoices/get-multi (map :invoice_id (:invoice_payments args)))

6
src/cljs/auto_ap/views/pages/invoices/form.cljs
View File

@@ -234,7 +234,7 @@
:bank-account-id bank-account-id
:type type}
[:pdf-url [:invoices invoice-read]]]}]}
:on-success [::added-and-printed]
:on-success [::added-and-printed client]
:on-error [::forms/save-error ::form]}})
))
@@ -284,9 +284,9 @@
(re-frame/reg-event-fx
::added-and-printed
(fn [_ [_ result]]
(fn [_ [_ client result]]
(let [invoice (first (:invoices (:add-and-print-invoice result)))]
{:dispatch-n [[::updated (assoc invoice :class "live-added") :create]
{:dispatch-n [[::updated (assoc invoice :class "live-added") :create client]
[::checks-printed [invoice] (:pdf-url (:add-and-print-invoice result))]]})))
(re-frame/reg-event-db