Index: TAOR-rework-bugfixing/TAOR rework/controllers/Domeincontroller.vb
===================================================================
diff -u -r1703 -r1740
--- TAOR-rework-bugfixing/TAOR rework/controllers/Domeincontroller.vb	(.../Domeincontroller.vb)	(revision 1703)
+++ TAOR-rework-bugfixing/TAOR rework/controllers/Domeincontroller.vb	(.../Domeincontroller.vb)	(revision 1740)
@@ -621,22 +621,6 @@
                         voorraadItem.genereerZijkantAutomillingData()
                         voorraadItem.genereerZijkantKantenbandDatas()
                     Next
-                Case ItemType.SIFONLADE
-                    specialLadenRep.updateDataSpecialLaden()
-                    'de extra zijkanten en ruggen toevoegen
-                    specialLadenRep.maakExtraOnderdelenSifonLaden()
-                    'de etiketlijnen updaten
-                    specialLadenRep.updateEtiketLijnSifonLaden()
-
-                    verdeelSifonLadenOverReworkTrays()
-                Case ItemType.DUBBELESIFONLADE
-                    specialLadenRep.updateDataSpecialLaden()
-                    'de extra zijkanten en ruggen toevoegen
-                    specialLadenRep.maakExtraOnderdelenSpoelbakLaden()
-                    'de etiketlijnen updaten
-                    specialLadenRep.updateEtiketLijnSpoelbakLaden()
-
-                    verdeelSpoelbakLadenOverReworkTrays()
                 Case Else
                     specialLadenRep.verwijderSpecialLaden()
                     reworkTrayRep.verwijderReworkTraysSpecialLade()
@@ -675,10 +659,6 @@
                     specialLadenRep.updateDataSpecialLaden()
                     slaSpecialLadenNieuweKleurOp()
                     specialLadenRep.verwijderSpecialLaden()
-                Case ItemType.SIFONLADE
-                    slaSifonLadenOp()
-                Case ItemType.DUBBELESIFONLADE
-                    slaSpoelbakLadenOp()
                 Case ItemType.GEEN
                     specialLadenRep.verwijderSpecialLaden()
                     reworkTrayRep.verwijderReworkTraysSpecialLade()
@@ -783,144 +763,6 @@
 
 #End Region
 
