Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2Compleet.vb =================================================================== diff -u -r1649 -r1653 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2Compleet.vb (.../SifonLadeV2Compleet.vb) (revision 1649) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2Compleet.vb (.../SifonLadeV2Compleet.vb) (revision 1653) @@ -25,4 +25,14 @@ } End Function + ''' + ''' Opvragen van onderdelen waarvan het etiket mag geüpdatet worden. + ''' Ruggen en front worden niet geüpdatet. + ''' + ''' + Protected overrides Function EtiketUpdatableOnderdelen() As IEnumerable(Of IOnderdeel) + 'Onderdeel mag geen rug of front zijn. + Return GeefAlleOnderdelen().ToList().Where(function(onderdeel) not (TypeOf onderdeel Is Rug or Typeof onderdeel is Front)) + End Function + End Class Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb =================================================================== diff -u -r1650 -r1653 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (.../SifonLadeDubbel.vb) (revision 1650) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (.../SifonLadeDubbel.vb) (revision 1653) @@ -29,4 +29,19 @@ MyBase.New(buitenzijkantL, buitenzijkantR, bodem, rug) End Sub + ''' + Public overrides Function GeefGegenereerdeOnderdelen() As IEnumerable(Of IOnderdeel) Implements ISpecialLade.GeefGegenereerdeOnderdelen + 'Gegenereerde onderdelen van parent opvragen en bijhouden. + Dim gegenereerdeOnderdelenSifonlade = New List(Of IOnderdeel)(MyBase.GeefGegenereerdeOnderdelen.GetEnumerator()) + 'Lijst uitbreiden met onderdelen uit dubbele sifonlade. + gegenereerdeOnderdelenSifonlade.AddRange( + New List(Of IOnderdeel) From { + BinnenzijkantL2, + BinnenzijkantR2, + RugM + }) + Return gegenereerdeOnderdelenSifonlade + End Function + + End Class Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeManager.vb =================================================================== diff -u -r1651 -r1653 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeManager.vb (.../SifonLadeManager.vb) (revision 1651) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeManager.vb (.../SifonLadeManager.vb) (revision 1653) @@ -24,7 +24,7 @@ Protected Overrides Sub GenereerOnderdelen() 'Sifonladen overlopen. for each sifonlade In Laden - sifonlade.GenereerOnderdelen() + sifonlade.MaakLade() Next End Sub Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbelCompleet.vb =================================================================== diff -u -r1649 -r1653 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbelCompleet.vb (.../SifonLadeDubbelCompleet.vb) (revision 1649) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbelCompleet.vb (.../SifonLadeDubbelCompleet.vb) (revision 1653) @@ -1,9 +1,39 @@ Public Class SifonLadeDubbelCompleet - Inherits SifonLadeV2Compleet - Implements ISifonLadeCompleet + Inherits SifonLadeDubbel + Implements ISifonLadeDubbelCompleet + +#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 SifonLadeCompleet aanroepen met alle verplichte velden. - MyBase.New(buitenzijkantL, buitenzijkantR, bodem, rug, front) + 'Constructur Sifonlade dubbel 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 + + ''' + ''' Opvragen van onderdelen waarvan het etiket mag geüpdatet worden. + ''' Ruggen en front worden niet geüpdatet. + ''' + ''' + Protected overrides Function EtiketUpdatableOnderdelen() As IEnumerable(Of IOnderdeel) + 'Onderdeel mag geen rug of front zijn. + Return GeefAlleOnderdelen().ToList().Where(function(onderdeel) not (TypeOf onderdeel Is Rug or Typeof onderdeel is Front)) + End Function + End Class Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb =================================================================== diff -u -r1652 -r1653 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb (.../SifonLadeV2.vb) (revision 1652) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb (.../SifonLadeV2.vb) (revision 1653) @@ -157,14 +157,9 @@ ''' ''' Updaten van de etiketlijnen van de onderdelen, buiten die van de ruggen. ''' - Protected Overridable Sub UpdateEtiketten() + private Sub UpdateEtiketten() 'Alle onderdelen overlopen. - For Each onderdeel In GeefAlleOnderdelen() - If TypeOf onderdeel Is Rug Then - 'Ruggen worden niet aangepast. - Return - End If - + For Each onderdeel In EtiketUpdatableOnderdelen() 'Checken of onderdeel 1 of 2 Ardis data's bevat. If TypeOf onderdeel Is IHeeftEnkeleArdisdata Then 'Enkele Ardis data. @@ -179,4 +174,14 @@ Next End Sub + ''' + ''' Opvragen van onderdelen waarvan het etiket mag geüpdatet worden. + ''' Ruggen worden niet geüpdatet. + ''' + ''' + Protected Overridable Function EtiketUpdatableOnderdelen() As IEnumerable(Of IOnderdeel) + 'Onderdeel mag geen rug zijn. + Return GeefAlleOnderdelen().ToList().Where(function(onderdeel) not TypeOf onderdeel Is Rug) + End Function + End Class