notid/integreat
1
0
Fork 0
Code Issues Pull Requests 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)
set)]
(->> (d/q '[:find
?c
?v
(pull ?c [:client/code :db/id])
(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)
:with ?d
:in $
@@ -40,12 +51,11 @@
)
(filter (fn [[_ _ a]]
(>= (or a 0.0) 600.0)))
(filter (comp clients first))
(filter (comp clients :db/id first))
(take 200)
(sort-by (fn [[client _ amount]]
[client amount]) ))))
[(:client/code client ) amount]) ))))
(defn dialog [header content footer]
[:div.modal.is-active