Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb =================================================================== diff -u -r1642 -r1646 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb (.../LadeManager.vb) (revision 1642) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb (.../LadeManager.vb) (revision 1646) @@ -80,9 +80,9 @@ ''' ''' De andere lade Public Sub UpdateAlleLaden(gewijzigdeLade As TLadeType) - 'Controleer of lijst leeg is. + 'Controleer of lijst met laden leeg is. If Laden Is Nothing OrElse Laden.Count = 0 Then - 'Lijst van laden is leeg, update kan niet uitgevoerd worden. + 'Lijst is leeg, update kan niet uitgevoerd worden. Throw New Exception("Kon special laden niet updaten aan de hand van een gewijzigde lade. Geen laden aanwezig.") End If 'Lijst is niet leeg, hook aanroepen. @@ -94,4 +94,9 @@ ''' ''' De andere lade Protected MustOverride Sub UpdateLaden(gewijzigdeLade As TLadeType) + + ''' + ''' De laden in een afgewerkte staat brengen. + ''' + public MustOverride sub BouwLaden() End Class Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb =================================================================== diff -u -r1644 -r1646 --- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1644) +++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1646) @@ -79,11 +79,12 @@ Return PartExt07 End Function - 'specials + 'Specials - Public Sub pasKleurAanSpecial() - Dim firstIndex As Integer = PartMat.IndexOf(".") + 1 - Dim lastIndex As Integer = PartMat.LastIndexOf(".") + 'todo documentatie fixen wth hier gebeurt + Public Sub PasKleurAanSpecial() + Dim firstIndex As Integer = PartMat.IndexOf(".", StringComparison.Ordinal) + 1 + Dim lastIndex As Integer = PartMat.LastIndexOf(".", StringComparison.Ordinal) PartExt07 = PartMat.Substring(firstIndex, lastIndex - firstIndex) End Sub Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb =================================================================== diff -u -r1642 -r1646 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb (.../SifonLadeManager.vb) (revision 1642) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb (.../SifonLadeManager.vb) (revision 1646) @@ -29,4 +29,9 @@ sifonLade.PositieSifonuitsparingL = gewijzigdeLade.PositieSifonuitsparingL Next End Sub + + ''' + Public Overrides Sub BouwLaden() + Throw New NotImplementedException + End Sub End Class Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenMapper.vb =================================================================== diff -u -r1645 -r1646 --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenMapper.vb (.../SifonLadenMapper.vb) (revision 1645) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenMapper.vb (.../SifonLadenMapper.vb) (revision 1646) @@ -3,7 +3,7 @@ ''' Public Function GeefAlle(onderdelen As List(Of IOnderdeel)) As List(Of ISifonLade) Implements IMapper(Of List(Of IOnderdeel), ISifonLade).GeefAlle - 'Onderdelen en hun aantal registreren. + 'Onderdelen en hun aantal registreren. Negatieve waarden betekent optioneel. Dim onderdelenAantalDictionary As New Dictionary(Of Type, Integer) From { {GetType(Zijkant), 2}, {GetType(Front), -1}, Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftDubbeleArdisData.vb =================================================================== diff -u -r1642 -r1646 --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftDubbeleArdisData.vb (.../IHeeftDubbeleArdisData.vb) (revision 1642) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/IHeeftDubbeleArdisData.vb (.../IHeeftDubbeleArdisData.vb) (revision 1646) @@ -4,4 +4,10 @@ Public Interface IHeeftDubbeleArdisData property ArdisData1 As ArdisData Property ArdisData2 As ArdisData + + ''' + ''' Opvragen van de Ardis Data's. + ''' + ''' Een array met de twee Ardis Data's + Function GeefArdisDatas As ArdisData() End Interface Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Zijkant.vb =================================================================== diff -u -r1642 -r1646 --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Zijkant.vb (.../Zijkant.vb) (revision 1642) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Zijkant.vb (.../Zijkant.vb) (revision 1646) @@ -5,4 +5,9 @@ Public Property ArdisDataR As ArdisData Implements IHeeftDubbeleArdisData.ArdisData2 Public Property ZijkamerFreesProductieData As ZijkamerFreesProductieData Implements IHeeftZijkamerFreesProductieData.ZijkamerFreesProductieData Public Property KantenbandData As KantenbandData Implements IHeeftKantenbandData.KantenbandData + + ''' + Public Function GeefArdisDatas() As ArdisData() Implements IHeeftDubbeleArdisData.GeefArdisDatas + Return New ArdisData() {ArdisDataL, ArdisDataR} + End Function End Class \ No newline at end of file Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb =================================================================== diff -u -r1645 -r1646 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb (.../SifonLadeV2.vb) (revision 1645) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb (.../SifonLadeV2.vb) (revision 1646) @@ -61,15 +61,4 @@ } End Function - ''' - ''' Waarden aanpassen van bepaalde velden. - ''' - 'Public Overrides Sub updateData() - ' 'de kleuren updaten (extra ruggen en zijkanten worden gegenereerd aan de hand van de originele) - ' For Each zijkant As ArdisData In _zijkanten - ' zijkant.pasKleurAanSpecial() - ' Next - ' _bodem.pasKleurAanSpecial() - ' _origineleRug.pasKleurAanSpecial() - 'End Sub End Class