(cloud) experimental approach to ensure the ledgers do not get out of sync
This commit is contained in:
@@ -146,13 +146,13 @@
|
||||
(is (= #:transaction{:vendor {:db/id test-vendor-id}
|
||||
:approval-status {:db/ident :transaction-approval-status/approved}
|
||||
:payment {:db/id payment-id}
|
||||
:accounts [#:transaction-account{:account {:db/id accounts-payable-id}
|
||||
:accounts [#:transaction-account{:account {:account/name "Accounts Payable"}
|
||||
:location "A"
|
||||
:amount 50.0}]}
|
||||
(dc/pull (dc/db conn) '[:transaction/vendor
|
||||
:transaction/payment
|
||||
{:transaction/approval-status [:db/ident]
|
||||
:transaction/accounts [:transaction-account/account
|
||||
:transaction/accounts [{:transaction-account/account [:account/name]}
|
||||
:transaction-account/location
|
||||
:transaction-account/amount]}]
|
||||
transaction-id)))))
|
||||
|
||||
Reference in New Issue
Block a user