Index: TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb
===================================================================
diff -u -r2037 -r2038
--- TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 2037)
+++ TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 2038)
@@ -138,32 +138,50 @@
                 PrintTextLeft4 = Mid(PrintTextRight4, 1, 11) & "/***REWORK***"
             End If
 
+            'Aanpassing 17/02: omwisselen programma's bij linkerzijkant in rechterslot en vice versa
+
+            ' Rechterzijkant in linkerslot, programma's rechterzijkant nemen
             If LinksOfRechts.ToLower.Equals("r") Then
                 ProgramLeftInner = ProgramRightInner
                 ProgramLeftOuter = ProgramRightOuter
             End If
 
             'de andere plank gaan we sowieso rechts steken
-            If andereZijkantLinksOfRechts.ToLower.Equals("l") Then
-                PrintBarcodeRight = productieDataAndereVanPaar.PrintBarcodeLeft
-                PrintTextRight1 = productieDataAndereVanPaar.PrintTextLeft1
-                PrintTextRight2 = productieDataAndereVanPaar.PrintTextLeft2
-                PrintTextRight3 = productieDataAndereVanPaar.PrintTextLeft3
-                PrintTextRight4 = Mid(productieDataAndereVanPaar.PrintTextLeft4, 1, 11) & "/***REWORK***"
-                ProgramRightInner = productieDataAndereVanPaar.ProgramLeftInner
-                ProgramRightOuter = productieDataAndereVanPaar.ProgramLeftOuter
-            Else
+            If andereZijkantLinksOfRechts.ToLower.Equals("r") Then
+                ' Default, rechterkant in rechterslot
                 PrintBarcodeRight = productieDataAndereVanPaar.PrintBarcodeRight
                 PrintTextRight1 = productieDataAndereVanPaar.PrintTextRight1
                 PrintTextRight2 = productieDataAndereVanPaar.PrintTextRight2
                 PrintTextRight3 = productieDataAndereVanPaar.PrintTextRight3
                 PrintTextRight4 = Mid(productieDataAndereVanPaar.PrintTextRight4, 1, 11) & "/***REWORK***"
                 ProgramRightInner = productieDataAndereVanPaar.ProgramRightInner
                 ProgramRightOuter = productieDataAndereVanPaar.ProgramRightOuter
+            Else
+                PrintBarcodeRight = productieDataAndereVanPaar.PrintBarcodeLeft
+                PrintTextRight1 = productieDataAndereVanPaar.PrintTextLeft1
+                PrintTextRight2 = productieDataAndereVanPaar.PrintTextLeft2
+                PrintTextRight3 = productieDataAndereVanPaar.PrintTextLeft3
+                PrintTextRight4 = Mid(productieDataAndereVanPaar.PrintTextLeft4, 1, 11) & "/***REWORK***"
+                ProgramRightInner = productieDataAndereVanPaar.ProgramLeftInner
+                ProgramRightOuter = productieDataAndereVanPaar.ProgramLeftOuter
             End If
+            ' Sequentie --> out-in-in-out bij R R of L L
+            If LinksOfRechts.ToLower.Equals(andereZijkantLinksOfRechts.ToLower()) Then
+                If LinksOfRechts.ToLower().Equals("l") Then
+                    'Twee linkerkanten: Out-In-Out-In --> Out-In-In-Out
+                    Dim temp As String = ProgramRightInner
+                    ProgramRightInner = ProgramRightOuter
+                    ProgramRightOuter = temp
+               Else
+                    ' Twee rechterkanten: In-Out-In-Out --> out-in-in-out
+                    Dim temp As String = ProgramLeftInner
+                    ProgramLeftInner = ProgramLeftOuter
+                    ProgramLeftOuter = temp
+                End If
+
+            End If
         End If
 
-
         PalletID = NieuwTrayNummer
         Me.SlotNbr = SlotNbr
         PickSequence = SlotNbr 'volgorde voor robot
@@ -563,7 +581,7 @@
             ProgramLeftOuter = $"{pad}{hoogte}_IN_L.nc"
         End If
 
-        if(linksOfRechtsB = LinksOfRechts.Rechts) Then
+        If (linksOfRechtsB = LinksOfRechts.Rechts) Then
             ' Rechts op rechts
             ProgramRightInner = $"{pad}{hoogte}_IN_R.nc"
             ProgramRightOuter = $"{pad}{hoogte}_OUT_R.nc"