Index: TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1959 -r2031
--- TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1959)
+++ TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 2031)
@@ -65,8 +65,8 @@
     Public Function geefLinksOfRechts() As String
         Dim letter = PartCalc.Substring(5).Substring(0, 1).ToUpper()
         'Letters van gegenereerde zijkanten mappen (sifonlade)
-        If letter = "E" then Return "L"
-        if letter = "F" then Return "R"
+        If letter = "E" Then Return "L"
+        If letter = "F" Then Return "R"
         Return letter
     End Function
 
@@ -142,13 +142,20 @@
         'Teken daarna is de STEMAS B code, opvragen en toevoegen.
         nieuweBarcode &= Configs.geefCodeStemasB(lengte)
         'Speciale letter toevoegen, afhankelijk of het links of rechts is.
-        If typePlaat.ToUpper.Equals("L") Or typePlaat.ToUpper.Equals("C") Then
-            nieuweBarcode &= "E"
-        ElseIf typePlaat.ToUpper.Equals("R") Or typePlaat.ToUpper.Equals("D") Then
-            nieuweBarcode &= "F"
-        Else
-            Throw New Exception($"Type {typePlaat} is niet gekend in de barcode voor nieuwe zijkant data")
-        End If
+        ' Wijziging 05/02/2021
+        ' Uitbreiding voor nieuw zijkant mechanisme: X en Y -> M en N
+        Select Case typePlaat.ToUpper
+            Case "L", "C"
+                nieuweBarcode &= "E"
+            Case "R", "D"
+                nieuweBarcode &= "F"
+            Case "X"
+                nieuweBarcode &= "M"
+            Case "Y"
+                nieuweBarcode &= "N"
+            Case Else
+                Throw New Exception($"Type {typePlaat} is niet gekend in de barcode voor nieuwe zijkant data")
+        End Select
 
         'De barcode vullen met nullen en de uniek nummer dat wordt opgehaald.
         Dim nummer As String = CacheMapper.GeefBarcodeNummer(barcodeLengte.vier)