fixes for kyle, ben, and cashflows.
This commit is contained in:
@@ -55,6 +55,7 @@
|
||||
|
||||
:account/invoice-allowance (some-> invoice-allowance (enum->keyword "allowance"))
|
||||
:account/vendor-allowance (some-> vendor-allowance (enum->keyword "allowance"))
|
||||
:account/default-allowance :allowance/allowed
|
||||
:account/account-set account-set
|
||||
:account/location location
|
||||
:account/numeric-code (when-not id
|
||||
|
||||
@@ -454,7 +454,7 @@
|
||||
:bank-account-id (:db/id (:transaction/bank-account transaction))
|
||||
:amount (- (:transaction/amount transaction))
|
||||
:status :payment-status/pending
|
||||
:date-range {:start (time/plus (:transaction/date transaction) (time/days 1))}})]
|
||||
:date-range {:start (time/plus (:transaction/date transaction) (time/days -90))}})]
|
||||
(map ->graphql (reverse (sort-by :payment/date payments)))))
|
||||
|
||||
(defn add-handwritten-check [context args _]
|
||||
|
||||
@@ -121,9 +121,14 @@
|
||||
(<= start account-code end)))
|
||||
first
|
||||
last)]
|
||||
(if (= operation :add)
|
||||
amount
|
||||
(- amount))))
|
||||
(cond (= operation :add)
|
||||
amount
|
||||
|
||||
(= operation :subtract)
|
||||
(- amount)
|
||||
|
||||
:else
|
||||
amount)))
|
||||
|
||||
(defn min-numeric-code [category]
|
||||
(->> (groupings category)
|
||||
|
||||
Reference in New Issue
Block a user