Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1705 -r1732
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1705)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1732)
@@ -116,10 +116,10 @@
     ''' </summary>
     ''' <param name="lengte"></param>
     ''' <param name="hoogteRug"></param>
-    ''' <param name="materiaalBodem"></param>
+    ''' <param name="materiaalOrigineleRug"></param>
     ''' <param name="barcodeRug"></param>
     ''' <param name="isLinksPlaatje"></param>
-    Public Sub SifonLadeNieuweZijkantData(lengte As String, hoogteRug As String, materiaalBodem As String, barcodeRug As String, isLinksPlaatje As Boolean)
+    Public Sub SifonLadeNieuweZijkantData(lengte As String, hoogteRug As String, materiaalOrigineleRug As String, barcodeRug As String, isLinksPlaatje As Boolean)
         'Nieuwe barcode geven.
 
         'Kijken of het een linkse of rechtse plaat is
@@ -156,8 +156,8 @@
         PartL = lengte + 5
         'PartW (hoogte) aanpassen.
         PartW = CStr(CDbl(hoogteRug.Replace(".", ",")) + 10.0).Replace(",", ".")
-        'Materiaal aanpassen.
-        PartMat = materiaalBodem
+        'Materiaal aanpassen. MATERIAAL.KLEUR.DIKTE -> materiaal en kleur uit originele rug, dikte behouden van zijkantplaatje.
+        PartMat = materiaalOrigineleRug.Substring(0, materiaalOrigineleRug.LastIndexOf(".")) & PartMat.Substring(PartMat.LastIndexOf("."))
         'PartExt09 updaten afhankelijk van links or rechts.
         If isLinksPlaatje Then
             'Is links.
@@ -189,7 +189,7 @@
     ''' <param name="isVerlaagdeRug"></param>
     Public Sub SifonLadeNieuweRug1Data(positieSifon As Double, oorspronkelijkeLengteRug As String, isVerlaagdeRug As Boolean)
         'PartL updaten.
-        Dim nieuwePartL = positieSifon - 7.5 - 21 + 5.5 + 5
+        Dim nieuwePartL = positieSifon - 23.5
         'Ticketlijnen en PartL updaten.
         SifonladeUpdatePartLEnEtiketlijnen(oorspronkelijkeLengteRug, nieuwePartL, isVerlaagdeRug, RugStuk.Links)
         'Kleur aanpassen.
@@ -198,31 +198,14 @@
 
 
     ''' <summary>
-    ''' Nieuwe data voor een rechtse rug.
+    ''' Nieuwe data voor een rechtse rug van een enkele sifonlade.
     ''' </summary>
-    ''' <param name="lw"></param>
-    ''' <param name="breedteUitsparingSifon"></param>
-    ''' <param name="partLRug1"></param>
+    ''' <param name="rest"></param>
     ''' <param name="oorspronkelijkeLengteRug"></param>
     ''' <param name="isVerlaagdeRug"></param>
