Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SpecialLadeMapperUtil.vb =================================================================== diff -u -r1648 -r1732 --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SpecialLadeMapperUtil.vb (.../SpecialLadeMapperUtil.vb) (revision 1648) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SpecialLadeMapperUtil.vb (.../SpecialLadeMapperUtil.vb) (revision 1732) @@ -59,7 +59,7 @@ End If 'Berekenen hoeveel laden er aanwezig zijn volgens dit type onderdeel. - Dim aantalLadenBerekend = aantalOnderdelen \ vereistAantalOnderdelen + Dim aantalLadenBerekend = aantalOnderdelen \ Math.Abs(vereistAantalOnderdelen) If aantalLaden = 0 Then 'Als aantal laden op 0 staat, wordt het geüpdatet. Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/ReworkTrayEngine.vb =================================================================== diff -u -r1657 -r1732 --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/ReworkTrayEngine.vb (.../ReworkTrayEngine.vb) (revision 1657) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/ReworkTrayEngine.vb (.../ReworkTrayEngine.vb) (revision 1732) @@ -19,7 +19,7 @@ 'Zijkanten overlopen per 2 For i = 0 To zijkanten.Count - 1 Step 2 Dim zijkant1 = zijkanten(i) - Dim zijkant2 = zijkanten(i) + Dim zijkant2 = zijkanten(i +1) 'Controleren of alle paren volzitten. If reworkTray.parenVol Then 'De volle tray wegschrijven en nieuwe initialiseren. Index: TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb =================================================================== diff -u -r1704 -r1732 --- TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb (.../SifonLadeController.vb) (revision 1704) +++ TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb (.../SifonLadeController.vb) (revision 1732) @@ -106,8 +106,13 @@ End Sub Public Sub ProduceerSifonladen() - _sifonladeManager.Produceer() - _reworkTrayRepository.verwijderReworkTraysSpecialLade() + Try + _sifonladeManager.Produceer() + Catch ex As Exception + Throw New Exception($"Kon sifonladen niet produceren.{vbNewLine}{ex.Message}") + Finally + ArdisTextMapper.stopArdisTextOpslag() + End Try End Sub #End Region @@ -182,8 +187,13 @@ End Sub Public Sub ProduceerDubbeleSifonladen() - _sifonladeDubbelManager.Produceer() - _reworkTrayRepository.verwijderReworkTraysSpecialLade() + Try + _sifonladeDubbelManager.Produceer() + Catch ex As Exception + Throw New Exception($"Kon sifonladen niet produceren.{vbNewLine}{ex.Message}") + Finally + ArdisTextMapper.stopArdisTextOpslag() + End Try End Sub #End Region Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb =================================================================== diff -u -r1657 -r1732 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb (.../SifonLadeV2.vb) (revision 1657) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb (.../SifonLadeV2.vb) (revision 1732) @@ -25,7 +25,7 @@ Public Overridable ReadOnly Property PositieSifonuitsparingR As Double Implements ISifonLade.PositieSifonuitsparingR Get - Return (KastBreedte - 31) - PositieSifonuitsparingL - BreedteSifonuitsparingZ1 + Return KastBreedte - PositieSifonuitsparingL - BreedteSifonuitsparingZ1 End Get End Property @@ -73,13 +73,13 @@ End Function ''' - Public overridable Function GeefGegenereerdeEnOrigineleOnderdelen() As IEnumerable(Of IOnderdeel()) Implements ISpecialLade.GeefGegenereerdeEnOrigineleOnderdelen + Public Overridable Function GeefGegenereerdeEnOrigineleOnderdelen() As IEnumerable(Of IOnderdeel()) Implements ISpecialLade.GeefGegenereerdeEnOrigineleOnderdelen 'Lijst initialiseren met originele en gegenereerde onderdelen en retourneren. Return New List(Of IOnderdeel()) From { - New IOnderdeel(){BuitenzijkantL, BinnenzijkantL1}, - New IOnderdeel(){BuitenzijkantR, BinnenzijkantR1}, - New IOnderdeel(){OrigineleRug, RugL}, - new IOnderdeel(){OrigineleRug, RugR} + New IOnderdeel() {BuitenzijkantL, BinnenzijkantL1}, + New IOnderdeel() {BuitenzijkantR, BinnenzijkantR1}, + New IOnderdeel() {OrigineleRug, RugL}, + New IOnderdeel() {OrigineleRug, RugR} } End Function @@ -90,8 +90,7 @@ Dim origineleOnderdelen = New List(Of IOnderdeel) From { BuitenzijkantL, BuitenzijkantR, - Bodem, - OrigineleRug + Bodem } 'Gegenereerde onderdelen toevoegen. origineleOnderdelen.AddRange(GeefGegenereerdeOnderdelen()) @@ -116,9 +115,9 @@ Dim lengte = Configs.geefNettoLengte(DiepteSifonuitsparingU1) 'Nieuwe binnenzijkant initialiseren. Dim ardisDataL = BuitenzijkantL.ArdisDataL.ShallowCopy() - ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, True) + ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, OrigineleRug.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, True) Dim ardisDataR = BuitenzijkantL.ArdisDataR.ShallowCopy() - ardisDataR.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False) + ardisDataR.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, OrigineleRug.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False) 'Zijkant initialiseren met juiste Ardis data. BinnenzijkantL1 = New Zijkant() With { @@ -132,9 +131,9 @@ Dim lengte = Configs.geefNettoLengte(DiepteSifonuitsparingU1) 'Nieuwe binnenzijkant initialiseren. Dim ardisDataL = BuitenzijkantR.ArdisDataL.ShallowCopy() - ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, True) + ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, OrigineleRug.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, True) Dim ardisDataR = BuitenzijkantR.ArdisDataR.ShallowCopy() - ardisDataR.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False) + ardisDataR.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, OrigineleRug.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False) 'Zijkant initialiseren met juiste Ardis data. BinnenzijkantR1 = New Zijkant() With { @@ -155,7 +154,7 @@ 'Data en ticket updaten. rugLArdisData.SifonLadeNieuweRug1Data(PositieSifonuitsparingL, oorspronkelijkeLengteRug, isVerlaagdeRug) - rugRArdisData.SifonLadeNieuweRug2Data(KastBreedte, BreedteSifonuitsparingZ1, rugLArdisData.PartL, oorspronkelijkeLengteRug, OrigineleRug.ArdisData.PartL, isVerlaagdeRug) + rugRArdisData.SifonLadeNieuweRug2Data(PositieSifonuitsparingR, OrigineleRug.ArdisData.PartL, isVerlaagdeRug) 'Ruggen initialiseren met Ardis data. RugL = New Rug() With { @@ -177,7 +176,7 @@ 'Enkele Ardis data. Dim onderdeelEnkeleArdisData As IHeeftEnkeleArdisdata = onderdeel onderdeelEnkeleArdisData.ArdisData.SifonLadeUpdateEtiketLijnen() - Elseif TypeOf onderdeel is IHeeftDubbeleArdisData + ElseIf TypeOf onderdeel Is IHeeftDubbeleArdisData Then 'Dubbele Ardis data. Dim onderdeelEnkeleArdisData As IHeeftDubbeleArdisData = onderdeel onderdeelEnkeleArdisData.ArdisData1.SifonLadeUpdateEtiketLijnen() Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb =================================================================== diff -u -r1643 -r1732 --- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb (.../FormSifonLade.Designer.vb) (revision 1643) +++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb (.../FormSifonLade.Designer.vb) (revision 1732) @@ -420,6 +420,7 @@ Me.VerwerkingLabel.Size = New System.Drawing.Size(277, 31) Me.VerwerkingLabel.TabIndex = 55 Me.VerwerkingLabel.Text = "Er wordt niet verwerkt" + Me.VerwerkingLabel.Visible = false ' 'Label6 ' Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb =================================================================== diff -u -r1705 -r1732 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (.../SifonLadeDubbel.vb) (revision 1705) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (.../SifonLadeDubbel.vb) (revision 1732) @@ -76,9 +76,9 @@ Dim lengte = Configs.geefNettoLengte(DiepteSifonuitsparingU2) 'Nieuwe binnenzijkant initialiseren. Dim ardisDataL = BuitenzijkantR.ArdisDataL.ShallowCopy() - ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, True) + ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, OrigineleRug.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, True) Dim ardisDataR = BuitenzijkantR.ArdisDataR.ShallowCopy() - ardisDataR.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False) + ardisDataR.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, OrigineleRug.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False) 'Zijkant initialiseren met juiste Ardis data. BinnenzijkantR2 = New Zijkant() With { @@ -92,9 +92,9 @@ Dim lengte = Configs.geefNettoLengte(DiepteSifonuitsparingU2) 'Nieuwe binnenzijkant initialiseren. Dim ardisDataL = BuitenzijkantL.ArdisDataL.ShallowCopy() - ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, True) + ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, OrigineleRug.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, True) Dim ardisDataR = BuitenzijkantL.ArdisDataR.ShallowCopy() - ardisDataR.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False) + ardisDataR.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, OrigineleRug.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False) 'Zijkant initialiseren met juiste Ardis data. BinnenzijkantL2 = New Zijkant() With { @@ -116,8 +116,8 @@ 'Data en ticket updaten. rugLArdisData.SifonLadeNieuweRug1Data(PositieSifonuitsparingL, oorspronkelijkeLengteRug, isVerlaagdeRug) - rugMArdisData.SifonLadeNieuweRugMData(BreedteMiddenstuk, oorspronkelijkeLengteRug, isVerlaagdeRug) - rugRArdisData.SifonLadeNieuweRug2Data(KastBreedte, BreedteSifonuitsparingZ1, rugLArdisData.PartL, oorspronkelijkeLengteRug, isVerlaagdeRug) + rugMArdisData.SifonLadeNieuweRugMData(BreedteMiddenstuk, oorspronkelijkeLengteRug) + rugRArdisData.SifonLadeNieuweRug2Data(PositieSifonuitsparingR, oorspronkelijkeLengteRug, isVerlaagdeRug) 'Ruggen initialiseren met Ardis data. RugL = New Rug() With { 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 @@ ''' ''' ''' - ''' + ''' ''' ''' - 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 @@ ''' 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 @@ ''' - ''' Nieuwe data voor een rechtse rug. + ''' Nieuwe data voor een rechtse rug van een enkele sifonlade. ''' - ''' - ''' - ''' + ''' ''' ''' - 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 - - - ''' - ''' Nieuwe data voor een rechtse rug. - ''' - ''' - ''' - ''' - ''' - ''' - ''' - 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 @@ ''' ''' ''' - ''' - 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 @@ ''' ''' ''' - 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 ''' ''' Barcode voor een rug opbouwen. ''' ''' ''' - 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 = ""