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

Making manual import work in datomic

Browse Source
This commit is contained in:
Bryce Covert
2018-11-09 10:47:47 -08:00
parent 5a25462c5f
commit de8563a60b
11 changed files with 80 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/clj/auto_ap/datomic.clj
View File

@@ -618,7 +618,8 @@
:date (coerce/to-date date)
:customer-identifier customer-identifier
:client [:client/original-id company-id]
:vendor [:vendor/original-id vendor-id]
:vendor (when vendor-id [:vendor/original-id vendor-id])
:default-location default-location
:default-expense-account default-expense-account
:total (double total)
@@ -646,7 +647,7 @@
:s3-uuid s3-uuid
:s3-key s3-key
:s3-url s3-url
:vendor [:vendor/original-id vendor-id]
:vendor (when vendor-id [:vendor/original-id vendor-id])
:client [:client/original-id company-id]
:bank-account (when bank-account-id [:bank-account/original-id (str company-id "-" bank-account-id)])
:check-number check-number
@@ -752,7 +753,7 @@
@(load-vendors all-vendors))
(let [all-clients (c/get-all)]
@(load-clients all-clients))
@(load-invoices (i/get-all))
@(load-invoices (i/get-all))
@(load-payments (checks/get-all))
@(load-invoices-payments (ic/get-all))
@(load-invoices-expense-accounts (iea/get-all))