notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

pretty good progress in being able to add/edit all bank accounts.

Browse Source
This commit is contained in:
BC
2019-02-18 08:25:23 -08:00
parent 7407f8ac4c
commit a5d0579164
4 changed files with 189 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/cljc/auto_ap/entities/clients.cljc
View File

@@ -22,7 +22,7 @@
(s/def ::checking-bank-account (s/and (s/keys :req-un [::code ::name ::bank-name ::bank-code ::routing ::number ::type])
#(= (:type %) :check)))
(s/def ::cash-account (s/and (s/keys :req-un [::type])
(s/def ::cash-account (s/and (s/keys :req-un [::type ::code ::name])
#(= (:type %) :cash)))
(s/def ::bank-account (s/or :cash ::cash-account :checking ::checking-bank-account))
(s/def ::bank-accounts (s/coll-of ::bank-account))