Move sales summaries from admin to pos menu

- Move SSR handler from auto-ap.ssr.admin.sales-summaries to auto-ap.ssr.pos.sales-summaries
- Move route namespace from auto-ap.routes.admin.sales-summaries to auto-ap.routes.pos.sales-summaries
- Update nav to use main-aside-nav with POS breadcrumbs
- Use pos.common date-range-field* filter component
- Remove wrap-admin/wrap-client-redirect-unauthenticated from middleware
- Add Summaries to Sales sidebar menu

src/clj/auto_ap/pdf/ledger.clj

@@ -177,9 +177,8 @@
           (conj [:paragraph {:color [128 0 0] :size 9} (:warning report)])
           (conj 
             (table->pdf report
-                         (cond-> (into [30 ] (repeat client-count 13))
-                           (:include-comparison args) (into (repeat (* 2 client-count) 13))
-                           (and (> client-count 1) (not (:include-comparison args))) (conj 13)))))
+                        (cond-> (into [30 ] (repeat client-count 13))
+                          (:include-comparison args) (into (repeat (* 2 client-count) 13))))))
       output-stream)
     (.toByteArray output-stream)))
 

src/clj/auto_ap/ssr/ledger/balance_sheet.clj

@@ -120,8 +120,7 @@
        (list 
         [:div.text-2xl.font-bold.text-gray-600 (str "Balance Sheet - " (str/join ", " (map :client/name client))) ]
         (rtable/table {:widths      (cond-> (into [30 ] (repeat 13 client-count))
-                               (> (count date) 1) (into (repeat 13 (* 2 client-count (dec (count date)))))
-                               (and (> client-count 1) (= (count date) 1)) (conj 13))
+                               (> (count date) 1) (into (repeat 13 (* 2 client-count (dec (count date))))))
                 :investigate-url (bidi.bidi/path-for ssr-routes/only-routes ::route/investigate)
                 :table       report
                 :warning (not-empty (str/join "\n " (filter not-empty [warning (:warning report)])))} ))))])
@@ -202,9 +201,8 @@
           (conj [:paragraph {:color [128 0 0] :size 9} (:warning report)])
           (conj 
             (table->pdf report
-                         (cond-> (into [30 ] (repeat client-count 13))
-                                 (> (count date) 1) (into (repeat (* 2 client-count (dec (count date))) 13 ))
-                                 (and (> client-count 1) (= (count date) 1)) (conj 13)))))
+                        (cond-> (into [30 ] (repeat client-count 13))
+                                (> (count date) 1) (into (repeat (* 2 client-count (dec (count date))) 13 ))))))
       output-stream)
     (.toByteArray output-stream)))
 

src/cljc/auto_ap/ledger/reports.cljc

@@ -798,34 +798,30 @@
 
 
 (defn balance-sheet-headers [pnl-data]
-  (let [period-count (count (:periods (:args pnl-data)))
-        client-ids   (set (map :client-id (:data pnl-data)))
-        client-count (count client-ids)
-        show-total?  (and (> client-count 1) (= 1 period-count))]
+  (let [period-count (count (:periods (:args pnl-data)))]
     (cond->  []
-      (> client-count 1)
-      (conj (cond-> (into [{:value "Client"}]
-                          (mapcat identity 
-                                  (for [client client-ids]
-                                    (cond-> [{:value (str (-> pnl-data :client-codes (get client)))}]
-                                      (> period-count 1)
-                                      (into (apply concat (repeat (dec period-count) ["" ""])))))))
-              show-total? (conj {:value "Total" :bold true :border [:left]})))
+      (> (count (set (map :client-id (:data pnl-data)))) 1)
+      (conj  (into [{:value "Client"}]
 
+                   (mapcat identity 
+                           (for [client (set (map :client-id (:data pnl-data))) ]
+                             (cond-> [{:value (str (-> pnl-data :client-codes (get client)))}]
+
+                               (> period-count 1)
+                               (into (apply concat (repeat (dec period-count) ["" ""]))))))))
       true
-      (conj (cond-> (into [{:value "Period Ending"}]
-                          (for [client client-ids 
+      (conj (into [{:value "Period Ending"}]
+                  (for [client (set (map :client-id (:data pnl-data))) 
                                 [index p] (map vector (range) (:periods (:args pnl-data)))
                                 :let [is-first? (= 0 index)
                                       period-date (date->str p)
                                       period-headers (if (or is-first?
                                                              (not (:include-deltas (:args pnl-data))))
-                                                      [{:value period-date}]
-                                                      [{:value period-date}
-                                                       {:value "+/-"}])]
+                                                       [{:value period-date}]
+                                                       [{:value period-date}
+                                                        {:value "+/-"}])]
                                 header period-headers]
-                            header))
-              show-total? (conj {:value (date->str (first (:periods (:args pnl-data)))) :border [:left]}))))))
+                            header))))))
 
 (defn append-deltas [table]
   (->> table
@@ -894,33 +890,12 @@
          :rows   table})))
   )
 
