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

adds the ability to export vendors.

Browse Source
This commit is contained in:
Bryce Covert
2022-12-07 21:13:52 -08:00
parent b1bb058039
commit 8daf2cf32c
6 changed files with 177 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
scratch-sessions/register_invoices.clj Normal file
View File

@@ -0,0 +1,23 @@
(ns register-invoices)
(def totals
(into []
(d/q '[:find [(pull ?i [:db/id
:invoice/date
{:invoice/expense-accounts [:db/id
:invoice-expense-account/amount
{:invoice-expense-account/account [:db/id :account/numeric-code]}
:invoice-expense-account/location]}]) ...]
:in $
:where [?i :invoice/client [:client/code "MBD"]]
[?i :invoice/date ?d]
[(<= ?d #inst "2022-01-01T08:00:00")]]
(d/db conn))))
(clojure.data.csv/write-csv *out*
(doall (for [{:keys [:db/id :invoice/expense-accounts :invoice/date]} totals
{:keys [:invoice-expense-account/amount :invoice-expense-account/location :invoice-expense-account/account] :as g} expense-accounts
]
[id (:db/id g) (:db/id account) (atime/unparse (coerce/to-date-time date) atime/normal-date) amount (:account/numeric-code account) location]))
:separator \tab)