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.