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

Hovering fix

Browse Source
This commit is contained in:
Bryce Covert
2019-09-12 20:47:16 -07:00
parent 051280970f
commit dbe4c7b9c4
6 changed files with 57 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/clj/auto_ap/graphql/ledger.clj
View File

@@ -103,6 +103,7 @@
(defn get-profit-and-loss [context args value]
(let [args (assoc args :id (:id context))
pnl (fn [from-date to-date]
(println from-date to-date)
(let [[starting-results] (l/get-graphql {:client-id (:client_id args)
:to-date from-date
:count Integer/MAX_VALUE})
@@ -119,7 +120,7 @@
[]
ending-accounts)))]
(->graphql
{:balance-sheet-accounts (pnl (coerce/to-date (:from_date args))
{:balance-sheet-accounts (pnl (coerce/to-date (time/minus (:from_date args) (time/days 1)))
(coerce/to-date (:to_date args)))
:comparable-balance-sheet-accounts (pnl (coerce/to-date (coerce/to-date (time/minus (coerce/to-date-time (:from_date args)) (time/years 1))))
(coerce/to-date (coerce/to-date (time/minus (coerce/to-date-time (:to_date args)) (time/years 1)))))})))

3
src/clj/auto_ap/graphql/transaction_rules.clj
View File

@@ -160,7 +160,8 @@
(not include-coded?)
(merge-query {:query {:where ['[?e :transaction/approval-status :transaction-approval-status/unapproved]]}})
(merge-query {:query {:where ['[or [?e :transaction/approval-status :transaction-approval-status/unapproved]
[(missing? $ ?e :transaction/approval-status)]]]}})
true
(merge-query {:query {:where ['[?e :transaction/id]]}})))