updating general ledger automatically.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user