Index: TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb
===================================================================
diff -u -r2030 -r2037
--- TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 2030)
+++ TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 2037)
@@ -548,15 +548,15 @@
 
     Sub voorraadStelProgrammasInMetPartner(linksOfRechtsA As LinksOfRechts, linksOfRechtsB As LinksOfRechts, hoogte As String)
         Const pad As String = "C:\TWINcat\CNC\"
-        ' Aanpassing 05/02/2021
+        ' Aanpassing 17/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
+        ' Rechtse maken op plaats van linkse --> ProgramLeft inner/outer omwisselen
+        ' Linkse maken op plaats van rechtse --> ProgramRight inner/outer 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"
+            ProgramLeftInner = $"{pad}{hoogte}_IN_L.nc"
+            ProgramLeftOuter = $"{pad}{hoogte}_OUT_L.nc"
         Else
             ' Rechts op links --> omwisselen
             ProgramLeftInner = $"{pad}{hoogte}_OUT_L.nc"
@@ -565,8 +565,8 @@
 
         if(linksOfRechtsB = LinksOfRechts.Rechts) Then
             ' Rechts op rechts
-            ProgramRightInner = $"{pad}{hoogte}_IN_L.nc"
-            ProgramRightOuter = $"{pad}{hoogte}_OUT_L.nc"
+            ProgramRightInner = $"{pad}{hoogte}_IN_R.nc"
+            ProgramRightOuter = $"{pad}{hoogte}_OUT_R.nc"
         Else
             ' Links op rechts --> omwisselen
             ProgramRightInner = $"{pad}{hoogte}_OUT_R.nc"