Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1656 -r1657
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1656)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1657)
@@ -82,7 +82,7 @@
     ''' <summary>
     ''' PartExt07 aanpassen met huidig materiaal.
     ''' </summary>
-    public Sub PasKleurAanSpecial()
+    Public Sub PasKleurAanSpecial()
         Dim firstIndex As Integer = PartMat.IndexOf(".", StringComparison.Ordinal) + 1
         Dim lastIndex As Integer = PartMat.LastIndexOf(".", StringComparison.Ordinal)
         PartExt07 = PartMat.Substring(firstIndex, lastIndex - firstIndex)
@@ -165,7 +165,7 @@
             PartExt09 = "B"
         End If
         'Kleur aanpassen.
-        PasKleurAanSpecial
+        PasKleurAanSpecial()
         'Updaten etiket.
         SifonLadeUpdateEtiketLijnen()
     End Sub
@@ -192,11 +192,12 @@
         SifonLadeUpdateEtiketLijnen()
         SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug)
         'Barcode updaten.
-        SifonLadeUpdateBarcodeRug(isVerlaagdeRug, True)
+        SifonLadeUpdateBarcodeRug(isVerlaagdeRug, RugStuk.Links)
         'Kleur aanpassen.
-        PasKleurAanSpecial
+        PasKleurAanSpecial()
     End Sub
 
+
     ''' <summary>
     ''' Nieuwe data voor een rechtse rug.
     ''' </summary>
@@ -207,8 +208,24 @@
     ''' <param name="partLOrigineleRug"></param>
     ''' <param name="isVerlaagdeRug"></param>
     Public Sub SifonLadeNieuweRug2Data(lw As Double, breedteUitsparingSifon As Double, partLRug1 As Double, oorspronkelijkeLengteRug As String, partLOrigineleRug As String, isVerlaagdeRug As Boolean)
+        'PartLRugM is standaard 5 te lang.
+        SifonLadeNieuweRug2Data(lw, breedteUitsparingSifon, partLRug1, 5, oorspronkelijkeLengteRug, partLOrigineleRug, isVerlaagdeRug)
+    End Sub
+
+
+    ''' <summary>
+    ''' Nieuwe data voor een rechtse rug.
+    ''' </summary>
+    ''' <param name="lw"></param>
+    ''' <param name="breedteUitsparingSifon"></param>
+    ''' <param name="partLRug1"></param>
+    ''' <param name="oorspronkelijkeLengteRug"></param>
+    ''' <param name="partLOrigineleRug"></param>
+    ''' <param name="isVerlaagdeRug"></param>
+    ''' <param name="partLRugM"></param>
+    Public Sub SifonLadeNieuweRug2Data(lw As Double, breedteUitsparingSifon As Double, partLRug1 As Double, partLRugM As Double, oorspronkelijkeLengteRug As String, partLOrigineleRug As String, isVerlaagdeRug As Boolean)
         'PartL berekenen.
-        PartL = (lw - 31) - (breedteUitsparingSifon - 1) - (partLRug1 - 5) + 5
+        PartL = (lw - 31) - (breedteUitsparingSifon - 1) - (partLRug1 - 5) - (partLRugM - 5) + 5
 
         'Controleren of de PartL minder is dan de minimum lengte van de rug.
         If PartL < Configs.SifonLadeGeefMinimumLengteRug() Then
@@ -233,12 +250,30 @@
         End If
 
         'Barcode updaten.
-        SifonLadeUpdateBarcodeRug(isVerlaagdeRug, False)
+        SifonLadeUpdateBarcodeRug(isVerlaagdeRug, RugStuk.Rechts)
         'Kleur aanpassen.
-        PasKleurAanSpecial
+        PasKleurAanSpecial()
     End Sub
 
     ''' <summary>
+    ''' Nieuwe data voor de middelste rug.
+    ''' </summary>
+    ''' <param name="breedteMiddenstuk"></param>
+    ''' <param name="oorspronkelijkeLengteRug"></param>
+    ''' <param name="isVerlaagdeRug"></param>
+    Public Sub SifonLadeNieuweRugMData(breedteMiddenstuk As Double, oorspronkelijkeLengteRug As String, isVerlaagdeRug As Boolean)
+        'PartL updaten.
+        PartL = breedteMiddenstuk
+        'Ticketlijnen updaten.
+        SifonLadeUpdateEtiketLijnen()
+        SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug)
+        'Barcode updaten.
+        SifonLadeUpdateBarcodeRug(isVerlaagdeRug, RugStuk.Midden)
+        'Kleur aanpassen.
+        PasKleurAanSpecial()
+    End Sub
+
+    ''' <summary>
     ''' PartExt01 aanpassen.
     ''' </summary>
     ''' <param name="oorspronkelijkeLengteRug"></param>
@@ -251,29 +286,37 @@
         PartExt01 = PartRef.Substring(0, 3) & "/" & PartExt07 & "-" & PartExt07 & "/" & CStr(CDbl(oorspronkelijkeLengteRug.Replace(".", ",")) + 5).Replace(",", ".") & "x" & PartW & "/" & PartRemark & afdekKapjesEnSy
     End Sub
 
+    Private Enum RugStuk
+        Links
+        Rechts
+        Midden
+    End Enum
+
     ''' <summary>
     ''' Barcode voor een rug opbouwen.
     ''' </summary>
     ''' <param name="isVerlaagdeRug"></param>
-    ''' <param name="isLinkseRug"></param>
-    Private Sub SifonLadeUpdateBarcodeRug(isVerlaagdeRug As Boolean, isLinkseRug As Boolean)
+    ''' <param name="rugstuk"></param>
+    Private Sub SifonLadeUpdateBarcodeRug(isVerlaagdeRug As Boolean, rugstuk As RugStuk)
         'Nieuwe barcode
-        Dim nieuweBarcode As String
-        If Not isVerlaagdeRug Then
-            'Geen verlaagde rug.
-            nieuweBarcode = PartCalc.Substring(0, 2)
-            If isLinkseRug Then
-                nieuweBarcode &= "L"
-            Else
-                nieuweBarcode &= "R"
-            End If
+        Dim nieuweBarcode = PartCalc.Substring(0, 2)
+        If rugstuk = RugStuk.Midden Then
+            nieuweBarcode &= "X"
         Else
-            'Is verlaagde rug, juiste letter toevoegen.
-            nieuweBarcode = PartCalc.Substring(0, 2)
-            If isLinkseRug Then
-                nieuweBarcode &= "C"
+            If Not isVerlaagdeRug Then
+                'Geen verlaagde rug.
+                If rugstuk = RugStuk.Links Then
+                    nieuweBarcode &= "L"
+                Else
+                    nieuweBarcode &= "R"
+                End If
             Else
-                nieuweBarcode &= "D"
+                'Is verlaagde rug, juiste letter toevoegen.
+                If rugstuk = RugStuk.Links Then
+                    nieuweBarcode &= "C"
+                Else
+                    nieuweBarcode &= "D"
+                End If
             End If
         End If