Index: TAOR rework/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb
===================================================================
diff -u -r1879 -r2066
--- TAOR rework/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb	(.../HoofdAansturingSifonLade.vb)	(revision 1879)
+++ TAOR rework/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb	(.../HoofdAansturingSifonLade.vb)	(revision 2066)
@@ -88,27 +88,20 @@
     End Sub
 
     Private Sub wijzigAfkanterRug(specialLade As SpecialLade)
-        Dim rug1 As ArdisData = specialLade.ruggen(0)
-        Dim rug2 As ArdisData = specialLade.ruggen(1)
         Dim origineleRug As ArdisData = specialLade.rug
 
-        Dim kantenBandData As KantenbandData = KantenbandMapper.geef(origineleRug.PartCalc)
+        Dim kantenBandDataOrigineleRug As KantenbandData = KantenbandMapper.geef(origineleRug.PartCalc)
 
-        If kantenBandData Is Nothing Then
-            Throw New Exception("De kantenband data nodig om een rug van een sifon lade op te slaan is niet gevonden, barcode: " & origineleRug.PartCalc)
+        If kantenBandDataOrigineleRug Is Nothing Then
+            Throw New Exception($"De kantenband data nodig om een rug van een sifon lade op te slaan is niet gevonden, barcode: {origineleRug.PartCalc}")
         End If
 
-        Dim rug1Kantenband As KantenbandData = kantenBandData.ShallowCopy
-        Dim rug2Kantenband As KantenbandData = kantenBandData.ShallowCopy
-
-        rug1Kantenband.sifonLadeStelLengteRugIn(rug1.sifonLadeGeefOorspronkelijkeLengteRug, rug1.PartExt08)
-        rug2Kantenband.sifonLadeStelLengteRugIn(rug2.sifonLadeGeefOorspronkelijkeLengteRug, rug2.PartExt08)
-
-        rug1Kantenband.sifonLadeStelBarcodeRugIn(rug1.PartCalc)
-        rug2Kantenband.sifonLadeStelBarcodeRugIn(rug2.PartCalc)
-
-        slaOpInAfkanter(rug1Kantenband)
-        slaOpInAfkanter(rug2Kantenband)
+        For Each rug As ArdisData In specialLade.ruggen
+            Dim rugKantenbandData As KantenbandData = kantenBandDataOrigineleRug.ShallowCopy
+            rugKantenbandData.sifonLadeStelLengteRugIn(rug.sifonLadeGeefOorspronkelijkeLengteRug, rug.PartExt08)
+            rugKantenbandData.sifonLadeStelBarcodeRugIn(rug.PartCalc)
+            slaOpInAfkanter(rugKantenbandData)
+        Next
     End Sub
 
     Private Sub verwerkSamenHorendeSlotenAfkanter(slot1 As Slot, slot2 As Slot)