you can exclude from the ledger.

This commit is contained in:
Bryce Covert
2019-04-23 23:20:45 -07:00
parent 38515ed8a1
commit d36cbfbf97
10 changed files with 73 additions and 32 deletions

View File

@@ -40,7 +40,7 @@
set)]
(set/difference existing-ids specified-ids)))
(defn edit-transaction [context {{:keys [id accounts vendor_id] :as transaction} :transaction} value]
(defn edit-transaction [context {{:keys [id exclude_from_ledger accounts vendor_id] :as transaction} :transaction} value]
(let [existing-transaction (d-transactions/get-by-id id)
deleted (deleted-accounts existing-transaction accounts)
account-total (reduce + 0 (map (fn [x] (Double/parseDouble (:amount x))) accounts))
@@ -63,6 +63,7 @@
@(d/transact (d/connect uri)
(concat [(remove-nils {:db/id id
:transaction/vendor vendor_id
:transaction/exclude-from-ledger exclude_from_ledger
:transaction/accounts (map transaction-account->entity accounts)
})]
(map (fn [d]

View File

@@ -13,7 +13,7 @@
(keyword (snake->kebab (name x)))))
(defn kebab->snake [s]
(str/replace s #"-" "_"))
(str/replace (str/replace s #"-" "_") #"\?$" "" ))
(defn snake [x]
(keyword (kebab->snake (name x))))