Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb =================================================================== diff -u -r1653 -r1654 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (.../SifonLadeDubbel.vb) (revision 1653) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (.../SifonLadeDubbel.vb) (revision 1654) @@ -30,17 +30,17 @@ 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 + Public Overrides Function GeefGegenereerdeOnderdelen() As IEnumerable(Of IOnderdeel) Implements ISpecialLade.GeefGegenereerdeOnderdelen + 'Gegenereerde onderdelen. + Dim gegenereerdeOnderdelen = New List(Of IOnderdeel) From { + BinnenzijkantL2, + BinnenzijkantR2, + RugM + } + 'Gegenereerde onderdelen van parent opvragen en toevoegen. + gegenereerdeOnderdelen.AddRange(MyBase.GeefGegenereerdeOnderdelen) + 'Uitgebreide lijst retourneren. + Return gegenereerdeOnderdelen End Function