Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2Compleet.vb =================================================================== diff -u -r1653 -r1772 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2Compleet.vb (.../SifonLadeV2Compleet.vb) (revision 1653) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2Compleet.vb (.../SifonLadeV2Compleet.vb) (revision 1772) @@ -25,6 +25,22 @@ } End Function + ''' + Public overrides Function GeefAlleOnderdelen() As IEnumerable(Of IOnderdeel) Implements ISpecialLade.GeefAlleOnderdelen + 'Lijst initialiseren met alle onderdelen en retourneren. + 'De originele rug maakt hier geen deel van uit. + Dim origineleOnderdelen = New List(Of IOnderdeel) From { + BuitenzijkantL, + BuitenzijkantR, + Bodem, + Front + } + 'Gegenereerde onderdelen toevoegen. + origineleOnderdelen.AddRange(GeefGegenereerdeOnderdelen()) + 'Lijst retourneren. + Return origineleOnderdelen + End Function + ''' ''' Opvragen van onderdelen waarvan het etiket mag geüpdatet worden. ''' Ruggen en front worden niet geüpdatet. Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbelCompleet.vb =================================================================== diff -u -r1653 -r1772 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbelCompleet.vb (.../SifonLadeDubbelCompleet.vb) (revision 1653) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbelCompleet.vb (.../SifonLadeDubbelCompleet.vb) (revision 1772) @@ -26,6 +26,22 @@ } End Function + ''' + Public overrides Function GeefAlleOnderdelen() As IEnumerable(Of IOnderdeel) Implements ISpecialLade.GeefAlleOnderdelen + 'Lijst initialiseren met alle onderdelen en retourneren. + 'De originele rug maakt hier geen deel van uit. + Dim origineleOnderdelen = New List(Of IOnderdeel) From { + BuitenzijkantL, + BuitenzijkantR, + Bodem, + Front + } + 'Gegenereerde onderdelen toevoegen. + origineleOnderdelen.AddRange(GeefGegenereerdeOnderdelen()) + 'Lijst retourneren. + Return origineleOnderdelen + End Function + ''' ''' Opvragen van onderdelen waarvan het etiket mag geüpdatet worden. ''' Ruggen en front worden niet geüpdatet.