fixes cash pay issue.

scratch-sessions/fixing-duplicate-vendors.clj

@@ -163,3 +163,19 @@ best
                         (dc/db conn)))]
    [:db/retractEntity bad])
  {:user/name "fix-unused-vendors"})
+
+
+
+(user/init-repl)
+
+(seq (datomic.api/q '[:find ?v ?vn ?code ?a
+                      :in $ [?v ...] [?a ...]
+                      :where [?x ?a ?v]
+                      [?v :vendor/name ?vn]
+                      [?x :journal-entry/client ?c]
+                      [?c :client/code ?code]]
+                    (datomic.api/db auto-ap.datomic/conn)
+                    [17592298912094 17592298933107 17592299151482]
+                    #{:expected-deposit/vendor, :invoice/vendor, :journal-entry/vendor, :payment/vendor, :sales-order/vendor, :sales-refund/vendor, :transaction/vendor, :transaction-rule/vendor, :cash-drawer-shift/vendor}
+
+                    ))