started on expense accounts.
This commit is contained in:
9
src/clj/auto_ap/graphql/expense_accounts.clj
Normal file
9
src/clj/auto_ap/graphql/expense_accounts.clj
Normal file
@@ -0,0 +1,9 @@
|
||||
(ns auto-ap.graphql.expense-accounts
|
||||
(:require [auto-ap.graphql.utils :refer [->graphql]]
|
||||
[auto-ap.expense-accounts :as expense-accounts]))
|
||||
|
||||
(defn get-expense-account [context args value]
|
||||
(->graphql (expense-accounts/expense-accounts (:expense_account_id value))))
|
||||
|
||||
(defn get-parent [context args value]
|
||||
(->graphql (expense-accounts/expense-accounts (:parent value))))
|
||||
@@ -1,6 +1,7 @@
|
||||
(ns auto-ap.graphql.invoices
|
||||
(:require [auto-ap.graphql.utils :refer [->graphql]]
|
||||
[auto-ap.db.invoices :as invoices]
|
||||
[auto-ap.db.invoices-expense-accounts :as invoices-expense-accounts]
|
||||
[auto-ap.time :refer [parse normal-date]]))
|
||||
|
||||
(defn add-invoice [context {{:keys [total invoice_number company_id vendor_id date] :as in} :invoice} value]
|
||||
@@ -15,3 +16,8 @@
|
||||
:date (parse date normal-date)}])
|
||||
(first)
|
||||
(->graphql)))
|
||||
|
||||
|
||||
(defn get-invoices-expense-accounts [context args value]
|
||||
(->graphql
|
||||
(invoices-expense-accounts/get-for-invoice (:id value))))
|
||||
|
||||
Reference in New Issue
Block a user