added suggestions
This commit is contained in:
@@ -222,6 +222,7 @@
|
||||
:location "A"
|
||||
:amount (Math/abs (double amount))}])))
|
||||
|
||||
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
|
||||
(defn maybe-autopay-invoices [{:transaction/keys [amount client bank-account] :as transaction}]
|
||||
(when-let [autopay-invoices-matches (seq (match-transaction-to-unfulfilled-autopayments amount client))]
|
||||
(add-new-payment transaction autopay-invoices-matches bank-account client)))
|
||||
@@ -356,18 +357,3 @@
|
||||
(range)
|
||||
group)))))
|
||||
|
||||
(defn add-single-transaction [bank-account-code tx]
|
||||
(let [bank-account (d/pull (d/db conn)
|
||||
[:bank-account/code
|
||||
:db/id
|
||||
:bank-account/locations
|
||||
:bank-account/start-date
|
||||
{:client/_bank-accounts [:client/code :client/locations :db/id]} ]
|
||||
[:bank-account/code bank-account-code])]
|
||||
|
||||
(transaction->txs (-> (merge {:transaction/amount 100.0 :transaction/description-original "boring" :transaction/approval-status :transaction-approval-status/approved :transaction/status "POSTED"}
|
||||
tx)
|
||||
(assoc :transaction/bank-account (:db/id bank-account)))
|
||||
bank-account
|
||||
(rm/rule-applying-fn (tr/get-all)))))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user