Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb
===================================================================
diff -u -r1655 -r1656
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb	(.../SifonLadeV2.vb)	(revision 1655)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb	(.../SifonLadeV2.vb)	(revision 1656)
@@ -107,7 +107,7 @@
         Dim ardisDataL = BuitenzijkantL.ArdisDataL.ShallowCopy()
         ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, True)
         Dim ardisDataR = BuitenzijkantL.ArdisDataR.ShallowCopy()
-        ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False)
+        ardisDataR.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False)
 
         'Zijkant initialiseren met juiste Ardis data.
         BinnenzijkantL1 = New Zijkant() With {
@@ -123,7 +123,7 @@
         Dim ardisDataL = BuitenzijkantR.ArdisDataL.ShallowCopy()
         ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, True)
         Dim ardisDataR = BuitenzijkantR.ArdisDataR.ShallowCopy()
-        ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False)
+        ardisDataR.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False)
 
         'Zijkant initialiseren met juiste Ardis data.
         BinnenzijkantR1 = New Zijkant() With {
@@ -186,10 +186,4 @@
     End Function
 #End Region
 
-#Region "Data's genereren"
-
-
-
-#End Region
-
 End Class
Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1652 -r1656
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1652)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1656)
@@ -129,7 +129,7 @@
         'Derde teken is opnieuw van originele barcode.
         nieuweBarcode &= PartCalc.Substring(2, 1)
         'Teken daarna is de STEMAS B code, opvragen en toevoegen.
-        nieuweBarcode &= Configs.geefCodeStemasB(PartL)
+        nieuweBarcode &= Configs.geefCodeStemasB(lengte)
         'Speciale letter toevoegen, afhankelijk of het links of rechts is.
         If typePlaat.ToUpper.Equals("L") Or typePlaat.ToUpper.Equals("C") Then
             nieuweBarcode &= "E"
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