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

adds due date column.

Browse Source
This commit is contained in:
Bryce
2024-07-23 21:37:05 -07:00
parent 803abb5322
commit 8b9fc5a66e
3 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
resources/public/output.css
View File

File diff suppressed because one or more lines are too long

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

@@ -508,6 +508,12 @@
:show-starting "lg" :show-starting "lg"
:render (fn [{:invoice/keys [date]}] :render (fn [{:invoice/keys [date]}]
(some-> date (atime/unparse-local atime/normal-date)))} (some-> date (atime/unparse-local atime/normal-date)))}
{:key "due"
:sort-key "due"
:name "Due"
:show-starting "xl" ;; xl:table-cell
:render (fn [{:invoice/keys [due]}]
(some-> due (atime/unparse-local atime/normal-date)))}
{:key "status" {:key "status"
:name "Status" :name "Status"
:render (fn [{:invoice/keys [status]}] :render (fn [{:invoice/keys [status]}]

15
src/clj/user.clj
View File

@@ -586,44 +586,51 @@
(defn index-solr (defn index-solr
[] []
(println "invoice")
(doseq [batch (->> (dc/qseq {:query '[:find ?i (doseq [batch (->> (dc/qseq {:query '[:find ?i
:in $ :in $
:where [?i :invoice/invoice-number] :where [?i :invoice/invoice-number]
(not [?i :invoice/status :invoice-status/voided])] (not [?i :invoice/status :invoice-status/voided])]
:args [(dc/db conn)]}) :args [(dc/db conn)]})
(map first) (map first)
(partition-all 1000))] (partition-all 500))]
(print ".") (print ".")
(flush) (flush)
(solr/index-documents solr/impl "invoices" batch)) (solr/index-documents solr/impl "invoices" batch))
(println)
(println "payment")
(doseq [batch (->> (dc/qseq {:query '[:find ?i (doseq [batch (->> (dc/qseq {:query '[:find ?i
:in $ :in $
:where [?i :payment/date] :where [?i :payment/date]
(not [?i :payment/status :payment-status/voided])] (not [?i :payment/status :payment-status/voided])]
:args [(dc/db conn)]}) :args [(dc/db conn)]})
(map first) (map first)
(partition-all 1000))] (partition-all 500))]
(print ".") (print ".")
(flush) (flush)
(solr/index-documents solr/impl "invoices" batch)) (solr/index-documents solr/impl "invoices" batch))
(println)
(println "trans")
(doseq [batch (->> (dc/qseq {:query '[:find ?i (doseq [batch (->> (dc/qseq {:query '[:find ?i
:in $ :in $
:where [?i :transaction/description-original] :where [?i :transaction/description-original]
(not [?i :transaction/approval-status :transaction-approval-status/suppressed])] (not [?i :transaction/approval-status :transaction-approval-status/suppressed])]
:args [(dc/db conn)]}) :args [(dc/db conn)]})
(map first) (map first)
(partition-all 1000))] (partition-all 500))]
(print ".") (print ".")
(flush) (flush)
(solr/index-documents solr/impl "invoices" batch)) (solr/index-documents solr/impl "invoices" batch))
(println)
(println "journal")
(doseq [batch (->> (dc/qseq {:query '[:find ?i (doseq [batch (->> (dc/qseq {:query '[:find ?i
:in $ :in $
:where [?i :journal-entry/date]] :where [?i :journal-entry/date]]
:args [(dc/db conn)]}) :args [(dc/db conn)]})
(map first) (map first)
(partition-all 1000))] (partition-all 500))]
(print ".") (print ".")
(flush) (flush)
(solr/index-documents solr/impl "invoices" batch))) (solr/index-documents solr/impl "invoices" batch)))