(cloud) implements plus for check printihng

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))]])

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)

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]