supports locking transactions
This commit is contained in:
@@ -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))
|
||||
|
||||
Reference in New Issue
Block a user