fixes cash pay issue.
This commit is contained in:
@@ -366,7 +366,8 @@
|
||||
:transaction/description-original memo
|
||||
:transaction/date (:payment/date payment)
|
||||
:transaction/approval-status :transaction-approval-status/approved
|
||||
:transaction/accounts [{:transaction-account/account (:db/id (a/get-account-by-numeric-code-and-sets 21000 ["default"]))
|
||||
:transaction/accounts [{:db/id (str "transaction-account-" (:db/id vendor))
|
||||
:transaction-account/account (:db/id (a/get-account-by-numeric-code-and-sets 21000 ["default"]))
|
||||
:transaction-account/location "A"
|
||||
:transaction-account/amount (Math/abs (:payment/amount base-payment))}]}]]
|
||||
(-> []
|
||||
|
||||
@@ -535,7 +535,7 @@
|
||||
[:count (count success)]
|
||||
(for [[_ n] (:tempids (audit-transact-batch (map :tx success) (:id context)))]
|
||||
n))]
|
||||
(future
|
||||
(future ;
|
||||
(mu/log ::indexing-solr :count (count invalidated))
|
||||
(mu/trace ::indexed-external-solr
|
||||
[:count (count invalidated)]
|
||||
|
||||
Reference in New Issue
Block a user