notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 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/total
:invoice/outstanding-balance :invoice/outstanding-balance
:invoice/source-url :invoice/source-url
[:invoice/date :xform clj-time.coerce/from-date] [:invoice/date :xform clj-time.coerce/from-date]
[:invoice/due :xform clj-time.coerce/from-date] [:invoice/due :xform clj-time.coerce/from-date]
[:invoice/scheduled-payment :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]}]}]}] {:account-client-override/client [:db/id]}]}]}]
[:transaction/_invoices :as :invoice/transaction] [:db/id] [:transaction/_invoices :as :invoice/transaction] [:db/id]
[:journal-entry/_original-entity :as :invoice/journal-entry] [: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] {[:transaction/_payment :as :payment/transaction] [:db/id]
[:payment/status :xform iol-ion.query/ident] [:db/ident]}] [:payment/status :xform iol-ion.query/ident] [:db/ident]}]}]
#_[:payment/_invoices :as :invoice/payments]
[:invoice/status :xform iol-ion.query/ident] [:db/ident] [:invoice/status :xform iol-ion.query/ident] [:db/ident]
:invoice/vendor [:vendor/name :db/id]}]) :invoice/vendor [:vendor/name :db/id]}])

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

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

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

@@ -364,7 +364,10 @@
:name "Links" :name "Links"
:class "w-8" :class "w-8"
:render (fn [p] :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 {:link (hu/url (bidi/path-for ssr-routes/only-routes
::invoice-route/all-page) ::invoice-route/all-page)
{:exact-match-id (:db/id invoice)}) {:exact-match-id (:db/id invoice)})

7
src/clj/user.clj
View File

@@ -329,9 +329,10 @@
(defn tx-detail [i] (defn tx-detail [i]
(map (juxt :e #(pull-attr (dc/db conn) :db/ident (:a %)) :v) (map (juxt :e #(pull-attr (dc/db conn) :db/ident (:a %)) :v)
(:data (first (:data (first
(dc/tx-range conn (dc/tx-range (dc/log conn)
{:start i i
:end (inc i)}))))) (inc i))))))
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]} #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn tx-range-detail [i] (defn tx-range-detail [i]
(map (juxt :e #(pull-attr (dc/db conn) :db/ident (:a %)) :v) (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) taptelis-clients)
:separator \tab) :separator \tab)
(dc/pull (dc/db conn)
17592316415740)