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

Add vendor pre-population for bulk code and individual edit forms

Browse Source 
- Add vendor-changed HTMX handlers for both bulk code and individual edit
- Pre-populate default account at 100% when vendor is selected and no accounts exist
- Fix render-accounts-section to render from step-params correctly
- Change bulk code vendor-changed from hx-get to hx-post to include form data
- Add routes for vendor-changed endpoints
- Update e2e tests to cover vendor pre-population
- Run lein cljfmt fix across codebase
This commit is contained in:
Bryce
2026-05-21 14:45:19 -07:00
parent 8bd0cee1b1
commit ba87805d4c
210 changed files with 8694 additions and 9627 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
test/clj/auto_ap/integration/graphql/invoices.clj
View File

@@ -77,7 +77,7 @@
:expense_accounts [{:amount 100.0
:location "DT"
:account_id new-account-id}]}}
nil)))
nil)))
(is (= #:invoice{:invoice-number "890213"
:date #inst "2023-01-01T00:00:00.000-00:00"
:total 100.0
@@ -118,11 +118,11 @@
(setup-test-data [(test-invoice :db/id "invoice-id")
(test-account :db/id "new-account-id")])]
(is (some? (sut/edit-expense-accounts {:id (admin-token)}
{:invoice_id invoice-id
:expense_accounts [{:amount 100.0
:account_id new-account-id
:location "DT"}]}
nil)))
{:invoice_id invoice-id
:expense_accounts [{:amount 100.0
:account_id new-account-id
:location "DT"}]}
nil)))
(is (= [#:invoice-expense-account{:amount 100.0
:location "DT"
:account {:db/id new-account-id}}]
@@ -145,7 +145,7 @@
:accounts [{:percentage 1.0
:account_id new-account-id
:location "Shared"}]}
nil)))
nil)))
(is (= [#:invoice-expense-account{:amount 100.0
:location "DT"
:account {:db/id new-account-id}}]
@@ -163,35 +163,7 @@
(test-account :db/id "new-account-id")])]
(is (some? (sut/void-invoices {:id (admin-token) :clients [{:db/id test-client-id}]}
{:filters {:client_id test-client-id}}
nil)))
(is (= :invoice-status/voided
(-> (d/pull (d/db conn) [{:invoice/status [:db/ident]}]
invoice-id)
:invoice/status
:db/ident)))
(testing "Should unvoid invoice"
(is (some? (sut/unvoid-invoice {:id (admin-token)}
{:invoice_id invoice-id}
nil)))
(is (= :invoice-status/unpaid
(-> (d/pull (d/db conn) [{:invoice/status [:db/ident]}]
invoice-id)
:invoice/status
:db/ident)))))))
(deftest void-invoice
(testing "It should voide invoices in bulk"
(let [{:strs [invoice-id]}
(setup-test-data [(test-invoice :db/id "invoice-id"
:invoice/status :invoice-status/unpaid)
(test-account :db/id "new-account-id")])]
(is (some? (sut/void-invoice {:id (admin-token)}
{:invoice_id invoice-id}
{:filters {:client_id test-client-id}}
nil)))
(is (= :invoice-status/voided
(-> (d/pull (d/db conn) [{:invoice/status [:db/ident]}]
@@ -201,8 +173,34 @@
(testing "Should unvoid invoice"
(is (some? (sut/unvoid-invoice {:id (admin-token)}
{:invoice_id invoice-id}
nil)))
{:invoice_id invoice-id}
nil)))
(is (= :invoice-status/unpaid
(-> (d/pull (d/db conn) [{:invoice/status [:db/ident]}]
invoice-id)
:invoice/status
:db/ident)))))))
(deftest void-invoice
(testing "It should voide invoices in bulk"
(let [{:strs [invoice-id]}
(setup-test-data [(test-invoice :db/id "invoice-id"
:invoice/status :invoice-status/unpaid)
(test-account :db/id "new-account-id")])]
(is (some? (sut/void-invoice {:id (admin-token)}
{:invoice_id invoice-id}
nil)))
(is (= :invoice-status/voided
(-> (d/pull (d/db conn) [{:invoice/status [:db/ident]}]
invoice-id)
:invoice/status
:db/ident)))
(testing "Should unvoid invoice"
(is (some? (sut/unvoid-invoice {:id (admin-token)}
{:invoice_id invoice-id}
nil)))
(is (= :invoice-status/unpaid
(-> (d/pull (d/db conn) [{:invoice/status [:db/ident]}]
invoice-id)