Index: TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb
===================================================================
diff -u -r1900 -r2030
--- TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 1900)
+++ TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 2030)
@@ -525,7 +525,7 @@
                           "//////" 'etiketlijn2: bv. ZIJ-L/Z8-Z8-Z8/500x179.5///////
         PrintTextLeft3 = PrintTextLeft2
         PrintTextRight1 = vItem.Label
-        PrintTextRight2 =  If (barcodeB.Equals(""),"",PrintTextLeft2) 'Als er tweede barcode aanwezig is, PrintTextLeft2 overnemen
+        PrintTextRight2 = If(barcodeB.Equals(""), "", PrintTextLeft2) 'Als er tweede barcode aanwezig is, PrintTextLeft2 overnemen
         PrintTextRight3 = PrintTextRight2
         PrintTextLeft4 = barcodeA
         PrintTextRight4 = barcodeB
@@ -548,10 +548,30 @@
 
     Sub voorraadStelProgrammasInMetPartner(linksOfRechtsA As LinksOfRechts, linksOfRechtsB As LinksOfRechts, hoogte As String)
         Const pad As String = "C:\TWINcat\CNC\"
-        ProgramLeftInner = pad + hoogte + "_" + "OUT_" + If(linksOfRechtsA = LinksOfRechts.Links, "L", "R") + ".nc"
-        ProgramLeftOuter = pad + hoogte + "_" + "IN_" + If(linksOfRechtsA = LinksOfRechts.Links, "L", "R") + ".nc"
-        ProgramRightInner = pad + hoogte + "_" + "OUT_" + If(linksOfRechtsB = LinksOfRechts.Links, "L", "R") + ".nc"
-        ProgramRightOuter = pad + hoogte + "_" + "IN_" + If(linksOfRechtsB = LinksOfRechts.Links, "L", "R") + ".nc"
+        ' Aanpassing 05/02/2021
+        ' Sequentie moet altijd zijn: out-in-in-out
+        ' Rechtse maken op plaats van linkse --> linkse programma's omwisselen
+        ' Linkse maken op plaats van rechtse --> rechtse programma's omwisselen
+        ' 3 gevallen, LR, LL of RR
+        If (linksOfRechtsA = LinksOfRechts.Links) Then
+            ' Links op links
+            ProgramLeftInner = $"{pad}{hoogte}_IN_R.nc"
+            ProgramLeftOuter = $"{pad}{hoogte}_OUT_R.nc"
+        Else
+            ' Rechts op links --> omwisselen
+            ProgramLeftInner = $"{pad}{hoogte}_OUT_L.nc"
+            ProgramLeftOuter = $"{pad}{hoogte}_IN_L.nc"
+        End If
+
+        if(linksOfRechtsB = LinksOfRechts.Rechts) Then
+            ' Rechts op rechts
+            ProgramRightInner = $"{pad}{hoogte}_IN_L.nc"
+            ProgramRightOuter = $"{pad}{hoogte}_OUT_L.nc"
+        Else
+            ' Links op rechts --> omwisselen
+            ProgramRightInner = $"{pad}{hoogte}_OUT_R.nc"
+            ProgramRightOuter = $"{pad}{hoogte}_IN_R.nc"
+        End If
     End Sub
 
 #End Region