-#Region "sifonLade"
-
-    'informatie opvragen over de sifonLade
-    Public Function GeefInformatieSifonLade() As List(Of String)
-        Dim sifonLade As SifonLade = specialLadenRep.geefSifonLade(0)
-        Dim informatie As New List(Of String)
-        informatie.Add(specialLadenRep.bestandsNaam)
-        informatie.Add(sifonLade.geefLW) 'lade width
-        informatie.Add(sifonLade.geefNLLade) 'nominale lengte
-        informatie.Add(sifonLade.geefKleurBinnen) 'kleur binnen
-        informatie.Add(sifonLade.geefBatch) 'batch ID
-        informatie.Add(sifonLade.geefBreedte) 'breedte
-        informatie.Add(sifonLade.geefBreedteSifonUitsparing) 'breedte uitsparing
-        informatie.Add(sifonLade.geefDiepte) 'diepte
-        informatie.Add(sifonLade.geefDiepteSifon) 'diepte van de sifon
-        informatie.Add(sifonLade.geefPositieUitsparingSifon) 'positie uitsparing sifon
-        informatie.Add(sifonLade.geefRestTekening) 'rest breedte
-        Return informatie
-    End Function
-
-    Private Sub verdeelSifonLadenOverReworkTrays()
-        Dim zijkanten As New List(Of ArdisData)
-        For Each sifonLade In specialLadenRep.sifonLaden
-            'zijkanten
-            zijkanten.AddRange(sifonLade.zijkanten)
-        Next
-        'special rework trays laten verwerken
-        voegReworkTraysSpecialLadeToe(zijkanten)
-    End Sub
-
-    Private Sub slaSifonLadenOp()
-        Dim hoofdAansturingSifonLade As HoofdAansturingSpecialLade = New HoofdAansturingSifonLade(reworkTrayRep)
-        hoofdAansturingSifonLade.verwerkenSpecialLadeMetTrays(specialLadenRep.sifonLaden)
-    End Sub
-
-    'verplaatsen van de sifon laden uit het bestand naar de directory meegegeven in het config bestand en de niet verwerkte in het bestand terug zetten
-    Public Sub verplaatsVerwerkteSifonLaden()
-        Try
-            Dim bestandsNaam As String = specialLadenRep.bestandsNaam
-
-            For Each sifonLade In specialLadenRep.sifonLaden
-                'alle onderdelen afgaan
-                'zijkanten
-                For Each zijkant As ArdisData In sifonLade.zijkanten
-                    ArdisTextMapper.opslaanSifonLadeVoorVerwerking(zijkant, bestandsNaam)
-                Next
-                'rug
-                ArdisTextMapper.opslaanSifonLadeVoorVerwerking(sifonLade.rug, bestandsNaam)
-                'bodem
-                ArdisTextMapper.opslaanSifonLadeVoorVerwerking(sifonLade.bodem, bestandsNaam)
-            Next
-            ArdisTextMapper.stopArdisTextOpslag()
-        Catch ex As Exception
-            Throw New Exception("Er is iets foutgelopen bij het verplaatsen van het uitgelezen sifonLade bestand naar een andere folder" & vbNewLine & ex.Message)
-        End Try
-    End Sub
-
-#End Region
-
-#Region "spoelbakLade"
-
-    'waarden instellen voor de spoelbak lade
-    Public Sub spoelbakLadeStelPositieIn(positie As Double)
-        specialLadenRep.spoelbakLadeStelPositieIn(positie)
-    End Sub
-    Public Sub spoelbakLadeStelBreedteIn(breedte As Double)
-        specialLadenRep.spoelbakLadeStelBreedteIn(breedte)
-    End Sub
-
-    'informatie opvragen over de spoelbakLade
-    Function geefInformatieSpoelbakLade() As List(Of String)
-        Dim spoelbakLade As SpoelbakLade = specialLadenRep.geefSpoelbakLade(0)
-        Dim informatie As New List(Of String)
-        informatie.Add(specialLadenRep.bestandsNaam)
-        informatie.Add(spoelbakLade.geefLW) 'lade width
-        informatie.Add(spoelbakLade.geefNLLade) 'nominale lengte
-        informatie.Add(spoelbakLade.geefKleurBinnen) 'kleur binnen
-        informatie.Add(spoelbakLade.geefBatch) 'batch ID
-        informatie.Add(spoelbakLade.geefBreedte) 'breedte
-        informatie.Add(spoelbakLade.geefBreedteSpoelbakUitsparing) 'breedte uitsparing
-        informatie.Add(spoelbakLade.geefDiepte) 'diepte
-        informatie.Add(spoelbakLade.geefDiepteSpoelbak) 'diepte uitsparing
-        informatie.Add(spoelbakLade.positieSpoelbak) 'positie spoelbak
-        informatie.Add(spoelbakLade.geefRestBreedte) 'rest breedte
-        Return informatie
-    End Function
-
-    Public Sub spoelbakLadeStelInitiëlePositieIn()
-        specialLadenRep.spoelbakLadeStelInitiëlePositieIn()
-    End Sub
-
-    Function geefNuttigeRuimteZijvakkenSpoelbak() As Double
-        Return specialLadenRep.geefNuttigeRuimteZijvakkenSpoelbakVanSpoelbakLaden()
-    End Function
-
-    Function geefPositieUitsparingSpoelbak() As Double
-        Return specialLadenRep.geefPositieSpoelbakVanSpoelbakLaden
-    End Function
-
-    Private Sub verdeelSpoelbakLadenOverReworkTrays()
-        Dim zijkanten As New List(Of ArdisData)
-        For Each spoelbakLade In specialLadenRep.spoelbakLaden
-            'zijkanten
-            zijkanten.AddRange(spoelbakLade.zijkanten)
-        Next
-        'de zijkanten en de special rework trays laten verwerken
-        voegReworkTraysSpecialLadeToe(zijkanten)
-    End Sub
-
-    Private Sub slaSpoelbakLadenOp()
-        Dim hoofdAansturingSpoelbakLade As HoofdAansturingSpecialLade = New HoofdAansturingSpoelbakLade(reworkTrayRep)
-        hoofdAansturingSpoelbakLade.verwerkenSpecialLadeMetTrays(specialLadenRep.spoelbakLaden)
-    End Sub
-
-    'verplaatsen van de spoelbak laden uit het bestand naar de directory meegegeven in het config bestand en de niet verwerkte in het bestand terug zetten
-    Public Sub verplaatsVerwerkteSpoelbakLaden()
-        Try
-            Dim bestandsNaam As String = specialLadenRep.bestandsNaam
-
-            For Each spoelbakLade In specialLadenRep.spoelbakLaden
-                'alle onderdelen afgaan
-                'zijkanten
-                For Each zijkant As ArdisData In spoelbakLade.zijkanten
-                    ArdisTextMapper.opslaanSpoelbakLadeVoorVerwerking(zijkant, bestandsNaam)
-                Next
-                'rug
-                ArdisTextMapper.opslaanSpoelbakLadeVoorVerwerking(spoelbakLade.rug, bestandsNaam)
-                'bodem
-                ArdisTextMapper.opslaanSpoelbakLadeVoorVerwerking(spoelbakLade.bodem, bestandsNaam)
-            Next
-            ArdisTextMapper.stopArdisTextOpslag()
-        Catch ex As Exception
-            Throw New Exception("Er is iets foutgelopen bij het verplaatsen van het uitgelezen sifonLade bestand naar een andere folder" & vbNewLine & ex.Message)
-        End Try
-    End Sub
-
-#End Region
-
     Private Sub voegReworkTraysSpecialLadeToe(ByVal zijkanten As List(Of ArdisData))
         Dim zijkantenList As New List(Of ArdisData)
         zijkantenList.AddRange(zijkanten)