fixes cash pay issue.

This commit is contained in:
Bryce
2023-07-03 12:21:27 -07:00
parent b6fe435063
commit 1756051092
3 changed files with 19 additions and 2 deletions

View File

@@ -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))}]}]]
(-> []

View File

@@ -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)]