Index: TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb
===================================================================
diff -u -r2038 -r2039
--- TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 2038)
+++ TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 2039)
@@ -568,28 +568,10 @@
         Const pad As String = "C:\TWINcat\CNC\"
         ' Aanpassing 17/02/2021
         ' Sequentie moet altijd zijn: out-in-in-out
-        ' 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_L.nc"
-            ProgramLeftOuter = $"{pad}{hoogte}_OUT_L.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_R.nc"
-            ProgramRightOuter = $"{pad}{hoogte}_OUT_R.nc"
-        Else
-            ' Links op rechts --> omwisselen
-            ProgramRightInner = $"{pad}{hoogte}_OUT_R.nc"
-            ProgramRightOuter = $"{pad}{hoogte}_IN_R.nc"
-        End If
+        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}_IN_{If(linksOfRechtsB = LinksOfRechts.Links, "L", "R")}.nc"
+        ProgramRightOuter = $"{pad}{hoogte}_OUT_{If(linksOfRechtsB = LinksOfRechts.Links, "L", "R")}.nc"
     End Sub
 
 #End Region