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

Makes a nice and fast report.

Browse Source
This commit is contained in:
Bryce
2023-08-21 21:42:44 -07:00
parent d0d654511d
commit 871e5a9bfb
2 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -463,7 +463,11 @@
(into (list) (apply dc/q (read-string (get query-params "query" )) (into [(dc/db conn)] (read-string (get query-params "args" "[]")))))})) (into (list) (apply dc/q (read-string (get query-params "query" )) (into [(dc/db conn)] (read-string (get query-params "args" "[]")))))}))
(defn export-ntg-account-snapshot [_] (defn export-ntg-account-snapshot [_]
(let [clients (pull-many (dc/db conn) '[:db/id :client/code :client/locations] [[:client/code "NGAK"] [:client/code "NGOP"] [:client/code "NGRV"] [:client/code "NGE1"]]) (let [clients (->> (dc/q '[:find (pull ?e [:db/id :client/code :client/locations])
:in $
:where [?e :client/feature-flags "include-in-ntg-corp-reports"]]
(dc/db conn))
(map first))
account->numeric-code (into {} (seq (dc/q '[:find ?i ?n account->numeric-code (into {} (seq (dc/q '[:find ?i ?n
:in $ [?a ...] :in $ [?a ...]
:where [?i ?a ?n]] :where [?i ?a ?n]]

7
src/cljs/auto_ap/views/pages/admin/clients/form.cljs
View File

@@ -551,7 +551,8 @@
:template [[form-builder/raw-field-v2 {:field :feature-flag} :template [[form-builder/raw-field-v2 {:field :feature-flag}
[com/select-field {:options [[nil nil] [com/select-field {:options [[nil nil]
["new-square" "New Square+Ezcater"] ["new-square" "New Square+Ezcater"]
["manually-pay-cintas" "Manually Pay Cintas"]] ["manually-pay-cintas" "Manually Pay Cintas"]
["include-in-ntg-corp-reports" "Include in NTG Corporate reports"]]
:allow-nil? false :allow-nil? false
:style {:width "18em"}}]]] :style {:width "18em"}}]]]
:key-fn :id :key-fn :id
@@ -563,13 +564,13 @@
[com/multi-field-v2 {:allow-change? false [com/multi-field-v2 {:allow-change? false
:template [[form-builder/raw-field-v2 {:field :location} :template [[form-builder/raw-field-v2 {:field :location}
[:input.input {:max-length 2 [:input.input {:max-length 2
:style { :width "4em"}}]]] :style {:width "4em"}}]]]
:disable-remove? true :disable-remove? true
:key-fn :id :key-fn :id
:schema [:sequential location-schema] :schema [:sequential location-schema]
:next-key (random-uuid)}]] :next-key (random-uuid)}]]
[form-builder/vertical-control [form-builder/vertical-control
"Signature" "Signature"
[signature {:signature-file (:signature-file new-client) [signature {:signature-file (:signature-file new-client)
:signature-data (:signature-data new-client) :signature-data (:signature-data new-client)