Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/managers/MustInheritSifonLadeManager.vb
===================================================================
diff -u -r1655 -r1656
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/managers/MustInheritSifonLadeManager.vb	(.../MustInheritSifonLadeManager.vb)	(revision 1655)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/managers/MustInheritSifonLadeManager.vb	(.../MustInheritSifonLadeManager.vb)	(revision 1656)
@@ -45,26 +45,42 @@
     ''' De laden in een afgewerkte staat brengen.
     ''' </summary>
     Public Sub BouwLaden()
-        'Elke lade overlopen.
-        For Each lade in Laden
-            GenereerOnderdelen(lade)
-            VerdeelOverReworkTrays(lade)
-            GenereerOnderdeelDatas(lade)
-        Next
+        Try
+            'Elke lade overlopen.
+            For Each lade In Laden
+                Try
+                    GenereerOnderdelen(lade)
+                Catch ex As Exception
+                    Throw New Exception($"Kon onderdelen niet genereren.{vbNewLine}{ex.Message}")
+                End Try
+                Try
+                    VerdeelOverReworkTrays(lade)
+                Catch ex As Exception
+                    Throw New Exception($"Kon zijkanten niet verdelen over rework trays.{vbNewLine}{ex.Message}")
+                End Try
+                Try
+                    GenereerOnderdeelDatas(lade)
+                Catch ex As Exception
+                    Throw New Exception($"Kon de andere data's voor elk onderdeel niet genereren.{vbNewLine}{ex.Message}")
+                End Try
+            Next
+        Catch ex As Exception
+            Throw New Exception($"Laden konden niet gebouwd worden.{vbNewLine}{ex.Message}")
+        End Try
     End Sub
 
     ''' <summary>
     ''' Genereren van de onderdelen, zijkanten, bodem, ...
     ''' </summary>
     Private Sub GenereerOnderdelen(lade As TLadeType)
-            lade.MaakLade()
+        lade.MaakLade()
     End Sub
 
     ''' <summary>
     ''' Verdelen van de zijkanten over de rework trays.
     ''' </summary>
     Private Sub VerdeelOverReworkTrays(lade As TLadeType)
-        Dim zijkanten = lade.GeefAlleOnderdelen().Where(Function(onderdeel) typeof onderdeel Is Zijkant)
+        Dim zijkanten = lade.GeefAlleOnderdelen().Where(Function(onderdeel) TypeOf onderdeel Is Zijkant).Select(function(onderdeel) CType(onderdeel, Zijkant)).ToList()
         'Data updaten in zijkanten (slotnummer en traynummer door te verdelen over de trays als paar (zijkantL en zijkantR)
         _reworkTrayEngine.VerdeelZijkantenOverTrays(zijkanten)
     End Sub