Index: TAOR-rework-bugfixing/TAOR rework/formulieren/FormReworkTrayPrinter.vb
===================================================================
diff -u -r1658 -r1704
--- TAOR-rework-bugfixing/TAOR rework/formulieren/FormReworkTrayPrinter.vb	(.../FormReworkTrayPrinter.vb)	(revision 1658)
+++ TAOR-rework-bugfixing/TAOR rework/formulieren/FormReworkTrayPrinter.vb	(.../FormReworkTrayPrinter.vb)	(revision 1704)
@@ -239,6 +239,8 @@
             Domeincontroller.getInstance.verwijderAlleSpecialLaden()
             Domeincontroller.getInstance.verwijderReworkTrays()
             Domeincontroller.getInstance.verwijderVolledigeVoorraad()
+        Else
+            SifonLadeController.GetInstance().WisSifonladen()
         End If
         FormController.getInstance.laadVorige(Me)
     End Sub
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb
===================================================================
diff -u -r1607 -r1704
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb	(.../HoofdAansturingSifonLade.vb)	(revision 1607)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb	(.../HoofdAansturingSifonLade.vb)	(revision 1704)
@@ -1,4 +1,4 @@
-Imports TA_OR_rework.rework
+Imports TA_OR_rework.Rework
 
 Public Class HoofdAansturingSifonLade
     Inherits HoofdAansturingSpecialLade
@@ -17,10 +17,14 @@
 
                 'de special laden komen altijd met minstens 2 sloten die gevuld zijn, deze horen samen
                 Dim slots As List(Of Slot) = reworkTray.geefNietLegeParenSlots()
-                If slots.Count > 2 Then 'zijn alle paren sloten vol?
+                If slots.Count = 4 Then 'zijn alle paren sloten vol?
                     'de eerste twee paren sloten nemen
                     verwerkSamenHorendeSlots(slots(0), slots(1), reworkTray.nummer)
                     verwerkSamenHorendeSlots(slots(2), slots(3), reworkTray.nummer)
+                ElseIf slots.Count = 3 Then 'zijn alle paren sloten vol?
+                    'Eerste origineel, twee andere gegenereerd.
+                    verwerkSamenHorendeSlots(slots(0), slots(1), reworkTray.nummer)
+                    verwerkSamenHorendeSlots(slots(0), slots(2), reworkTray.nummer)
                 ElseIf slots.Count > 0 Then
                     verwerkSamenHorendeSlots(slots(0), slots(1), reworkTray.nummer)
                 Else
@@ -69,10 +73,14 @@
 
     Private Sub wijzigAfkanterZijkanten(reworkTray As ReworkTray)
         Dim slots As List(Of Slot) = reworkTray.geefNietLegeParenSlots()
-        If slots.Count > 2 Then 'zijn alle paren sloten vol?
+        If slots.Count = 4 Then 'zijn alle paren sloten vol?
             'de eerste twee paren sloten nemen
             verwerkSamenHorendeSlotenAfkanter(slots(0), slots(1))
             verwerkSamenHorendeSlotenAfkanter(slots(2), slots(3))
+        ElseIf slots.Count = 3 Then 'zijn alle paren sloten vol?
+            'Eerste origineel, twee andere gegenereerd.
+            verwerkSamenHorendeSlotenAfkanter(slots(0), slots(1))
+            verwerkSamenHorendeSlotenAfkanter(slots(0), slots(2))
         ElseIf slots.Count > 0 Then
             verwerkSamenHorendeSlotenAfkanter(slots(0), slots(1))
         Else
Index: TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb
===================================================================
diff -u -r1658 -r1704
--- TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb	(.../SifonLadeController.vb)	(revision 1658)
+++ TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb	(.../SifonLadeController.vb)	(revision 1704)
@@ -178,7 +178,7 @@
     ''' Dubbele sifonlade bouwen en zijkanten verdelen over rework trays.
     ''' </summary>
     Public Sub VerdeelDubbeleSifonLadenOverReworkTrays()
-        _sifonladeManager.BouwLaden()
+        _sifonladeDubbelManager.BouwLaden()
     End Sub
 
     Public Sub ProduceerDubbeleSifonladen()
@@ -241,4 +241,9 @@
         End Try
     End Function
 
+    Public Sub WisSifonladen()
+        'Repository leegmaken.
+        _reworkTrayRepository.verwijderReworkTraysSpecialLade()
+    End Sub
+
 End Class
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/managers/MustInheritSifonLadeManager.vb
===================================================================
diff -u -r1658 -r1704
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/managers/MustInheritSifonLadeManager.vb	(.../MustInheritSifonLadeManager.vb)	(revision 1658)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/managers/MustInheritSifonLadeManager.vb	(.../MustInheritSifonLadeManager.vb)	(revision 1704)
@@ -88,18 +88,18 @@
     ''' <summary>
     ''' Andere data's genereren, kantenband, automilling, ...
     ''' </summary>
-    public overrides Sub Produceer()
+    Public Overrides Sub Produceer()
         Dim specialLaden As New List(Of SpecialLade)
         For Each lade In Laden
             'Opslaan in Caché
             OpslaanGegenereerdeOnderdelen(lade)
             'Converteren naar special lade.
             Dim specialLade As SpecialLade = New SifonLade()
             'Tpe bepalen en instellen.
-            If TypeOf lade Is SifonLadeV2 Then
-                specialLade.typeInstantie = ItemType.Sifonlade
-            Else
+            If TypeOf lade Is SifonLadeDubbel Then
                 specialLade.typeInstantie = ItemType.DubbeleSifonlade
+            Else
+                specialLade.typeInstantie = ItemType.Sifonlade
             End If
 
             Dim ruggen As New List(Of ArdisData)
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb
===================================================================
diff -u -r1657 -r1704
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb	(.../SifonLadeDubbel.vb)	(revision 1657)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb	(.../SifonLadeDubbel.vb)	(revision 1704)
@@ -81,7 +81,7 @@
         ardisDataR.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False)
 
         'Zijkant initialiseren met juiste Ardis data.
-        BinnenzijkantR1 = New Zijkant() With {
+        BinnenzijkantR2 = New Zijkant() With {
             .ArdisDataL = ardisDataL,
             .ArdisDataR = ardisDataR
             }