Index: TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb
===================================================================
diff -u -r2121 -r2122
--- TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb	(.../ZijkantVoorraadItem.vb)	(revision 2121)
+++ TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb	(.../ZijkantVoorraadItem.vb)	(revision 2122)
@@ -108,10 +108,10 @@
             Dim zijkamerfreesProductieData As New ZijkamerFreesProductieData
             If PartnerInSlot Is Nothing Then
                 zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, Me,zijkantA.PartCalc)
-                zijkamerfreesProductieData.voorraadStelProgrammasInZonderPartner(Hoogte)
+                zijkamerfreesProductieData.voorraadStelProgrammasInZonderPartner(Hoogte, HeeftHoogteVerstelling)
             Else
                 zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, Me, zijkantA.PartCalc, PartnerInSlot.ZijkantArdisDatas(0).PartCalc)
-                zijkamerfreesProductieData.voorraadStelProgrammasInMetPartner(LinksOfRechts, PartnerInSlot.LinksOfRechts, Hoogte)
+                zijkamerfreesProductieData.voorraadStelProgrammasInMetPartner(LinksOfRechts, PartnerInSlot.LinksOfRechts, Hoogte, HeeftHoogteVerstelling)
             End If
 
             _zijkantAutomillingData = zijkamerfreesProductieData
Index: TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb
===================================================================
diff -u -r2089 -r2122
--- TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 2089)
+++ TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 2122)
@@ -556,22 +556,29 @@
         adjustment_YD = ""
     End Sub
 
-    Public Sub voorraadStelProgrammasInZonderPartner(hoogte As String)
+    Public Sub voorraadStelProgrammasInZonderPartner(hoogte As String, heeftHoogteverstelling As Boolean)
         Const pad As String = "C:\TWINcat\CNC\"
-        ProgramLeftInner = pad + hoogte + "_" + "OUT_L.nc"
-        ProgramLeftOuter = pad + hoogte + "_" + "IN_L.nc"
-        ProgramRightInner = pad + hoogte + "_" + "OUT_R.nc"
-        ProgramRightOuter = pad + hoogte + "_" + "IN_R.nc"
+        ' Aanpassing 11/02/2022
+        ' Wanneer hoogteverstelling wordt L -> X en R -> Y
+        ProgramLeftInner = pad + hoogte + "_" + "OUT_" + If(Not heeftHoogteverstelling, "L", "X") + ".nc"
+        ProgramLeftOuter = pad + hoogte + "_" + "IN_" + If(Not heeftHoogteverstelling, "L", "X") + ".nc"
+        ProgramRightInner = pad + hoogte + "_" + "OUT_" + If(Not heeftHoogteverstelling, "R", "Y") + ".nc"
+        ProgramRightOuter = pad + hoogte + "_" + "IN_" + If(Not heeftHoogteverstelling, "R", "Y") + ".nc"
     End Sub
 
-    Sub voorraadStelProgrammasInMetPartner(linksOfRechtsA As LinksOfRechts, linksOfRechtsB As LinksOfRechts, hoogte As String)
+    Sub voorraadStelProgrammasInMetPartner(linksOfRechtsA As LinksOfRechts, linksOfRechtsB As LinksOfRechts, hoogte As String, heeftHoogteVerstelling As Boolean)
         Const pad As String = "C:\TWINcat\CNC\"
         ' Aanpassing 17/02/2021
         ' Sequentie moet altijd zijn: out-in-in-out
-        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"
+        ' Aanpassing 11/02/2022
+        ' Wanneer hoogteverstelling wordt L -> X en R -> Y
+        Dim letterL = If(Not heeftHoogteVerstelling, "L", "X")
+        Dim letterR = If(Not heeftHoogteVerstelling, "R", "Y")
+
+        ProgramLeftInner = $"{pad}{hoogte}_OUT_{If(linksOfRechtsA = LinksOfRechts.Links, letterL, letterR)}.nc"
+        ProgramLeftOuter = $"{pad}{hoogte}_IN_{If(linksOfRechtsA = LinksOfRechts.Links, letterL, letterR)}.nc"
+        ProgramRightInner = $"{pad}{hoogte}_IN_{If(linksOfRechtsB = LinksOfRechts.Links, letterL, letterR)}.nc"
+        ProgramRightOuter = $"{pad}{hoogte}_OUT_{If(linksOfRechtsB = LinksOfRechts.Links, letterL, letterR)}.nc"
     End Sub
 
 #End Region