trial balance fix
This commit is contained in:
@@ -442,7 +442,7 @@
|
|||||||
:account-type/dividend
|
:account-type/dividend
|
||||||
:account-type/expense} (:db/ident (:account/type (:journal-entry-line/account jel))))
|
:account-type/expense} (:db/ident (:account/type (:journal-entry-line/account jel))))
|
||||||
(update (or v {}) :debit (fnil + 0.0) (or (:journal-entry-line/debit jel) 0.0))
|
(update (or v {}) :debit (fnil + 0.0) (or (:journal-entry-line/debit jel) 0.0))
|
||||||
(update (or v {}) :debit (fnil + 0.0) (or (:journal-entry-line/credit jel) 0.0))))))
|
(update (or v {}) :credit (fnil + 0.0) (or (:journal-entry-line/credit jel) 0.0))))))
|
||||||
{})
|
{})
|
||||||
(map (fn [[[a l] {:keys [debit credit]}]]
|
(map (fn [[[a l] {:keys [debit credit]}]]
|
||||||
[(or (pull-attr db :account/name a)
|
[(or (pull-attr db :account/name a)
|
||||||
|
|||||||
Reference in New Issue
Block a user