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)