couple of fixes.
This commit is contained in:
@@ -241,7 +241,7 @@
|
||||
))))
|
||||
|
||||
(defn maybe-code [{:transaction/keys [client amount] :as transaction} apply-rules valid-locations]
|
||||
(when (seq (match-transaction-to-unpaid-invoices amount client))
|
||||
(when-not (seq (match-transaction-to-unpaid-invoices amount client))
|
||||
(apply-rules transaction valid-locations)))
|
||||
|
||||
(defn transaction->txs [transaction bank-account apply-rules]
|
||||
|
||||
@@ -23,7 +23,7 @@
|
||||
|
||||
(def schema
|
||||
(m/schema [:map
|
||||
[:vendor schema/reference]
|
||||
[:vendor {:optional true} [:maybe schema/reference]]
|
||||
[:accounts expense-accounts-field/schema]
|
||||
[:approval-status schema/approval-status]]))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user