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

Adds bottom paginator, fixes ledger issue triggered by cash payment, defaults coding to 100 percent

Browse Source
This commit is contained in:
Bryce
2023-06-26 20:33:14 -07:00
parent 4d4678f6f7
commit b6fe435063
20 changed files with 153 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
src/clj/auto_ap/graphql/checks.clj
View File

@@ -354,24 +354,24 @@
:payment/date (coerce/to-date (last (sort (map :invoice/date invoices))))
:payment/memo memo
:payment/status :payment-status/cleared)
transaction {:db/id (str "transaction-" (:db/id vendor))
:transaction/amount (- (:payment/amount base-payment))
:transaction/payment (str (:db/id vendor))
:transaction/client (:db/id client)
:transaction/status "POSTED"
:transaction/bank-account (:db/id bank-account)
:transaction/id #_{:clj-kondo/ignore [:unresolved-var]} (digest/sha-256 transaction-id)
:transaction/raw-id transaction-id
:transaction/vendor (:db/id vendor)
:transaction/description-original memo
:transaction/date (:payment/date payment)
:transaction/approval-status :transaction-approval-status/approved
:transaction/accounts [{:transaction-account/account (:db/id (a/get-account-by-numeric-code-and-sets 21000 ["default"]))
:transaction-account/location "A"
:transaction-account/amount (Math/abs (:payment/amount base-payment))}]}]
transaction [:upsert-transaction {:db/id (str "transaction-" (:db/id vendor))
:transaction/amount (- (:payment/amount base-payment))
:transaction/payment (str (:db/id vendor))
:transaction/client (:db/id client)
:transaction/status "POSTED"
:transaction/bank-account (:db/id bank-account)
:transaction/id #_{:clj-kondo/ignore [:unresolved-var]} (digest/sha-256 transaction-id)
:transaction/raw-id transaction-id
:transaction/vendor (:db/id vendor)
:transaction/description-original memo
:transaction/date (:payment/date payment)
:transaction/approval-status :transaction-approval-status/approved
:transaction/accounts [{:transaction-account/account (:db/id (a/get-account-by-numeric-code-and-sets 21000 ["default"]))
:transaction-account/location "A"
:transaction-account/amount (Math/abs (:payment/amount base-payment))}]}]]
(-> []
(conj payment)
(conj transaction)
(conj transaction)
(into (invoice-payments invoices invoice-amounts)))))
(defn validate-belonging [client-id invoices bank-account]