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

added basics of ccp processor visibility.

Browse Source
This commit is contained in:
Bryce Covert
2021-06-04 23:01:59 -07:00
parent 922c449bb0
commit 002dcfc5ac
7 changed files with 40 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/clj/auto_ap/datomic/migrate.clj
View File

@@ -341,10 +341,7 @@
ledger/norms-map
yodlee2/norms-map
audit/norms-map
vendors/norms-map
)
]
vendors/norms-map)]
(println "Conforming database...")
(c/ensure-conforms conn norms-map)
#_(when (not (seq args))

18
src/clj/auto_ap/datomic/migrate/sales.clj
View File

@@ -92,6 +92,7 @@
:db/cardinality :db.cardinality/one}
]]}
:add-expected-deposits {:txes [[{:db/ident :expected-deposit/external-id
:db/doc "The external id for the deposit"
:db/valueType :db.type/string
@@ -123,6 +124,7 @@
:db/valueType :db.type/double
:db/cardinality :db.cardinality/one}]]}
:add-discounts {:txes [[{:db/ident :sales-order/discount
:db/doc "The total amount on the sale"
:db/valueType :db.type/double
@@ -145,7 +147,21 @@
{:db/ident :sales-order/service-charge
:db/doc "The total cost on the item"
:db/valueType :db.type/double
:db/cardinality :db.cardinality/one}]]}})
:db/cardinality :db.cardinality/one}]]}
:add-food-apps {:txes [[{:db/ident :ccp-processor/doordash
:db/doc "Doordash identifier"}
{:db/ident :ccp-processor/grubhub
:db/doc "Grubhub identifier"}
{:db/ident :ccp-processor/uber-eats
:db/doc "Uber eats processor"}
{:db/ident :ccp-processor/na
:db/doc "No specific ccp processor"}
{:db/ident :charge/processor
:db/doc "Which food app processed this order"
:db/valueType :db.type/ref
:db/cardinality :db.cardinality/one}]]}})

9
src/clj/auto_ap/datomic/sales_orders.clj
View File

@@ -8,10 +8,15 @@
(defn <-datomic [result]
(-> result
(update :sales-order/date c/from-date)))
(update :sales-order/date c/from-date)
(update :sales-order/charges (fn [cs]
(map (fn [c]
(update c :charge/processor :db/ident))
cs)))))
(def default-read '[*
{:sales-order/client [:client/name :db/id :client/code]}])
{:sales-order/client [:client/name :db/id :client/code]
:sales-order/charges [* {:charge/processor [:db/ident]}]}])
(defn raw-graphql-ids [db args]
(let [query (cond-> {:query {:find []