Join With Line function

AjaxController.fs

@@ -2,6 +2,7 @@
 
 open DredgeFramework
 open DredgePos
+open DredgePos.Types
 open Floorplan
 open Microsoft.AspNetCore.Http
 open Reservations
@@ -17,15 +18,13 @@ let getLanguageVars = ajaxSuccess languageVars
 
 let getActiveTables venue = Floorplan.getActiveTables venue |> ajaxSuccess |> json
 
-let getRoomData roomId = Floorplan.getRoom roomId |> ajaxSuccess |> json
-
 let mergeTables (tables: floorplan_table[]) =
     let status =
-        if mergeTables tables.[0].table_number tables.[1].table_number then
+        if mergeTables tables[0].table_number tables[1].table_number then
             let outputTables = map [
-                "parent", tables.[0];
+                "parent", tables[0];
-                "child", tables.[1];
+                "child", tables[1];
-                "merged", getTable tables.[0].table_number;
+                "merged", getTable tables[0].table_number;
             ]
             ajaxSuccess outputTables
         else ajaxFail "Could Not Merge Tables"
@@ -36,63 +35,58 @@ let unmergeTable tableNumber =
     let unmergedTables =
         match unmerged  with
             | Some (parent, child) ->
-                map["parent", parent; "child", child] |> ajaxSuccess
+                map ["parent", parent; "child", child] |> ajaxSuccess
             | None -> ajaxFail "Could not Unmerge Table"
 
     unmergedTables |> json
 
 
-let getFloorplanData venue =
+let getFloorplanData (id: int) =
-    let tableList = Floorplan.tableList venue
+    let tableList = Entity.GetAllInVenue<floorplan_table>
     let reservationList = getReservationList tableList
     {|
         tables = tableList
-        decorations = Decorations.decorationList venue
+        decorations = Entity.GetAllInVenue<floorplan_decoration>
-        activeTableNumbers = Floorplan.getActiveTables venue
+        activeTableNumbers = Floorplan.getActiveTables (getCurrentVenue())
-        rooms = Floorplan.getRoomList venue
+        rooms = Entity.GetAllInVenue<floorplan_room>
         reservations = reservationList
     |}
     |> ajaxSuccess
     |> json
 
+let getOrderScreenData (tableNumber: int) =
+    {|
+        order_screen_pages = Entity.GetAllInVenue<order_screen_page_group>
+        sales_categories = Entity.GetAllInVenue<sales_category>
+        print_groups = Entity.GetAllInVenue<print_group>
+        custom_item = Entity.GetAllByColumn<item> "item_code" "OPEN000" |> first
+        table = getTable tableNumber
+    |}
+    |> ajaxSuccess
+    |> json
+
 let getKeyboardLayout (language: string) =
-    let layout = $"""wwwroot/languages/{language}/keyboardLayout.json""" |> GetFileContents
+    let layout = $"""wwwroot/languages/{language}/keyboardLayout.json"""
+                 |> GetFileContents
     map [
             "status", "success"
             "data", layout
         ] |> json
 
-
-let getRoomTablesAndDecorations roomId =
-    let tables = Floorplan.tablesInRoom roomId
-    let decorations = Decorations.decorationsInRoom roomId
-    let data = {|
-        tables = tables
-        decorations = decorations
-    |}
-
-    data |> ajaxSuccess |> json
-
-let getTableData tableNumber = json <| Floorplan.getTable tableNumber
-
-let updateTableShape (table: floorplan_table) =
-    Floorplan.updateTableShape table |> ignore
-    getTableData table.table_number
-
 let transformTable (table: floorplan_table) =
-    Floorplan.updateTablePosition table |> ignore
+        Entity.Update table
-    getTableData table.table_number
+        |> ajaxSuccess
+        |> json
 
 let createTable (tableData: floorplan_table) =
-    let result =
+    if tableExists tableData.table_number = "False" then
-        if tableExists tableData.table_number = "False" then
+        ajaxSuccess (addNewTable tableData)
-            ajaxSuccess (addNewTable tableData)
+    else ajaxFail (tableExists tableData.table_number)
-        else ajaxFail (tableExists tableData.table_number)
+    |> json
-
-    result |> json
 
 let deleteTable (table: floorplan_table) =
-    Floorplan.deleteTable table.table_number
+    Entity.DeleteById<floorplan_table> table.id
+        |> ignore
     table |> ajaxSuccess |> json
 
 let transferTable (origin, destination) =
@@ -114,26 +108,33 @@ let AddDecoration (data: floorplan_decoration) =
         decoration_pos_x = data.decoration_pos_x
         decoration_pos_y = data.decoration_pos_y
         decoration_room = data.decoration_room
+        venue_id = data.venue_id
     }
 
-    Decorations.CreateDecoration decoration |> ajaxSuccess |> json
+    Entity.Create decoration
+        |> ajaxSuccess
+        |> json
 
-let UpdateDecoration data =
+let UpdateDecoration (data: floorplan_decoration) =
-    Decorations.UpdateDecoration data |> ignore
+    Entity.Update data
+        |> ignore
     ajaxSuccess "true" |> json
 
-let DeleteDecoration id = ajaxSuccess (Decorations.DeleteDecoration id) |> json
+let DeleteDecoration (decorationToDelete: floorplan_decoration) =
+    Entity.DeleteById<floorplan_decoration> decorationToDelete.id
+    |> ajaxSuccess
+    |> json
 
 let newEmptyReservation (reservation: reservation) =
     let newReservation = {reservation with
-                            reservation_created_at = CurrentTime()
+                            created_at = CurrentTime()
-                            reservation_time = CurrentTime()
+                            time = CurrentTime()
                           }
 
-    if reservation.reservation_table_id > 0 then
+    if reservation.floorplan_table_id > 0 then
-        let table = {(getTableById reservation.reservation_table_id) with
+        let table = {(getTableById reservation.floorplan_table_id) with
                         status = 2
-                        default_covers = reservation.reservation_covers}
+                        default_covers = reservation.covers}
         updateTablePosition table |> ignore
 
     let createdReservation = Floorplan.createEmptyReservation newReservation
@@ -146,3 +147,10 @@ let unreserveTable (table: floorplan_table) =
     updateTablePosition newTable |> ignore
     DeleteReservation newTable.id
     newTable |> ajaxSuccess |> json
