print as

src/clj/auto_ap/routes/checks.clj

@@ -32,7 +32,7 @@
   (let [output-stream (ByteArrayOutputStream.)]
     (pdf/pdf
      [{:left-margin 10 :right-margin 0 :top-margin 0 :bottom-margin 0 :size :letter}
-      (let [{:keys [paid-to company check date amount memo] {vendor-name :name :as vendor} :vendor} check
+      (let [{:keys [paid-to company check date amount memo] {print-as :print-as vendor-name :name :as vendor} :vendor} check
             df (DecimalFormat. "#,###.00") 
             word-amount (num->words amount)
             
@@ -51,7 +51,9 @@
 
          [[:cell {:size 16 :leading 16} "PAY"]
           [:cell {:size 6 :leading 6 }  "TO THE ORDER OF"]
-          [:cell {:colspan 7} vendor-name]
+          [:cell {:colspan 7} (if (seq print-as)
+                                print-as
+                                vendor-name)]
           [:cell {:colspan 3} amount]]
 
          [[:cell {}]
@@ -226,7 +228,7 @@
     (companies/upsert company-id updated-company)
     (doseq [{:keys [invoice-id amount]} invoice-payments]
       (invoices/apply-payment invoice-id amount))
-    {:invoices (invoices/get-multi (map :id (doto (mapcat first checks) println)))
+    {:invoices (invoices/get-multi (map :id (mapcat first checks)))
      :pdf-url (merge-pdfs (map (comp :s3-key second) checks))}))