locations.

src/clj/auto_ap/graphql/transactions.clj

@@ -8,7 +8,8 @@
             [com.walmartlabs.lacinia.executor :as executor]
             [com.walmartlabs.lacinia.resolve :as resolve]
             [auto-ap.utils :refer [by]]
-            [auto-ap.time :refer [parse normal-date]]))
+            [auto-ap.time :refer [parse normal-date]]
+            [auto-ap.datomic.clients :as d-clients]))
 
 (defn get-transaction-page [context args value]
   (let [args (assoc args :id (:id context))
@@ -24,13 +25,23 @@
 
 
 
-(defn edit-transaction [context {{:keys [id account_id vendor_id] :as transaction} :transaction} value]
-  (assert-can-see-client (:id context) (:db/id (d-transactions/get-by-id id)))
-  (println transaction)
-  @(d/transact (d/connect uri)
-               [{:db/id id
-                 :transaction/vendor vendor_id
-                 :transaction/account account_id}])
-  (->graphql (d-transactions/get-by-id id))
+(defn edit-transaction [context {{:keys [id location account_id vendor_id] :as transaction} :transaction} value]
+  (let [transaction (d-transactions/get-by-id id)]
+    (assert-can-see-client (:id context) (:transaction/client transaction) ) 
+    (when-not  (-> (:transaction/client transaction)
+                   :client/locations
+                   set
+                   (conj "A")
+                   (conj "HQ")
+                   (get location))
+      (throw (ex-info (str "Location '" location "' not found on client.") {}))
+      )
+    
+    @(d/transact (d/connect uri)
+                 [{:db/id id
+                   :transaction/vendor vendor_id
+                   :transaction/location location
+                   :transaction/account account_id}])
+    (->graphql (d-transactions/get-by-id id)))
   #_(->graphql {:id id
                 :vendor (d-vendors/get-by-id vendor_id) }))