Revert "Trying one fix"

This reverts commit 5e260f2f9d.
This commit is contained in:
2022-12-10 13:49:01 -08:00
parent 5e260f2f9d
commit 2d3b796793
6 changed files with 110 additions and 60 deletions

View File

@@ -30,7 +30,8 @@
:per-page (:per-page params)
:vendor-id (:id (:vendor params))
:client-id (:client-id params )
:numeric-code (:numeric-code params)
:from-numeric-code (:from-numeric-code params)
:to-numeric-code (:to-numeric-code params)
:date-range (:date-range params)}))
@@ -119,10 +120,11 @@ NOTE: Please review the transactions we may have question for you here: https://
(re-frame/reg-event-fx
::investigate-clicked
(fn [{:keys [db]} [_ {:keys [numeric-code date-range]}]]
(fn [{:keys [db]} [_ {:keys [from-numeric-code to-numeric-code date-range]}]]
{:db (-> db (assoc ::ledger-list-active? true))
:dispatch [::data-page/additional-params-changed ::ledger {:client-id (:id @(re-frame/subscribe [::subs/client]))
:numeric-code numeric-code
:from-numeric-code from-numeric-code
:to-numeric-code to-numeric-code
:date-range {:start "2000-01-01"
:end (date->str date-range standard)}}]}))

View File

@@ -170,7 +170,8 @@ NOTE: Please review the transactions we may have question for you here: https://
:per-page (:per-page params)
:vendor-id (:id (:vendor params))
:client-id (:client-id params)
:numeric-code (:numeric-code params)
:from-numeric-code (:from-numeric-code params)
:to-numeric-code (:to-numeric-code params)
:location (:location params)
:date-range (:date-range params)}))
@@ -206,11 +207,12 @@ NOTE: Please review the transactions we may have question for you here: https://
(re-frame/reg-event-fx
::investigate-clicked
(fn [{:keys [db]} [_ {:keys [location numeric-code client-id]
(fn [{:keys [db]} [_ {:keys [location from-numeric-code to-numeric-code client-id]
{:keys [start end]} :date-range}]]
{:db (-> db (assoc ::ledger-list-active? true))
:dispatch [::data-page/additional-params-changed ::ledger {:client-id client-id
:numeric-code numeric-code
:from-numeric-code from-numeric-code
:to-numeric-code to-numeric-code
:location location
:date-range {:start (date->str start standard)
:end (date->str end standard)}}]}))

View File

@@ -170,7 +170,8 @@ NOTE: Please review the transactions we may have question for you here: https://
:per-page (:per-page params)
:vendor-id (:id (:vendor params))
:client-id (:client-id params)
:numeric-code (:numeric-code params)
:from-numeric-code (:from-numeric-code params)
:to-numeric-code (:to-numeric-code params)
:location (:location params)
:date-range (:date-range params)}))
@@ -206,11 +207,12 @@ NOTE: Please review the transactions we may have question for you here: https://
(re-frame/reg-event-fx
::investigate-clicked
(fn [{:keys [db]} [_ {:keys [location numeric-code client-id]
(fn [{:keys [db]} [_ {:keys [location from-numeric-code to-numeric-code client-id]
{:keys [start end]} :date-range}]]
{:db (-> db (assoc ::ledger-list-active? true))
:dispatch [::data-page/additional-params-changed ::ledger {:client-id client-id
:numeric-code numeric-code
:from-numeric-code from-numeric-code
:to-numeric-code to-numeric-code
:location location
:date-range {:start (date->str start standard)
:end (date->str end standard)}}]}))