Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb
===================================================================
diff -u -r1704 -r1705
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (.../SifonLadeDubbel.vb) (revision 1704)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (.../SifonLadeDubbel.vb) (revision 1705)
@@ -117,7 +117,7 @@
'Data en ticket updaten.
rugLArdisData.SifonLadeNieuweRug1Data(PositieSifonuitsparingL, oorspronkelijkeLengteRug, isVerlaagdeRug)
rugMArdisData.SifonLadeNieuweRugMData(BreedteMiddenstuk, oorspronkelijkeLengteRug, isVerlaagdeRug)
- rugRArdisData.SifonLadeNieuweRug2Data(KastBreedte, BreedteSifonuitsparingZ1, rugLArdisData.PartL, oorspronkelijkeLengteRug, OrigineleRug.ArdisData.PartL, isVerlaagdeRug)
+ rugRArdisData.SifonLadeNieuweRug2Data(KastBreedte, BreedteSifonuitsparingZ1, rugLArdisData.PartL, oorspronkelijkeLengteRug, isVerlaagdeRug)
'Ruggen initialiseren met Ardis data.
RugL = New Rug() With {
Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1703 -r1705
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1703)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1705)
@@ -1,4 +1,6 @@
-Public Class ArdisData
+Imports System.Diagnostics.Eventing.Reader
+
+Public Class ArdisData
Public PartId As String
Public OrderId As String
Public PartRef As String
@@ -187,12 +189,9 @@
'''
Public Sub SifonLadeNieuweRug1Data(positieSifon As Double, oorspronkelijkeLengteRug As String, isVerlaagdeRug As Boolean)
'PartL updaten.
- PartL = positieSifon - 7.5 - 21 + 5.5 + 5
- 'Ticketlijnen updaten.
- SifonLadeUpdateEtiketLijnen()
- SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug)
- 'Barcode updaten.
- SifonLadeUpdateBarcodeRug(isVerlaagdeRug, RugStuk.Links)
+ Dim nieuwePartL = positieSifon - 7.5 - 21 + 5.5 + 5
+ 'Ticketlijnen en PartL updaten.
+ SifonladeUpdatePartLEnEtiketlijnen(oorspronkelijkeLengteRug, nieuwePartL, isVerlaagdeRug, RugStuk.Links)
'Kleur aanpassen.
PasKleurAanSpecial()
End Sub
@@ -205,11 +204,10 @@
'''
'''
'''
- '''
'''
- Public Sub SifonLadeNieuweRug2Data(lw As Double, breedteUitsparingSifon As Double, partLRug1 As Double, oorspronkelijkeLengteRug As String, partLOrigineleRug As String, isVerlaagdeRug As Boolean)
+ 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, partLOrigineleRug, isVerlaagdeRug)
+ SifonLadeNieuweRug2Data(lw, breedteUitsparingSifon, partLRug1, 5, oorspronkelijkeLengteRug, isVerlaagdeRug)
End Sub
@@ -220,37 +218,13 @@
'''
'''
'''
- '''
'''
'''
- Public Sub SifonLadeNieuweRug2Data(lw As Double, breedteUitsparingSifon As Double, partLRug1 As Double, partLRugM As Double, oorspronkelijkeLengteRug As String, partLOrigineleRug As String, isVerlaagdeRug As Boolean)
+ Public Sub SifonLadeNieuweRug2Data(lw As Double, breedteUitsparingSifon As Double, partLRug1 As Double, partLRugM As Double, oorspronkelijkeLengteRug As String, isVerlaagdeRug As Boolean)
'PartL berekenen.
- 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
- 'Te korte rug.
-
- 'PartL overschrijven met minimum lengte rug.
- PartL = Configs.SifonLadeGeefMinimumLengteRug()
- '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(partLOrigineleRug.Replace(".", ",") + 5)).Replace(",", ".")}*"
- Else
- 'Controleren of het een verlaagde rug is.
- If isVerlaagdeRug Then
- 'Verlaagde rug, PartL aanpassen.
- PartL = CStr(CDbl(PartL.Replace(".", ",")) - 5.5).Replace(",", ".")
- End If
- 'Etiketlijnen updaten.
- SifonLadeUpdateEtiketLijnen()
- SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug)
- End If
-
- 'Barcode updaten.
- SifonLadeUpdateBarcodeRug(isVerlaagdeRug, RugStuk.Rechts)
+ Dim nieuwePartL = (lw - 31) - (breedteUitsparingSifon - 1) - (partLRug1 - 5) - (partLRugM - 5) + 5
+ 'Ticketlijnen en PartL updaten.
+ SifonladeUpdatePartLEnEtiketlijnen(oorspronkelijkeLengteRug, nieuwePartL, isVerlaagdeRug, RugStuk.Rechts)
'Kleur aanpassen.
PasKleurAanSpecial()
End Sub
@@ -268,7 +242,7 @@
SifonLadeUpdateEtiketLijnen()
SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug)
'Barcode updaten.
- SifonLadeUpdateBarcodeRug(isVerlaagdeRug, RugStuk.Midden)
+ SifonLadeUpdateBarcodeRug(isVerlaagdeRug, RugStuk.Midden, False)
'Kleur aanpassen.
PasKleurAanSpecial()
End Sub
@@ -293,16 +267,71 @@
End Enum
'''
+ ''' Updaten van partL, etiketlijnen en barcode. PartL wordt aangepast als baliko en PartL kleiner dan 181 -> 600 Vallinge.
+ ''' Anders als PartL kleiner dan minimum lengte rug -> minimum lengte rug.
+ ''' Als verlaagde rug en te kort dan PartL - 5.5
+ '''
+ '''
+ '''
+ '''
+ Private Sub SifonladeUpdatePartLEnEtiketlijnen(oorspronkelijkeLengteRug As String, nieuwePartL As String, isVerlaagdeRug As Boolean, rugstuk As RugStuk)
+ Dim isVergrootteBaliko As Boolean = False
+
+ '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
+ '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
+ 'Etiketlijnen updaten.
+ SifonLadeUpdateEtiketLijnen()
+ SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug)
+ Else
+ 'Te korte rug.
+
+ '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(",", ".")}*"
+ 'PartL overschrijven met minimum lengte rug.
+ PartL = Configs.SifonLadeGeefMinimumLengteRug()
+ End If
+
+ 'Barcode updaten.
+ SifonLadeUpdateBarcodeRug(isVerlaagdeRug, rugstuk, isVergrootteBaliko)
+ End Sub
+
+ '''
''' Barcode voor een rug opbouwen.
'''
'''
'''
- Private Sub SifonLadeUpdateBarcodeRug(isVerlaagdeRug As Boolean, rugstuk As RugStuk)
+ Private Sub SifonLadeUpdateBarcodeRug(isVerlaagdeRug As Boolean, rugstuk As RugStuk, isVergrootteBaliko As Boolean)
'Nieuwe barcode
- Dim nieuweBarcode = PartCalc.Substring(0, 2)
- If rugstuk = RugStuk.Midden Then
+ Dim nieuweBarcode As String
+ If isVergrootteBaliko Then
+ 'Vergrootte baliko -> Vallinge.
+ nieuweBarcode = "RVX"
+ ElseIf rugstuk = RugStuk.Midden Then
+ 'Eerste 2 tekens van originele barcode + X.
+ nieuweBarcode = PartCalc.Substring(0, 2)
nieuweBarcode &= "X"
Else
+ 'Eerste twee tekens van originele barcode
+ nieuweBarcode = PartCalc.Substring(0, 2)
+ 'Links of rechts of overeenkomstige letter van special lade.
If Not isVerlaagdeRug Then
'Geen verlaagde rug.
If rugstuk = RugStuk.Links Then