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

datomic progress.

Browse Source
This commit is contained in:
BC
2018-08-10 07:21:41 -07:00
parent 29eb684d6f
commit f0512085ab
1 changed files with 26 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -40,10 +40,12 @@
:db/valueType :db.type/ref
:db/cardinality :db.cardinality/one
:db/doc "The vendor's secondary contact"}
{:db/ident :vendor/address
{:db/id #db/id[:db.part/db]
:db/ident :vendor/address
:db/valueType :db.type/ref
:db/cardinality :db.cardinality/one
:db/isComponent true
:db.install/_attribute :db.part/db
:db/doc "The vendor's address"}
{:db/ident :address/street1
@@ -92,28 +94,28 @@
(d/transact
(d/connect uri)
(let [all-vendors (v/get-all)]
(doto (map
(fn [{:keys [primary-phone address email primary-contact secondary-email secondary-contact primary-email name default-expense-account id code secondary-phone invoice-reminder-schedule print-as]}]
(cond-> #:vendor {#_#_:db/ident id
:name name}
email (assoc :vendor/email email)
invoice-reminder-schedule (assoc :vendor/invoice-reminder-schedule invoice-reminder-schedule)
(and address
(:street1 address)
(:street2 address)
(:city address)
(:state address)
(:zip address))
(assoc :vendor/address #:address {
:street1 (:street1 address)
:street2 (:street2 address)
:city (:city address)
:state (:state address)
:zip (:zip address)})))
all-vendors)
(doto (take 5 (map
(fn [{:keys [primary-phone address email primary-contact secondary-email secondary-contact primary-email name default-expense-account id code secondary-phone invoice-reminder-schedule print-as]}]
(cond-> #:vendor {:db/ident (keyword (str "vendor-" id))
:name name}
email (assoc :vendor/email email)
invoice-reminder-schedule (assoc :vendor/invoice-reminder-schedule invoice-reminder-schedule)
(and address
(:street1 address)
(:street2 address)
(:city address)
(:state address)
(:zip address))
(assoc :vendor/address #:address {
:street1 (:street1 address)
:street2 (:street2 address)
:city (:city address)
:state (:state address)
:zip (:zip address)})))
all-vendors))
clojure.pprint/pprint)
)))
@@ -124,6 +126,5 @@
(create-database uri)
@(create-schema )
@(load-entities)
@(load-vendors)
(count (query-entities)))
@(load-vendors))