Make outsourcing possible in UI

Basic-Data-Infrastructure · Jun 11, 2024 · 43375f1 · 43375f1
1 parent d95703b
commit 43375f1
Show file tree

Hide file tree

Showing 5 changed files with 418 additions and 109 deletions.
diff --git a/src/dil_demo/erp/web.clj b/src/dil_demo/erp/web.clj
@@ -282,19 +282,19 @@
      (POST "/publish-:id" {:keys        [::store/store]
                            {:keys [id]} :params}
        (when-let [consignment (get-consignment store id)]
-         (-> (str "published-" id)
-             (redirect :see-other)
-             (assoc :flash {:success "Transportopdracht aangemaakt"})
-             (assoc ::store/commands [[:put! :consignments
-                                       (assoc consignment :status "requested")]
-                                      [:publish! ;; to warehouse WMS
-                                       :transport-orders
-                                       (otm/consignment-warehouse-eori consignment)
-                                       (otm/consignment->transport-order consignment)]
-                                      [:publish! ;; to carrier TMS
-                                       :trips
-                                       (otm/consignment-carrier-eori consignment)
-                                       (otm/consignment->trip consignment)]]))))
+         (let [consignment (otm/consignment-status! consignment otm/status-requested)]
+           (-> (str "published-" id)
+               (redirect :see-other)
+               (assoc :flash {:success "Transportopdracht aangemaakt"})
+               (assoc ::store/commands [[:put! :consignments consignment]
+                                        [:publish! ;; to warehouse WMS
+                                         :transport-orders
+                                         (otm/consignment-warehouse-eori consignment)
+                                         (otm/consignment->transport-order consignment)]
+                                        [:publish! ;; to carrier TMS
+                                         :trips
+                                         (otm/consignment-carrier-eori consignment)
+                                         (otm/consignment->trip consignment)]])))))
 
      (GET "/published-:id" {:keys        [flash master-data ::store/store]
                             {:keys [id]} :params}