Fixes mistake in client selection on 1099 page.

This commit is contained in:
2023-01-23 14:16:26 -08:00
parent be44000b6a
commit 1fb037e4f4

View File

@@ -28,7 +28,6 @@
(and (some-> session :client :db/id) (and (some-> session :client :db/id)
(can-see-client? user (can-see-client? user
(some-> session :client :db/id))) (some-> session :client :db/id)))
:else
(d/q '[:find (d/q '[:find
(pull ?c [:client/code :db/id]) (pull ?c [:client/code :db/id])
(pull ?v [:db/id (pull ?v [:db/id
@@ -88,6 +87,8 @@
[?p :payment/vendor ?v]] [?p :payment/vendor ?v]]
(d/db conn)) (d/db conn))
:else
(d/q '[:find (d/q '[:find
(pull ?c [:client/code :db/id]) (pull ?c [:client/code :db/id])
(pull ?v [:db/id (pull ?v [:db/id