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