-    Public Sub SifonLadeNieuweRug2Data(lw As Double, breedteUitsparingSifon As Double, partLRug1 As Double, oorspronkelijkeLengteRug As String, isVerlaagdeRug As Boolean)
-        'PartLRugM is standaard 5 te lang.
-        SifonLadeNieuweRug2Data(lw, breedteUitsparingSifon, partLRug1, 5, oorspronkelijkeLengteRug, 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="isVerlaagdeRug"></param>
-    ''' <param name="partLRugM"></param>
-    Public Sub SifonLadeNieuweRug2Data(lw As Double, breedteUitsparingSifon As Double, partLRug1 As Double, partLRugM As Double, oorspronkelijkeLengteRug As String, isVerlaagdeRug As Boolean)
+    Public Sub SifonLadeNieuweRug2Data(rest As Double, oorspronkelijkeLengteRug As String, isVerlaagdeRug As Boolean)
         'PartL berekenen.
-        Dim nieuwePartL = (lw - 31) - (breedteUitsparingSifon - 1) - (partLRug1 - 5) - (partLRugM - 5) + 5
+        Dim nieuwePartL = rest - 23.5
         'Ticketlijnen en PartL updaten.
         SifonladeUpdatePartLEnEtiketlijnen(oorspronkelijkeLengteRug, nieuwePartL, isVerlaagdeRug, RugStuk.Rechts)
         'Kleur aanpassen.
@@ -234,15 +217,14 @@
     ''' </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
+    Public Sub SifonLadeNieuweRugMData(breedteMiddenstuk As Double, oorspronkelijkeLengteRug As String)
+        'PartL berekenen.
+        Dim nieuwePartL = breedteMiddenstuk - 15
+        'Zet type op Valligne.
+        PartCalc = PartCalc.Substring(0, 2) & "A" & PartCalc.Substring(3)
         'Ticketlijnen updaten.
-        SifonLadeUpdateEtiketLijnen()
-        SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug)
-        'Barcode updaten.
-        SifonLadeUpdateBarcodeRug(isVerlaagdeRug, RugStuk.Midden, False)
+        'Ticketlijnen en PartL updaten.
+        SifonladeUpdatePartLEnEtiketlijnen(oorspronkelijkeLengteRug, nieuwePartL, False, RugStuk.Midden)
         'Kleur aanpassen.
         PasKleurAanSpecial()
     End Sub
@@ -274,56 +256,76 @@
     ''' <param name="oorspronkelijkeLengteRug"></param>
     ''' <param name="nieuwePartL"></param>
     ''' <param name="isVerlaagdeRug"></param>
-    Private Sub SifonladeUpdatePartLEnEtiketlijnen(oorspronkelijkeLengteRug As String, nieuwePartL As String, isVerlaagdeRug As Boolean, rugstuk As RugStuk)
+    Private Sub SifonladeUpdatePartLEnEtiketlijnen(oorspronkelijkeLengteRug As String, nieuwePartL As Double, isVerlaagdeRug As Boolean, rugstuk As RugStuk)
         Dim isVergrootteBaliko As Boolean = False
+        Dim isVergrootteVallinge As Boolean = False
+        dim isteKorteRug as Boolean = false
 
+        'Controleren of het een verlaagde rug is.
+        If isVerlaagdeRug Then
+            'Verlaagde rug, PartL aanpassen.
+            nieuwePartL -= 5.5
+        End If
+
         'Controleren dat het geen te korte baliko rug is. PartL onder de 181 en derde letter van de originele barcode is 'B'.
-        If nieuwePartL < 181 And PartCalc.Chars(2) = "B" Then
-            'PartL instellen
-            PartL = 600
-            'Dit is een vergrootte baliko.
-            isVergrootteBaliko = True
+        If nieuwePartL < 181 Then
+            If PartCalc.Chars(2) = "B" Then
+                'Te korte Baliko.
+                'Dit is een vergrootte baliko.
+                isVergrootteBaliko = True
+                'Nooit een verlaagde rug. Uit Vallinge rug maken.
+                isVerlaagdeRug = False
+                'PartL instellen
+                PartL = 600
+                'Etiket aanpassen.
+                PartExt04 = $"{PartExt04.Substring(0, PartExt04.IndexOf("/"))}/*EKO-{CStr(nieuwePartL).Replace(",", ".")}*"
+            Else
+                'Te korte Vallinge.
+                'Dit is een vergrootte Vallinge.
+                isVergrootteVallinge = True
+                'PartL instellen
+                PartL = Configs.SifonLadeGeefMinimumLengteRug()
+                'Etiket aanpassen.
+                PartExt04 = $"{PartExt04.Substring(0, PartExt04.IndexOf("/"))}/*ROB-{CStr(nieuwePartL).Replace(",", ".")}*"
+            End If
             'Controleren of de PartL minder is dan de minimum lengte van de rug.
         ElseIf Not nieuwePartL < Configs.SifonLadeGeefMinimumLengteRug() Then
             'Niet te kort.
-            'Controleren of het een verlaagde rug is.
-            If Not isVerlaagdeRug Then
-                'Geen verlaagde rug.
-                PartL = nieuwePartL
-            Else
-                'Verlaagde rug, PartL aanpassen.
-                PartL = CStr(CDbl(PartL.Replace(".", ",")) - 5.5).Replace(",", ".")
-            End If
+
+            PartL = CStr(nieuwePartL + 5).Replace(",", ".")
             'Etiketlijnen updaten.
             SifonLadeUpdateEtiketLijnen()
-            SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug)
         Else
             'Te korte rug.
-
+            isteKorteRug = True
             'Etiketlijnen zelf aanpassen.
-            'Bij etiketlijn 2 'kar' vervangen door 'sifon'.
-            PartExt02 = PartExt02.Replace("KAR", "SIFON")
             'Etiketlijn 4 aanpassen.
-            PartExt04 = $"{PartExt04.Substring(0, PartExt04.IndexOf("/"))}/*CUT-{CStr(CDbl(nieuwePartL.Replace(".", ",") + 5)).Replace(",", ".")}*"
+            PartExt04 = $"{PartExt04.Substring(0, PartExt04.IndexOf("/"))}/*CUT-{CStr(nieuwePartL + 5).Replace(",", ".")}*"
             'PartL overschrijven met minimum lengte rug.
             PartL = Configs.SifonLadeGeefMinimumLengteRug()
         End If
 
+        SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug)
+        'Bij etiketlijn 2 'kar' vervangen door 'sifon'.
+        PartExt02 = PartExt02.Replace("KAR", "SIFON")
+
         'Barcode updaten.
-        SifonLadeUpdateBarcodeRug(isVerlaagdeRug, rugstuk, isVergrootteBaliko)
+        SifonLadeUpdateBarcodeRug(nieuwePartL, isVerlaagdeRug, rugstuk, isVergrootteBaliko, isVergrootteVallinge, isteKorteRug)
     End Sub
 
     ''' <summary>
     ''' Barcode voor een rug opbouwen.
     ''' </summary>
     ''' <param name="isVerlaagdeRug"></param>
     ''' <param name="rugstuk"></param>
