Index: TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb
===================================================================
diff -u -r2409 -r2415
--- TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 2409)
+++ TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb	(.../ZijkamerFreesProductieData.vb)	(revision 2415)
@@ -110,7 +110,7 @@
     End Sub
 
     'rework
-    Public Sub aanpassenData(ByVal LinksOfRechts As String, ByVal NieuwTrayNummer As String, ByVal SlotNbr As String, ByVal voorVoorraad As Boolean, ByVal etiketTekst As String, Optional productieDataAndereVanPaar As ZijkamerFreesProductieData = Nothing, Optional andereZijkantLinksOfRechts As String = "")
+    Public Sub aanpassenData(BarcodeID As String, ByVal LinksOfRechts As String, ByVal NieuwTrayNummer As String, ByVal SlotNbr As String, ByVal voorVoorraad As Boolean, ByVal etiketTekst As String, Optional productieDataAndereVanPaar As ZijkamerFreesProductieData = Nothing, Optional andereZijkantLinksOfRechts As String = "")
         If Not (LinksOfRechts.Equals("L") Or LinksOfRechts.Equals("R")) Then
             Throw New Exception("linksOfRechts niet juist bij het aanpassen van data ZijkamerFreesProductieData")
         End If
@@ -188,8 +188,18 @@
         PickPlace = "R" 'rework
         FeedbackERP = "3"
 
-        ' _kantelband = PrintTextLeft1.Substring(9, 2)
-        Dim tempTekst As String = PrintTextLeft1
+        Dim tempTekst As String
+        If BarcodeID = PrintBarcodeRight.Trim() Then
+            tempTekst = PrintTextRight1
+            _length = PrintBarcodeRight.Substring(3, 2) & "0"
+            _height = PrintBarcodeRight.Substring(1, 1)
+
+        Else
+            tempTekst = PrintTextLeft1
+            _length = PrintBarcodeLeft.Substring(3, 2) & "0"
+            _height = PrintBarcodeLeft.Substring(1, 1)
+        End If
+
         tempTekst = tempTekst.Remove(0, tempTekst.IndexOf("/") + 1)
         tempTekst = tempTekst.Substring(0, tempTekst.IndexOf("/"))
         Dim _buiten As String = tempTekst.Substring(0, tempTekst.IndexOf("-"))
@@ -198,9 +208,6 @@
         _colorEnkel = _binnen & "-" & _buiten
         _colorDubbel = _binnen & "-" & _buiten & "-" & _binnen & "-" & _buiten
 
-        _length = PrintBarcodeLeft.Substring(3, 2) & "0"
-        _height = PrintBarcodeLeft.Substring(1, 1)
-
         'Etiketlijn aanpassen als het voor voorraad is
         If voorVoorraad Then
             If etiketTekst.Equals("") Then
Index: TAOR rework/TAOR rework/Rework/HoofdAansturingRework.vb
===================================================================
diff -u -r2097 -r2415
--- TAOR rework/TAOR rework/Rework/HoofdAansturingRework.vb	(.../HoofdAansturingRework.vb)	(revision 2097)
+++ TAOR rework/TAOR rework/Rework/HoofdAansturingRework.vb	(.../HoofdAansturingRework.vb)	(revision 2415)
@@ -85,7 +85,7 @@
 
             'als het een uit een paar is updaten met de informatie uit de andere van het paar
             If barcodeID2.Equals("") Then
-                _productieData.aanpassenData(linksOfRechts, nieuwTrayNummer, slotNr, voorVoorraad, etiketTekst)
+                _productieData.aanpassenData(barcodeID, linksOfRechts, nieuwTrayNummer, slotNr, voorVoorraad, etiketTekst)
             Else
                 Dim productieDataAndere As ZijkamerFreesProductieData
                 productieDataAndere = AutomillingMapper.OphalenUitProductie(barcodeID2)
@@ -95,7 +95,7 @@
                         Throw New Exception("De productieData kon niet worden opgehaald uit automiling met barcode: " & barcodeID)
                     End If
                 End If
-                _productieData.aanpassenData(linksOfRechts, nieuwTrayNummer, slotNr, voorVoorraad, etiketTekst, productieDataAndere, andereZijkantLinksOfRechts)
+                _productieData.aanpassenData(barcodeID, linksOfRechts, nieuwTrayNummer, slotNr, voorVoorraad, etiketTekst, productieDataAndere, andereZijkantLinksOfRechts)
             End If
             _productieDatas.Add(_productieData.ShallowCopy)
         Catch ex As Exception