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

tested ledger import.

Browse Source
This commit is contained in:
Bryce Covert
2023-05-02 09:13:58 -07:00
parent 435bb96e58
commit f3be9bc5d2
1 changed files with 27 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
src/clj/user.clj
View File

@@ -22,7 +22,8 @@
[nrepl.middleware.print]
[unilog.context :as lc]
[com.brunobonacci.mulog :as mu]
[com.brunobonacci.mulog.buffer :as rb])
[com.brunobonacci.mulog.buffer :as rb]
[datomic.api :as d])
(:import
(org.apache.commons.io.input BOMInputStream)))
@@ -328,7 +329,6 @@
#_{: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)
(mapcat :data (dc/tx-range conn
{:start (- i 100)
:end (+ i 100)}))))
@@ -508,7 +508,28 @@
(set! nrepl.middleware.print/*print-fn* clojure.pprint/pprint))
(defn sample-ledger-import [client-code]
[]
)
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn sample-ledger-import
([client-code]
(sample-ledger-import client-code 10))
([client-code n]
(let [client-location (ffirst (d/q '[:find ?l :in $ ?c :where [?c :client/locations ?l]] (dc/db conn) [:client/code client-code]))]
(clojure.data.csv/write-csv
*out*
(for [n (range n)
:let [v (rand-nth (map first (d/q '[:find ?vn :where [_ :vendor/name ?vn]] (dc/db conn))))
[{a-1 :account/numeric-code a-1-location :account/location}
{a-2 :account/numeric-code a-2-location :account/location}] (->> (d/q '[:find (pull ?a [:account/numeric-code :account/location]) :where [?a :account/numeric-code]]
(dc/db conn))
(map first)
(shuffle)
(take 2))
amount (rand-int 2000)
d (-> (t/now)
(t/minus (t/days (rand-int 60)))
(atime/unparse atime/normal-date))
id (rand-int 100000)]
a [[(str id) client-code "synthetic" v d a-1 (or a-1-location client-location) 0 amount ]
[(str id) client-code "synthetic" v d a-2 (or a-2-location client-location) amount 0]]]
a)
:separator \tab))))