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

Adds links for manual payments

Browse Source
This commit is contained in:
Bryce
2024-05-02 19:47:36 -07:00
parent 002c3d8688
commit 2a94bcc509
5 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/clj/auto_ap/ssr/invoice/common.clj
View File

@@ -5,8 +5,6 @@
:invoice/total
:invoice/outstanding-balance
:invoice/source-url
[:invoice/date :xform clj-time.coerce/from-date]
[:invoice/due :xform clj-time.coerce/from-date]
[:invoice/scheduled-payment :xform clj-time.coerce/from-date]
@@ -17,9 +15,10 @@
{:account-client-override/client [:db/id]}]}]}]
[:transaction/_invoices :as :invoice/transaction] [:db/id]
[:journal-entry/_original-entity :as :invoice/journal-entry] [:db/id]
[:payment/_invoices :as :invoice/payments] [:db/id :payment/date :payment/amount
[:invoice-payment/_invoice :as :invoice/payments] [{:invoice-payment/payment [:db/id :payment/date :payment/amount
{[:transaction/_payment :as :payment/transaction] [:db/id]
[:payment/status :xform iol-ion.query/ident] [:db/ident]}]
{[:transaction/_payment :as :payment/transaction] [:db/id]
[:payment/status :xform iol-ion.query/ident] [:db/ident]}]}]
#_[:payment/_invoices :as :invoice/payments]
[:invoice/status :xform iol-ion.query/ident] [:db/ident]
:invoice/vendor [:vendor/name :db/id]}])

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

@@ -538,6 +538,7 @@
(link-dropdown
(concat (->> i
:invoice/payments
(map :invoice-payment/payment)
(filter (fn [p]
(not= :payment-status/voided
(:payment/status p))))

5
src/clj/auto_ap/ssr/payments.clj
View File

@@ -364,7 +364,10 @@
:name "Links"
:class "w-8"
:render (fn [p]
(link-dropdown (concat (->> p :payment/invoices (map (fn [invoice]
(link-dropdown (concat (->> p :invoice-payment/_payment
(map :invoice-payment/invoice)
(map (fn [invoice]
{:link (hu/url (bidi/path-for ssr-routes/only-routes
::invoice-route/all-page)
{:exact-match-id (:db/id invoice)})

7
src/clj/user.clj
View File

@@ -329,9 +329,10 @@
(defn tx-detail [i]
(map (juxt :e #(pull-attr (dc/db conn) :db/ident (:a %)) :v)
(:data (first
(dc/tx-range conn
{:start i
:end (inc i)})))))
(dc/tx-range (dc/log conn)
i
(inc i))))))
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn tx-range-detail [i]
(map (juxt :e #(pull-attr (dc/db conn) :db/ident (:a %)) :v)

2
src/clj/user.fiddle
View File

@@ -389,3 +389,5 @@
taptelis-clients)
:separator \tab)
(dc/pull (dc/db conn)
17592316415740)