Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1738 -r1774
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1738)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1774)
@@ -240,12 +240,12 @@
         afdekKapjesEnSy = tempPartExt01.Substring(tempPartExt01.LastIndexOf("/")) & afdekKapjesEnSy
 
         Dim r = New Regex("\/\w*-(\w*)-\w*\/", RegexOptions.IgnoreCase)
-        Dim m as Match= r.Match(partExt01Zijkant)
+        Dim m As Match = r.Match(partExt01Zijkant)
         If Not m.Success Then
             Throw New Exception("Kon materiaal voor etiketlijn 1 van een rug niet updaten, de juiste kleur is niet aanwezig in de partExt01 van de zijkant.")
         End If
 
-        dim materiaalZijkant = m.Groups(1).Value
+        Dim materiaalZijkant = m.Groups(1).Value
 
         PartExt01 = $"{PartRef.Substring(0, 3)}/{PartExt07}-{materiaalZijkant}/{PartL}x{PartW}/{PartRemark}{afdekKapjesEnSy}"
     End Sub
@@ -309,7 +309,12 @@
             'Etiketlijn 4 aanpassen.
             PartExt04 = $"{PartExt04.Substring(0, PartExt04.IndexOf("/"))}/*CUT-{CStr(nieuwePartL + 5).Replace(",", ".")}*"
             'PartL overschrijven met minimum lengte rug.
-            PartL = Configs.SifonLadeGeefMinimumLengteRug()
+            If (nieuwePartL + 5 <= Configs.SifonLadeGeefMinimumLengteRug()) Then
+                'Nieuwe PartL is niet in grensgebied (195-200)
+                PartL = Configs.SifonLadeGeefMinimumLengteRug()
+            Else
+                PartL = nieuwePartL + 5
+            End If
         End If
 
         SifonLadeUpdateEtiketLijn1Rug(partExt01Zijkant)