From 3d0f079de2493efa328e848ecb5090cce4afa682 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Thu, 3 Sep 2020 18:20:55 -0700 Subject: [PATCH] fixing vendor bug. --- src/clj/auto_ap/graphql/ledger.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/clj/auto_ap/graphql/ledger.clj b/src/clj/auto_ap/graphql/ledger.clj index 26b66791..3cd590fb 100644 --- a/src/clj/auto_ap/graphql/ledger.clj +++ b/src/clj/auto_ap/graphql/ledger.clj @@ -250,7 +250,7 @@ :journal-entry/client [:client/code (:client_code entry)] :journal-entry/date (coerce/to-date (parse/parse-value :clj-time "MM/dd/yyyy" (:date entry))) :journal-entry/external-id (:external_id entry) - :journal-entry/vendor (all-vendors (:vendor_name entry)) + :journal-entry/vendor (:db/id (all-vendors (:vendor_name entry))) :journal-entry/amount (:amount entry) :journal-entry/note (:note entry) :journal-entry/cleared-against (:cleared_against entry) @@ -287,10 +287,10 @@ success)] (log/info "manual ledger import has " (count success) " new rows") (run! (fn [batch] - (log/info "transacting retraction batch") + (log/info "transacting retraction batch" (first batch)) @(d/transact (d/connect uri) batch)) (partition-all 100 retraction)) (run! (fn [batch] - (log/info "transacting success batch") + (log/info "transacting success batch" (first batch)) @(d/transact (d/connect uri) batch)) (partition-all 100 success)) {:successful (map (fn [x] {:external_id (:journal-entry/external-id x)}) success) :existing []