(cloud) experimental approach to ensure the ledgers do not get out of sync

This commit is contained in:
2023-04-02 07:45:12 -07:00
parent baa1c2e001
commit 68e809d8fb
10 changed files with 301 additions and 134 deletions

View File

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