-    Private Sub SifonLadeUpdateBarcodeRug(isVerlaagdeRug As Boolean, rugstuk As RugStuk, isVergrootteBaliko As Boolean)
+    Private Sub SifonLadeUpdateBarcodeRug(nieuwePartL As Double, isVerlaagdeRug As Boolean, rugstuk As RugStuk, isVergrootteBaliko As Boolean, isVergrootteVallinge As Boolean, isTeKorteRug As Boolean)
         'Nieuwe barcode
         Dim nieuweBarcode As String
         If isVergrootteBaliko Then
             'Vergrootte baliko -> Vallinge.
-            nieuweBarcode = "RVX"
+            nieuweBarcode = "R"
+            nieuweBarcode &= PartCalc.Substring(1, 1)
+            nieuweBarcode &= "X"
         ElseIf rugstuk = RugStuk.Midden Then
             'Eerste 2 tekens van originele barcode + X.
             nieuweBarcode = PartCalc.Substring(0, 2)
@@ -352,11 +354,15 @@
         'De lengte in de barcode steken.
 
         Dim lengte As Double
-        If Not isVerlaagdeRug Then
+        If isTeKorteRug Then
+            'Te korte rug.
+            lengte = nieuwePartL
+        elseIf Not ((Not isVerlaagdeRug) And isVergrootteVallinge) Then
+            'Normaal.
             lengte = CDbl(PartL.Replace(".", ",")) - 5
         Else
-            'Verlaagde rug.
-            lengte = CDbl(PartL.Replace(".", ",")) - 5 - 5.5
+            'Geen verlaagde rug maar wel vergrootte Vallinge.
+            lengte = Configs.SifonLadeGeefMinimumLengteRug() - 5
         End If
 
         Dim getallenStuk As String = ""