diff --git a/iol_ion/src/iol_ion/tx.clj b/iol_ion/src/iol_ion/tx.clj index 5b66a376..0f4e3727 100644 --- a/iol_ion/src/iol_ion/tx.clj +++ b/iol_ion/src/iol_ion/tx.clj @@ -423,3 +423,6 @@ {:debit total :location "A" :account :account/ccp}]})) + +(defn plus [db e a amount] + [[:db/add e a (-> (dc/pull db [a] e) a (+ amount))]]) diff --git a/src/clj/auto_ap/datomic.clj b/src/clj/auto_ap/datomic.clj index cd2aa2f4..25e4a362 100644 --- a/src/clj/auto_ap/datomic.clj +++ b/src/clj/auto_ap/datomic.clj @@ -688,8 +688,7 @@ (:db/id (pull-attr db k id))) -(defn plus [db e a amount] - [[:db/add e a (-> (dc/pull db [a] e) a (+ amount))]]) + #_(comment (dc/pull (dc/db conn) '[*] 175921860633685) diff --git a/src/clj/auto_ap/graphql/checks.clj b/src/clj/auto_ap/graphql/checks.clj index 8b377075..32e2ff45 100644 --- a/src/clj/auto_ap/graphql/checks.clj +++ b/src/clj/auto_ap/graphql/checks.clj @@ -1,9 +1,9 @@ (ns auto-ap.graphql.checks (:require [amazonica.aws.s3 :as s3] - [auto-ap.datomic :refer [conn remove-nils plus pull-many audit-transact]] + [auto-ap.datomic :refer [conn remove-nils pull-many audit-transact]] [auto-ap.datomic.accounts :as a] - [iol-ion.tx :refer [upsert-invoice pay]] + [iol-ion.tx :refer [upsert-invoice pay plus]] [auto-ap.datomic.bank-accounts :as d-bank-accounts] [auto-ap.datomic.checks :as d-checks] [auto-ap.datomic.clients :as d-clients]