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

fix exception that Brian found.

Browse Source
This commit is contained in:
Bryce Covert
2023-01-16 10:05:51 -08:00
parent 36ca9672e5
commit 273e9685cc
1 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/clj/auto_ap/ssr/company/company_1099.clj
View File

@@ -24,8 +24,19 @@
(map first) (map first)
set)] set)]
(->> (d/q '[:find (->> (d/q '[:find
?c (pull ?c [:client/code :db/id])
?v (pull ?v [:db/id
:vendor/name
{:vendor/legal-entity-1099-type [:db/ident]}
{:vendor/legal-entity-tin-type [:db/ident]}
{:vendor/address [:address/street1
:address/city
:address/state
:address/zip]}
:vendor/legal-entity-first-ein
:vendor/legal-entity-first-name
:vendor/legal-entity-middle-name
:vendor/legal-entity-last-name])
(sum ?a) (sum ?a)
:with ?d :with ?d
:in $ :in $
@@ -40,12 +51,11 @@
) )
(filter (fn [[_ _ a]] (filter (fn [[_ _ a]]
(>= (or a 0.0) 600.0))) (>= (or a 0.0) 600.0)))
(filter (comp clients first)) (filter (comp clients :db/id first))
(take 200) (take 200)
(sort-by (fn [[client _ amount]] (sort-by (fn [[client _ amount]]
[client amount]) )))) [(:client/code client ) amount]) ))))
(defn dialog [header content footer] (defn dialog [header content footer]
[:div.modal.is-active [:div.modal.is-active