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