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

adds linkage changing date

Browse Source
This commit is contained in:
Bryce Covert
2021-01-24 10:00:13 -08:00
parent 10785b9c85
commit e2cdb3c719
3 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/clj/auto_ap/datomic/transactions.clj
View File

@@ -164,9 +164,13 @@
ids)
(map #(update % :transaction/date c/from-date))
(map #(update % :transaction/post-date c/from-date))
(map #(update-in % [:transaction/payment :payment/date] c/from-date))
(map (fn [transaction]
(if (:transaction/payment transaction)
(update-in transaction [:transaction/payment :payment/date] c/from-date)
transaction)))
(map #(dissoc % :transaction/id))
(group-by :db/id))]
(clojure.pprint/pprint results)
(->> ids
(map results)
(map first))))