Refactor fronted somewhat
This commit is contained in:
parent
afd7e9369d
commit
4715a758a3
@ -10,6 +10,9 @@ import Html exposing (..)
|
||||
import Html.Attributes exposing (..)
|
||||
import Html.Events exposing (..)
|
||||
|
||||
import NumberInput
|
||||
import Select
|
||||
|
||||
main = Browser.element
|
||||
{ init = \globals ->
|
||||
( Context globals <| ItemSearch { searchTerm = "", searchResults = [] }
|
||||
@ -85,11 +88,12 @@ type State
|
||||
| ItemEditor
|
||||
{ barcode : String
|
||||
, name : String
|
||||
, salesUnits : Int
|
||||
, netUnitPrice : Float
|
||||
, groupId : Int
|
||||
, locationId : Int
|
||||
, taxGroupId : Int
|
||||
, salesUnits : NumberInput.Model Int
|
||||
, netUnitPrice : NumberInput.Model Float
|
||||
, grossUnitPrice : NumberInput.Model Float
|
||||
, group : Select.Model Group
|
||||
, location : Select.Model Location
|
||||
, taxGroup : Select.Model TaxGroup
|
||||
}
|
||||
|
||||
type Msg
|
||||
@ -97,13 +101,14 @@ type Msg
|
||||
| SubmitSearch
|
||||
| ReceiveSearchResults (Result Http.Error (List SearchResult))
|
||||
| GotoItemEditor SearchResult
|
||||
| SetNetUnitPrice String
|
||||
| SetGroupId String
|
||||
| SetLocationId String
|
||||
| SetTaxGroupId String
|
||||
| SetBarcode String
|
||||
| SetName String
|
||||
| SetSalesUnits String
|
||||
| SetNetUnitPrice String
|
||||
| SetGrossUnitPrice String
|
||||
| SetGroup String
|
||||
| SetLocation String
|
||||
| SetTaxGroup String
|
||||
|
||||
-- Update logic: State machine etc.
|
||||
|
||||
@ -127,42 +132,52 @@ updateState msg globals state = case state of
|
||||
ReceiveSearchResults (Ok searchResults) ->
|
||||
(ItemSearch { model | searchResults = searchResults }, Cmd.none)
|
||||
GotoItemEditor searchResult ->
|
||||
( ItemEditor
|
||||
{ barcode = searchResult.barcode
|
||||
, groupId = searchResult.groupId
|
||||
, locationId = searchResult.locationId
|
||||
, name = searchResult.name
|
||||
, netUnitPrice = searchResult.netUnitPrice
|
||||
, salesUnits = searchResult.salesUnits
|
||||
, taxGroupId = searchResult.taxGroupId
|
||||
}
|
||||
, Cmd.none
|
||||
)
|
||||
case find (\tg -> tg.id == searchResult.taxGroupId) globals.taxGroups of
|
||||
Nothing -> (state, Cmd.none)
|
||||
Just taxGroup ->
|
||||
( ItemEditor
|
||||
{ barcode = searchResult.barcode
|
||||
, name = searchResult.name
|
||||
, netUnitPrice = NumberInput.fromFloat searchResult.netUnitPrice
|
||||
, grossUnitPrice = NumberInput.fromFloat <| calculateGarfieldPrice searchResult.netUnitPrice taxGroup.percentage
|
||||
, salesUnits = NumberInput.fromInt searchResult.salesUnits
|
||||
, group = Select.init (.id >> String.fromInt) (.name) { id = searchResult.groupId, name = searchResult.groupName } globals.groups
|
||||
, location = Select.init (.id >> String.fromInt) (.name) { id = searchResult.locationId, name = searchResult.locationName } globals.locations
|
||||
, taxGroup = Select.init (.id >> String.fromInt) (.description) taxGroup globals.taxGroups
|
||||
}
|
||||
, Cmd.none
|
||||
)
|
||||
_ ->
|
||||
(state, Cmd.none)
|
||||
ItemEditor model -> case msg of
|
||||
SetNetUnitPrice netUnitPriceStr -> case String.toFloat netUnitPriceStr of
|
||||
Nothing -> (state, Cmd.none)
|
||||
Just netUnitPrice -> (ItemEditor { model | netUnitPrice = netUnitPrice }, Cmd.none)
|
||||
SetGroupId groupIdStr -> case String.toInt groupIdStr of
|
||||
Nothing -> (state, Cmd.none)
|
||||
Just groupId -> (ItemEditor { model | groupId = groupId }, Cmd.none)
|
||||
SetLocationId locationIdStr -> case String.toInt locationIdStr of
|
||||
Nothing -> (state, Cmd.none)
|
||||
Just locationId -> (ItemEditor { model | locationId = locationId }, Cmd.none)
|
||||
SetTaxGroupId taxGroupIdStr -> case String.toInt taxGroupIdStr of
|
||||
Nothing -> (state, Cmd.none)
|
||||
Just taxGroupId -> (ItemEditor { model | taxGroupId = taxGroupId }, Cmd.none)
|
||||
SetBarcode barcode ->
|
||||
(ItemEditor { model | barcode = barcode }, Cmd.none)
|
||||
SetName name ->
|
||||
(ItemEditor { model | name = name }, Cmd.none)
|
||||
SetSalesUnits salesUnitsStr -> case String.toInt salesUnitsStr of
|
||||
Nothing -> (state, Cmd.none)
|
||||
Just salesUnits -> (ItemEditor { model | salesUnits = salesUnits }, Cmd.none)
|
||||
SetSalesUnits str ->
|
||||
(ItemEditor { model | salesUnits = NumberInput.update str model.salesUnits }, Cmd.none)
|
||||
SetNetUnitPrice str ->
|
||||
( ItemEditor <| updateGrossUnitPrice { model | netUnitPrice = NumberInput.update str model.netUnitPrice }
|
||||
, Cmd.none
|
||||
)
|
||||
SetGrossUnitPrice str ->
|
||||
(ItemEditor { model | grossUnitPrice = NumberInput.update str model.grossUnitPrice }, Cmd.none)
|
||||
SetGroup key ->
|
||||
(ItemEditor { model | group = Select.update key model.group }, Cmd.none)
|
||||
SetLocation key ->
|
||||
(ItemEditor { model | location = Select.update key model.location }, Cmd.none)
|
||||
SetTaxGroup key ->
|
||||
( ItemEditor <| updateGrossUnitPrice { model | taxGroup = Select.update key model.taxGroup }
|
||||
, Cmd.none
|
||||
)
|
||||
_ ->
|
||||
(state, Cmd.none)
|
||||
|
||||
updateGrossUnitPrice model =
|
||||
{ model
|
||||
| grossUnitPrice = NumberInput.fromFloat <| calculateGarfieldPrice (NumberInput.get model.netUnitPrice) (Select.get model.taxGroup).percentage
|
||||
}
|
||||
|
||||
-- View stuff
|
||||
|
||||
view { globals, state } = case state of
|
||||
@ -177,80 +192,60 @@ view { globals, state } = case state of
|
||||
, table [] <| searchResultHeaders :: List.map viewSearchResult model.searchResults
|
||||
]
|
||||
]
|
||||
ItemEditor model -> case find (\tg -> tg.id == model.taxGroupId) globals.taxGroups of
|
||||
Nothing -> div [] [ text "index error, this should never happen" ]
|
||||
Just selectedTaxGroup ->
|
||||
Html.form []
|
||||
[ fieldset []
|
||||
[ legend [] [ text "Neuer Inventareintrag" ]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "barcode" ] [ text "Barcode" ]
|
||||
, input [ onInput SetBarcode, value model.barcode, disabled True, id "barcode" ] []
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "name" ] [ text "Name" ]
|
||||
, input [ onInput SetName, value model.name, id "name" ] []
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "sales-units" ] [ text "Stückzahl" ]
|
||||
, input [ onInput SetSalesUnits, value <| String.fromInt model.salesUnits, id "sales-units", type_ "number" ] []
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "group" ] [ text "Gruppe" ]
|
||||
, viewSelect
|
||||
[ onInput SetGroupId, id "group" ]
|
||||
String.fromInt .id .name model.groupId globals.groups
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "location" ] [ text "Raum" ]
|
||||
, viewSelect
|
||||
[ onInput SetLocationId, id "location" ]
|
||||
String.fromInt .id .name model.locationId globals.locations
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "net-unit-price" ] [ text "Stückpreis (Netto)" ]
|
||||
, input
|
||||
[ value <| String.fromFloat model.netUnitPrice
|
||||
, onInput SetNetUnitPrice
|
||||
, type_ "number"
|
||||
, id "net-unit-price"
|
||||
, step "0.01"
|
||||
]
|
||||
[]
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "tax-group" ] [ text "Steuergruppe" ]
|
||||
, viewSelect
|
||||
[ onInput SetTaxGroupId, id "tax-group" ]
|
||||
String.fromInt .id .description model.taxGroupId globals.taxGroups
|
||||
]
|
||||
ItemEditor model ->
|
||||
Html.form []
|
||||
[ fieldset []
|
||||
[ legend [] [ text "Neuer Inventareintrag" ]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "barcode" ] [ text "Barcode" ]
|
||||
, input [ onInput SetBarcode, value model.barcode, disabled True, id "barcode" ] []
|
||||
]
|
||||
, fieldset []
|
||||
[ legend [] [ text "Neuer Snackeintrag" ]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "snack-name" ] [ text "Name" ]
|
||||
, input [ value model.name, disabled True, id "snack-name" ] []
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "gross-unit-price" ]
|
||||
[ text <| "Stückpreis (Brutto), Vorschlag: " ++ String.fromFloat (calculateGarfieldPrice model.netUnitPrice selectedTaxGroup.percentage)
|
||||
]
|
||||
, input [ value <| String.fromFloat <| Maybe.withDefault (calculateGarfieldPrice model.netUnitPrice selectedTaxGroup.percentage) Nothing, id "gross-unit-price", type_ "number", step "0.01" ] []
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "name" ] [ text "Name" ]
|
||||
, input [ onInput SetName, value model.name, id "name" ] []
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "sales-units" ] [ text "Stückzahl" ]
|
||||
, input [ onInput SetSalesUnits, value <| NumberInput.show model.salesUnits, id "sales-units", type_ "number" ] []
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "group" ] [ text "Gruppe" ]
|
||||
, Select.view SetGroup model.group
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "location" ] [ text "Raum" ]
|
||||
, Select.view SetLocation model.location
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "net-unit-price" ] [ text "Stückpreis (Netto)" ]
|
||||
, input
|
||||
[ value <| NumberInput.show model.netUnitPrice
|
||||
, onInput SetNetUnitPrice
|
||||
, type_ "number"
|
||||
, id "net-unit-price"
|
||||
, step "0.01"
|
||||
]
|
||||
[]
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "tax-group" ] [ text "Steuergruppe" ]
|
||||
, Select.view SetTaxGroup model.taxGroup
|
||||
]
|
||||
]
|
||||
|
||||
viewSelect selectAttributes showValue getValue getLabel selectedValue xs =
|
||||
let
|
||||
viewOption x =
|
||||
option
|
||||
[ value <| showValue <| getValue x
|
||||
, selected <| getValue x == selectedValue
|
||||
, fieldset []
|
||||
[ legend [] [ text "Neuer Snackeintrag" ]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "snack-name" ] [ text "Name" ]
|
||||
, input [ value model.name, disabled True, id "snack-name" ] []
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "gross-unit-price" ]
|
||||
[ text <| "Stückpreis (Brutto), Vorschlag: " ++ String.fromFloat (calculateGarfieldPrice (NumberInput.get model.netUnitPrice) (Select.get model.taxGroup).percentage)
|
||||
]
|
||||
, input [ onInput SetGrossUnitPrice, value <| NumberInput.show model.grossUnitPrice, id "gross-unit-price", type_ "number", step "0.01" ] []
|
||||
]
|
||||
]
|
||||
[ text <| getLabel x
|
||||
]
|
||||
in
|
||||
select selectAttributes <| List.map viewOption xs
|
||||
]
|
||||
|
||||
searchResultHeaders =
|
||||
tr []
|
||||
|
||||
25
frontend/NumberInput.elm
Normal file
25
frontend/NumberInput.elm
Normal file
@ -0,0 +1,25 @@
|
||||
module NumberInput exposing (..)
|
||||
|
||||
type alias Model a =
|
||||
{ value : a
|
||||
, original : String
|
||||
, convert : String -> Maybe a
|
||||
}
|
||||
|
||||
fromFloat : Float -> Model Float
|
||||
fromFloat x = Model x (String.fromFloat x) String.toFloat
|
||||
|
||||
fromInt : Int -> Model Int
|
||||
fromInt x = Model x (String.fromInt x) String.toInt
|
||||
|
||||
get : Model a -> a
|
||||
get = .value
|
||||
|
||||
update : String -> Model a -> Model a
|
||||
update str model =
|
||||
case model.convert str of
|
||||
Nothing -> model
|
||||
Just value -> { model | value = value, original = str }
|
||||
|
||||
show : Model a -> String
|
||||
show = .original
|
||||
36
frontend/Select.elm
Normal file
36
frontend/Select.elm
Normal file
@ -0,0 +1,36 @@
|
||||
module Select exposing (..)
|
||||
|
||||
import Html exposing (Html, option, select, text)
|
||||
import Html.Attributes exposing (selected, value)
|
||||
import Html.Events exposing (onInput)
|
||||
|
||||
type alias Model a =
|
||||
{ identify : a -> String
|
||||
, show : a -> String
|
||||
, selected : a
|
||||
, options : List a
|
||||
}
|
||||
|
||||
init : (a -> String) -> (a -> String) -> a -> List a -> Model a
|
||||
init = Model
|
||||
|
||||
update : String -> Model a -> Model a
|
||||
update key model =
|
||||
case find (\x -> key == model.identify x) model.options of
|
||||
Nothing -> model
|
||||
Just x -> { model | selected = x }
|
||||
|
||||
view : (String -> m) -> Model a -> Html m
|
||||
view msg model =
|
||||
let
|
||||
viewOption x =
|
||||
option
|
||||
[ selected <| model.identify model.selected == model.identify x, value <| model.identify x ]
|
||||
[ text <| model.show x ]
|
||||
in
|
||||
select [ onInput msg ] <| List.map viewOption model.options
|
||||
|
||||
get : Model a -> a
|
||||
get = .selected
|
||||
|
||||
find pred xs = List.head <| List.filter pred xs
|
||||
1031
jon/static/entry.js
1031
jon/static/entry.js
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user