notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

fixes issue with importing of cash transactions.

Browse Source
This commit is contained in:
Bryce
2023-07-06 21:00:12 -07:00
parent 1756051092
commit 265eebe084
1 changed files with 23 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
src/clj/auto_ap/routes/invoices.clj
View File

@@ -209,27 +209,29 @@
:status :payment-status/cleared :status :payment-status/cleared
:date (:invoice/date invoice)})}) :date (:invoice/date invoice)})})
transaction (when (= :invoice-status/paid (:invoice/status invoice)) transaction (when (= :invoice-status/paid (:invoice/status invoice))
(let [[[bank-account]] (dc/q '[:find ?ba (let [[[bank-account]] (seq (dc/q '[:find ?ba
:in $ ?c :in $ ?c
:where [?c :client/bank-accounts ?ba] :where [?c :client/bank-accounts ?ba]
[?ba :bank-account/type :bank-account-type/cash] [?ba :bank-account/type :bank-account-type/cash]
] ]
(dc/db conn) (dc/db conn)
client-id)] client-id))]
#:transaction {:amount (- (:invoice/total invoice)) [:upsert-transaction #:transaction {:amount (- (:invoice/total invoice))
:payment payment-id :payment payment-id
:client (:invoice/client invoice) :client (:invoice/client invoice)
:status "POSTED" :status "POSTED"
:bank-account bank-account :bank-account bank-account
:id #_ {:clj-kondo/ignore [:unresolved-var]} (digest/sha-256 transaction-id) :db/id #_ {:clj-kondo/ignore [:unresolved-var]} (digest/sha-256 transaction-id)
:raw-id transaction-id :id #_ {:clj-kondo/ignore [:unresolved-var]} (digest/sha-256 transaction-id)
:vendor (:invoice/vendor invoice) :raw-id transaction-id
:description-original "Cash payment" :vendor (:invoice/vendor invoice)
:date (to-date date) :description-original "Cash payment"
:approval-status :transaction-approval-status/approved :date (to-date date)
:accounts [{:transaction-account/account (:db/id (a/get-account-by-numeric-code-and-sets 21000 ["default"])) :approval-status :transaction-approval-status/approved
:transaction-account/location "A" :accounts [{:db/id (str #_ {:clj-kondo/ignore [:unresolved-var]} (digest/sha-256 transaction-id) "-account")
:transaction-account/amount (Math/abs (:invoice/total invoice))}]})) :transaction-account/account (:db/id (a/get-account-by-numeric-code-and-sets 21000 ["default"]))
:transaction-account/location "A"
:transaction-account/amount (Math/abs (:invoice/total invoice))}]}]))
] ]
[[:propose-invoice (d-invoices/code-invoice (validate-invoice (remove-nils invoice) [[:propose-invoice (d-invoices/code-invoice (validate-invoice (remove-nils invoice)
user))] user))]