-(defn add-total-border [rows]
-  (map (fn [row]
-         (let [last-idx (dec (count row))]
-           (map-indexed
-            (fn [i cell]
-              (if (= i last-idx)
-                (let [borders (or (:border cell) [])]
-                  (assoc cell :border (conj borders :left)))
-                cell))
-            row)))
-       rows))
-
 (defn summarize-balance-sheet [pnl-data]
-  (let [client-ids   (set (map :client-id (:data pnl-data)))
-        client-count (count client-ids)
-        period-count (count (:periods (:args pnl-data)))
-        show-total?  (and (> client-count 1) (= 1 period-count))
-        pnl-datas    (for [client-id client-ids
-                           p         (:periods (:args pnl-data))]
-                       (-> pnl-data 
-                           (filter-client client-id)
-                           (filter-period p)))
-        total-data   (when show-total?
-                       (-> pnl-data
-                           (filter-period (first (:periods (:args pnl-data))))
-                           (assoc :cell-args {:bold true})))
-        pnl-datas    (concat pnl-datas (when total-data [total-data]))]
+  (let [pnl-datas (for [client-id (set (map :client-id (:data pnl-data)))
+                        p         (:periods (:args pnl-data))]
+                    (-> pnl-data 
+                        (filter-client client-id)
+                        (filter-period p)))]
     (let [table     (-> []
                         (into (detail-rows pnl-datas
                                            :assets
@@ -937,11 +912,10 @@
                                          (negate #{:cogs :payroll :controllable :fixed-overhead :ownership-controllable}))
                                     pnl-datas)
                                "Retained Earnings")))
-          table     (if (and (> period-count 1)
+          table     (if (and (> (count (:periods (:args pnl-data))) 1)
                              (:include-deltas (:args pnl-data))) 
-                       (append-deltas table)
-                       table)
-          table     (if show-total? (add-total-border table) table)]
+                      (append-deltas table)
+                      table)]
       {:warning (warning-message pnl-data)
        :header (balance-sheet-headers pnl-data)
        :rows   table}))

src/cljs/auto_ap/views/pages/ledger/balance_sheet.cljs

@@ -265,8 +265,7 @@ NOTE: Please review the transactions we may have question for you here: https://
        [:div.notification.is-warning.is-light
         (:warning report)])
      [rtable/table {:widths      (cond-> (into [30 ] (repeat 13 client-count))
-                                    (:include-comparison args) (into (repeat 13 (* 2 client-count)))
-                                    (and (> client-count 1) (not (:include-comparison args))) (conj 13))
+                                   (:include-comparison args) (into (repeat 13 (* 2 client-count))))
                     :click-event ::investigate-clicked
                     :table       report}]]))
 

start-solr.sh

@@ -1,2 +1,5 @@
 #!/bin/bash
-sudo docker run --rm -ti -v ~/dev/integreat/data/solr:/var/solr --network=bridge -p 8983:8983 679918342773.dkr.ecr.us-east-1.amazonaws.com/integreat-solr
+sudo docker run --rm -ti -v ~/dev/integreat/data/solr:/var/solr --network=bridge -p 8983:8983 bryce-solr
+#sudo podman container run --user 1000 --privileged --volume /home/notid/dev/integreat/data/solr:/var/solr -p 8983:8983 bryce-solr
+
+