Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1774 -r1776
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1774)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1776)
@@ -296,25 +296,21 @@
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
+ ElseIf Not (nieuwePartL + 5) < Configs.SifonLadeGeefMinimumLengteRug() Then
'Niet te kort.
PartL = CStr(nieuwePartL + 5).Replace(",", ".")
'Etiketlijnen updaten.
SifonLadeUpdateEtiketLijnen()
Else
'Te korte rug.
+
isteKorteRug = True
'Etiketlijnen zelf aanpassen.
'Etiketlijn 4 aanpassen.
PartExt04 = $"{PartExt04.Substring(0, PartExt04.IndexOf("/"))}/*CUT-{CStr(nieuwePartL + 5).Replace(",", ".")}*"
'PartL overschrijven met minimum lengte rug.
- If (nieuwePartL + 5 <= Configs.SifonLadeGeefMinimumLengteRug()) Then
- 'Nieuwe PartL is niet in grensgebied (195-200)
- PartL = Configs.SifonLadeGeefMinimumLengteRug()
- Else
- PartL = nieuwePartL + 5
- End If
+ PartL = Configs.SifonLadeGeefMinimumLengteRug()
End If
SifonLadeUpdateEtiketLijn1Rug(partExt01Zijkant)
Index: TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj
===================================================================
diff -u -r1775 -r1776
--- TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1775)
+++ TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1776)
@@ -30,7 +30,7 @@
Robin De Bock
false
0
- 6.0.2.%2a
+ 6.0.3.%2a
false
true
true