+
+let loadGrid (gridId: int) =
+    let grid = Entity.GetById<grid> gridId
+    let gridHtml = OrderScreen.loadGrid gridId
+    if gridHtml = "Error" then ajaxFail gridHtml
+    else ajaxSuccess {|grid=grid;gridHtml=gridHtml|}
+    |> json

Browser.module.fs

@@ -17,7 +17,7 @@ let deleteCookie name (context: HttpContext) =
     if cookieExists name context then context.Response.Cookies.Delete(name)
 
 let getCookie cookieName (context: HttpContext) =
-    context.Request.Cookies.[cookieName] |? ""
+    context.Request.Cookies[cookieName] |? ""
 
 let setCookie name value (expiry: DateTimeOffset) (context: HttpContext) =
     deleteCookie name context
@@ -26,25 +26,4 @@ let setCookie name value (expiry: DateTimeOffset) (context: HttpContext) =
     context.Response.Cookies.Append(name, value, options);
 
 let redirect url (context: HttpContext) =
-    context.Response.Redirect url
+    context.Response.Redirect url
-
-let addRoute path controller (endpoints: IEndpointRouteBuilder) =
-    endpoints.MapGet(path, fun context ->
-                    context.Response.WriteAsync(controller())) |> ignore
-    endpoints
-
-let addRouteWithParameter path controller param1 (endpoints: IEndpointRouteBuilder)  =
-    endpoints.MapGet(path, fun context ->
-                    let param1Name, param1Type = param1
-                    let parameter1 = context.Request.RouteValues.[param1Name] |> string |> param1Type
-                    context.Response.WriteAsync(controller parameter1)) |> ignore
-    endpoints
-
-let addRouteWithParameters path controller param1 param2 (endpoints: IEndpointRouteBuilder) =
-    endpoints.MapGet(path, fun context ->
-                    let param1Name, param1Type = param1
-                    let param2Name, param2Type = param2
-                    let parameter1 = context.Request.RouteValues.[param1Name] |> string |> param1Type
-                    let parameter2 = context.Request.RouteValues.[param2Name] |> string |> param2Type
-                    context.Response.WriteAsync(controller parameter1 parameter2)) |> ignore
-    endpoints

Database.module.fs

@@ -2,12 +2,14 @@
 
 open Dapper
 open Dapper.FSharp
-open Dapper.FSharp.MySQL
+open Dapper.FSharp.PostgreSQL
-open MySql.Data.MySqlClient
+
+
 open DredgeFramework
 
-let connString = "server=localhost;uid=root;pwd=;database=dredgepos;table cache = false"
+let connString = "Server=localhost;Port=5432;User Id=postgres;Password=root;Database=dredgepos;Include Error Detail=true"
-let connection = new MySqlConnection(connString)
+//let connString = "server=localhost;uid=root;pwd=;database=dredgepos;table cache = false"
+let connection = new Npgsql.NpgsqlConnection(connString)
 
 let Select<'a> asyncQuery =
     asyncQuery
@@ -28,18 +30,15 @@ let Insert<'a> asyncQuery =
 
 let InsertOutput<'a> asyncQuery =
     asyncQuery
-        |> connection.InsertAsync<'a>
+        |> connection.InsertOutputAsync<'a, 'a>
         |> RunSynchronously
-        |> ignore
-
-    let table = asyncQuery.Table
-    connection.Query<'a>($"""Select * From {table} Where id = (select last_insert_id())""")
         |> EnumerableToArray
 
 let Update<'a> asyncQuery =
     asyncQuery
-        |> connection.UpdateAsync<'a>
+        |> connection.UpdateOutputAsync<'a, 'a>
         |> RunSynchronously
+        |> EnumerableToArray
 
 let Delete<'a> asyncQuery =
     asyncQuery

Decorations.module.fs

@@ -8,22 +8,7 @@ open Dapper.FSharp
 open DredgePos
 open Types
 
-let decorationList venue =
+let decorationsInRoom (roomId: int) = Entity.GetAllByColumn "decoration_room" roomId
-    select {
-        table "floorplan_decorations"
-        innerJoin "floorplan_rooms" "id" "decoration_room"
-    }
-    |> db.SelectJoin<floorplan_decoration, floorplan_room>
-    |> Array.filter (fun (_, room) -> room.venue_id = venue )
-    |> Array.map fst
-
-let decorationsInRoom (roomId: int) =
-    select {
-        table "floorplan_decorations"
-        where (eq "decoration_room" roomId)
-    }
-    |> db.Select<floorplan_decoration>
-
 
 let getImageName (image: string, path: string) =
     let imageName =
@@ -60,27 +45,4 @@ let generateDecorator () =
         |> Array.map getImageHTML
         |> Array.chunkBySize 4
         |> Array.map getImageRowHtml
-        |> JoinArray ""
+        |> JoinArray ""
-
-let CreateDecoration (decoration: floorplan_decoration) =
-    insert {
-        table "floorplan_decorations"
-        value decoration
-    }
-    |> db.InsertOutput
-    |> first
-
-
-let UpdateDecoration (decoration: floorplan_decoration) =
-    update {
-        table "floorplan_decorations"
-        set decoration
-        where (eq "id" decoration.id )
-    } |> db.Update
-
-let DeleteDecoration (decoration: floorplan_decoration) =
-    delete {
-        table "floorplan_decorations"
-        where (eq "id" decoration.id)
-    } |> db.Delete |> ignore
-    decoration

DredgeFramework.module.fs

@@ -16,6 +16,10 @@ open Thoth.Json.Net
 
 let (|?) lhs rhs = if lhs = null then rhs else lhs
 
