Index: TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r2106 -r2109
--- TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 2106)
+++ TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 2109)
@@ -607,7 +607,7 @@
         PartGroup = "99999001" 'kar
         PartLevel = DateTime.Now.ToString("yyyyMMdd") + "12" 'banding
 
-        PartMat = Configs.voorraadGeefPlaatmateriaal(If(isBinnen, vItem.KleurBinnen, vItem.KleurBuiten)) 'plaatmateriaal
+        PartMat = Configs.voorraadGeefPlaatmateriaal(If(isBinnen, vItem.KleurBinnen, vItem.KleurBuiten), OnderdeelEnum.Zijkant) 'plaatmateriaal
         PartExt08 = PartMat.Substring(0, PartMat.IndexOf("."))
     End Sub
 
@@ -676,7 +676,7 @@
         PartGroup = "88888000" 'kar
         PartLevel = DateTime.Now.ToString("yyyyMMdd") 'banding
 
-        PartMat = Configs.voorraadGeefPlaatmateriaal(vItem.Materiaal) 'plaatmateriaal
+        PartMat = Configs.voorraadGeefPlaatmateriaal(vItem.Materiaal, OnderdeelEnum.Front) 'plaatmateriaal
         PartExt08 = PartMat.Substring(0, PartMat.IndexOf("."))
     End Sub
 
Index: TAOR rework/TAOR rework/My Project/Settings.Designer.vb
===================================================================
diff -u -r2067 -r2109
--- TAOR rework/TAOR rework/My Project/Settings.Designer.vb	(.../Settings.Designer.vb)	(revision 2067)
+++ TAOR rework/TAOR rework/My Project/Settings.Designer.vb	(.../Settings.Designer.vb)	(revision 2109)
@@ -15,7 +15,7 @@
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.7.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
Index: TAOR rework/TAOR rework/Configuraties/Configs.vb
===================================================================
diff -u -r2072 -r2109
--- TAOR rework/TAOR rework/Configuraties/Configs.vb	(.../Configs.vb)	(revision 2072)
+++ TAOR rework/TAOR rework/Configuraties/Configs.vb	(.../Configs.vb)	(revision 2109)
@@ -14,6 +14,8 @@
     Sub New()
         If Directory.Exists(My.Settings.PathNaarConfigMap) Then
             Try
+                'If Debugger.IsAttached Then My.Settings.Default.Reset()
+
                 _algemeneConfigs = ConfigsTextMapper.getAllValues
                 _oorsprongIdAliassen = New Dictionary(Of String, String)
                 _specialsConfigs = WaardenSpecialsTextMapper.getAllValues
@@ -60,6 +62,7 @@
                 laadDieptesNettoLengteEnCodeStemaBVoorraad()
                 laadHoogteLettersVoorraad()
                 laadKleurenMetPlaatmateriaalVoorraad()
+                laadPlaatmateriaalDiktesVoorraad()
 
                 'hoogte verschil waarden
                 laadHoogteLettersHoogteVerschil()
@@ -1160,6 +1163,9 @@
 
     Private _voorraadKleuren As New List(Of String)
     Private _voorraadPlaatMateriaal As New List(Of String)
+    'Uitbreiding 17/08/2021: diktes gescheiden van plaatsmateriaal
+    Private _voorraadPlaatMateriaalDikteFronten As String
+    Private _voorraadPlaatMateriaalDikteZijkanten As String
 
     Private Sub laadKleurenMetPlaatmateriaalVoorraad()
         Dim overigeConfigs As New List(Of String)
@@ -1179,21 +1185,60 @@
         End If
     End Sub
 
