Index: TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj
===================================================================
diff -u -r1740 -r1742
--- TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1740)
+++ TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1742)
@@ -29,7 +29,7 @@
     <ProductName>TAOR rework</ProductName>
     <PublisherName>Robin De Bock</PublisherName>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
-    <ApplicationRevision>1</ApplicationRevision>
+    <ApplicationRevision>2</ApplicationRevision>
     <ApplicationVersion>6.0.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>
Index: TAOR-rework-bugfixing/TAOR rework/Configuraties/Configs.vb
===================================================================
diff -u -r1651 -r1742
--- TAOR-rework-bugfixing/TAOR rework/Configuraties/Configs.vb	(.../Configs.vb)	(revision 1651)
+++ TAOR-rework-bugfixing/TAOR rework/Configuraties/Configs.vb	(.../Configs.vb)	(revision 1742)
@@ -351,7 +351,7 @@
 #End Region
 
 #Region "Logs schrijven of niet"
-    public Function GeefLogOpslaanStatus() As Boolean
+    Public Function GeefLogOpslaanStatus() As Boolean
         Return My.Settings.LogOpslaanStatus
     End Function
 #End Region
@@ -538,13 +538,16 @@
         Next
         Throw New Exception("Ongeldige nettoLengte bij opvragen CodeStemasB")
     End Function
+
 #End Region
 
 #Region "kleuren, codes en materialen kantenband"
 
     Private _kleurenKantenband As New List(Of String)
     Private _codesKantenband As New List(Of String)
     Private _materialenKantenband As New List(Of String)
+    Private _passProgram1 As New List(Of String)
+    Private _passProgram2 As New List(Of String)
 
     Private Sub laadKantenbandNieuweKleuren()
         Dim overigeConfigs As New List(Of String)
@@ -553,6 +556,8 @@
                 _kleurenKantenband.Add(lijn.Split("|")(0).Replace("kantenbandkleurenencodes ", "").Replace("KANTENBANDKLEURENENCODES", "").Trim)
                 _codesKantenband.Add(lijn.Split("|")(1).Trim)
                 _materialenKantenband.Add(lijn.Split("|")(2).Trim)
+                _passProgram1.Add(lijn.Split("|")(3).Trim)
+                _passProgram2.Add(lijn.Split("|")(4).Trim)
             Else
                 overigeConfigs.Add(lijn)
             End If
@@ -562,6 +567,10 @@
 
         If _kleurenKantenband.Count <= 0 Or _codesKantenband.Count <= 0 Or _materialenKantenband.Count <= 0 Then
             Throw New Exception("De configuratie van de kleuren, codes en materialen voor kantenband is foutief of niet aanwezig, gelieve deze na te kijken.")
+        ElseIf _passProgram1.Count <= 0 Then
+            Throw New Exception("Pass program 1 voor specials is foutief of niet aanwezig, gelieve deze na te kijken.")
+        ElseIf _passProgram2.Count <= 0 Then
+            Throw New Exception("Pass program 2 voor specials is foutief of niet aanwezig, gelieve deze na te kijken.")
         End If
     End Sub
 
@@ -589,6 +598,24 @@
         Throw New Exception("Ongeldige kleur bij opvragen kantenband materiaal")
     End Function
 
+    Public Function geefPassProgram1BijKleur(kleur As String) As String
+        For teller As Integer = 0 To _kleurenKantenband.Count - 1
+            If kleur.Equals(_kleurenKantenband(teller)) Then
+                Return _passProgram1(teller)
+            End If
+        Next
+        Throw New Exception("Ongeldige kleur bij opvragen pass program 1")
+    End Function
+
+    Public Function geefPassProgram2BijKleur(kleur As String) As String
+        For teller As Integer = 0 To _kleurenKantenband.Count - 1
+            If kleur.Equals(_kleurenKantenband(teller)) Then
+                Return _passProgram2(teller)
+            End If
+        Next
+        Throw New Exception("Ongeldige kleur bij opvragen pass program 2")
+    End Function
+
 #End Region
 
 #End Region
Index: TAOR-rework-bugfixing/TAOR rework/databases/Kantenband/KantenbandData.vb
===================================================================
diff -u -r1738 -r1742
--- TAOR-rework-bugfixing/TAOR rework/databases/Kantenband/KantenbandData.vb	(.../KantenbandData.vb)	(revision 1738)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Kantenband/KantenbandData.vb	(.../KantenbandData.vb)	(revision 1742)
@@ -121,25 +121,25 @@
         Pass4Turning180 = ""
 
         If Configs.geefKantenbandMateriaalBijKleur(materiaal).ToLower.Equals("melamine") Then
-            Pass1Program = "AFKANTEN MELAMINE"
+            Pass1Program = Configs.geefPassProgram1BijKleur(materiaal)
             Pass1Tilting180 = "0"
             Pass1Turning180 = "1"
-            Pass2Program = "AFKANTEN MELAMINE"
+            Pass2Program = Configs.geefPassProgram2BijKleur(materiaal)
             Pass2Tilting180 = "1"
             Pass2Turning180 = "0"
             Pass2Exit = "D"
         Else
-            Pass1Program = "AFKANTEN FINEER"
+            Pass1Program = Configs.geefPassProgram1BijKleur(materiaal)
             Pass1Tilting180 = "0"
             Pass1Turning180 = "1"
-            Pass2Program = "AFKANTEN FINEER"
+            Pass2Program = Configs.geefPassProgram2BijKleur(materiaal)
             Pass2Tilting180 = "1"
             Pass2Turning180 = "1"
             Pass2Exit = ""
-            Pass3Program = "SCHIELE ZONDER GROEF"
+            Pass3Program = "SCHIELE"
             Pass3Tilting180 = "0"
             Pass3Turning180 = "1"
-            Pass4Program = "SCHIELE ZONDER GROEF"
+            Pass4Program = "SCHIELE"
             Pass4Tilting180 = "0"
             Pass4Turning180 = "0"
             Pass4Exit = "D"
@@ -148,9 +148,9 @@
 
     Public Sub sifonLadeStelLengteRugIn(oorspronkelijkeLengte As String, decor As String)
         'lengte instellen
-        If CDbl(oorspronkelijkeLengte) < Configs.sifonLadeGeefMinimumLengteRug Then
+        If CDbl(oorspronkelijkeLengte) < Configs.SifonLadeGeefMinimumLengteRug Then
             'de lengte instellen
-            Length = Configs.sifonLadeGeefMinimumLengteRug
+            Length = Configs.SifonLadeGeefMinimumLengteRug
             If decor.ToLower.Equals("melamine") Then
                 Pass2Exit = "C"
             ElseIf decor.ToLower.Equals("fineer") Then