169 lines
6.8 KiB
Clojure
169 lines
6.8 KiB
Clojure
(ns auto-ap.routes.checks
|
|
(:require [auto-ap.db.companies :as companies]
|
|
[auto-ap.db.vendors :as vendors]
|
|
[auto-ap.db.invoices :as invoices]
|
|
[auto-ap.db.utils :refer [query]]
|
|
[auto-ap.parse :as parse]
|
|
[amazonica.aws.s3 :as s3]
|
|
[hiccup.core :refer [html]]
|
|
[auto-ap.routes.utils :refer [wrap-secure]]
|
|
[config.core :refer [env]]
|
|
[compojure.core :refer [GET POST context defroutes
|
|
wrap-routes]]
|
|
[clojure.string :as str]
|
|
[clj-pdf.core :as pdf])
|
|
(:import [java.text DecimalFormat]
|
|
[java.util UUID]))
|
|
|
|
(defn check-page [checks uuid]
|
|
(pdf/pdf
|
|
[{:left-margin 10 :right-margin 0 :top-margin 0 :bottom-margin 0}
|
|
(for [{:keys [paid-to company check date amount memo] {vendor-name :name :as vendor} :vendor} checks
|
|
:let [df (DecimalFormat. "#,###.00")
|
|
amount (str "--" (.format df amount) "--")]]
|
|
[:table {:num-cols 12 :border false :leading 11}
|
|
[(let [{:keys [name address1 city state zip bank]} company]
|
|
[:cell {:colspan 4 } [:paragraph {:leading 14} name "\n" address1 "\n" (str city ", " state zip)] ])
|
|
(let [{{:keys [name acct]} :bank} company]
|
|
[:cell {:colspan 6 :align :center} [:paragraph {:style :bold} name] [:paragraph acct]])
|
|
[:cell {:colspan 2 :size 13}
|
|
check]]
|
|
|
|
[[:cell {:colspan 9}]
|
|
[:cell {:colspan 3} date]]
|
|
|
|
[[:cell {:size 16 :leading 16} "PAY"]
|
|
[:cell {:size 6 :leading 6 } "TO THE ORDER OF"]
|
|
[:cell {:colspan 7} vendor-name]
|
|
[:cell {:colspan 3} amount]]
|
|
|
|
[[:cell {}]
|
|
[:cell {:colspan 8} "One thousand two hundred thirty four and fifty six cents" [:line]]
|
|
[:cell {:colspan 3}]]
|
|
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
|
|
[[:cell "MEMO"]
|
|
[:cell {:colspan 7} memo [:line]]
|
|
[:cell {:colspan 4}]]
|
|
|
|
[[:cell {:colspan 2}]
|
|
[:cell {:colspan 10 :leading 30}
|
|
[:phrase {:size 18 :ttf-name "public/micrenc.ttf"} (str "c" check "c a" (:acct-number (:bank company)) "a 10302c")]]]
|
|
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
[[:cell]
|
|
(into
|
|
[:cell {:colspan 9}]
|
|
(let [{:keys [name address1 city state zip bank]} company]
|
|
(list
|
|
[:paragraph name]
|
|
[:paragraph address1]
|
|
[:paragraph city ", " state zip]
|
|
)))
|
|
[:cell {:colspan 2 :size 13}
|
|
check]]
|
|
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
|
|
[[:cell]
|
|
[:cell {:colspan 5} [:paragraph
|
|
vendor-name "\n"
|
|
(:address1 vendor) "\n"
|
|
(:city vendor) ", " (:state vendor) " " (:zip vendor)]]
|
|
[:cell {:align :right}
|
|
"Paid to:\n"
|
|
"Amount:\n"
|
|
"Date:\n"]
|
|
|
|
[:cell {:colspan 5}
|
|
[:paragraph paid-to]
|
|
[:paragraph amount]
|
|
[:paragraph date]]]
|
|
|
|
[[:cell {:colspan 3} "Memo:"]
|
|
[:cell {:colspan 9} memo]]
|
|
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
[[:cell {:colspan 12} [:spacer]]]
|
|
|
|
[[:cell {:colspan 5}]
|
|
[:cell {:align :right :colspan 2}
|
|
"Check:\n"
|
|
"Vendor:\n"
|
|
"Bank Account:\n"
|
|
"Paid To:\n"
|
|
"Amount:\n"
|
|
"Date:\n"]
|
|
|
|
[:cell {:colspan 5}
|
|
[:paragraph check]
|
|
[:paragraph vendor-name]
|
|
[:paragraph (:name (:bank company))]
|
|
[:paragraph paid-to]
|
|
[:paragraph amount]
|
|
[:paragraph date]]]
|
|
[[:cell {:colspan 3} "Memo:"]
|
|
[:cell {:colspan 9} memo]]
|
|
])]
|
|
(doto (str "/tmp/" uuid ".pdf") println)))
|
|
|
|
(defroutes routes
|
|
(wrap-routes
|
|
(context "/checks" []
|
|
(POST "/" {:keys [edn-params]}
|
|
(let [invoices (invoices/get-multi (:invoice-ids edn-params))
|
|
companies (into {}
|
|
(map (fn [c] [(:id c) c])
|
|
(companies/get-all)))
|
|
vendors (into {}
|
|
(map (fn [v] [(:id v) v])
|
|
(vendors/get-all)))
|
|
invoices-grouped-by-vendor (group-by :vendor-id invoices)
|
|
uuid (str (UUID/randomUUID))]
|
|
|
|
|
|
(check-page (for [[vendor-id invoices] invoices-grouped-by-vendor
|
|
:let [vendor (vendors vendor-id)
|
|
company (companies (:company-id (first invoices)))
|
|
memo (str "Invoice #'s: "
|
|
(str/join ", "
|
|
(map (fn [i]
|
|
(str (:invoice-number i) "(" (:total i) ")"))
|
|
invoices)
|
|
))]]
|
|
{:vendor vendor
|
|
:paid-to (:name vendor)
|
|
:amount (reduce + 0 (map :total invoices))
|
|
:check "1234"
|
|
:memo memo
|
|
:date "5/10/2018"
|
|
:company {:name (:name company)
|
|
:address1 "123 main st"
|
|
:city "Campbell"
|
|
:state "CA"
|
|
:zip "95008"
|
|
:bank {:name "Bank of America, NA"
|
|
:acct "11-35/2010"
|
|
:acct-number "123456789"}}})
|
|
uuid)
|
|
|
|
(s3/put-object :bucket-name (:data-bucket env)
|
|
:key (str "checks/" uuid ".pdf")
|
|
:file (str "/tmp/" uuid ".pdf"))
|
|
|
|
{:status 200
|
|
:body (pr-str {:url (str "http://" (:data-bucket env) ".s3-website-us-east-1.amazonaws.com/checks/" uuid ".pdf")})
|
|
:headers {"Content-Type" "application/edn"}})))
|
|
wrap-secure))
|