supports locking transactions

This commit is contained in:
Bryce Covert
2022-03-14 11:07:41 -07:00
parent ee6669253f
commit 37ea2c7e97
4 changed files with 49 additions and 13 deletions

View File

@@ -188,6 +188,11 @@
(-> bank-account :bank-account/start-date coerce/to-date-time))))
:not-ready
(and (:client/locked-until (:client/_bank-accounts bank-account))
(not (t/after? (coerce/to-date-time (:transaction/date transaction))
(coerce/to-date-time (:client/locked-until (:client/_bank-accounts bank-account))))))
:not-ready
:else
:import))
@@ -291,7 +296,7 @@
:db/id
:bank-account/locations
:bank-account/start-date
{:client/_bank-accounts [:client/code :client/locations :db/id]} ]
{:client/_bank-accounts [:client/code :client/locked-until :client/locations :db/id]} ]
(:transaction/bank-account transaction))
extant (get (swap! extant-cache cache/through-cache (:transaction/bank-account transaction) get-existing)
(:transaction/bank-account transaction))