+let joinWithNewLine (arr: string[]) = arr |> String.concat "\n"
+
+let getCurrentVenue () = 1
+
 let map list = list |> Map.ofList
 
 let JoinArray (char: string) (array: 'a[]) = String.Join(char, array)
@@ -35,9 +39,11 @@ let GetFileContents (file: string) = File.ReadAllText file
 let GetFileName (file: string) = Path.GetFileName file
 
 let length (variable: 'T[]) = variable.Length
-let first (array: 'a[]) = array.[0]
+let first (array: 'a[]) = array[0]
-let last (array: 'a[]) = array.[array.Length-1]
 
+let last (array: 'a[]) = array[array.Length-1]
+
+let filterFirst (array:'a[]) = if array.Length > 0 then [|array[0]|] else [||]
 
 let removeFalseValues (variable: bool[]) = variable |> Array.filter id
 

DredgePos.fsproj

@@ -14,6 +14,9 @@
         <Compile Include="Theme.module.fs" />
         <Compile Include="Reservations.module.fs" />
         <Compile Include="Floorplan.module.fs" />
+        <Compile Include="Printer.module.fs" />
+        <Compile Include="Orders.module.fs" />
+        <Compile Include="OrderScreen.module.fs" />
         <Compile Include="Decorations.module.fs" />
         <Compile Include="Clerk.module.fs" />
         <Compile Include="Session.module.fs" />
@@ -34,13 +37,17 @@
       </Content>
       <Content Remove="node_modules\**" />
       <Content Remove="wwwroot\scripts\ts\test.ts" />
+      <Content Remove="languages\**" />
     </ItemGroup>
 
     <ItemGroup>
       <PackageReference Include="Dapper" Version="2.0.78" />
       <PackageReference Include="Dapper.Contrib" Version="2.0.78" />
-      <PackageReference Include="Dapper.FSharp" Version="1.16.0" />
+      <PackageReference Include="Dapper.FSharp" Version="2.4.1" />
       <PackageReference Include="FSharp.Data" Version="4.0.1" />
+      <PackageReference Include="Giraffe" Version="6.0.0-alpha-2" />
+      <PackageReference Include="Npgsql" Version="6.0.0" />
+      <PackageReference Include="Pluralize.NET.Core" Version="1.0.0" />
       <PackageReference Include="Saturn" Version="0.15.0-preview03" />
 	  <PackageReference Include="System.Data.SqlClient" Version="4.8.0" />
       <PackageReference Include="FSharp.Data.SqlClient" Version="2.1.0-beta1" />
@@ -54,16 +61,16 @@
       <PackageReference Include="SQLProvider" Version="1.2.1" />
       <PackageReference Include="System.Drawing.Common" Version="6.0.0-preview.5.21301.5" />
       <PackageReference Include="Thoth.Json.Net" Version="5.0.0" />
+      <PackageReference Update="FSharp.Core" Version="6.0.2-beta.21631.1" />
     </ItemGroup>
 
     <ItemGroup>
-      <Folder Include="languages\english" />
       <Folder Include="tables\archived" />
       <Content Include="xslt\orderXMLtoHTML.xslt" />
       <Content Include="xslt\orderHtmltoXML.xslt" />
       <Content Include="xslt\htmlToEscPos.xslt" />
       <Content Include=".gitignore" />
-      <Folder Include="wwwroot\scripts\js" />
+      <Folder Include="wwwroot\fonts" />
       <Folder Include="wwwroot\styles\css" />
     </ItemGroup>
 
@@ -375,6 +382,7 @@
 
     <ItemGroup>
       <EmbeddedResource Remove="node_modules\**" />
+      <EmbeddedResource Remove="languages\**" />
     </ItemGroup>
 
 </Project>

Floorplan.module.fs

@@ -1,10 +1,10 @@
 module Floorplan
 
 open DredgePos
+open DredgePos.Types
+open Org.BouncyCastle.Asn1.X509
 open Reservations
 
-let currentVenue = 1
-
 open System
 open System.IO
 open System.Xml.Linq
@@ -14,28 +14,6 @@ open Dapper.FSharp
 open Thoth.Json.Net
 open Types
 
-let floorplan_table_decoder : Decoder<floorplan_table> =
-        Decode.object
-            (fun get ->
-                {
-                    table_number = get.Required.Field "table_number" Decode.int
-                    room_id = get.Required.Field "room_id" Decode.int
-                    venue_id = get.Required.Field "venue_id" Decode.int
-                    pos_x = get.Required.Field "pos_x" Decode.int
-                    pos_y = get.Required.Field "pos_y" Decode.int
-                    shape = get.Required.Field "shape" Decode.string
-                    width = get.Required.Field "width" Decode.int
-                    height = get.Required.Field "height" Decode.int
-                    default_covers = get.Required.Field "default_covers" Decode.int
-                    rotation = get.Required.Field "rotation" Decode.int
-                    merged_children = get.Required.Field "merged_children" Decode.string
-                    previous_state = get.Required.Field "previous_state" Decode.string
-                    status = get.Required.Field "status" Decode.int
-                    id = get.Required.Field "id" Decode.int
-                })
-
-
-
 let activeTablePath = "tables/active/"
 
 let getTableFile (tableNumber: int) =
@@ -50,11 +28,11 @@ let tableIsOpen (table: floorplan_table) = tableNumberIsOpen table.table_number
 
 let fileNameToTableNumber (fileName: string) = //Takes a file name for a floorplan table and returns the table number
     if fileName.Contains ".table" then
-        let fileName = (fileName.Split ".").[0]
+        let fileName = (fileName.Split ".")[0]
-        (fileName.Split "/table").[1] |> int
+        (fileName.Split "/table")[1] |> int
     else 0
 
-let openTables = //Get a list of all open tables.
+let openTables () = //Get a list of all open tables.
     let tableList = Directory.GetFiles(activeTablePath)
 
     tableList
@@ -117,12 +95,13 @@ let saveOrderToTable orderXML tableNumber =
     File.WriteAllText(tableFile, tableXML)
 
 let getTable (tableNumber : int) =
-    select {
+    let query = select {
         table "floorplan_tables"
-        where (eq "table_number" tableNumber + eq "venue_id" currentVenue)
+        where (eq "table_number" tableNumber + eq "venue_id" (getCurrentVenue()))
     }
-      |> db.Select<floorplan_table>
+
-      |> first
+    let result = query |> db.Select<floorplan_table>
+    result |> first
 
 let getTableById (id : int) =
     select {
@@ -138,48 +117,16 @@ let getRoom (roomId: int) =
         where (eq "id" roomId)
     } |> db.Select<floorplan_room> |> first
 
-let getRoomList (venueId: int) =
+let updateTablePosition (floorplanTable: floorplan_table) = Entity.Update floorplanTable
-    select {
-        table "floorplan_rooms"
-        where (eq "venue_id" venueId)
-    }  |> db.Select<floorplan_room>
-
-let updateFloorplanTable (tableNumber:int) (column: string) value =
-    //TODO: Make update query venue specific
-    let sql = "Update floorplan_tables Set @column = @value Where table_number = @tableNumber"
-    let parameters = [("column", box column); ("value", box value); ("tableNumber", box tableNumber)]
-    db.connection.Execute(sql, parameters) |> ignore
-
-    getTable tableNumber
-
-let updateTableShape (floorplanTable: floorplan_table)  =
-    update {
-        table "floorplan_tables"
-        set floorplanTable
-        where (eq "table_number" floorplanTable.table_number + eq "venue_id" currentVenue)
-    } |> db.Update
-
-
-let updateTablePosition (floorplanTable: floorplan_table) =
-    update {
-        table "floorplan_tables"
-        set floorplanTable
-        where (eq "table_number" floorplanTable.table_number + eq "venue_id" currentVenue)
-    } |> db.Update
 
 let createEmptyReservation (reservation: reservation) =
     update {
         table "floorplan_tables"
         set {| status = 2  |}
-        where(eq "id" reservation.reservation_table_id)
+        where(eq "id" reservation.floorplan_table_id)
     } |> db.Update |> ignore
 
-    insert{
+    Entity.Create reservation
-        table "reservations"
-        value reservation
-    } |> db.InsertOutput |> first
-
-
 
 let getChildTables tableNumber =
     let table = getTable tableNumber
@@ -213,15 +160,13 @@ let tableExists (tableNumber: int) =
     let numberOfResults =
        select{
            table "floorplan_tables"
-           where (eq "table_number" tableNumber + eq "venue_id" currentVenue)
+           where (eq "table_number" tableNumber + eq "venue_id" (getCurrentVenue()))
        } |> db.Select<floorplan_table> |> length
 
     match numberOfResults with
        | 0 ->
             let allTables =
-                select {
+                Entity.GetAllInVenue<floorplan_table>
-                    table "floorplan_tables"
-                }   |> db.Select<floorplan_table>
                     |> Array.map(findChildTable tableNumber)
                     |> Array.filter(fun tableNumber -> tableNumber <> 0)
 
@@ -229,7 +174,7 @@ let tableExists (tableNumber: int) =
             match allTables.Length with
                 | 0 -> false |> string //Table does not exist
                 | _ ->
-                    let parentTableData = getTable allTables.[0]
+                    let parentTableData = getTable allTables[0]
                     let parentRoom = getRoom parentTableData.room_id
                     let parentRoomName = parentRoom.room_name
                     language.getAndReplace "error_table_exists_merged" [parentRoomName; parentTableData.table_number.ToString()]
@@ -248,21 +193,7 @@ let addNewTableWithoutOutput (newTable: floorplan_table) =
     }
     |> db.Insert
 
-let addNewTable (newTable: floorplan_table) =
+let addNewTable (newTable: floorplan_table) = Entity.Create newTable
-        let newTableList =
-            insert{
-                table "floorplan_tables"
-                value newTable
-            }
-            |> db.InsertOutput
-
-        newTableList |> first
-
-let deleteTable (tableNumber: int) =
-    delete {
-        table "floorplan_tables"
-        where (eq "table_number" tableNumber + eq "venue_id" currentVenue)
-    } |> db.Delete |> ignore
 
 let mergeTables parent child = //Merge two tables together
     if parent = child then false else
@@ -292,13 +223,12 @@ let mergeTables parent child = //Merge two tables together
 
         let existingChildrenJson = parentTable.merged_children |> StringTrim
         let existingChildren =
-            existingChildrenJson
+            existingChildrenJson |> Decode.Auto.fromString<floorplan_table[]>
-                |> Decode.fromString(Decode.list floorplan_table_decoder)
 
         let tableList =
             match existingChildren with
-                | Error _ -> [newChildTable]
+                | Error _ -> [|newChildTable|]
-                | Ok tables -> tables @ [newChildTable]
+                | Ok tables -> [tables ; [|newChildTable|]] |> Array.concat
 
         let newChildrenJson = tableList |> jsonEncode
         let parentPreviousState = parentTable |> jsonEncode
@@ -314,10 +244,11 @@ let mergeTables parent child = //Merge two tables together
                    pos_y = newPosY
                    default_covers = parentTable.default_covers + childTable.default_covers
                 |}
-            where (eq "table_number" parent + eq "venue_id" currentVenue)
+            where (eq "table_number" parent + eq "venue_id" (getCurrentVenue()))
         } |> db.Update |> ignore
 
-        deleteTable child
+        Entity.DeleteById<floorplan_table> newChildTable.id
+            |> ignore
 
         true
 
@@ -326,7 +257,7 @@ let updateUnmergedTables parentTable childTable =
     update {
        table "floorplan_tables"
        set parentTable
-       where(eq "table_number" parentTable.table_number + eq "venue_id" currentVenue)
+       where(eq "table_number" parentTable.table_number + eq "venue_id" (getCurrentVenue()))
     } |> db.Update |> ignore
 
     addNewTableWithoutOutput childTable |> ignore
@@ -350,7 +281,7 @@ let unmergeTable tableNumber = //Separates a merged table into itself and the la
             Some (getTable currentTable.table_number, unmergedChild)
         | Error _ -> None
 
-let convertRoomListToLinks (room: floorplan_room) =
+let makeRoomButton (room: floorplan_room) =
     let vars = map [
         "roomId", room.id |> string
         "roomName", room.room_name
@@ -359,35 +290,19 @@ let convertRoomListToLinks (room: floorplan_room) =
     Theme.loadTemplateWithVars "roomButton" vars
 
 let getReservationList (tableList: floorplan_table[]) =
-    let tableIds =
+    tableList |> Array.collect Entity.GetAllRelated<reservation, floorplan_table>
-        tableList
-            |> Array.map(fun table -> table.id)
-            |> JoinArray ","
-
-    db.connection.Query<reservation>($"""Select * From reservations Where reservation_table_id In ({tableIds})""")
-        |> EnumerableToArray
 
 let newReservation name time covers =
     let reservation = {
         id = 0
-        reservation_name = name
+        name = name
-        reservation_time = time
+        time = time
-        reservation_covers = covers
+        covers = covers
-        reservation_table_id = 0
+        floorplan_table_id = 0
-        reservation_created_at = CurrentTime()
+        created_at = CurrentTime()
     }
 
-    insert {
+    Entity.Create reservation
-        table "reservations"
-        value reservation
-    } |> db.Insert
 
 
-let tableList venueId =
+let tableList () = Entity.GetAllInVenue<floorplan_table>
-    select{
-            table "floorplan_tables"
-            innerJoin "floorplan_rooms" "id" "floorplan_tables.room_id"
-        }
-    |> db.SelectJoin<floorplan_table, floorplan_room>
-    |> Array.filter (fun (_, room) -> room.venue_id = venueId )
-    |> Array.map fst

GenericEntities.module.fs

@@ -1,26 +1,76 @@
 module Entity
-open DredgePos
-open Types
 open Dapper.FSharp
 open DredgeFramework
+open Pluralize.NET.Core
+open FSharp.Reflection
 
-let getDatabaseTable (record: 'a) = record.GetType().ToString().ToLower() + "s"
+let GetDatabaseTable<'x> =
+        let typeName = typeof<'x>.Name
+        Pluralizer().Pluralize typeName
 
-let addToDatabase (record: 'x)=
+let Create (record: 'x)=
-    let tableName = getDatabaseTable record
+    let tableName = GetDatabaseTable<'x>
     insert {
         table tableName
         value record
+        excludeColumn "id"
     }
     |> db.InsertOutput
     |> first
 
-let updateInDatabase (record: 'x) =
+
-    let tableName = getDatabaseTable record
+let inline Update (record: ^x) =
-    (* Run an update query *)
+    let tableName = GetDatabaseTable<'x>
+    let id = ((^x) : (member id : int) record)
     update {
         table tableName
         set record
+        where (eq "id" id)
+        excludeColumn "id"
     }
-    |> db.Update |> ignore
+    |> db.Update
-    record
+
+let GetAll<'x> =
+    let tableName = GetDatabaseTable<'x>
+
+    select {
+        table tableName
+    }
+    |> db.Select<'x>
+
+let GetAllByColumn<'x> (column: string) (value: obj) =
+    let tableName = GetDatabaseTable<'x>
+
+    select {
+        table tableName
+        where (eq column value)
+    } |> db.Select<'x>
+
+let GetAllInVenue<'x> = GetAllByColumn<'x> "venue_id" (getCurrentVenue ())
+let GetById<'x> (id: int) = GetAllByColumn<'x> "id" id |> first
+
+let inline GetRelated<'x, .. > (entity: ^y) =
+    let columnName = typeof<'x>.Name + "_id"
+    let primaryKeyValue = typeof<'y>.GetProperty(columnName).GetValue(entity) :?> int
+    GetById<'x> primaryKeyValue
+
+let inline GetAllRelated<'x, .. > (entity: ^y) =
+    let id = typeof<'y>.GetProperty("id").GetValue(entity) :?> int
+    let columnName = typeof<'y>.Name + "_id"
+    GetAllByColumn<'x> columnName id
+
+let DeleteById<'x> id =
+    let typeName = typeof<'x>.Name
+    let tableName = Pluralizer().Pluralize typeName
+    let entity = GetById<'x>  id
+
+    delete {
+        table tableName
+        where (eq "id" id)
+    } |> db.Delete |> ignore
+
+    entity
+
+let inline Delete< ^x when  ^x: (member id: int) > (entity: ^x) =
+    typeof<'x>.GetProperty("id").GetValue(entity) :?> int
+    |> DeleteById<'x>

Language.module.fs

@@ -19,15 +19,15 @@ let languageVars =
 //Gets a value of a language variable
 let get var =
     if languageVars.ContainsKey var then
-        languageVars.[var]
+        languageVars[var]
     else
         "Missing language variable: " + var
 
-let getAndReplace languageVar replacements =
+let getAndReplace languageVar (replacements: 'x list) =
     let langString = get languageVar
     replacements
-        |> List.mapi (fun index string
+        |> List.mapi (fun index replacement
-                       -> index + 1, string)
+                       -> index + 1, replacement.ToString())
         |> List.fold (fun (result: string) (index, string)
                          -> result.Replace($"[{index}]", string)
                       ) langString

OrderScreen.module.fs

@@ -0,0 +1,137 @@
+module OrderScreen
+open DredgeFramework
+open DredgePos
+open DredgePos.Types
+open FSharp.Collections
+open Thoth.Json.Net
+open Theme
+
+
+let getAllPageGrids () = Entity.GetAllInVenue<order_screen_page_group>
+                         |> Array.filter(fun pageGroup -> pageGroup.grid_id <> 0)
+                         |> Array.map(fun pageGroup -> (Entity.GetById<grid> pageGroup.grid_id), pageGroup)
+
+let getImageButtonData (button: button) =
+    let itemCode =
+        if button.primary_action = "item" then button.primary_action_value
+        else button.secondary_action_value
+
+    let item = Entity.GetAllByColumn<item> "item_code" itemCode
+                |> first
+
+    let extraData =
+        map [
+            "data-item", jsonEncode item
+        ] |> htmlAttributes
+
+    {|
+        extra_data = extraData
+        text = item.item_name
+    |}
+
+let getGridButtonData (button: button) =
+    let gridId =
+        if button.primary_action = "grid" then button.primary_action_value
+        else button.secondary_action_value
+        |> int
+
+    let grid = Entity.GetById<grid> gridId
+    {|
+        extra_data = map ["data-grid", jsonEncode gridId] |> htmlAttributes
+        text = grid.grid_name
+    |}
+
+let getActionData (button: button) (action: string) =
+    let actionValue =
+        if action = "primary" then button.primary_action
+        else button.secondary_action
+
+    match actionValue with
+        | "item" -> getImageButtonData button
+        | "grid" -> getGridButtonData button
+        | "spacer" ->  {|extra_data=""; text=""|}
+        | _ -> {|extra_data=""; text=""|}
+
+let renderButton (buttonId: int) =
+    let button = Entity.GetById<button> buttonId
+
+    let extra_styles =
+        match button.extra_styles.Length with
+            | 0 -> ""
+            | _ -> $""" style="{button.extra_styles}" """
+
+    let imageClass = if button.image.Length > 0 then "hasImage" else ""
+    let spacerClass = if button.primary_action = "spacer" || button.secondary_action = "spacer"
+                        then "invisible"
+                        else ""
+
+    let image = if button.image.Length > 0 then loadTemplateWithVars "orderScreen/button_image" (map ["image", button.image]) else ""
+
+    let extraClasses = [|imageClass; spacerClass|] |> String.concat " "
+
+    let primary_action_data = getActionData button "primary"
+    let secondary_action_data = getActionData button "secondary"
+
+    let action_extra_data = primary_action_data.extra_data + " " + secondary_action_data.extra_data
+    let button_text =
+        if button.text.Length > 0 then button.text
+        else
+            if primary_action_data.text.Length > 0 then primary_action_data.text
+            else secondary_action_data.text
+
+    let vars = map [
+        "extra_classes",  button.extra_classes + " " + extraClasses
+        "extra_styles", extra_styles
+        "primary_action", button.primary_action
+        "secondary_action", button.secondary_action
+        "text", button_text
+        "image", image
+        "extra_data", action_extra_data
+    ]
+
+    loadTemplateWithVars "orderScreen/grid_button" vars
+
+let renderPage (grid: grid)  (buttonHTML: string) =
+    let vars = map ["pageButtons", buttonHTML; "rows", string grid.grid_rows; "cols", string grid.grid_cols]
+    loadTemplateWithVars "orderScreen/page" vars
+
+let renderPageGroup (pageGroup: order_screen_page_group) (pageHTML: string) =
+    let vars = map [
+        "pages", pageHTML
+        "page_group_id", string pageGroup.id
+    ]
+    loadTemplateWithVars "orderScreen/page_group" vars
+
+let printGroupPosButton (printGroup: print_group) =
+    PosButton (language.getAndReplace "print_with" [printGroup.name]) "printGroupOverrideButton toggle" $"""data-value="{printGroup.id}" """
+
+let generateSalesCategoryOverrideButtons () =
+    Entity.GetAllInVenue<print_group>
+        |> Array.map printGroupPosButton
+        |> Array.append [|PosButton (language.getAndReplace "print_with" ["default"]) "printGroupOverrideButton toggle default active" """data-value="0" """|]
+        |> joinWithNewLine
+
+
+let renderGrid (grid: grid) =
+    let gridData = grid.grid_data |> Decode.Auto.fromString<Map<string, int[]>>
+
+    match gridData with
+        | Error _ -> "Error"
+        | Ok pages ->
+            pages
+                |> Map.toArray
+                |> Array.map snd
+                |> Array.map(fun row -> row |> Array.map renderButton |> String.concat "\n")
+                |> Array.map (renderPage grid)
+                |> joinWithNewLine
+
+let loadGrid gridId = renderGrid (Entity.GetById<grid> gridId)
+
+
+let getPagesHTML (gridInfo: grid * order_screen_page_group) =
+    let grid, pageGroup = gridInfo
+
+    renderGrid grid
+    |> renderPageGroup pageGroup
+
+

Orders.module.fs

@@ -0,0 +1,3 @@
+module Orders
+
+let getHighestOrderNumber () = 6

PageController.fs

@@ -1,24 +1,28 @@
 module PageController
 
+open System
+open DredgePos.Types
+open FSharp.Data
 open Microsoft.AspNetCore.Http
 open Floorplan
 open Giraffe
 open DredgeFramework
 
 let loadHomePage(): HttpHandler =
-     let variables = map["title", "Log In"]
+     let variables = map ["title", "Log In"]
      let scripts = ["dredgepos.authenticate.js"]
      let styles = ["dredgepos.authenticate.css"]
 
-     htmlString <| Theme.loadTemplateWithVarsScriptsAndStyles "authenticate" variables scripts styles
+     Theme.loadTemplateWithVarsScriptsAndStyles "authenticate" variables scripts styles
+        |> htmlString
 
 let loadFloorplan (ctx: HttpContext) : HttpHandler =
    Session.RequireClerkAuthentication ctx
 
    let roomMenu =
-       getRoomList currentVenue
+       Entity.GetAllInVenue<floorplan_room>
-         |> Array.map convertRoomListToLinks
+         |> Array.map makeRoomButton
-         |> String.concat "\n"
+         |> joinWithNewLine
 
    let variables = map [
        "title", "Floorplan"
@@ -26,29 +30,83 @@ let loadFloorplan (ctx: HttpContext) : HttpHandler =
        "decorator", Decorations.generateDecorator()
    ]
    let styles = ["dredgepos.floorplan.css"]
-   let scripts = ["external/konva.min.js" ; "dredgepos.floorplan.js"]
+   let scripts = ["../external/konva.min.js" ; "dredgepos.floorplan.js"]
    let currentClerk = recordToMap <| Session.getCurrentClerk ctx
 
-   let arrays = map["clerk", currentClerk]
+   let arrays = map ["clerk", currentClerk]
 
    htmlString <| Theme.loadTemplateWithVarsArraysScriptsAndStyles "floorplan" variables arrays scripts styles
 
-let loadContactPage id =
+let loadOrderScreen (ctx: HttpContext)  (tableNumber: int) : HttpHandler =
-    Session.clerkLogin 1408 |> ignore
+   Session.RequireClerkAuthentication ctx
-    Theme.loadTemplate "index"
+
+   let covers = if tableNumber > 0 then (getTable tableNumber).default_covers else 0
+   let coverString = language.getAndReplace "covers" [covers]
+
+   let changeCoverNumberButton = if tableNumber > 0 then Theme.loadTemplateWithVars "orderScreen/change_cover_number_button" (map ["covers", coverString]) else ""
+
+   let orderNumber =
+       if tableNumber > 0 then language.getAndReplace "active_table" [tableNumber]
+       else language.get "new_order"
+
+   let containerAttributes =
+        if tableNumber > 0 then
+            map ["data-table", jsonEncode (getTable tableNumber)]
+                |> Theme.htmlAttributes
+        else ""
+
+   let categoryList =
+       Entity.GetAllInVenue<order_screen_page_group>
+        |> Array.filter (fun page_group -> page_group.id <> 0)
+        |> Array.sortBy (fun {order=order} -> order)
+        |> Array.map (fun category ->
+            let categoryMap = recordToMap category
+            let categoryArray = map ["page", categoryMap]
+            Theme.loadTemplateWithArrays "orderScreen/page_group_button" categoryArray
+            )
+        |> joinWithNewLine
+
+   let grids =
+       OrderScreen.getAllPageGrids ()
+       |> Array.map OrderScreen.getPagesHTML
+       |> joinWithNewLine
+
+   let coverSelectorButtons =
+        Array.init (covers+1) id
+            |> Array.map(fun coverNumber ->
+                let text = if coverNumber > 0 then language.getAndReplace "selected_cover" [coverNumber]
+                           else language.get "cover_zero"
+                Theme.PosButton text "coverSelectorButton" $"""data-cover="{coverNumber}" """)
+            |> String.concat "\n"
+
+   let variables = map [
+       "title", "Order"
+       "containerAttributes", containerAttributes
+       "categoryList", categoryList
+       "pageGroups", grids
+       "orderNumber", orderNumber
+       "changeCoverNumberButton", changeCoverNumberButton
+       "covers", coverString
+       "salesCategoryOverrideButtons", OrderScreen.generateSalesCategoryOverrideButtons ()
+       "coverSelectorButtons", coverSelectorButtons
+   ]
+
+   let styles = ["dredgepos.orderScreen.css"]
+   let scripts = ["dredgepos.tables.js";"../external/currency.min.js";"dredgepos.orderScreen.js"; ]
+   let currentClerk = recordToMap <| Session.getCurrentClerk ctx
+   let arrays = map ["clerk", currentClerk]
+
+   Theme.loadTemplateWithVarsArraysScriptsAndStyles "orderScreen" variables arrays scripts styles
+    |> htmlString
 
 let getOpenTables() =
-    let rows = Floorplan.openTables
+    let rows = openTables()
     rows |> jsonEncode
 
-let transferTables() =
-
-    Theme.loadTemplate "index"
-
 let mergeTables parent child =
-    Floorplan.mergeTables parent child |> ignore
+    mergeTables parent child |> ignore
     "done"
 
 let unmergeTables table =
-    Floorplan.unmergeTable table |> ignore
+    unmergeTable table |> ignore
     "done"

Printer.module.fs

@@ -0,0 +1,2 @@
+module Printer
+

Program.fs

@@ -2,6 +2,7 @@ namespace WebApplication
 
 
 open DredgePos
+open DredgePos.Types
 open Microsoft.AspNetCore.Server.Kestrel.Core
 open Reservations
 open Saturn
@@ -17,10 +18,9 @@ module Program =
         use_warbler
     }
 
-    let ajaxRouter = router {
+    let floorplanRouter = router {
         pipe_through browser
         post "/authenticateClerk" (bindJson<int> (handlePostRoute AjaxController.loginWithLoginCode) )
-        post "/getTableData" (bindJson<int> AjaxController.getTableData)
         post "/transformTable" (bindJson<floorplan_table> AjaxController.transformTable)
         post "/createTable" (bindJson<floorplan_table> AjaxController.createTable)
         post "/addDecoration" (bindJson<floorplan_decoration> AjaxController.AddDecoration)
@@ -32,18 +32,21 @@ module Program =
         post "/updateReservation" (bindJson<reservation> AjaxController.updateReservation)
         post "/getReservation" (bindJson<int> (fun reservation -> json <| GetReservationById reservation) )
         post "/unreserveTable" (bindJson<floorplan_table> AjaxController.unreserveTable )
-        getf "/getRoomData/%i" AjaxController.getRoomData
         getf "/getKeyboardLayout/%s" AjaxController.getKeyboardLayout
-        getf "/getTablesAndDecorations/%i" AjaxController.getRoomTablesAndDecorations
         get "/languageVars" (json <| AjaxController.getLanguageVars)
-        get "/getOpenTables" (json <| Floorplan.getActiveTables Floorplan.currentVenue)
+        get "/getOpenTables" (json <| Floorplan.getActiveTables (DredgeFramework.getCurrentVenue()))
-        getf "/getActiveTables/%i" AjaxController.getActiveTables
         getf "/getFloorplanData/%i" AjaxController.getFloorplanData
         getf "/tableIsOpen/%i" (fun tableNumber -> json <| Floorplan.tableNumberIsOpen tableNumber)
         getf "/transferTable/%i/%i" AjaxController.transferTable
         getf "/unmergeTable/%i" AjaxController.unmergeTable
         getf "/tableExists/%i" (fun tableNumber -> json <| Floorplan.tableExists tableNumber)
     }
+    let orderScreenRouter = router {
+        pipe_through browser
+        getf "/getOrderScreenData/%i" AjaxController.getOrderScreenData
+        getf "/getGridHtml/%i" AjaxController.loadGrid
+        post "/updateCovers" (bindJson<floorplan_table> (fun table -> Entity.Update table |> Array.head |> DredgeFramework.ajaxSuccess |> json))
+    }
 
     let pageRouter = router {
         pipe_through browser
@@ -51,13 +54,18 @@ module Program =
         get "/" (redirectTo true "/login")
         get "/login" (warbler (fun _ -> PageController.loadHomePage() ))
         get "/floorplan" (warbler (fun ctx -> PageController.loadFloorplan (snd ctx)))
-        forward "/ajax" ajaxRouter
+        get "/order" (warbler (fun ctx -> PageController.loadOrderScreen (snd ctx) 0))
+        getf "/order/%i" (fun number -> (warbler (fun ctx -> PageController.loadOrderScreen (snd ctx) number)))
+        forward "/ajax" floorplanRouter
+        forward "/orderScreen" orderScreenRouter
     }
 
     let app = application {
+        use_mime_types [(".woff", "application/font-woff")]
         use_static "wwwroot"
         use_router pageRouter
         url "http://0.0.0.0:5001"
     }
 
+
     run app

Theme.module.fs

@@ -1,6 +1,6 @@
 module Theme
 
-open System
+open System.Web
 open System.IO
 open System.Collections.Generic
 open System.Text.RegularExpressions
@@ -17,7 +17,7 @@ let getHTMLForFile file =
     match scriptFileExists with
         | true ->
             match fileExtension with
-            | ".css" -> $"\t<link test rel=\"stylesheet\" href=\"{stylePath}\" />"
+            | ".css" -> $"\t<link rel=\"stylesheet\" href=\"{stylePath}\" />"
             | ".js" ->
                     let snippet = $"\t<script src=\"{scriptPath}\"></script>"
                     snippet
@@ -26,7 +26,7 @@ let getHTMLForFile file =
 
 
 let ParseScriptsAndStylesheets files html =
-    let defaultScriptsAndStyles = ["dark.theme.css"; "external/jquery.js" ; "dredgepos.core.js"; "keyboards.js";]
+    let defaultScriptsAndStyles = ["dark.theme.css"; "../external/jquery.js" ; "dredgepos.core.js"; "keyboards.js";]
     let scriptsAndStylesheets = defaultScriptsAndStyles @ files
 
     let scriptAndStylesheetHTML =
@@ -43,24 +43,24 @@ let ParseVariables (varArray: Map<string, string>) (html:string) =
     Regex.Replace(html, "<!--\[var\:(.*?)\]-->",
         MatchEvaluator(
             fun matchedVar ->
-                let varName = matchedVar.Groups.[1] |> string |> StringTrim
+                let varName = matchedVar.Groups[1] |> string |> StringTrim
 
                 if varArray.ContainsKey varName then
-                    if varName |> ToLowerCase = "title" then titlePrefix varArray.[varName]
+                    if varName |> ToLowerCase = "title" then titlePrefix varArray[varName]
-                    else varArray.[varName]
+                    else varArray[varName]
                 else
-                    "<!--[Undefined Variable: " + varName + "]-->"
+                    ""
     ))
 
 let ParseArrays (arrayArray: Map<string, Map<string, string>>) (string:string) =
     Regex.Replace(string, "<!--\[arr\:(.*?)\|(.*?)\]-->",
         MatchEvaluator(
             fun matchedVar ->
-                let arrayName = matchedVar.Groups.[1].ToString() |> StringTrim
+                let arrayName = matchedVar.Groups[1].ToString() |> StringTrim
-                let keyName = matchedVar.Groups.[2].ToString()
+                let keyName = matchedVar.Groups[2].ToString()
 
-                if arrayArray.ContainsKey arrayName && arrayArray.[arrayName].ContainsKey keyName then
+                if arrayArray.ContainsKey arrayName && arrayArray[arrayName].ContainsKey keyName then
-                    arrayArray.[arrayName].[keyName]
+                    arrayArray[arrayName][keyName]
                 else
                    "<!--[Undefined Array: " + arrayName + "]-->"
         )
@@ -70,7 +70,7 @@ let ParseSimpleLanguageVariables (string:string) =
     Regex.Replace(string, "<!--\[lang\:(.*?)\]-->",
         new MatchEvaluator(
             fun matchedVar ->
-                let varName = matchedVar.Groups.[1].ToString()
+                let varName = matchedVar.Groups[1].ToString()
                               |> StringTrim
 
                 language.get varName
@@ -78,10 +78,10 @@ let ParseSimpleLanguageVariables (string:string) =
 
 let ParseLanguageVariablesWithReplacements (string: string) =
     Regex.Replace(string, "<!--\[lang\:(.*?)\|(.*?)\]-->",
-        new MatchEvaluator(
+        MatchEvaluator(
             fun matchedVar ->
-                let varName = matchedVar.Groups.[1].ToString()
+                let varName = matchedVar.Groups[1].ToString()
-                let replacements = matchedVar.Groups.[2].ToString()
+                let replacements = matchedVar.Groups[2].ToString()
                                    |> StringSplit ","
                                    |> Array.toList
 
@@ -115,13 +115,16 @@ let rec loadTemplateWithVarsArraysScriptsAndStyles templateName vars arrays scri
 and ParseTemplates vars arrays scripts styles (string: string) =
     Regex.Replace(string, "<!--\[template\:(.*?)\]-->",
         new MatchEvaluator( fun template ->
-            let templateName = template.Groups.[1].ToString() |> StringTrim
+            let templateName = template.Groups[1].ToString() |> StringTrim
             loadTemplateWithVarsArraysScriptsAndStyles templateName vars arrays scripts styles
         ))
 
 let loadTemplate templateName =
     loadTemplateWithVarsArraysScriptsAndStyles templateName Map.empty<string, string> Map.empty<string, Map<string, string>> [] []
 
+let loadTemplateWithArrays templateName arrays =
+    loadTemplateWithVarsArraysScriptsAndStyles templateName Map.empty arrays [] []
+
 let loadTemplateWithVars templateName vars =
     loadTemplateWithVarsArraysScriptsAndStyles templateName vars Map.empty<string, Map<string, string>> [] []
 
@@ -134,4 +137,19 @@ let loadTemplateWithVarsAndScripts templateName vars scripts =
 let loadTemplateWithVarsAndStyles = loadTemplateWithVarsAndScripts
 
 let loadTemplateWithVarsScriptsAndStyles templateName vars scripts styles =
-    loadTemplateWithVarsArraysScriptsAndStyles templateName vars Map.empty<string, Map<string, string>> scripts styles
+    loadTemplateWithVarsArraysScriptsAndStyles templateName vars Map.empty<string, Map<string, string>> scripts styles
+
+
+let htmlAttributes (attributes: Map<string, string>) =
+    " " + (attributes
+        |> Map.toArray
+        |> Array.map (fun (attribute, value) -> attribute+"='"+HttpUtility.HtmlEncode value + "'")
+        |> String.concat " ")
+
+let PosButton (text: string) (classes: string) (attributes: string) =
+    let vars = map [
+        "text", text
+        "classes", classes
+        "attributes", attributes
+    ]
+    loadTemplateWithVars "components/posButton" vars

Types.fs

@@ -3,11 +3,17 @@ module DredgePos.Types
 [<CLIMutable>]
 type reservation = {
     id: int
-    reservation_name: string
+    name: string
-    reservation_time: int
+    time: int
-    reservation_covers: int
+    covers: int
-    reservation_table_id: int
+    floorplan_table_id: int
-    reservation_created_at: int
+    created_at: int
+}
+
+[<CLIMutable>]
+type venue = {
+    id: int
+    venue_name: string
 }
 
 [<CLIMutable>]
@@ -28,6 +34,23 @@ type floorplan_table = {
     id: int
 }
 
+[<CLIMutable>]
+type print_group = {
+    id: int
+    name: string
+    printer: int
+    venue_id: int
+}
+
+[<CLIMutable>]
+type sales_category = {
+    id: int
+    parent: int
+    name: string
+    print_group: int
+    venue_id: int
+}
+
 [<CLIMutable>]
 type floorplan_room = {
     id: int
@@ -46,10 +69,44 @@ type floorplan_decoration = {
     decoration_width: int
     decoration_height: int
     decoration_image: string
+    venue_id: int
 }
 
 [<CLIMutable>]
 type clerk = {id: int; clerk_name: string; clerk_login_code: int; clerk_usergroup: int}
 
 [<CLIMutable>]
-type session = {id: int; session_id: string; clerk_json: string; clerk_id: int; expires: int}
+type session = {id: int; session_id: string; clerk_json: string; clerk_id: int; expires: int}
+
+[<CLIMutable>]
+type order_screen_page_group = {id: int; order: int; venue_id: int; label: string; grid_id: int}
+
+[<CLIMutable>]
+type grid = {id: int; grid_name: string; grid_rows: int; grid_cols: int; grid_data: string}
+
+[<CLIMutable>]
+type button = {
+    id: int
+    text: string
+    primary_action: string
+    primary_action_value: string
+    secondary_action: string
+    secondary_action_value: string
+    image: string
+    extra_classes: string
+    extra_styles: string
+}
+
+[<CLIMutable>]
+type item = {
+    id: int
+    item_code: string
+    item_category: int
+    item_name: string
+    item_type: string
+    price1: int
+    price2: int
+    price3: int
+    price4: int
+    price5: int
+}