+    'Uitbreiding 17/08/2021: diktes gescheiden van plaatmateriaal
+    Private Sub laadPlaatmateriaalDiktesVoorraad()
+        Dim overigeConfigs As New List(Of String)
+        For Each lijn As String In _voorraadWaarden
+            If lijn.ToLower.StartsWith("plaatmateriaaldiktefrontenvoorraad") Then
+                _voorraadPlaatMateriaalDikteFronten = lijn.Replace("plaatmateriaaldiktefrontenvoorraad", "").Replace("PLAATMATERIAALDIKTEFRONTENVOORRAAD", "").Trim
+            ElseIf lijn.ToLower.StartsWith("plaatmateriaaldiktezijkantenvoorraad") Then
+                _voorraadPlaatMateriaalDikteZijkanten = lijn.Replace("plaatmateriaaldiktezijkantenvoorraad", "").Replace("PLAATMATERIAALDIKTEZIJKANTENVOORRAAD", "").Trim
+            Else
+                overigeConfigs.Add(lijn)
+            End If
+        Next
+
+        _voorraadWaarden = overigeConfigs
+
+        If String.IsNullOrEmpty(_voorraadPlaatMateriaalDikteFronten) Then
+            Throw New Exception("De configuratie van de PLAATMATERIAALDIKTEFRONTENVOORRAAD is foutief of niet aanwezig, gelieve deze na te kijken.")
+        End If
+        If String.IsNullOrEmpty(_voorraadPlaatMateriaalDikteZijkanten) Then
+            Throw New Exception("De configuratie van de PLAATMATERIAALDIKTEZIJKANTENVOORRAAD is foutief of niet aanwezig, gelieve deze na te kijken.")
+        End If
+    End Sub
+
     Public ReadOnly Property voorraadKleuren As List(Of String)
         Get
             Return New List(Of String)(_voorraadKleuren)
         End Get
     End Property
 
-    Public Function voorraadGeefPlaatmateriaal(kleur As String) As String
-        For teller As Integer = 0 To _voorraadKleuren.Count - 1
+    'Uitbreiding 17/08/2021: diktes gescheiden van plaatmateriaal
+    Public Enum OnderdeelEnum
+        Zijkant
+        Front
+    End Enum
+
+    'Aanpassing door uitbreiding 17/08/2021: diktes gescheiden van plaatmateriaal
+    Public Function voorraadGeefPlaatmateriaal(kleur As String, onderdeel As OnderdeelEnum) As String
+        Dim dikteString = vbNullString
+        Select Case onderdeel
+            Case OnderdeelEnum.Front
+                dikteString = _voorraadPlaatMateriaalDikteFronten
+            Case OnderdeelEnum.Zijkant
+                dikteString = _voorraadPlaatMateriaalDikteZijkanten
+        End Select
+
+        For teller = 0 To _voorraadKleuren.Count - 1
             If kleur.Equals(_voorraadKleuren(teller)) Then
-                Return _voorraadPlaatMateriaal(teller)
+                Return $"{_voorraadPlaatMateriaal(teller)}.{dikteString}"
             End If
         Next
-        Throw New Exception("Ongeldige kleur bij opvragen plaatMateriaal voorraad")
+        Throw New Exception($"Ongeldige kleur bij opvragen plaatMateriaal voorraad '{kleur}'")
     End Function
 
+
 #End Region
 
 #End Region
Index: TAOR rework/TAOR rework/Configuraties/config text mappers/WaardenVoorraadTextMapper.vb
===================================================================
diff -u -r1513 -r2109
--- TAOR rework/TAOR rework/Configuraties/config text mappers/WaardenVoorraadTextMapper.vb	(.../WaardenVoorraadTextMapper.vb)	(revision 1513)
+++ TAOR rework/TAOR rework/Configuraties/config text mappers/WaardenVoorraadTextMapper.vb	(.../WaardenVoorraadTextMapper.vb)	(revision 2109)
@@ -64,8 +64,12 @@
         file.WriteLine("%KLEURENMETPLAATMATERIAALVOORRAAD, specifiëren welke kleuren er gebruikt kunnen worden en met welk plaatmateriaal ze corresponderen")
         file.WriteLine("%KLEURENMETPLAATMATERIAALVOORRAAD KLEUR | PLAATMATERIAAL")
         file.WriteLine("%VOORBEELD")
-        file.WriteLine("KLEURENMETPLAATMATERIAALVOORRAAD W1 | MELAMINE.W1.065")
+        file.WriteLine("KLEURENMETPLAATMATERIAALVOORRAAD W1 | MELAMINE.W1")
         file.WriteLine()
+        file.WriteLine("%Specifiëren welke dikte aan het plaatmateriaal wordt toegevoegd")
+        file.WriteLine("%PLAATMATERIAALDIKTEFRONTENVOORRAAD 65")
+        file.WriteLine("%PLAATMATERIAALDIKTEZIJKANTENVOORRAAD 65")
+        file.WriteLine()
         file.Close()
         Throw New Exception(FILENAME & " was niet aanwezig, maar is nu aangemaakt. Gelieve de configuratie te vervolledigen.")
     End Sub