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

more progress towards removing default expense accounts.

Browse Source
This commit is contained in:
Bryce Covert
2019-04-12 17:51:57 -07:00
parent d97c909593
commit 0b1b2721c7
89 changed files with 17 additions and 1518 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/clj/auto_ap/routes/invoices.clj
View File

@@ -125,6 +125,7 @@
(defn invoice-rows->transaction [rows]
(->> rows
(mapcat (fn [{:keys [vendor-id total client-id amount date invoice-number default-location account-id check vendor]}]
(println account-id vendor)
(let [invoice #:invoice {:db/id (.toString (java.util.UUID/randomUUID))
:vendor vendor-id
:client client-id
@@ -140,8 +141,9 @@
:invoice-status/unpaid)
:invoice-number invoice-number
:date (to-date date)
:expense-accounts [#:invoice-expense-account {:account (or account-id
(-> vendor :vendor/account :db/id))
:expense-accounts [#:invoice-expense-account {:account (doto (or account-id
(-> vendor :vendor/default-account :db/id))
println)
:location default-location
:amount total}]}
payment (if (= :invoice-status/paid (:invoice/status invoice))