Added Basic Order Screen

GenericEntities.module.fs

@@ -3,11 +3,16 @@ open DredgePos
 open Types
 open Dapper.FSharp
 open DredgeFramework
+open Pluralize.NET.Core
+open FSharp.Reflection
+let getDatabaseTable<'x> =
+        let typeName = typeof<'x>.Name
+        Pluralizer().Pluralize typeName
+
 
-let getDatabaseTable (record: 'a) = record.GetType().ToString().ToLower() + "s"
 
 let addToDatabase (record: 'x)=
-    let tableName = getDatabaseTable record
+    let tableName = getDatabaseTable<'x>
     insert {
         table tableName
         value record
@@ -15,12 +20,49 @@ let addToDatabase (record: 'x)=
     |> db.InsertOutput
     |> first
 
-let updateInDatabase (record: 'x) =
-    let tableName = getDatabaseTable record
+
+let inline updateInDatabase (record: ^x) =
+    let tableName = getDatabaseTable<'x>
+    let id = ((^x) : (member id : int) (record))
     (* Run an update query *)
     update {
         table tableName
         set record
+        where (eq "id" id)
     }
     |> db.Update |> ignore
-    record
+    record
+
+let getAll<'x> =
+    let typeName = typeof<'x>.Name
+    let tableName = Pluralizer().Pluralize typeName
+
+    select {
+        table tableName
+    }
+    |> db.Select<'x>
+
+let getAllByColumn<'x> (column: string) (value: obj) =
+    let typeName = typeof<'x>.Name
+    let tableName = Pluralizer().Pluralize typeName
+
+    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 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