Makes a vendor account acceptable even if the invoice account isn't.

scratch-sessions/bad_accounts_for_invoices.clj

@@ -4,6 +4,8 @@
 
 ;; You can also press C-u C-j to evaluate the expression and pretty-print its result.
 
+(require '[datomic.api :as d])
+(require '[auto-ap.datomic])
 (def bad-accounts
   (-> #{}
       (into (d/q '[:find [?a ...]
@@ -502,10 +504,6 @@
                             :separator \tab)
 
 
-(for [c (get-square-clients "NGPG")
-      l (:client/square-locations c)
-      :when (:square-location/client-location l)]
-  @(daily-results c l))
 
 (def results *1)