(cloud) implements plus for check printihng

2023-04-06 16:19:28 -07:00
parent 653774e2a5
commit d924146f0e
3 changed files with 6 additions and 4 deletions
--- 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))]])