updating general ledger automatically.

This commit is contained in:
BC
2019-03-14 23:23:58 -07:00
parent 0551879b51
commit e35bc97a7d
7 changed files with 160 additions and 41 deletions

View File

@@ -722,33 +722,28 @@
(d/db (d/connect uri))))
(defn migrate-vendors [conn]
[(let [all-vendors (v/get-all)]
(load-vendors all-vendors))])
[[]])
(defn migrate-clients [conn]
(let [all-clients (c/get-all)]
[(load-clients all-clients)]))
[[]])
(defn migrate-invoices [conn]
(load-invoices (i/get-all)))
[[]])
(defn migrate-payments [conn]
(load-payments (checks/get-all)))
[[]])
(defn migrate-invoices-payments [conn]
(load-invoices-payments (ic/get-all)))
[[]])
(defn migrate-invoices-expense-accounts [conn]
(load-invoices-expense-accounts (iea/get-all)))
[[]])
(defn migrate-transactions [conn]
(let [trans (load-transactions (transactions/get-all))]
(if (seq trans)
trans
[[]])))
[[]])
(defn migrate-users [conn]
[(load-users (users/get-all))])
[[]])
(defn merge-query [query-part-1 query-part-2]
(-> query-part-1