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

Forces location matching.

Browse Source
This commit is contained in:
Bryce Covert
2019-03-21 11:30:28 -07:00
parent d270ca89f9
commit 4e72c00895
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -29,10 +29,18 @@
(not client-code) (update :errors conj {:info "No client code found"})
(not default-location) (update :errors conj {:info "No default location found"}))))
(defn parse-client [{:keys [client-code client]} clients]
(defn parse-client [{:keys [client-code client default-location]} clients]
(if-let [id (:db/id (or (clients client-code)
(clients client)))]
id
(do
(println "FOUND CLIENT" (or (clients client-code)
(clients client)))
(when (not ((set (:client/locations (or (clients client-code)
(clients client))))
default-location))
(throw (Exception. (str "Location '" default-location "' not found for client '" client-code "'.")))
)
id)
(throw (Exception. (str "Client code '" client-code "' and client named '" client "' not found.")))))
(defn parse-invoice-number [{:keys [invoice-number]}]
@@ -109,7 +117,7 @@
(map (parse-or-error :total parse-amount))
(map (parse-or-error :date parse-date)))]
(println "ROWS" rows)
rows))
(defn invoice-rows->transaction [rows]