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

small tweaks to prep for staging environment.

Browse Source
This commit is contained in:
Bryce Covert
2021-12-24 08:19:11 -08:00
parent dfc88602a0
commit e7ae9e5df0
7 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/clj/auto_ap/import/yodlee.clj
View File

@@ -67,7 +67,6 @@
(def import-yodlee (allow-once import-yodlee))
(mount/defstate import-worker
:start (scheduler/every (* 1000 60 60 8) import-yodlee)
:stop (scheduler/stop import-worker))

14
src/clj/user.clj
View File

@@ -650,7 +650,7 @@
]))
(into {}))]
(->>
(for [[invoice-id invoice-expense-account-id target-account _ amount expense-account location] (drop 1 data)
(for [[invoice-id invoice-expense-account-id target-account target-date amount expense-account location] (drop 1 data)
:let [
invoice-id (Long/parseLong invoice-id)
@@ -668,6 +668,9 @@
(d/entity db invoice-expense-account-id))
current-account-id (:db/id (:invoice-expense-account/account invoice-expense-account))
target-account-id (Long/parseLong (str/trim target-account))
target-date (clj-time.coerce/to-date (auto-ap.time/parse target-date auto-ap.time/normal-date))
current-date (:invoice/date invoice)
current-expense-account-amount (:invoice-expense-account/amount invoice-expense-account)
@@ -693,8 +696,13 @@
{:db/id invoice-id
:invoice/total target-total})
{:db/id invoice-id
:invoice/expense-accounts invoice-expense-account-id}
(when new-account?
{:db/id invoice-id
:invoice/expense-accounts invoice-expense-account-id})
(when (and target-date (not= current-date target-date))
{:db/id invoice-id
:invoice/date target-date})
(when (and
(not (auto-ap.utils/dollars= current-total target-total))