Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/IDubbeleSifonLade.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/IDubbeleSifonLade.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/IDubbeleSifonLade.vb (revision 1649) @@ -0,0 +1,5 @@ +Public Interface IDubbeleSifonLade + Inherits ISifonLade + + +End Interface Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeDubbelCompleet.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeDubbelCompleet.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeDubbelCompleet.vb (revision 1649) @@ -0,0 +1,5 @@ +''' +''' 'Alle onderdelen die optioneel zijn in de worden hier toegevoegd als verplicht./> +''' +Public Interface ISifonLadeDubbelCompleet +End Interface Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb =================================================================== diff -u -r1646 -r1649 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb (.../SifonLadeManager.vb) (revision 1646) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb (.../SifonLadeManager.vb) (revision 1649) @@ -24,8 +24,8 @@ 'Alle sifon laden overlopen. For Each sifonLade In Laden 'Updaten met wijzigbare waarden. - sifonLade.BreedteSifonuitsparing = gewijzigdeLade.BreedteSifonuitsparing - sifonLade.DiepteSifonuitsparing = gewijzigdeLade.DiepteSifonuitsparing + sifonLade.BreedteSifonuitsparingZ1 = gewijzigdeLade.BreedteSifonuitsparingZ1 + sifonLade.DiepteSifonuitsparingU1 = gewijzigdeLade.DiepteSifonuitsparingU1 sifonLade.PositieSifonuitsparingL = gewijzigdeLade.PositieSifonuitsparingL Next End Sub Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb (revision 1649) @@ -0,0 +1,63 @@ +Imports TA_OR_rework + +Public Class SifonLadeV2 + Implements ISifonLade + + 'Properties +#Region "Onderdelen" + Public Property Bestandsnaam As String Implements ISifonLade.Bestandsnaam + Public Property Batch As String Implements ISifonLade.Batch + Public Property BuitenzijkantL As Zijkant Implements ISifonLade.BuitenzijkantL + Public Property BuitenzijkantR As Zijkant Implements ISifonLade.BuitenzijkantR + Public Property BinnenzijkantL1 As Zijkant Implements ISifonLade.BinnenzijkantL1 + Public Property BinnenzijkantR1 As Zijkant Implements ISifonLade.BinnenzijkantR1 + Public Property Bodem As Bodem Implements ISifonLade.Bodem + Public Property OrigineleRug As Rug Implements ISifonLade.OrigineleRug + Public Property RugL As Rug Implements ISifonLade.RugL + Public Property RugR As Rug Implements ISifonLade.RugR +#End Region + +#Region "Afmetingen" + Public Property KastBreedte As Double Implements ISifonLade.KastBreedte + Public Property LadeDiepte As Double Implements ISifonLade.LadeDiepte + Public Property KleurBinnen As String Implements ISifonLade.KleurBinnen + Public Property PositieSifonuitsparingL As Double Implements ISifonLade.PositieSifonuitsparingL + + Public ReadOnly Property PositieSifonuitsparingR As Double Implements ISifonLade.PositieSifonuitsparingR + Get + Return (KastBreedte - 31) - PositieSifonuitsparingL - BreedteSifonuitsparingZ1 + End Get + End Property + + Public Property BreedteSifonuitsparingZ1 As Double Implements ISifonLade.BreedteSifonuitsparingZ1 + Public Property DiepteSifonuitsparingU1 As Double Implements ISifonLade.DiepteSifonuitsparingU1 +#End Region + + public Sub New () + End Sub + + Public Sub New(buitenzijkantL As Zijkant, buitenzijkantR As Zijkant, bodem As Bodem, rug As Rug) + Me.BuitenzijkantL = buitenzijkantL + Me.BuitenzijkantR = buitenzijkantR + Me.Bodem = bodem + Me.OrigineleRug = rug + 'Variabelen instellen. + Me.Bestandsnaam = buitenzijkantL.ArdisDataL.Bestandsnaam + Me.Batch = buitenzijkantL.ArdisDataL.GeefBatch() + Me.KastBreedte = bodem.ArdisData.SifonLadeGeefLWBodem() + Me.LadeDiepte = buitenzijkantL.ArdisDataL.PartL + Me.KleurBinnen = rug.ArdisData.GeefKleurBinnen() + End Sub + + ''' + Public Overridable Function GeefOrigineleOnderdelen() As IEnumerable(Of IOnderdeel) Implements ISpecialLade.GeefOrigineleOnderdelen + 'Lijst initialiseren met onderdelen en retourneren. + Return New List(Of IOnderdeel) From { + BuitenzijkantL, + BuitenzijkantR, + Bodem, + OrigineleRug + } + End Function + +End Class Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb =================================================================== diff -u -r1635 -r1649 --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb (.../SifonLadeDtoConverter.vb) (revision 1635) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb (.../SifonLadeDtoConverter.vb) (revision 1649) @@ -5,10 +5,10 @@ Public Overrides Function FromDto(dto As SifonLadeDto) As ISifonLade Try 'Instantie aanmaken en vullen met de belangrijke waarden uit DTO. - Return New SifonLadeV2 With { + Return New SifonLadeV2() With{ .PositieSifonuitsparingL = dto.PositieSifonuitsparingL, - .BreedteSifonuitsparing = dto.BreedteSifonuitsparing, - .DiepteSifonuitsparing = dto.DiepteSifonuitsparing + .BreedteSifonuitsparingZ1 = dto.BreedteSifonuitsparingZ1, + .DiepteSifonuitsparingU1 = dto.DiepteSifonuitsparingU1 } Catch ex As InvalidCastException 'Type van property van DTO komt niet overeen met property van klasse. @@ -28,8 +28,8 @@ .KleurBinnen = entity.KleurBinnen, .PositieSifonuitsparingL = entity.PositieSifonuitsparingL, .PositieSifonuitsparingR = entity.PositieSifonuitsparingR, - .BreedteSifonuitsparing = entity.BreedteSifonuitsparing, - .DiepteSifonuitsparing = entity.DiepteSifonuitsparing + .BreedteSifonuitsparingZ1 = entity.BreedteSifonuitsparingZ1, + .DiepteSifonuitsparingU1 = entity.DiepteSifonuitsparingU1 } Catch ex As InvalidCastException 'Type van property van DTO komt niet overeen met property van klasse. FishEye: Tag 1649 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLade.vb'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 1649 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2Compleet.vb'. FishEye: No comparison available. Pass `N' to diff? Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbelCompleet.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbelCompleet.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbelCompleet.vb (revision 1649) @@ -0,0 +1,9 @@ +Public Class SifonLadeDubbelCompleet + Inherits SifonLadeV2Compleet + Implements ISifonLadeCompleet + + Public Sub New(buitenzijkantL As Zijkant, buitenzijkantR As Zijkant, bodem As Bodem, rug As Rug, front As Front) + 'Constructur SifonLadeCompleet aanroepen met alle verplichte velden. + MyBase.New(buitenzijkantL, buitenzijkantR, bodem, rug, front) + End Sub +End Class FishEye: Tag 1649 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeAlleOnderdelen.vb'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 1649 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeDto.vb'. FishEye: No comparison available. Pass `N' to diff? Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (revision 1649) @@ -0,0 +1,32 @@ +Public Class SifonLadeDubbel + Inherits SifonLadeV2 + Implements ISifonLadeDubbel + +#Region "Onderdelen" + Public Property BinnenzijkantL2 As Zijkant Implements ISifonLadeDubbel.BinnenzijkantL2 + Public Property BinnenzijkantR2 As Zijkant Implements ISifonLadeDubbel.BinnenzijkantR2 + Public Property RugM As Rug Implements ISifonLadeDubbel.RugM +#End Region + +#Region "Afmetingen" + Public Property BreedteSifonuitsparingZ2 As Double Implements ISifonLadeDubbel.BreedteSifonuitsparingZ2 + Public Property DiepteSifonuitsparingU2 As Double Implements ISifonLadeDubbel.DiepteSifonuitsparingU2 + Public Property BreedteMiddenstuk As Double Implements ISifonLadeDubbel.BreedteMiddenstuk + Public Overloads ReadOnly Property PositieSifonuitsparingR As Double Implements ISifonLade.PositieSifonuitsparingR + Get + 'Maakt gebruik van de berekening van de parent en trekt extra waarden af. + Return MyBase.PositieSifonuitsparingR - BreedteMiddenstuk - BreedteSifonuitsparingZ2 + End Get + End Property +#End Region + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(buitenzijkantL As Zijkant, buitenzijkantR As Zijkant, bodem As Bodem, rug As Rug) + 'Base klasse constructor aanroepen. + MyBase.New(buitenzijkantL, buitenzijkantR, bodem, rug) + End Sub + +End Class Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeDubbel.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeDubbel.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeDubbel.vb (revision 1649) @@ -0,0 +1,13 @@ +Public Interface ISifonLadeDubbel + Inherits Isifonlade + + 'Onderdelen + Property BinnenzijkantL2 As Zijkant + Property BinnenzijkantR2 As Zijkant + Property RugM As Rug + + 'Afmetingen + Property BreedteSifonuitsparingZ2 As Double + Property DiepteSifonuitsparingU2 As Double + Property BreedteMiddenstuk As Double +End Interface Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/dto's/SifonLadeDubbelDto.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/dto's/SifonLadeDubbelDto.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/dto's/SifonLadeDubbelDto.vb (revision 1649) @@ -0,0 +1,10 @@ +''' +''' Een lege klasse die enkel dient om waarden bij te houden. +''' +Public Class SifonLadeDubbelDto + Inherits SifonLadeDto + 'Afmetingen + Public Property BreedteSifonuitsparingZ2 As Double + Public Property DiepteSifonuitsparingU2 As Double + Public Property BreedteMiddenstuk As Double +End Class FishEye: Tag 1649 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb'. FishEye: No comparison available. Pass `N' to diff? Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb =================================================================== diff -u -r1648 -r1649 --- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb (.../FormSifonLade.vb) (revision 1648) +++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb (.../FormSifonLade.vb) (revision 1649) @@ -210,8 +210,8 @@ Try 'DTO opvullen met enkel de waarden die kunnen wijzigen. Dim sifonladeDTO = New SifonLadeDto With { - .BreedteSifonuitsparing = BreedteUitsparingComboBox.Text, - .DiepteSifonuitsparing = DiepteUitsparingComboBox.Text, + .BreedteSifonuitsparingZ1 = BreedteUitsparingComboBox.Text, + .DiepteSifonuitsparingU1 = DiepteUitsparingComboBox.Text, .PositieSifonuitsparingL = PositieUitsparingNumericUpDown.Value } 'Gewijzigde waarden doorgeven. Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDubbelDtoConverter.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDubbelDtoConverter.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDubbelDtoConverter.vb (revision 1649) @@ -0,0 +1,45 @@ +Public Class SifonLadeDubbelDtoConverter + Inherits MustInheritDtoConverter(Of ISifonLadeDubbel, SifonLadeDubbelDto) + + ''' + Public Overrides Function FromDto(dto As SifonLadeDubbelDto) As ISifonLadeDubbel + Try + 'Instantie aanmaken en vullen met de belangrijke waarden uit DTO. + Return New SifonLadeDubbel() With { + .PositieSifonuitsparingL = dto.PositieSifonuitsparingL, + .BreedteSifonuitsparingZ1 = dto.BreedteSifonuitsparingZ1, + .DiepteSifonuitsparingU1 = dto.DiepteSifonuitsparingU1, + .BreedteSifonuitsparingZ2 = dto.BreedteSifonuitsparingZ2, + .DiepteSifonuitsparingU2 = dto.DiepteSifonuitsparingU2, + .BreedteMiddenstuk = dto.BreedteMiddenstuk + } + Catch ex As InvalidCastException + 'Type van property van DTO komt niet overeen met property van klasse. + Throw New Exception($"Kon niet converteren van DTO naar dubbele sifonlade. Converter: '{Me.GetType().Name}'. {vbNewLine}Error: {ex.Message}") + End Try + End Function + + ''' + Public Overrides Function ToDto(entity As ISifonLadeDubbel) As SifonLadeDubbelDto + Try + 'DTO aanmaken en vullen met waarden uit klasse (entiteit). + Return New SifonLadeDubbelDto() With { + .Bestandsnaam = entity.Bestandsnaam, + .Batch = entity.Batch, + .KastBreedte = entity.KastBreedte, + .LadeDiepte = entity.LadeDiepte, + .KleurBinnen = entity.KleurBinnen, + .PositieSifonuitsparingL = entity.PositieSifonuitsparingL, + .PositieSifonuitsparingR = entity.PositieSifonuitsparingR, + .BreedteSifonuitsparingZ1 = entity.BreedteSifonuitsparingZ1, + .DiepteSifonuitsparingU1 = entity.DiepteSifonuitsparingU1, + .BreedteSifonuitsparingZ2 = entity.BreedteSifonuitsparingZ2, + .DiepteSifonuitsparingU2 = entity.DiepteSifonuitsparingU2, + .BreedteMiddenstuk = entity.BreedteMiddenstuk + } + Catch ex As InvalidCastException + 'Type van property van DTO komt niet overeen met property van klasse. + Throw New Exception($"Kon niet converteren van dubbele sifonlade naar DTO. Converter: '{Me.GetType().Name}'. {vbNewLine}Error: {ex.Message}") + End Try + End Function +End Class Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLade.vb =================================================================== diff -u -r1645 -r1649 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLade.vb (.../ISifonLade.vb) (revision 1645) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLade.vb (.../ISifonLade.vb) (revision 1649) @@ -4,12 +4,23 @@ Property Bestandsnaam As String Property Batch As String + 'Onderdelen + Property BuitenzijkantL As Zijkant + Property BuitenzijkantR As Zijkant + Property BinnenzijkantL1 As Zijkant + Property BinnenzijkantR1 As Zijkant + 'Front is niet verplicht. + Property Bodem As Bodem + Property OrigineleRug As Rug + Property RugL As Rug + Property RugR As Rug + 'Afmetingen Property KastBreedte As Double Property LadeDiepte As Double Property KleurBinnen As String Property PositieSifonuitsparingL As Double ReadOnly Property PositieSifonuitsparingR As Double - Property BreedteSifonuitsparing As Double - Property DiepteSifonuitsparing As Double + Property BreedteSifonuitsparingZ1 As Double + Property DiepteSifonuitsparingU1 As Double End Interface Index: TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj =================================================================== diff -u -r1648 -r1649 --- TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1648) +++ TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1649) @@ -163,9 +163,15 @@ - - - + + + + + + + + + @@ -176,9 +182,9 @@ - + - + @@ -279,7 +285,7 @@ - + Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2Compleet.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2Compleet.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2Compleet.vb (revision 1649) @@ -0,0 +1,28 @@ +Public Class SifonLadeV2Compleet + Inherits SifonLadeV2 + Implements ISifonLadeCompleet + +#Region "Onderdelen" + Public Property Front As Front Implements ISifonLadeCompleet.Front +#End Region + + Public Sub New(buitenzijkantL As Zijkant, buitenzijkantR As Zijkant, bodem As Bodem, rug As Rug, front As Front) + 'Constructur SifonLade aanroepen met alle verplichte velden. + MyBase.New(buitenzijkantL, buitenzijkantR, bodem, rug) + 'Nieuw verplicht veld toewijzen. + Me.Front = front + End Sub + + ''' + Public Overrides Function GeefOrigineleOnderdelen() As IEnumerable(Of IOnderdeel) + 'Lijst initialiseren met onderdelen en retourneren. + Return New List(Of IOnderdeel) From { + BuitenzijkantL, + BuitenzijkantR, + Bodem, + OrigineleRug, + Front + } + End Function + +End Class FishEye: Tag 1649 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeVerplichteOnderdelen.vb'. FishEye: No comparison available. Pass `N' to diff? Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeCompleet.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeCompleet.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLadeCompleet.vb (revision 1649) @@ -0,0 +1,8 @@ +''' +''' 'Alle onderdelen die optioneel zijn in de worden hier toegevoegd als verplicht./> +''' +Public Interface ISifonLadeCompleet + inherits ISifonLade + 'Front was niet verplicht. + property Front As Front +End Interface Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLade.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLade.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLade.vb (revision 1649) @@ -0,0 +1,170 @@ +Public Class SifonLade + Inherits SpecialLade + +#Region "properties" + Private _positionSifon As Double + Public Property positionSifon() As Double + Get + Return _positionSifon + End Get + Set(ByVal value As Double) + _positionSifon = value + End Set + End Property + + Private _breedteSifon As Double + Public Property breedteSifon() As Double + Get + Return _breedteSifon + End Get + Set(ByVal value As Double) + _breedteSifon = value + End Set + End Property + + Private _diepte As Double + Public Property diepteSifon As Double + Get + Return _diepte + End Get + Set(value As Double) + _diepte = value + End Set + End Property +#End Region + + Function geefLW() As String + Return _bodem.sifonLadeGeefLWBodem + End Function + + Function geefNLLade() As String + Return _zijkanten(0).PartL + End Function + + Function geefKleurBinnen() As String + Return _origineleRug.geefKleurBinnen + End Function + + Public Function geefPositieUitsparingSifon() As Double + Return ArdisData.sifonLadeGeefPositieUitsparing(_positionSifon) + End Function + + Public Function geefBreedteSifonUitsparing() As Double + Return _breedteSifon - 10 + End Function + + Public Function geefBreedte() As Double + Return ArdisData.sifonLadeGeefBreedte(geefLW) + End Function + + Function geefDiepte() As String + Return ArdisData.sifonLadeGeefDiepte(geefNLLade) + End Function + + Public Function geefDiepteSifon() As String + Return ArdisData.sifonLadeGeefDiepteSifonUitsparing(Configs.geefNettoLengte(_diepte)) + End Function + + Function geefRestTekening() As Double + 'breedte + Dim breedte As Double = ArdisData.sifonLadeGeefBreedte(geefLW) + 'positie uitsparing + Dim position As Double = positionSifon + 5 - 21 + 5.5 - 13 + Return breedte - position - geefBreedteSifonUitsparing() + End Function + + Function geefRest() As Double + 'breedte + Dim breedte As Double = ArdisData.sifonLadeGeefBreedte(geefLW) + 'positie uitsparing + Dim position As Double = positionSifon + 5 - 21 + 5.5 - 13 + Return breedte - position - geefBreedteSifonUitsparing() + 23.5 + End Function + + 'waarden aanpassen van bepaalde velden + Public Overrides Sub updateData() + 'de kleuren updaten (extra ruggen en zijkanten worden gegenereerd aan de hand van de originele) + For Each zijkant As ArdisData In _zijkanten + zijkant.pasKleurAanSpecial() + Next + _bodem.pasKleurAanSpecial() + _origineleRug.pasKleurAanSpecial() + End Sub + + '4 extra zijkanten maken en ze toevoegen aan de lijst met zijkanten + Public Sub maakZijkantenBij(lengte As String) + Dim isEerstePlaatje As Boolean = True + Dim nieuweZijkanten as New List(Of ArdisData) + For teller As Integer = 0 To _zijkanten.Count - 1 + Dim nieuweZijkant As ArdisData = _zijkanten(teller).ShallowCopy() + nieuweZijkant.sifonLadeNieuweZijkantData(lengte, _origineleRug.PartW, _origineleRug.PartCalc, isEerstePlaatje) + isEerstePlaatje = Not isEerstePlaatje + 'opslaan in caché + opslaanGegenereerdOnderdeel(_zijkanten(teller), nieuweZijkant, Configs.specialLadeGeefOnderdeelNaamGegenereerdeZijkant(nieuweZijkant.sifonLadeGeefOnderdeelLetter)) + nieuweZijkanten.Add(nieuweZijkant) + Next + 'Nieuwe zijkanten toevoegen aan lijst met alle zijkanten. + _zijkanten.AddRange(nieuweZijkanten) + End Sub + + 'de etiket lijn aanpassen + Public Sub updateEtiketLijn() + For Each rug As ArdisData In _ruggen + rug.sifonLadeUpdateEtiketLijnenRug(rug.sifonLadeGeefOorspronkelijkeLengteRug) + Next + + '_rug.sifonLadeUpdateEtiketLijnenRug(_rug.sifonLadeGeefOorspronkelijkeLengteRug) + '_rug.sifonLadeUpdatePartLEnTicketRug(_rug.sifonLadeGeefOorspronkelijkeLengteRug) + _bodem.sifonLadeUpdateEtiketLijnen() + For Each zijkant As ArdisData In _zijkanten + zijkant.sifonLadeUpdateEtiketLijnen() + Next + End Sub + + Public Sub maakExtraRuggen() + 'de twee ruggen maken met de juiste lengte en andere data overgenomen + Dim rug1 As ArdisData = maakRug1() + Dim rug2 As ArdisData = maakRug2(rug1.PartL) + + 'barcoden instellen + rug1.sifonLadeUpdateBarcodeRug(rug1.sifonLadeIsVerlaagdeRug(_zijkanten(0).PartCalc), False) + rug2.sifonLadeUpdateBarcodeRug(rug2.sifonLadeIsVerlaagdeRug(_zijkanten(0).PartCalc), True) + + 'lengte rug instellen en ticket updaten + rug1.sifonLadeUpdatePartLEnTicketRug(rug1.sifonLadeGeefOorspronkelijkeLengteRug, rug1.sifonLadeIsVerlaagdeRug(_zijkanten(0).PartCalc)) + rug2.sifonLadeUpdatePartLEnTicketRug(rug2.sifonLadeGeefOorspronkelijkeLengteRug, rug2.sifonLadeIsVerlaagdeRug(_zijkanten(0).PartCalc)) + + 'nieuwe ruggen opslaan + opslaanGegenereerdOnderdeel(_origineleRug, rug1, Configs.sifonLadeGeefOnderdeelNaamGegenereerdeRug) + opslaanGegenereerdOnderdeel(_origineleRug, rug2, Configs.sifonLadeGeefOnderdeelNaamGegenereerdeRug) + + 'ruggen toevoegen aan de lijst met ruggen + _ruggen.Add(rug1) + _ruggen.Add(rug2) + End Sub + + Private Function maakRug1() As ArdisData + Dim rug1 As ArdisData = _origineleRug.ShallowCopy + rug1.sifonLadeNieuweRug1Data(_positionSifon) + Return rug1 + End Function + + Private Function maakRug2(rug1Lengte As Double) As ArdisData + Dim rug2 As ArdisData = _origineleRug.ShallowCopy + Dim breedte As Double = ArdisData.sifonLadeGeefBreedte(geefLW) + rug2.sifonLadeNieuweRug2Data(breedte, geefBreedteSifonUitsparing, rug1Lengte) + Return rug2 + End Function + + 'opslaan van de gegenereerde onderdelen in caché + Private Sub opslaanGegenereerdOnderdeel(origineelOnderdeel As ArdisData, nieuwOnderdeel As ArdisData, nieuwOnderdeelNaam As String) + If Configs.geefVerwerkStatus Then + CacheMapper.opslaanGegenereerdeOnderdelen(origineelOnderdeel, nieuwOnderdeel, nieuwOnderdeelNaam) + End If + End Sub + + Public Overrides Function heeftOrigineleRug() As Boolean + Return True + End Function + +End Class Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/dto's/SifonLadeDto.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/dto's/SifonLadeDto.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/dto's/SifonLadeDto.vb (revision 1649) @@ -0,0 +1,16 @@ +''' +''' Een lege klasse die enkel dient om waarden bij te houden. +''' +Public Class SifonLadeDto + 'Properties + Public Property Bestandsnaam As String + Public Property Batch As String + 'Afmetingen + Public Property KastBreedte As Double + Public Property LadeDiepte As Double + Public Property KleurBinnen As String + Public Property PositieSifonuitsparingL As Double + Public Property PositieSifonuitsparingR As Double + Public Property BreedteSifonuitsparingZ1 As Double + Public Property DiepteSifonuitsparingU1 As Double +End Class