Index: TAOR-rework-bugfixing/TAOR rework/Rework/Slot.vb =================================================================== diff -u -r1596 -r1597 --- TAOR-rework-bugfixing/TAOR rework/Rework/Slot.vb (.../Slot.vb) (revision 1596) +++ TAOR-rework-bugfixing/TAOR rework/Rework/Slot.vb (.../Slot.vb) (revision 1597) @@ -1,126 +1,128 @@ -Public Class Slot - Private _type As SlotType - Private _zijkanten As List(Of Rework) - Private _zijkantenSpecial As List(Of ArdisData) - Private _nummer As Integer +Namespace Rework + Public Class Slot + Private _type As SlotType + Private _zijkanten As List(Of Rework) + Private _zijkantenSpecial As List(Of ArdisData) + Private _nummer As Integer - Public Sub New() - _zijkanten = New List(Of Rework) - _zijkantenSpecial = New List(Of ArdisData) - End Sub + Public Sub New() + _zijkanten = New List(Of Rework) + _zijkantenSpecial = New List(Of ArdisData) + End Sub - Public Sub New(nummer As Integer) - _zijkanten = New List(Of Rework) - _zijkantenSpecial = New List(Of ArdisData) - controleerNummer(nummer) - _nummer = nummer - End Sub + Public Sub New(nummer As Integer) + _zijkanten = New List(Of Rework) + _zijkantenSpecial = New List(Of ArdisData) + controleerNummer(nummer) + _nummer = nummer + End Sub - Public Property type As SlotType - Get - Return _type - End Get - Set(ByVal value As SlotType) - _type = value - End Set - End Property + Public Property type As SlotType + Get + Return _type + End Get + Set(ByVal value As SlotType) + _type = value + End Set + End Property - Public ReadOnly Property zijkanten As List(Of Rework) - Get - Return New List(Of Rework)(_zijkanten) - End Get - End Property + Public ReadOnly Property zijkanten As List(Of Rework) + Get + Return New List(Of Rework)(_zijkanten) + End Get + End Property - Public ReadOnly Property zijkantenSpeciaal As List(Of ArdisData) - Get - Return New List(Of ArdisData)(_zijkantenSpecial) - End Get - End Property + Public ReadOnly Property zijkantenSpeciaal As List(Of ArdisData) + Get + Return New List(Of ArdisData)(_zijkantenSpecial) + End Get + End Property - Public Property nummer As Integer - Get - Return _nummer - End Get - Set(value As Integer) - controleerNummer(value) - _nummer = value - End Set - End Property + Public Property nummer As Integer + Get + Return _nummer + End Get + Set(value As Integer) + controleerNummer(value) + _nummer = value + End Set + End Property - Public Sub voegZijkantToe(ByVal zijkant As Rework) - If (type = SlotType.enkel) And (zijkanten.Count < 1) Then - _zijkanten.Add(zijkant) - ElseIf _zijkanten.Count < 2 Then - _zijkanten.Add(zijkant) - Else - Throw New Exception("Het slot zit al vol") - End If - End Sub + Public Sub voegZijkantToe(ByVal zijkant As Rework) + If (type = SlotType.enkel) And (zijkanten.Count < 1) Then + _zijkanten.Add(zijkant) + ElseIf _zijkanten.Count < 2 Then + _zijkanten.Add(zijkant) + Else + Throw New Exception("Het slot zit al vol") + End If + End Sub - Public Sub voegZijkantToe(ByVal zijkant As List(Of Rework)) - If (type = SlotType.enkel) And (zijkanten.Count < 1) Then - _zijkanten.AddRange(zijkant) - ElseIf _zijkanten.Count < 2 Then - _zijkanten.AddRange(zijkant) - Else - Throw New Exception("Het slot zit al vol") - End If - End Sub + Public Sub voegZijkantToe(ByVal zijkant As List(Of Rework)) + If (type = SlotType.enkel) And (zijkanten.Count < 1) Then + _zijkanten.AddRange(zijkant) + ElseIf _zijkanten.Count < 2 Then + _zijkanten.AddRange(zijkant) + Else + Throw New Exception("Het slot zit al vol") + End If + End Sub - 'special zijkant - Public Sub voegZijkantToe(ByRef zijkant As List(Of ArdisData)) - If _zijkantenSpecial.Count < 2 Then - For Each data As ArdisData In zijkant - data.KamerfreesSlotNr = _nummer + 'special zijkant + Public Sub voegZijkantToe(ByRef zijkant As List(Of ArdisData)) + If _zijkantenSpecial.Count < 2 Then + For Each data As ArdisData In zijkant + data.KamerfreesSlotNr = _nummer + Next + _zijkantenSpecial.AddRange(zijkant) + Else + Throw New Exception("Het slot zit al vol") + End If + End Sub + + Public Overrides Function ToString() As String + Dim returnString As String = "TYPE SLOT: " & _type & " ---ZIJKANT: " + For Each zijkant As Rework In _zijkanten + returnString += vbNewLine & vbTab & zijkant.ToString Next - _zijkantenSpecial.AddRange(zijkant) - Else - Throw New Exception("Het slot zit al vol") - End If - End Sub + Return returnString + End Function - Public Overrides Function ToString() As String - Dim returnString As String = "TYPE SLOT: " & _type & " ---ZIJKANT: " - For Each zijkant As Rework In _zijkanten - returnString += vbNewLine & vbTab & zijkant.ToString - Next - Return returnString - End Function - - Public Sub updateReworkOnderdeel() - If _type = SlotType.dubbel Then - If _zijkanten.Count > 0 Then - 'updaten van veld opslaan ardis in beide - If Not _zijkanten(1).opslaanArdis Then - zijkanten(0).opslaanArdis = False - ElseIf Not _zijkanten(0).opslaanArdis Then - zijkanten(1).opslaanArdis = False + Public Sub updateReworkOnderdeel() + If _type = SlotType.dubbel Then + If _zijkanten.Count > 0 Then + 'updaten van veld opslaan ardis in beide + If Not _zijkanten(1).opslaanArdis Then + zijkanten(0).opslaanArdis = False + ElseIf Not _zijkanten(0).opslaanArdis Then + zijkanten(1).opslaanArdis = False + End If + 'duidelijk maken dat beide tot een paar behoren + _zijkanten(0).onderdeel = "ZIJKANT LR" + _zijkanten(1).onderdeel = "ZIJKANT LR" End If - 'duidelijk maken dat beide tot een paar behoren - _zijkanten(0).onderdeel = "ZIJKANT LR" - _zijkanten(1).onderdeel = "ZIJKANT LR" End If - End If - End Sub + End Sub - Public Sub verwijderTweedeVanPaar() - If _zijkanten.Count > 1 Then - _zijkanten.RemoveAt(1) - End If - End Sub + Public Sub verwijderTweedeVanPaar() + If _zijkanten.Count > 1 Then + _zijkanten.RemoveAt(1) + End If + End Sub - Private Sub controleerNummer(nummer As Integer) - If nummer <= 0 Then - Throw New Exception("Slotnummer moet groter zijn dan 0 (nummer, geen index)") - End If - End Sub + Private Sub controleerNummer(nummer As Integer) + If nummer <= 0 Then + Throw New Exception("Slotnummer moet groter zijn dan 0 (nummer, geen index)") + End If + End Sub - Public Function ShallowCopy() As Slot - Return DirectCast(Me.MemberwiseClone(), Slot) - End Function -End Class + Public Function ShallowCopy() As Slot + Return DirectCast(Me.MemberwiseClone(), Slot) + End Function + End Class -Public Enum SlotType - enkel = 0 - dubbel = 1 -End Enum \ No newline at end of file + Public Enum SlotType + enkel = 0 + dubbel = 1 + End Enum +End Namespace \ No newline at end of file