Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/GraveerInstellingenRepository.vb
===================================================================
diff -u -r2178 -r2179
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/GraveerInstellingenRepository.vb	(.../GraveerInstellingenRepository.vb)	(revision 2178)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/GraveerInstellingenRepository.vb	(.../GraveerInstellingenRepository.vb)	(revision 2179)
@@ -6,7 +6,7 @@
 
 Public Interface IGraveerInstellingenRepository
     Property GraveerInstellingen() As List(Of GraveerInstelling)
-    Property GraveerInstellingenDataTable() As DataTable
+
 End Interface
 
 Public Class GraveerInstellingenRepository
@@ -16,7 +16,6 @@
     Private ReadOnly _configs As IConfigsClass
 
     Private _graveerinstellingen As List(Of GraveerInstelling)
-    Private _graveerinstellingenDataTable As DataTable
 
     Public Sub New(xmlMapper As IXmlMapper, configs As IConfigsClass)
         Me._xmlMapper = xmlMapper
@@ -34,17 +33,6 @@
         End Set
     End Property
 
-    Public Property GraveerInstellingenDataTable() As DataTable Implements IGraveerInstellingenRepository.GraveerInstellingenDataTable
-        Get
-            If _graveerinstellingenDataTable Is Nothing Then LaadDataTable()
-            Return _graveerinstellingenDataTable
-        End Get
-        Set
-            'ControleerNieuweInstellingen(Value)
-            SlaOpDataTable(Value)
-        End Set
-    End Property
-
     Private Sub Laad()
         Try
             Dim stream = New FileStream(_configs.GraveerInstellingenXmlPad, FileMode.Open, FileAccess.Read, FileShare.Read)
@@ -54,32 +42,6 @@
         End Try
     End Sub
 
-    Private Sub LaadDataTable()
-        Try
-            Dim dataTable = New DataTable()
-            dataTable.ReadXml("D:\Lasergravering\Configs\graveerinstellingen_nieuw.xml")
-            _graveerinstellingenDataTable = dataTable
-        Catch ex As Exception
-            Throw New Exception($"Kon graveer instellingen niet laden.{vbNewLine}{ex.Message}")
-        End Try
-    End Sub
-
-    Private Function ConverteerNaarDataTable(Of T)(ByVal list As IList(Of T)) As DataTable
-        Dim table As New DataTable()
-        Dim fields() As PropertyInfo = GetType(T).GetProperties()
-        For Each field As PropertyInfo In fields
-            table.Columns.Add(field.Name, field.PropertyType)
-        Next
-        For Each item As T In list
-            Dim row As DataRow = table.NewRow()
-            For Each field As PropertyInfo In fields
-                row(field.Name) = field.GetValue(item)
-            Next
-            table.Rows.Add(row)
-        Next
-        Return table
-    End Function
-
     Private Shared Sub ControleerNieuweInstellingen(graveerInstellings As List(Of GraveerInstelling))
         'TODO controle voorzien
     End Sub
@@ -94,14 +56,4 @@
         End Try
     End Sub
 
-    Private Sub SlaOpDataTable(nieuweInstellingen As DataTable)
-        Try
-            Dim stream = New FileStream(_configs.GraveerInstellingenXmlPad, FileMode.Create)
-            _xmlMapper.WriteData(stream, nieuweInstellingen)
-            _graveerinstellingenDataTable = nieuweInstellingen
-        Catch ex As Exception
-            Throw New Exception($"Kon nieuwe graveer instellingen niet opslaan.{vbNewLine}{ex.Message}")
-        End Try
-    End Sub
-
 End Class