due date exists.

src/clj/auto_ap/graphql/invoices.clj

@@ -11,13 +11,13 @@
             [datomic.api :as d]
             [auto-ap.datomic :refer [uri remove-nils]]
             [clj-time.coerce :as coerce]
+            [clj-time.core :as time]
             [clojure.set :as set]))
 
 (defn get-invoice-page [context args value]
-  (println "HI")
+  
   (let [args (assoc args :id (:id context))
         [invoices invoice-count] (d-invoices/get-graphql (<-graphql (assoc args :id (:id context))))]
-    (println "HELLO" (take 1 invoices ) invoice-count)
     [{:invoices (map ->graphql invoices)
       :total invoice-count
       :count (count invoices)
@@ -57,21 +57,25 @@
                                           :location location}))
 
 (defn add-invoice-transaction [{:keys [total invoice_number location client_id vendor_id vendor_name date expense_accounts] :as in}]
+  (println date)
   (let [vendor (d-vendors/get-by-id vendor_id)
         account (:vendor/default-account vendor)
         _ (when-not (:db/id account)
             (throw (ex-info (str "Vendor '" (:vendor/name vendor) "' does not have a default expense acount.") {:vendor-id vendor_id} )))]
-    {:db/id "invoice"
-     :invoice/invoice-number invoice_number
-     :invoice/client client_id
-     :invoice/vendor vendor_id
-     :invoice/import-status :import-status/imported
-     :invoice/total total
-     :invoice/outstanding-balance total
-     :invoice/status :invoice-status/unpaid
-     :invoice/date  (coerce/to-date date)
-     :invoice/expense-accounts (map expense-account->entity
-                                    expense_accounts)}))
+    (cond-> 
+        {:db/id "invoice"
+         :invoice/invoice-number invoice_number
+         :invoice/client client_id
+         :invoice/vendor vendor_id
+         :invoice/import-status :import-status/imported
+         :invoice/total total
+         :invoice/outstanding-balance total
+         :invoice/status :invoice-status/unpaid
+         :invoice/date  (coerce/to-date date)
+         :invoice/expense-accounts (map expense-account->entity
+                                        expense_accounts)}
+      (:vendor/terms vendor) (assoc :invoice/due (coerce/to-date
+                                                  (time/plus date (time/days (:vendor/terms vendor))))))))
 
 
 (defn deleted-expense-accounts [invoice expense-accounts]