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]
|
(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)))
|
(apply-rules transaction valid-locations)))
|
||||||
|
|
||||||
(defn transaction->txs [transaction bank-account apply-rules]
|
(defn transaction->txs [transaction bank-account apply-rules]
|
||||||
|
|||||||
@@ -23,7 +23,7 @@
|
|||||||
|
|
||||||
(def schema
|
(def schema
|
||||||
(m/schema [:map
|
(m/schema [:map
|
||||||
[:vendor schema/reference]
|
[:vendor {:optional true} [:maybe schema/reference]]
|
||||||
[:accounts expense-accounts-field/schema]
|
[:accounts expense-accounts-field/schema]
|
||||||
[:approval-status schema/approval-status]]))
|
[:approval-status schema/approval-status]]))
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user