Trying one fix
This commit is contained in:
@@ -30,8 +30,7 @@
|
||||
:per-page (:per-page params)
|
||||
:vendor-id (:id (:vendor params))
|
||||
:client-id (:client-id params )
|
||||
:from-numeric-code (:from-numeric-code params)
|
||||
:to-numeric-code (:to-numeric-code params)
|
||||
:numeric-code (:numeric-code params)
|
||||
:date-range (:date-range params)}))
|
||||
|
||||
|
||||
@@ -120,11 +119,10 @@ NOTE: Please review the transactions we may have question for you here: https://
|
||||
|
||||
(re-frame/reg-event-fx
|
||||
::investigate-clicked
|
||||
(fn [{:keys [db]} [_ {:keys [from-numeric-code to-numeric-code date-range]}]]
|
||||
(fn [{:keys [db]} [_ {:keys [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]))
|
||||
:from-numeric-code from-numeric-code
|
||||
:to-numeric-code to-numeric-code
|
||||
:numeric-code numeric-code
|
||||
:date-range {:start "2000-01-01"
|
||||
:end (date->str date-range standard)}}]}))
|
||||
|
||||
|
||||
@@ -170,8 +170,7 @@ 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)
|
||||
:from-numeric-code (:from-numeric-code params)
|
||||
:to-numeric-code (:to-numeric-code params)
|
||||
:numeric-code (:numeric-code params)
|
||||
:location (:location params)
|
||||
:date-range (:date-range params)}))
|
||||
|
||||
@@ -207,12 +206,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 [location from-numeric-code to-numeric-code client-id]
|
||||
(fn [{:keys [db]} [_ {:keys [location 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
|
||||
:from-numeric-code from-numeric-code
|
||||
:to-numeric-code to-numeric-code
|
||||
:numeric-code numeric-code
|
||||
:location location
|
||||
:date-range {:start (date->str start standard)
|
||||
:end (date->str end standard)}}]}))
|
||||
|
||||
@@ -170,8 +170,7 @@ 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)
|
||||
:from-numeric-code (:from-numeric-code params)
|
||||
:to-numeric-code (:to-numeric-code params)
|
||||
:numeric-code (:numeric-code params)
|
||||
:location (:location params)
|
||||
:date-range (:date-range params)}))
|
||||
|
||||
@@ -207,12 +206,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 [location from-numeric-code to-numeric-code client-id]
|
||||
(fn [{:keys [db]} [_ {:keys [location 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
|
||||
:from-numeric-code from-numeric-code
|
||||
:to-numeric-code to-numeric-code
|
||||
:numeric-code numeric-code
|
||||
:location location
|
||||
:date-range {:start (date->str start standard)
|
||||
:end (date->str end standard)}}]}))
|
||||
|
||||
Reference in New Issue
Block a user