fixing vendors

src/clj/auto_ap/datomic/migrate/add_general_ledger.clj

@@ -308,6 +308,21 @@
 (def add-credit-bank-account
   [[{:db/ident :bank-account-type/credit}]])
 
+(defn add-hidden-to-vendor [conn]
+  [[{:db/ident :vendor/hidden
+     :db/valueType :db.type/boolean
+     :db/cardinality :db.cardinality/one
+     :db/doc "Whether or not to exclude the vendor"}]
+   (let [vendors (d/query {:query {:find '[?v]
+                                   :in '[$]
+                                   :where ['[?v :vendor/name]]}
+                           :args [(d/db conn)]})]
+     (mapv
+      (fn [[v ]]
+        {:db/id v
+         :vendor/hidden false})
+      vendors))])
+
 
 
 (defn reset-ledger [conn]