Index: TAOR-rework-bugfixing/TAOR rework/Enums.vb
===================================================================
diff -u -r1596 -r1626
--- TAOR-rework-bugfixing/TAOR rework/Enums.vb	(.../Enums.vb)	(revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/Enums.vb	(.../Enums.vb)	(revision 1626)
@@ -1,82 +1,94 @@
 Public Enum ItemType
-    GEEN = 0
-    REWORK = 1
-    SIFONLADE = 2
-    SPOELBAKLADE = 3
-    TESTLADE = 4
-    STAAL = 5
-    VOORRAAD = 6
-    DIEPEREZIJKANT = 7
-    NIEUWEKLEUR = 8
-    HOGEREZIJKANT = 9
+    Geen = 0
+    Rework = 1
+    Sifonlade = 2
+    DubbeleSifonlade = 3
+    Testlade = 4
+    Staal = 5
+    Voorraad = 6
+    DiepereZijkant = 7
+    NieuweKleur = 8
+    HogereZijkant = 9
 End Enum
 
 Public Enum Kolommen
-    barcode = 0
-    batch = 1
-    toelevering = 2
-    sorteerkar = 3
-    klantnaam = 4
-    dossierCode = 5
-    barcodesVoorraad = 6
-    barcodeArdis = 7
+    Barcode = 0
+    Batch = 1
+    Toelevering = 2
+    Sorteerkar = 3
+    Klantnaam = 4
+    DossierCode = 5
+    BarcodesVoorraad = 6
+    BarcodeArdis = 7
 End Enum
 
 Public Enum LinksOfRechts
-    links = 0
-    rechts = 1
+    Links = 0
+    Rechts = 1
 End Enum
 
 Public Module EnumMapper
-    Public Function geefArdisTextBijItemType(itemType As ItemType) As String
+#Region "ItemType"
+    Public Function GeefArdisTextBijItemType(itemType As ItemType) As String
         Select Case itemType
-            Case TA_OR_rework.ItemType.REWORK
+            Case ItemType.Rework
                 Return "RW_TAORRW"
-            Case TA_OR_rework.ItemType.SIFONLADE
+            Case ItemType.Sifonlade,
+                ItemType.DubbeleSifonlade,
+                ItemType.DiepereZijkant,
+                ItemType.HogereZijkant,
+                ItemType.NieuweKleur
                 Return "SPECIAL"
-            Case TA_OR_rework.ItemType.SPOELBAKLADE
-                Return "SPECIAL"
-            Case TA_OR_rework.ItemType.DIEPEREZIJKANT
-                Return "SPECIAL"
-            Case TA_OR_rework.ItemType.HOGEREZIJKANT
-                Return "SPECIAL"
-            Case TA_OR_rework.ItemType.NIEUWEKLEUR
-                Return "SPECIAL"
-            Case TA_OR_rework.ItemType.TESTLADE
+            Case ItemType.Testlade
                 Return "TESTLADE"
-            Case TA_OR_rework.ItemType.STAAL
+            Case ItemType.Staal
                 Return "STAAL"
-            Case TA_OR_rework.ItemType.VOORRAAD
+            Case ItemType.Voorraad
                 Return "VOORRAAD"
             Case Else
-                Throw New Exception("Dit itemType: '" & geefWaardeBijEnumValue(itemType) & "' kan niet worden gebruikt om ArdisText op te vragen")
+                Throw New Exception($"Dit itemType: '{GeefTekstVanEnumOptie(itemType)}' kan niet worden gebruikt om ArdisText op te vragen.")
         End Select
     End Function
 
-    Public Function geefCacheKolomNaamBijKolom(kolom As Kolommen)
+    ''' <summary>
+    ''' De letterlijke tekst opvragen van een enum optie. In uppercase.
+    ''' </summary>
+    ''' <param name="itemType">De enum optie</param>
+    ''' <returns>De letterlijke tekst</returns>
+    Public Function GeefTekstVanEnumOptie(itemType As ItemType) As String
+        Return [Enum].GetName(GetType(ItemType), itemType).ToUpper()
+    End Function
+
+#End Region
+
+#Region "Kolommen"
+    Public Function GeefCacheKolomNaamBijKolom(kolom As Kolommen)
         Select Case kolom
-            Case Kolommen.barcode
+            Case Kolommen.Barcode
                 Return "verwerkingID"
-            Case Kolommen.batch
+            Case Kolommen.Batch
                 Return "batchID"
-            Case Kolommen.toelevering
+            Case Kolommen.Toelevering
                 Return "toeleveringID"
-            Case Kolommen.sorteerkar
+            Case Kolommen.Sorteerkar
                 Return "kar"
-            Case Kolommen.klantnaam
+            Case Kolommen.Klantnaam
                 Return "naam"
-            Case Kolommen.dossierCode
+            Case Kolommen.DossierCode
                 Return "dossierCode"
             Case Else
-                Throw New Exception("Cache kolomnaam kon niet worden opgevraagd met kolom: " & geefWaardeBijEnumValue(kolom))
+                Throw New Exception($"Cache kolomnaam kon niet worden opgevraagd met kolom: '{GeefTekstVanEnumOptie(kolom)}'")
         End Select
     End Function
 
-    Public Function geefWaardeBijEnumValue(itemType As ItemType) As String
-        Return [Enum].GetName(GetType(ItemType), itemType)
+    ''' <summary>
+    ''' De letterlijke tekst opvragen van een enum optie. In lowercase.
+    ''' </summary>
+    ''' <param name="kolom">De enum optie</param>
+    ''' <returns>De letterlijke tekst</returns>
+    Public Function GeefTekstVanEnumOptie(kolom As Kolommen) As String
+        Return [Enum].GetName(GetType(Kolommen), kolom).ToLower()
     End Function
+#End Region
 
-    Public Function geefWaardeBijEnumValue(kolom As Kolommen) As String
-        Return [Enum].GetName(GetType(Kolommen), kolom)
-    End Function
 End Module
\ No newline at end of file