diff --git a/src/clj/auto_ap/graphql/invoices.clj b/src/clj/auto_ap/graphql/invoices.clj index 7a42d068..2842a2c4 100644 --- a/src/clj/auto_ap/graphql/invoices.clj +++ b/src/clj/auto_ap/graphql/invoices.clj @@ -334,19 +334,20 @@ '[?ea :invoice-expense-account/amount ?ea-amount ?tx false]] :in ['$ '?e]} history id) - [last-transaction] (->> txs (sort-by first) (last))] - (audit-transact [[:upsert-invoice - (->> txs - (filter (fn [[tx]] (= tx last-transaction))) - (reduce (fn [new-transaction [_ entity original-status original-outstanding total expense-account expense-account-amount]] - (-> new-transaction - (assoc :db/id entity - :invoice/total total - :invoice/status original-status - :invoice/outstanding-balance original-outstanding) - (update :invoice/expense-accounts (fnil conj []) {:db/id expense-account :invoice-expense-account/amount expense-account-amount}))) - {}))]] - (:id context)) + [last-transaction] (->> txs (sort-by first) (last)) + tx [[:upsert-invoice + (->> txs + (filter (fn [[tx]] (= tx last-transaction))) + (reduce (fn [new-transaction [_ entity original-status original-outstanding total expense-account expense-account-amount]] + (-> new-transaction + (assoc :db/id entity + :invoice/total total + :invoice/status original-status + :invoice/outstanding-balance original-outstanding) + (update :invoice/expense-accounts (fnil conj []) {:db/id expense-account :invoice-expense-account/amount expense-account-amount}))) + {}))]]] + (alog/info ::unvoiding-invoice :transaction :tx) + (audit-transact tx (:id context)) (-> (d-invoices/get-by-id id) (->graphql (:id context)))))