New import approach to capture the batch.
This commit is contained in:
@@ -566,7 +566,7 @@
|
||||
(str (UUID/randomUUID)))
|
||||
expected-deposit-id (or (first (find-queries [client-code "expected-deposit"]))
|
||||
(str (UUID/randomUUID)))
|
||||
tender-id (or (first (find-queries [client-code "charge"]))
|
||||
tender-id (or (first (find-queries [client-code ":charge"]))
|
||||
(str (UUID/randomUUID)))
|
||||
refund-id (or (first (find-queries [client-code "sales-refund"]))
|
||||
(str (UUID/randomUUID)))]
|
||||
@@ -597,7 +597,7 @@
|
||||
(let [sales-summary-id (first (find-queries [client-code "service-charge"]))
|
||||
sales-category-id (first (find-queries [client-code "item-name"]))
|
||||
expected-deposit-id (first (find-queries [client-code "expected-deposit"]))
|
||||
tender-id (first (find-queries [client-code "charge"]))
|
||||
tender-id (first (find-queries [client-code ":charge"]))
|
||||
refund-id (first (find-queries [client-code "sales-refund"]))]
|
||||
|
||||
(println "For" client-code ":")
|
||||
@@ -605,9 +605,8 @@
|
||||
(println "Sales Category: " (str "https://app.integreatconsult.com/api/queries/" sales-category-id "/results/json"))
|
||||
(println "Expected Deposits: " (str "https://app.integreatconsult.com/api/queries/" expected-deposit-id "/results/json"))
|
||||
(println "Tenders: " (str "https://app.integreatconsult.com/api/queries/" tender-id "/results/json"))
|
||||
(println "Sales Category: " (str "https://app.integreatconsult.com/api/queries/" refund-id "/results/json"))
|
||||
(println "")
|
||||
))
|
||||
(println "Refund: " (str "https://app.integreatconsult.com/api/queries/" refund-id "/results/json"))
|
||||
(println "")))
|
||||
|
||||
|
||||
(defn historical-load-sales [client-code days]
|
||||
@@ -726,8 +725,7 @@
|
||||
:where [_ :db/ident ?i]
|
||||
[(namespace ?i) ?p]] (d/db auto-ap.datomic/conn) prefix)
|
||||
(mapcat identity)
|
||||
vec
|
||||
))
|
||||
vec))
|
||||
|
||||
(defn manually-add-transaction []
|
||||
(auto-ap.yodlee.import/transactions->txs [{:postDate "2014-01-04"
|
||||
|
||||
Reference in New Issue
Block a user