notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

Minor fixes.

Browse Source
This commit is contained in:
Bryce Covert
2022-01-11 17:07:40 -08:00
parent 6c9a3d7ece
commit 4d6b3b1e2e
4 changed files with 76 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/clj/auto_ap/ledger.clj
View File

@@ -21,7 +21,7 @@
(namespaces "invoice-expense-account" ) [[:invoice (:db/id (:invoice/_expense-accounts entity))]]
(namespaces "transaction-account" ) [[:transaction (:db/id (:transaction/_accounts entity))]]
(namespaces "transaction" ) [[:transaction e]]
(namespaces "expected-deposit" ) [[:expected-deposit e]]
#_#_(namespaces "expected-deposit" ) [[:expected-deposit e]]
:else nil)))
@@ -34,7 +34,7 @@
(cond (namespaces "invoice" ) :invoice
(namespaces "invoice-expense-account" ) :invoice-expense-account
(namespaces "transaction-account" ) :transaction-account
(namespaces "expected-deposit" ) :expected-deposit
#_#_(namespaces "expected-deposit" ) :expected-deposit
:else nil)))
(defmulti entity-change->ledger (fn [_ [type]]
@@ -126,7 +126,7 @@
:journal-entry/cleared true})))))
(defmethod entity-change->ledger :expected-deposit
#_(defmethod entity-change->ledger :expected-deposit
[db [type id]]
(let [{:expected-deposit/keys [total client date]} (d/pull db '[:expected-deposit/total :expected-deposit/client :expected-deposit/date] id)]
#:journal-entry