Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb
===================================================================
diff -u -r1738 -r1741
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb	(.../HoofdAansturingSifonLade.vb)	(revision 1738)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb	(.../HoofdAansturingSifonLade.vb)	(revision 1741)
@@ -47,7 +47,7 @@
 
         'kopie maken van de aangepaste productiedata en de velden verder updaten
         Dim productieDataGegenereerdeZijkanten As ZijkamerFreesProductieData = productieDataOrigineleZijkanten.ShallowCopy
-        productieDataGegenereerdeZijkanten.updateDataSifonLadeGegenereerd(trayNummer, slot2.nummer, gegenereerdeZijkantL.PartL, gegenereerdeZijkantL.PartW, gegenereerdeZijkantL.PartCalc, gegenereerdeZijkantR.PartCalc)
+        productieDataGegenereerdeZijkanten.updateDataSifonLadeGegenereerd(trayNummer, slot2.nummer, gegenereerdeZijkantL.PartL, gegenereerdeZijkantL.PartW, gegenereerdeZijkantL.PartCalc, gegenereerdeZijkantR.PartCalc, gegenereerdeZijkantL.GeefKleurBinnen())
         'kijken of het wel moet worden geüpdated
         If Configs.geefVerwerkStatus Then
             'de aangepaste originele productiedata opslaan als nieuw record
Index: TAOR-rework-bugfixing/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb
===================================================================
diff -u -r1596 -r1741
--- TAOR-rework-bugfixing/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 1741)
@@ -1,4 +1,6 @@
-Public Class ZijkamerFreesProductieData
+Imports System.Text.RegularExpressions
+
+Public Class ZijkamerFreesProductieData
     Public PickSequence As String
     Public PickPlace As String
     Public PalletID As String
@@ -255,8 +257,7 @@
         'pickplace op rework zetten
         PickPlace = "R"
     End Sub
-
-    Public Sub updateDataSifonLadeGegenereerd(trayNummer As String, slotNummer As Integer, nettoLengte As String, nettoHoogte As String, barcodeLeft As String, barcodeRight As String)
+    Public Sub updateDataSifonLadeGegenereerd(trayNummer As String, slotNummer As Integer, nettoLengte As String, nettoHoogte As String, barcodeLeft As String, barcodeRight As String, materiaal As String)
         PalletID = trayNummer
         PickSequence = slotNummer
         SlotNbr = slotNummer
@@ -265,6 +266,9 @@
         'de hoogte aanpassen
         NettoHeight = CDbl(nettoHoogte.Replace(".", ",")) - 5.0
         'de etiketLijnen aanpassen
+        PrintTextLeft1 = SifonLadeNewPrintTextLeft(PrintTextLeft1, materiaal)
+        PrintTextRight1= SifonLadeNewPrintTextLeft(PrintTextRight1, materiaal)
+
         PrintTextLeft4 = barcodeLeft.Trim & "/D:" & NettoLength & "xH:" & NettoHeight
         PrintTextRight4 = barcodeRight.Trim & "/D:" & NettoLength & "xH:" & NettoHeight
 
@@ -290,6 +294,30 @@
 
     End Sub
 
+    Private Function SifonLadeNewPrintTextLeft(printText As String, materiaal As String) As String
+        'Eerste stukje van originele, klein zelf invullen, rest van originele.
+        Dim r = New Regex("([^\/]*[^\/]*\/*)", RegexOptions.IgnoreCase)
+        Dim m As Match = r.Match(printText)
+        If Not m.Success Then
+            Throw New Exception("Kon materiaal voor PrintText1 van een zijkant niet updaten, de juiste stukken zijn niet aanwezig in de PrintTextLeft1.")
+        End If
+
+        Dim nieuwePrintText1 = String.Empty
+        Dim i As Integer = 0
+        While m.Success
+            If i = 1 Then
+                nieuwePrintText1 &= $"{materiaal}-{materiaal}-{materiaal}/"
+            Else
+                nieuwePrintText1 &= m.Value
+            End If
+
+            i += 1
+            m = m.NextMatch()
+        End While
+
+        Return nieuwePrintText1
+    End Function
+
 #End Region
 
 #Region "spoelbak lade"
@@ -558,7 +586,7 @@
         PickPlace = "R"
         PalletID = trayId
         SlotNbr = slotNr
-        LeftRight = If(Not barcodeB.Equals(""), "LR", If(linksOfRechts = linksOfRechts.links, "L", "R"))
+        LeftRight = If(Not barcodeB.Equals(""), "LR", If(linksOfRechts = LinksOfRechts.Links, "L", "R"))
         FeedbackERP = "3"
         PickTimeStamp = ""
         MillingTimeStamp = ""
@@ -606,10 +634,10 @@
 
     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"
+        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"
     End Sub
 
 #End Region