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

adding approach to fixing sql.

Browse Source
This commit is contained in:
BC
2018-09-20 20:49:38 -07:00
parent 6c6ed0ebb7
commit 82f56c37cd
1 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
scratch-sessions/fix-account-id.sql Normal file
View File

@@ -0,0 +1,18 @@
(defn original-base-id [{:keys [date bank-account-id description-original company-id amount]} index]
(str (t/to-time-zone date (t/time-zone-for-offset -7)) "-" description-original "-" (double amount) "-" index "-" company-id))
(defn new-base-id [{:keys [date bank-account-id description-original company-id amount]} index]
(str (t/to-time-zone date (t/time-zone-for-offset -7)) "-" bank-account-id "-" description-original "-" (double amount) "-" index "-" company-id))
(defn replacements []
(loop [rows (get-graphql {:limit 100000})
replacements []
i 0]
(let [result (->> rows
(filter #(= (:id %) (sha-256 (original-base-id % i))))
(map #(assoc % :new-id (sha-256 (new-base-id % i)))))]
(if (= 10 i)
(into replacements result)
(recur rows (into replacements result ) (inc i))))))