profit and loss screen.

2019-04-13 22:04:29 -07:00
parent e79c0e1575
commit 7f6df3865c
4 changed files with 146 additions and 77 deletions
--- a/src/clj/auto_ap/datomic/migrate/add_general_ledger.clj
+++ b/src/clj/auto_ap/datomic/migrate/add_general_ledger.clj
@@ -150,12 +150,9 @@
                                                 :where ['[?e :invoice/total]]}
                                         :args [(d/db conn)]}))
        z (->> invoice-ids
-               (mapv #(ledger/entity-change->ledger (d/db conn) [:invoice %])))]
+               (mapv #(vector (ledger/entity-change->ledger (d/db conn) [:invoice %]))))]
    z))

-#_(do @(d/transact (d/connect auto-ap.datomic/uri) 
-                   (bulk-load-invoice-ledger (d/connect auto-ap.datomic/uri)))
-      (println "test"))

 (defn bulk-load-transaction-ledger [conn]
  (let [transaction-ids (map first (d/query {:query {:find '[?e]