First draft of elm frontend
This will probably be scrapped or rewritten
This commit is contained in:
@@ -0,0 +1,292 @@
|
||||
module Entry exposing (main)
|
||||
|
||||
import Browser
|
||||
import Http
|
||||
|
||||
import Json.Decode as D
|
||||
import Json.Decode.Pipeline as P
|
||||
|
||||
import Html exposing (..)
|
||||
import Html.Attributes exposing (..)
|
||||
import Html.Events exposing (..)
|
||||
|
||||
main = Browser.element
|
||||
{ init = \globals ->
|
||||
( Context globals <| ItemSearch { searchTerm = "", searchResults = [] }
|
||||
, Cmd.none
|
||||
)
|
||||
, subscriptions = \_ -> Sub.none
|
||||
, update = update
|
||||
, view = view
|
||||
}
|
||||
|
||||
-- Data types
|
||||
|
||||
type alias SearchResult =
|
||||
{ barcode : String
|
||||
, name : String
|
||||
, netUnitPrice : Float
|
||||
, bought : String
|
||||
, salesUnits : Int
|
||||
, available : Bool
|
||||
, locationName : String
|
||||
, locationId : Int
|
||||
, groupName : String
|
||||
, groupId : Int
|
||||
, taxGroupId : Int
|
||||
}
|
||||
|
||||
searchResultDecoder =
|
||||
D.succeed SearchResult
|
||||
|> P.required "item_barcode" D.string
|
||||
|> P.required "name" D.string
|
||||
|> P.required "unit_price" D.float
|
||||
|> P.required "bought" D.string
|
||||
|> P.required "sales_units" D.int
|
||||
|> P.required "available" D.bool
|
||||
|> P.required "location_name" D.string
|
||||
|> P.required "location_id" D.int
|
||||
|> P.required "group_name" D.string
|
||||
|> P.required "group_id" D.int
|
||||
|> P.required "tax_group_id" D.int
|
||||
|
||||
type alias Location =
|
||||
{ id : Int
|
||||
, name : String
|
||||
}
|
||||
|
||||
type alias Group =
|
||||
{ id : Int
|
||||
, name : String
|
||||
}
|
||||
|
||||
type alias TaxGroup =
|
||||
{ id : Int
|
||||
, description : String
|
||||
, percentage : Float
|
||||
}
|
||||
|
||||
type alias Context =
|
||||
{ globals : Globals
|
||||
, state : State
|
||||
}
|
||||
|
||||
type alias Globals =
|
||||
{ locations : List Location
|
||||
, groups : List Group
|
||||
, taxGroups : List TaxGroup
|
||||
}
|
||||
|
||||
type State
|
||||
= ItemSearch
|
||||
{ searchTerm : String
|
||||
, searchResults : List SearchResult
|
||||
}
|
||||
| ItemEditor
|
||||
{ barcode : String
|
||||
, name : String
|
||||
, salesUnits : Int
|
||||
, netUnitPrice : Float
|
||||
, groupId : Int
|
||||
, locationId : Int
|
||||
, taxGroupId : Int
|
||||
}
|
||||
|
||||
type Msg
|
||||
= SetSearchTerm String
|
||||
| SubmitSearch
|
||||
| ReceiveSearchResults (Result Http.Error (List SearchResult))
|
||||
| GotoItemEditor SearchResult
|
||||
| SetNetUnitPrice String
|
||||
| SetGroupId String
|
||||
| SetLocationId String
|
||||
| SetTaxGroupId String
|
||||
| SetBarcode String
|
||||
| SetName String
|
||||
| SetSalesUnits String
|
||||
|
||||
-- Update logic: State machine etc.
|
||||
|
||||
update msg { globals, state } =
|
||||
let
|
||||
(state_, cmd) = updateState msg globals state
|
||||
in
|
||||
({ globals = globals, state = state_ }, cmd)
|
||||
|
||||
updateState msg globals state = case state of
|
||||
ItemSearch model -> case msg of
|
||||
SetSearchTerm searchTerm ->
|
||||
(ItemSearch { model | searchTerm = searchTerm }, Cmd.none)
|
||||
SubmitSearch ->
|
||||
( state
|
||||
, Http.get
|
||||
{ url = "/entry/api/search-items?search-term=" ++ model.searchTerm
|
||||
, expect = Http.expectJson ReceiveSearchResults <| D.list searchResultDecoder
|
||||
}
|
||||
)
|
||||
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
|
||||
)
|
||||
_ ->
|
||||
(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)
|
||||
_ ->
|
||||
(state, Cmd.none)
|
||||
|
||||
-- View stuff
|
||||
|
||||
view { globals, state } = case state of
|
||||
ItemSearch model ->
|
||||
fieldset []
|
||||
[ legend [] [ text "Vorlage für neuen Inventareintrag" ]
|
||||
, Html.form [ onSubmit SubmitSearch ]
|
||||
[ div [ class "form-input" ]
|
||||
[ label [ for "search-term", title "Barcode oder Name" ] [ text "Suchbegriff" ]
|
||||
, input [ onInput SetSearchTerm, value model.searchTerm, id "search-term" ] []
|
||||
]
|
||||
, 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
|
||||
]
|
||||
]
|
||||
, 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" ] []
|
||||
]
|
||||
]
|
||||
]
|
||||
|
||||
viewSelect selectAttributes showValue getValue getLabel selectedValue xs =
|
||||
let
|
||||
viewOption x =
|
||||
option
|
||||
[ value <| showValue <| getValue x
|
||||
, selected <| getValue x == selectedValue
|
||||
]
|
||||
[ text <| getLabel x
|
||||
]
|
||||
in
|
||||
select selectAttributes <| List.map viewOption xs
|
||||
|
||||
searchResultHeaders =
|
||||
tr []
|
||||
[ th [] [ text "Barcode" ]
|
||||
, th [] [ text "Name" ]
|
||||
, th [] [ text "Gruppe" ]
|
||||
, th [] [ text "Stückpreis (Netto)" ]
|
||||
, th [] [ text "Eingekauft" ]
|
||||
, th [] [ text "Kaufdatum" ]
|
||||
, th [] [ text "Raum" ]
|
||||
, th [] [ text "Aktiv?" ]
|
||||
, th [] []
|
||||
]
|
||||
|
||||
viewSearchResult model =
|
||||
tr []
|
||||
[ td [] [ code [] [ text model.barcode ] ]
|
||||
, td [] [ text model.name ]
|
||||
, td [] [ text model.groupName ]
|
||||
, td [] [ text <| String.fromFloat model.netUnitPrice ]
|
||||
, td [] [ text <| String.fromInt model.salesUnits ]
|
||||
, td [] [ text model.bought ]
|
||||
, td [] [ text model.locationName ]
|
||||
, td [] [ text <| showBool model.available ]
|
||||
, td []
|
||||
[ button [ onClick <| GotoItemEditor model ] [ text "Als Vorlage verwenden" ]
|
||||
]
|
||||
]
|
||||
|
||||
calculateGarfieldPrice netUnitPrice taxPercentage =
|
||||
roundTo 2 <| netUnitPrice * (1 + taxPercentage) + 0.01
|
||||
|
||||
roundTo places x = toFloat (round <| x * 10 ^ places) / 10 ^ places
|
||||
|
||||
showBool b = case b of
|
||||
True -> "✅"
|
||||
False -> "❌"
|
||||
|
||||
find pred xs = List.head <| List.filter pred xs
|
||||
Reference in New Issue
Block a user