basic support for pnl

2019-04-13 13:36:21 -07:00
parent 53063f47f3
commit e79c0e1575
4 changed files with 237 additions and 7 deletions
--- a/src/clj/auto_ap/datomic/migrate/add_general_ledger.clj
+++ b/src/clj/auto_ap/datomic/migrate/add_general_ledger.clj
@@ -166,10 +166,11 @@
        z (->> transaction-ids
               (map #(ledger/entity-change->ledger (d/db conn) [:transaction %]))
               (filter identity)
-               (mapv identity))]
+               (mapv #(vector %)))]
    z))

 #_(test-run (bulk-load-transaction-ledger (d/connect auto-ap.datomic/uri)))
+#_(test-run (bulk-load-invoice-ledger (d/connect auto-ap.datomic/uri)))

 #_(do (doseq [tran (convert-transactions (d/connect auto-ap.datomic/uri))]
        @(d/transact (d/connect auto-ap.datomic/uri) tran))