Index: TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb
===================================================================
diff -u -r1879 -r1884
--- TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 1879)
+++ TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 1884)
@@ -265,7 +265,7 @@
         NettoHeight = CDbl(nettoHoogte.Replace(".", ",")) - 5.0
         'de etiketLijnen aanpassen
         PrintTextLeft1 = SifonLadeNewPrintTextLeft(PrintTextLeft1, materiaal)
-        PrintTextRight1= SifonLadeNewPrintTextLeft(PrintTextRight1, materiaal)
+        PrintTextRight1 = SifonLadeNewPrintTextLeft(PrintTextRight1, materiaal)
 
         PrintTextLeft4 = barcodeLeft.Trim & "/D:" & NettoLength & "xH:" & NettoHeight
         PrintTextRight4 = barcodeRight.Trim & "/D:" & NettoLength & "xH:" & NettoHeight
@@ -492,12 +492,12 @@
 
 #Region "voorraad"
 
-    Public Sub voorraadStelInitieleWaardenIn(trayId As String, slotNr As String, linksOfRechts As LinksOfRechts, kleur As String, diepte As String, hoogteLetter As String, label As String, barcodeA As String, Optional barcodeB As String = "")
+    Public Sub voorraadStelInitieleWaardenIn(trayId As String, slotNr As String, vItem As IVoorraadItem, barcodeA As String, Optional barcodeB As String = "")
         PickSequence = slotNr
         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(vItem.LinksOfRechts = LinksOfRechts.Links, "L", "R"))
         FeedbackERP = "3"
         PickTimeStamp = ""
         MillingTimeStamp = ""
@@ -506,10 +506,10 @@
         BatchID = "99999"
         SequenceNbr = ""
         ProductCode = ""
-        Color = kleur
+        Color = vItem.KleurBinnen
         PickListID = ""
-        NettoLength = diepte - 5
-        NettoHeight = geefHoogteDataVoorraad(hoogteLetter) - 5
+        NettoLength = vItem.Diepte - 5
+        NettoHeight = geefHoogteDataVoorraad(vItem.Hoogte) - 5
         OversizeLength = "2,5"
         OversizeHeight = "2,5"
         ProgramLeftInner = "WORDT VERVANGEN"
@@ -518,12 +518,15 @@
         ProgramRightOuter = "WORDT VERVANGEN"
         PrintBarcodeLeft = barcodeA
         PrintBarcodeRight = barcodeB
-        PrintTextLeft1 = label
-        PrintTextLeft2 = ""
-        PrintTextLeft3 = ""
-        PrintTextRight1 = label
-        PrintTextRight2 = ""
-        PrintTextRight3 = ""
+        PrintTextLeft1 = vItem.Label
+        PrintTextLeft2 = $"ZIJ/" +
+                         $"{vItem.KleurBuiten}-{vItem.Kantenband}-{vItem.KleurBinnen}/" +
+                         $"{vItem.Diepte}x{Configs.geefHoogteDataVoorraad(vItem.Hoogte) - 5}/" +
+                          "//////" '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
+        PrintTextRight3 = PrintTextRight2
         PrintTextLeft4 = barcodeA
         PrintTextRight4 = barcodeB
         tableWork = ""
Index: TAOR rework/TAOR rework/Voorraad/VoorraadItem.vb
===================================================================
diff -u -r1869 -r1884
--- TAOR rework/TAOR rework/Voorraad/VoorraadItem.vb	(.../VoorraadItem.vb)	(revision 1869)
+++ TAOR rework/TAOR rework/Voorraad/VoorraadItem.vb	(.../VoorraadItem.vb)	(revision 1884)
@@ -82,10 +82,10 @@
             Dim ardisDataBinnen As New ArdisData
             Dim ardisDataBuiten As New ArdisData
 
-            ardisDataBinnen.voorraadStelInitieleWaardenIn(Diepte, Hoogte, Label, KleurBinnen)
+            ardisDataBinnen.voorraadStelInitieleWaardenIn(Me, true)
             ardisDataBinnen.voorraadGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(), IsSifonlade)
 
-            ardisDataBuiten.voorraadStelInitieleWaardenIn(Diepte, Hoogte, Label, KleurBuiten)
+            ardisDataBuiten.voorraadStelInitieleWaardenIn(Me,false)
             ardisDataBuiten.voorraadGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(), IsSifonlade)
 
             ardisDataBinnen.updateKommasNaarPunten()
@@ -101,10 +101,10 @@
 
             Dim zijkamerfreesProductieData As New ZijkamerFreesProductieData
             If PartnerInSlot Is Nothing Then
-                zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, LinksOfRechts, KleurBinnen, Diepte, Hoogte, Label, zijkantA.PartCalc)
+                zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, Me,zijkantA.PartCalc)
                 zijkamerfreesProductieData.voorraadStelProgrammasInZonderPartner(Hoogte)
             Else
-                zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, LinksOfRechts, KleurBinnen, Diepte, Hoogte, Label, zijkantA.PartCalc, PartnerInSlot.ZijkantArdisDatas(0).PartCalc)
+                zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, Me, zijkantA.PartCalc, PartnerInSlot.ZijkantArdisDatas(0).PartCalc)
                 zijkamerfreesProductieData.voorraadStelProgrammasInMetPartner(LinksOfRechts, PartnerInSlot.LinksOfRechts, Hoogte)
             End If
 
Index: TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1881 -r1884
--- TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1881)
+++ TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1884)
@@ -564,18 +564,18 @@
         Return GeefKleurBinnen() & "-" & zijkantB.GeefKleurBinnen & "-" & andereZijkantA.GeefKleurBinnen & "-" & andereZijkantB.GeefKleurBinnen
     End Function
 
-    Public Sub voorraadStelInitieleWaardenIn(diepte As String, hoogteLetter As String, label As String, kleur As String)
+    Public Sub voorraadStelInitieleWaardenIn(vItem As IVoorraadItem, isBinnen As Boolean)
         PartRef = "Zijkantplaat" 'rol/onderdeel
         PartQty = "1" 'aantal
         PartMat = "WORDT VERVANGEN" 'plaatmateriaal"
         PartCalc = "WORDT VERVANGEN" 'barcode
         PartRemark2 = "1" 'ladesequenty
         PartRemark = "NoRework" 'dossiercode
         PartExt09 = "" 'extrainfo
-        PartL = diepte 'lengte
-        PartW = Configs.geefHoogteDataVoorraad(hoogteLetter) 'breedte
+        PartL = vItem.Diepte 'lengte
+        PartW = Configs.geefHoogteDataVoorraad(vItem.Hoogte) 'breedte
         PartExt06 = "6,5" 'dikte
-        PartExt07 = kleur 'kleur
+        PartExt07 = If(isBinnen,vItem.KleurBinnen,vItem.KleurBuiten) 'kleur
         PartExt08 = "WORDT VERVANGEN" 'decor
         PartExt01 = label 'etiketlijn1
         PartExt02 = "" 'etiketlijn2
@@ -586,8 +586,7 @@
         PartGroup = "99999001" 'kar
         PartLevel = DateTime.Now.ToString("yyyyMMdd") + "12" 'banding
 
-        PartExt07 = kleur 'kleur
-        PartMat = Configs.voorraadGeefPlaatmateriaal(kleur) 'plaatmateriaal
+        PartMat = Configs.voorraadGeefPlaatmateriaal(If(isBinnen,vItem.KleurBinnen,vItem.KleurBuiten)) 'plaatmateriaal
         PartExt08 = PartMat.Substring(0, PartMat.IndexOf("."))
     End Sub