Index: TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1884 -r1887
--- TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1884)
+++ TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1887)
@@ -98,7 +98,7 @@
     ''' </summary>
     ''' <returns></returns>
     Function IsSpecialGegenereerd() As Boolean
-        Return PartExt09.ToUpper.Equals("A") Or PartExt09.ToUpper.Equals("B")
+        Return PartExt09.Equals(Configs.sifonLadeGeefPartExt09GegenereerdeZijkantLinks()) Or PartExt09.ToUpper.Equals(Configs.sifonLadeGeefPartExt09GegenereerdeZijkantRechts())
     End Function
 
 #Region "sifon laden"
@@ -164,10 +164,10 @@
         'PartExt09 updaten afhankelijk van links or rechts.
         If isLinksPlaatje Then
             'Is links.
-            PartExt09 = "A"
+            PartExt09 = Configs.sifonLadeGeefPartExt09GegenereerdeZijkantLinks()
         Else
             'Is rechts
-            PartExt09 = "B"
+            PartExt09 = Configs.sifonLadeGeefPartExt09GegenereerdeZijkantRechts()
         End If
         'Kleur aanpassen.
         PasKleurAanSpecial()
Index: TAOR rework/TAOR rework/databases/Ardis/ArdisMapper.vb
===================================================================
diff -u -r1879 -r1887
--- TAOR rework/TAOR rework/databases/Ardis/ArdisMapper.vb	(.../ArdisMapper.vb)	(revision 1879)
+++ TAOR rework/TAOR rework/databases/Ardis/ArdisMapper.vb	(.../ArdisMapper.vb)	(revision 1887)
@@ -166,7 +166,7 @@
             LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van barcodes gegenereerde plankjes met info Partgroup, PartExt02, PartL: '{partgroup}' '{partExt02}' '{partL}'")
 
             'Query opbouwen.
-            Dim query = $"select top 2 PartCalc from [VH_Ardis_TST].[dbo].[Parts] where partgroup='{partgroup}' and partext02='{partExt02}' and partl='{partL}' and partext01 like '%ZIJ-%' and (partext09 ='A' or partext09='B') order by partid desc"
+            Dim query = $"select top 2 PartCalc from [VH_Ardis_TST].[dbo].[Parts] where partgroup='{partgroup}' and partext02='{partExt02}' and partl='{partL}' and partext01 like '%ZIJ-%' and (partext09 ='{Configs.sifonLadeGeefPartExt09GegenereerdeZijkantLinks()}' or partext09='{Configs.sifonLadeGeefPartExt09GegenereerdeZijkantRechts()}') order by partid desc"
             'Query uitvoeren en resultaat retourneren.
             Dim result = ExecuteIntoListOfString(query)
             LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van barcodes gegenereerde plankjes met info Partgroup, PartExt02, PartL: '{partgroup}' '{partExt02}' '{partL}'", True)
@@ -188,7 +188,7 @@
             LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van barcodes originele plankjes met info Partgroup, PartExt02, PartL: '{partgroup}' '{partExt02}' '{partL}'")
 
             'Query opbouwen.
-            Dim query = $"select top 4 PartCalc from [VH_Ardis_TST].[dbo].[Parts] where partgroup='{partgroup}' and partext02='{partExt02}' and partl='{partL}' and partext01 like '%ZIJ-%' and (partext09 ='A' or partext09='B') order by partid desc"
+            Dim query = $"select top 4 PartCalc from [VH_Ardis_TST].[dbo].[Parts] where partgroup='{partgroup}' and partext02='{partExt02}' and partl='{partL}' and partext01 like '%ZIJ-%' and (partext09 ='{Configs.sifonLadeGeefPartExt09GegenereerdeZijkantLinks()}' or partext09='{Configs.sifonLadeGeefPartExt09GegenereerdeZijkantRechts()}') order by partid desc"
             'Query uitvoeren en resultaat retourneren.
             Dim result = ExecuteIntoListOfString(query)
             LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van barcodes originele plankjes met info Partgroup, PartExt02, PartL: '{partgroup}' '{partExt02}' '{partL}'", True)