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

renamed company to client.

Browse Source
This commit is contained in:
Bryce Covert
2019-01-18 07:44:12 -08:00
parent 583752d740
commit 775150131e
38 changed files with 250 additions and 306 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/cljs/auto_ap/views/pages/check.cljs
View File

@@ -18,13 +18,13 @@
(defn check-page []
(let [checks @(re-frame/subscribe [::checks])]
[:div
(for [{:keys [vendor-name paid-to company check date amount memo]} checks
(for [{:keys [vendor-name paid-to client check date amount memo]} checks
:let [amount (gstring/format "--%.2f--" amount)]]
[:div
[:div.columns
(let [{:keys [name address1 city state zip bank]} company]
(let [{:keys [name address1 city state zip bank]} client]
(list
[:div.column.is-4
[:p name]
@@ -76,7 +76,7 @@
[:div.columns
[:div.column.is-2 ]
[:div.column.is-10 {:style {"font-family" "MICR" "font-size" "20pt"}}
(str "c" check "c a" (:acct-number (:bank company)) "a 10302c")]]
(str "c" check "c a" (:acct-number (:bank client)) "a 10302c")]]
[:div.columns
@@ -94,7 +94,7 @@
[:div.columns
[:div.column]
[:div.column.is-10
(let [{:keys [name address1 city state zip bank]} company]
(let [{:keys [name address1 city state zip bank]} client]
(list
[:p name]
[:p address1]
@@ -154,7 +154,7 @@
[:div.column.is-5
[:p check]
[:p vendor-name]
[:p (:name (:bank company))]
[:p (:name (:bank client))]
[:p paid-to]
[:p amount]
[:p date]]]