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

adds invoices dates

Browse Source
This commit is contained in:
Bryce
2026-05-23 12:28:21 -07:00
parent 03bfca35cb
commit 3715910029
3 changed files with 86 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
test/clj/auto_ap/test_server.clj
View File

@@ -3,7 +3,7 @@
(:require
[auto-ap.datomic :refer [conn transact-schema install-functions]]
[auto-ap.handler :as handler]
[auto-ap.integration.util :refer [setup-test-data test-client test-bank-account test-transaction]]
[auto-ap.integration.util :refer [setup-test-data test-client test-bank-account test-transaction test-payment test-invoice]]
[auto-ap.routes.transactions :as route]
[auto-ap.ssr.transaction.edit :as edit]
[auto-ap.ssr.components.multi-modal :as mm]
@@ -117,7 +117,39 @@
:transaction/bank-account "bank-account-id"
:transaction/amount 300.0
:transaction/description-original "Third transaction"
:transaction/approval-status :transaction-approval-status/unapproved)])
:transaction/approval-status :transaction-approval-status/unapproved)
;; Transaction and payment for link testing
(test-transaction :db/id "transaction-id-payment"
:transaction/client "client-id"
:transaction/bank-account "bank-account-id"
:transaction/amount -100.0
:transaction/description-original "Transaction for payment link"
:transaction/approval-status :transaction-approval-status/unapproved)
(test-payment :db/id "payment-id"
:payment/client "client-id"
:payment/vendor "vendor-id"
:payment/bank-account "bank-account-id"
:payment/amount 100.0
:payment/status :payment-status/pending
:payment/date #inst "2023-06-15")
;; Transaction and unpaid invoice for link testing
(test-transaction :db/id "transaction-id-unpaid"
:transaction/client "client-id"
:transaction/bank-account "bank-account-id"
:transaction/amount -150.0
:transaction/description-original "Transaction for unpaid invoice link"
:transaction/approval-status :transaction-approval-status/unapproved)
(test-invoice :db/id "invoice-unpaid-id"
:invoice/client "client-id"
:invoice/vendor "vendor-id"
:invoice/total 150.0
:invoice/outstanding-balance 150.0
:invoice/status :invoice-status/unpaid
:invoice/date #inst "2023-07-20"
:invoice/invoice-number "UNPAID-001"
:invoice/expense-accounts [{:invoice-expense-account/account "account-id"
:invoice-expense-account/amount 150.0
:invoice-expense-account/location "DT"}])])
tempids (:tempids tx-result)
tx-entity-id (get tempids "transaction-id")]
(println "Test transaction entity ID:" tx-entity-id)