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

adds links

Browse Source
This commit is contained in:
Bryce
2025-03-05 21:16:46 -08:00
parent d19a2988fd
commit 17993a0dee
1 changed files with 61 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
src/clj/auto_ap/ssr/transaction.clj
View File

@@ -8,6 +8,9 @@
[auto-ap.permissions :refer [wrap-must]] [auto-ap.permissions :refer [wrap-must]]
[auto-ap.query-params :refer [wrap-copy-qp-pqp]] [auto-ap.query-params :refer [wrap-copy-qp-pqp]]
[auto-ap.routes.transactions :as route] [auto-ap.routes.transactions :as route]
[auto-ap.routes.invoice :as invoice-routes]
[auto-ap.routes.payments :as payment-routes]
[auto-ap.routes.ledger :as ledger-routes]
[auto-ap.routes.utils :refer [wrap-client-redirect-unauthenticated]] [auto-ap.routes.utils :refer [wrap-client-redirect-unauthenticated]]
[auto-ap.ssr-routes :as ssr-routes] [auto-ap.ssr-routes :as ssr-routes]
[auto-ap.ssr.components :as com] [auto-ap.ssr.components :as com]
@@ -197,6 +200,7 @@
[ :transaction/post-date :xform clj-time.coerce/from-date] [ :transaction/post-date :xform clj-time.coerce/from-date]
:transaction/type :transaction/type
:transaction/status :transaction/status
:transaction/client-overrides
:db/id :db/id
{:transaction/vendor [:vendor/name :db/id] {:transaction/vendor [:vendor/name :db/id]
:transaction/client [:client/name :client/code :db/id] :transaction/client [:client/name :client/code :db/id]
@@ -204,7 +208,8 @@
:transaction/accounts [{:transaction-account/account [:account/name :db/id]} :transaction/accounts [{:transaction-account/account [:account/name :db/id]}
:transaction-account/location :transaction-account/location
:transaction-account/amount] :transaction-account/amount]
:transaction/matched-rule [:matched-rule/name]}]) :transaction/matched-rule [:matched-rule/name]
:transaction/payment [:db/id [:payment/date :xform clj-time.coerce/from-date]]}])
(defn hydrate-results [ids db _] (defn hydrate-results [ids db _]
(let [results (->> (pull-many db default-read ids) (let [results (->> (pull-many db default-read ids)
@@ -343,22 +348,60 @@
:show-starting "lg" :show-starting "lg"
:class "w-8" :class "w-8"
:render (fn [i] :render (fn [i]
(link-dropdown (let [db (dc/db conn)
(cond-> [] journal-entries (when (:db/id i)
(:transaction/payment i) (dc/q '[:find (pull ?je [:db/id :journal-entry/id])
(conj :in $ ?t-id
{:link (hu/url (bidi/path-for ssr-routes/only-routes :where
::route/payment-page) [?je :journal-entry/original-entity ?t-id]]
{:exact-match-id (:db/id (:transaction/payment i))}) db
:color :primary (:db/id i)))
:content (format "Payment '%s'" (-> i :transaction/payment :payment/invoice-number))}) linked-invoices (when (and (:db/id i) (:transaction/payment i))
(dc/q '[:find (pull ?inv [:db/id :invoice/invoice-number :invoice/total])
:in $ ?payment-id
:where
[?ip :invoice-payment/payment ?payment-id]
[?ip :invoice-payment/invoice ?inv]]
db
(:db/id (:transaction/payment i))))]
(link-dropdown
(cond-> []
;; Payment link
(:transaction/payment i)
(conj
{:link (hu/url (bidi/path-for ssr-routes/only-routes
::route/payment-page)
{:exact-match-id (:db/id (:transaction/payment i))})
:color :primary
:content (format "Payment '%s'" (-> i :transaction/payment :payment/date (atime/unparse-local atime/normal-date)))})
(and (:transaction/client-overrides i) (seq (:transaction/client-overrides i))) ;; Journal entry links
{:link (hu/url (bidi/path-for client-routes/routes (seq journal-entries)
:transactions) (concat
{:exact-match-id (:db/id i)}) (for [[je] journal-entries]
:color :primary {:link (hu/url (bidi/path-for ssr-routes/only-routes ::ledger-routes/all-page)
:content "Client Overrides"}))) {:exact-match-id (:db/id je)})
:color :yellow
:content "Ledger entry"}))
;; Invoice links
(seq linked-invoices)
(concat
(for [[inv] linked-invoices]
{:link (hu/url (bidi/path-for ssr-routes/only-routes
::invoice-routes/all-page)
{:exact-match-id (:db/id inv)})
:color :secondary
:content (format "Invoice '%s'" (:invoice/invoice-number inv))}))
;; Client overrides
(and (:transaction/client-overrides i) (seq (:transaction/client-overrides i)))
(conj
{:link (hu/url (bidi/path-for client-routes/routes
:transactions)
{:exact-match-id (:db/id i)})
:color :primary
:content "Client Overrides"})))))
:render-for #{:html}}]})) :render-for #{:html}}]}))
(def row* (partial helper/row* grid-page)) (def row* (partial helper/row* grid-page))