Index: TAOR-rework-bugfixing/TAOR rework/controllers/Domeincontroller.vb
===================================================================
diff -u -r1703 -r1740
--- TAOR-rework-bugfixing/TAOR rework/controllers/Domeincontroller.vb (.../Domeincontroller.vb) (revision 1703)
+++ TAOR-rework-bugfixing/TAOR rework/controllers/Domeincontroller.vb (.../Domeincontroller.vb) (revision 1740)
@@ -621,22 +621,6 @@
voorraadItem.genereerZijkantAutomillingData()
voorraadItem.genereerZijkantKantenbandDatas()
Next
- Case ItemType.SIFONLADE
- specialLadenRep.updateDataSpecialLaden()
- 'de extra zijkanten en ruggen toevoegen
- specialLadenRep.maakExtraOnderdelenSifonLaden()
- 'de etiketlijnen updaten
- specialLadenRep.updateEtiketLijnSifonLaden()
-
- verdeelSifonLadenOverReworkTrays()
- Case ItemType.DUBBELESIFONLADE
- specialLadenRep.updateDataSpecialLaden()
- 'de extra zijkanten en ruggen toevoegen
- specialLadenRep.maakExtraOnderdelenSpoelbakLaden()
- 'de etiketlijnen updaten
- specialLadenRep.updateEtiketLijnSpoelbakLaden()
-
- verdeelSpoelbakLadenOverReworkTrays()
Case Else
specialLadenRep.verwijderSpecialLaden()
reworkTrayRep.verwijderReworkTraysSpecialLade()
@@ -675,10 +659,6 @@
specialLadenRep.updateDataSpecialLaden()
slaSpecialLadenNieuweKleurOp()
specialLadenRep.verwijderSpecialLaden()
- Case ItemType.SIFONLADE
- slaSifonLadenOp()
- Case ItemType.DUBBELESIFONLADE
- slaSpoelbakLadenOp()
Case ItemType.GEEN
specialLadenRep.verwijderSpecialLaden()
reworkTrayRep.verwijderReworkTraysSpecialLade()
@@ -783,144 +763,6 @@
#End Region
-#Region "sifonLade"
-
- 'informatie opvragen over de sifonLade
- Public Function GeefInformatieSifonLade() As List(Of String)
- Dim sifonLade As SifonLade = specialLadenRep.geefSifonLade(0)
- Dim informatie As New List(Of String)
- informatie.Add(specialLadenRep.bestandsNaam)
- informatie.Add(sifonLade.geefLW) 'lade width
- informatie.Add(sifonLade.geefNLLade) 'nominale lengte
- informatie.Add(sifonLade.geefKleurBinnen) 'kleur binnen
- informatie.Add(sifonLade.geefBatch) 'batch ID
- informatie.Add(sifonLade.geefBreedte) 'breedte
- informatie.Add(sifonLade.geefBreedteSifonUitsparing) 'breedte uitsparing
- informatie.Add(sifonLade.geefDiepte) 'diepte
- informatie.Add(sifonLade.geefDiepteSifon) 'diepte van de sifon
- informatie.Add(sifonLade.geefPositieUitsparingSifon) 'positie uitsparing sifon
- informatie.Add(sifonLade.geefRestTekening) 'rest breedte
- Return informatie
- End Function
-
- Private Sub verdeelSifonLadenOverReworkTrays()
- Dim zijkanten As New List(Of ArdisData)
- For Each sifonLade In specialLadenRep.sifonLaden
- 'zijkanten
- zijkanten.AddRange(sifonLade.zijkanten)
- Next
- 'special rework trays laten verwerken
- voegReworkTraysSpecialLadeToe(zijkanten)
- End Sub
-
- Private Sub slaSifonLadenOp()
- Dim hoofdAansturingSifonLade As HoofdAansturingSpecialLade = New HoofdAansturingSifonLade(reworkTrayRep)
- hoofdAansturingSifonLade.verwerkenSpecialLadeMetTrays(specialLadenRep.sifonLaden)
- End Sub
-
- 'verplaatsen van de sifon laden uit het bestand naar de directory meegegeven in het config bestand en de niet verwerkte in het bestand terug zetten
- Public Sub verplaatsVerwerkteSifonLaden()
- Try
- Dim bestandsNaam As String = specialLadenRep.bestandsNaam
-
- For Each sifonLade In specialLadenRep.sifonLaden
- 'alle onderdelen afgaan
- 'zijkanten
- For Each zijkant As ArdisData In sifonLade.zijkanten
- ArdisTextMapper.opslaanSifonLadeVoorVerwerking(zijkant, bestandsNaam)
- Next
- 'rug
- ArdisTextMapper.opslaanSifonLadeVoorVerwerking(sifonLade.rug, bestandsNaam)
- 'bodem
- ArdisTextMapper.opslaanSifonLadeVoorVerwerking(sifonLade.bodem, bestandsNaam)
- Next
- ArdisTextMapper.stopArdisTextOpslag()
- Catch ex As Exception
- Throw New Exception("Er is iets foutgelopen bij het verplaatsen van het uitgelezen sifonLade bestand naar een andere folder" & vbNewLine & ex.Message)
- End Try
- End Sub
-
-#End Region
-
-#Region "spoelbakLade"
-
- 'waarden instellen voor de spoelbak lade
- Public Sub spoelbakLadeStelPositieIn(positie As Double)
- specialLadenRep.spoelbakLadeStelPositieIn(positie)
- End Sub
- Public Sub spoelbakLadeStelBreedteIn(breedte As Double)
- specialLadenRep.spoelbakLadeStelBreedteIn(breedte)
- End Sub
-
- 'informatie opvragen over de spoelbakLade
- Function geefInformatieSpoelbakLade() As List(Of String)
- Dim spoelbakLade As SpoelbakLade = specialLadenRep.geefSpoelbakLade(0)
- Dim informatie As New List(Of String)
- informatie.Add(specialLadenRep.bestandsNaam)
- informatie.Add(spoelbakLade.geefLW) 'lade width
- informatie.Add(spoelbakLade.geefNLLade) 'nominale lengte
- informatie.Add(spoelbakLade.geefKleurBinnen) 'kleur binnen
- informatie.Add(spoelbakLade.geefBatch) 'batch ID
- informatie.Add(spoelbakLade.geefBreedte) 'breedte
- informatie.Add(spoelbakLade.geefBreedteSpoelbakUitsparing) 'breedte uitsparing
- informatie.Add(spoelbakLade.geefDiepte) 'diepte
- informatie.Add(spoelbakLade.geefDiepteSpoelbak) 'diepte uitsparing
- informatie.Add(spoelbakLade.positieSpoelbak) 'positie spoelbak
- informatie.Add(spoelbakLade.geefRestBreedte) 'rest breedte
- Return informatie
- End Function
-
- Public Sub spoelbakLadeStelInitiëlePositieIn()
- specialLadenRep.spoelbakLadeStelInitiëlePositieIn()
- End Sub
-
- Function geefNuttigeRuimteZijvakkenSpoelbak() As Double
- Return specialLadenRep.geefNuttigeRuimteZijvakkenSpoelbakVanSpoelbakLaden()
- End Function
-
- Function geefPositieUitsparingSpoelbak() As Double
- Return specialLadenRep.geefPositieSpoelbakVanSpoelbakLaden
- End Function
-
- Private Sub verdeelSpoelbakLadenOverReworkTrays()
- Dim zijkanten As New List(Of ArdisData)
- For Each spoelbakLade In specialLadenRep.spoelbakLaden
- 'zijkanten
- zijkanten.AddRange(spoelbakLade.zijkanten)
- Next
- 'de zijkanten en de special rework trays laten verwerken
- voegReworkTraysSpecialLadeToe(zijkanten)
- End Sub
-
- Private Sub slaSpoelbakLadenOp()
- Dim hoofdAansturingSpoelbakLade As HoofdAansturingSpecialLade = New HoofdAansturingSpoelbakLade(reworkTrayRep)
- hoofdAansturingSpoelbakLade.verwerkenSpecialLadeMetTrays(specialLadenRep.spoelbakLaden)
- End Sub
-
- 'verplaatsen van de spoelbak laden uit het bestand naar de directory meegegeven in het config bestand en de niet verwerkte in het bestand terug zetten
- Public Sub verplaatsVerwerkteSpoelbakLaden()
- Try
- Dim bestandsNaam As String = specialLadenRep.bestandsNaam
-
- For Each spoelbakLade In specialLadenRep.spoelbakLaden
- 'alle onderdelen afgaan
- 'zijkanten
- For Each zijkant As ArdisData In spoelbakLade.zijkanten
- ArdisTextMapper.opslaanSpoelbakLadeVoorVerwerking(zijkant, bestandsNaam)
- Next
- 'rug
- ArdisTextMapper.opslaanSpoelbakLadeVoorVerwerking(spoelbakLade.rug, bestandsNaam)
- 'bodem
- ArdisTextMapper.opslaanSpoelbakLadeVoorVerwerking(spoelbakLade.bodem, bestandsNaam)
- Next
- ArdisTextMapper.stopArdisTextOpslag()
- Catch ex As Exception
- Throw New Exception("Er is iets foutgelopen bij het verplaatsen van het uitgelezen sifonLade bestand naar een andere folder" & vbNewLine & ex.Message)
- End Try
- End Sub
-
-#End Region
-
Private Sub voegReworkTraysSpecialLadeToe(ByVal zijkanten As List(Of ArdisData))
Dim zijkantenList As New List(Of ArdisData)
zijkantenList.AddRange(zijkanten)
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/SpecialLadenRepository.vb
===================================================================
diff -u -r1626 -r1740
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/SpecialLadenRepository.vb (.../SpecialLadenRepository.vb) (revision 1626)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/SpecialLadenRepository.vb (.../SpecialLadenRepository.vb) (revision 1740)
@@ -3,8 +3,6 @@
Public Sub New()
_specialLaden = New List(Of SpecialLade)
- _sifonLaden = New List(Of SifonLade)
- _spoelbakLaden = New List(Of SpoelbakLade)
_specialLadenDiepereZijkant = New List(Of SpecialLadeDiepereZijkant)
_specialLadenHogereZijkant = New List(Of SpecialLadeHogereZijkant)
_specialLadenNieuweKleur = New List(Of SpecialLadeNieuweKleur)
@@ -73,58 +71,6 @@
End Get
End Property
-#Region "sifon laden"
-
- Private _sifonLaden As List(Of SifonLade)
- Public ReadOnly Property sifonLaden As List(Of SifonLade)
- Get
- controleerSifonLaden()
- Return New List(Of SifonLade)(_sifonLaden)
- End Get
- End Property
-
- Public Function geefSifonLade(index As Integer) As SifonLade
- controleerSifonLaden()
- Return _sifonLaden(index)
- End Function
-
- Public ReadOnly Property zijnErSifonLaden() As Boolean
- Get
- If _sifonLaden Is Nothing OrElse _sifonLaden.Count <= 0 Then
- Return False
- End If
- Return True
- End Get
- End Property
-
-#End Region
-
-#Region "spoelbak laden"
-
- Private _spoelbakLaden As List(Of SpoelbakLade)
- Public ReadOnly Property spoelbakLaden As List(Of SpoelbakLade)
- Get
- controleerSpoelbakLaden()
- Return New List(Of SpoelbakLade)(_spoelbakLaden)
- End Get
- End Property
-
- Public Function geefSpoelbakLade(index As Integer) As SpoelbakLade
- controleerSpoelbakLaden()
- Return _spoelbakLaden(index)
- End Function
-
- Public ReadOnly Property zijnErSpoelbakLaden() As Boolean
- Get
- If _spoelbakLaden Is Nothing OrElse _spoelbakLaden.Count <= 0 Then
- Return False
- End If
- Return True
- End Get
- End Property
-
-#End Region
-
#Region "special laden diepere zijkant"
Private _specialLadenDiepereZijkant As List(Of SpecialLadeDiepereZijkant)
@@ -218,18 +164,6 @@
End If
End Sub
- Private Sub controleerSifonLaden()
- If Not zijnErSifonLaden Then
- Throw New Exception("Er is/zijn nog geen sifon lade(n) geselecteerd")
- End If
- End Sub
-
- Private Sub controleerSpoelbakLaden()
- If Not zijnErSpoelbakLaden Then
- Throw New Exception("Er is/zijn nog geen spoelbak lade(n) geselecteerd")
- End If
- End Sub
-
Private Sub controleerSpecialLadeDiepereZijkant()
If Not zijnErSpecialLadenDiepereZijkant Then
Throw New Exception("Er is/zijn nog geen special lade(n) diepere zijkant geselecteerd")
@@ -267,14 +201,10 @@
Public Sub verwijderSpecialLaden()
_typeLade = ItemType.GEEN
_specialLadenOnderdelen = Nothing
- _sifonLaden = Nothing
- _spoelbakLaden = Nothing
_specialLadenDiepereZijkant = Nothing
_specialLadenHogereZijkant = Nothing
_specialLadenNieuweKleur = Nothing
_specialLaden = New List(Of SpecialLade)
- _sifonLaden = New List(Of SifonLade)
- _spoelbakLaden = New List(Of SpoelbakLade)
_specialLadenDiepereZijkant = New List(Of SpecialLadeDiepereZijkant)
_specialLadenHogereZijkant = New List(Of SpecialLadeHogereZijkant)
_specialLadenNieuweKleur = New List(Of SpecialLadeNieuweKleur)
@@ -294,12 +224,6 @@
Dim specialLade As SpecialLade
Select Case type
- Case ItemType.SIFONLADE
- specialLade = New SifonLade
- _sifonLaden.Add(specialLade)
- Case ItemType.DUBBELESIFONLADE
- specialLade = New SpoelbakLade
- _spoelbakLaden.Add(specialLade)
Case ItemType.DIEPEREZIJKANT
specialLade = New SpecialLadeDiepereZijkant
_specialLadenDiepereZijkant.Add(specialLade)
@@ -334,125 +258,6 @@
Next
End Sub
-#Region "sifonLade"
-
- 'waarden sifonlade instellen
- Public Sub sifonLadeStelPositieIn(positie As Double)
- controleerSifonLaden()
- For Each sifonLade In _sifonLaden
- sifonLade.positionSifon = positie
- Next
- End Sub
- Public Sub sifonLadeStelBreedteIn(breedte As Double)
- controleerSifonLaden()
- For Each sifonLade In _sifonLaden
- sifonLade.breedteSifon = breedte
- Next
- End Sub
- Public Sub sifonLadeStelDiepteIn(diepte As Double)
- controleerSifonLaden()
- For Each sifonLade In _sifonLaden
- sifonLade.diepteSifon = diepte
- Next
- End Sub
-
- Public Function geefRestSifonVanSifonLaden() As Double
- controleerSifonLaden()
- Dim rest As Double = -1
- For Each sifonLade As SifonLade In _sifonLaden
- If rest = -1 Or rest = sifonLade.geefRest Then
- rest = sifonLade.geefRest
- Else
- Throw New Exception("Rest sifon is niet dezelfde in elke sifon lade")
- End If
- Next
- Return rest
- End Function
-
- Public Sub updateEtiketLijnSifonLaden()
- controleerSifonLaden()
- For Each sifonLade As SifonLade In _sifonLaden
- sifonLade.updateEtiketLijn()
- Next
- End Sub
-
- Public Sub maakExtraOnderdelenSifonLaden()
- controleerSifonLaden()
- Dim lengte As String = Configs.geefNettoLengte(_sifonLaden(0).diepteSifon)
- For Each sifonLade As SifonLade In _sifonLaden
- sifonLade.maakZijkantenBij(lengte)
- 'de ene rug => twee ruggen met andere lengte en barcode
- sifonLade.maakExtraRuggen()
- Next
- End Sub
-
-#End Region
-
-#Region "spoelbakLade"
-
- 'waarden spoelbaklade instellen
- Public Sub spoelbakLadeStelPositieIn(positie As Double)
- controleerSpoelbakLaden()
- For Each spoelbakLade In _spoelbakLaden
- spoelbakLade.positieSpoelbak = positie
- Next
- End Sub
- Public Sub spoelbakLadeStelBreedteIn(breedte As Double)
- controleerSpoelbakLaden()
- For Each spoelbakLade In _spoelbakLaden
- spoelbakLade.breedteSpoelbak = breedte
- Next
- End Sub
- Public Sub spoelbakLadeStelInitiëlePositieIn()
- controleerSpoelbakLaden()
- For Each spoelbakLade In _spoelbakLaden
- spoelbakLade.stelInitiëlePositieIn()
- Next
- End Sub
-
- Function geefNuttigeRuimteZijvakkenSpoelbakVanSpoelbakLaden() As Double
- controleerSpoelbakLaden()
- Dim nuttigeRuimteZijvakken As Double = -1
- For Each spoelbakLade As SpoelbakLade In _spoelbakLaden
- If nuttigeRuimteZijvakken = -1 Or nuttigeRuimteZijvakken = spoelbakLade.geefNuttigeRuimteZijvakken Then
- nuttigeRuimteZijvakken = spoelbakLade.geefNuttigeRuimteZijvakken
- Else
- Throw New Exception("Nuttige ruimte zijvakken is niet dezelfde in elke spoelbak lade")
- End If
- Next
- Return nuttigeRuimteZijvakken
- End Function
-
- Public Function geefPositieSpoelbakVanSpoelbakLaden() As Double
- controleerSpoelbakLaden()
- Dim positieSpoelbak As Double = -1
- For Each spoelbakLade As SpoelbakLade In _spoelbakLaden
- If positieSpoelbak = -1 Or positieSpoelbak = spoelbakLade.positieSpoelbak Then
- positieSpoelbak = spoelbakLade.positieSpoelbak
- Else
- Throw New Exception("Positie spoelbak is niet dezelfde in elke spoelbak lade")
- End If
- Next
- Return positieSpoelbak
- End Function
-
- Public Sub updateEtiketLijnSpoelbakLaden()
- controleerSpoelbakLaden()
- For Each spoelbakLade As SpoelbakLade In _spoelbakLaden
- spoelbakLade.updateEtiketLijn()
- Next
- End Sub
-
- Public Sub maakExtraOnderdelenSpoelbakLaden()
- controleerSpoelbakLaden()
- Dim lengte As String = _spoelbakLaden(0).geefDiepteSpoelbak
- For Each spoelbakLade As SpoelbakLade In _spoelbakLaden
- spoelbakLade.maakZijkantenBij(lengte)
- Next
- End Sub
-
-#End Region
-
#Region "specialLadeDiepereZijkant"
'waarden specialLadeDiepereZijkant instellen
Index: TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj
===================================================================
diff -u -r1739 -r1740
--- TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1739)
+++ TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1740)
@@ -29,8 +29,8 @@
TAOR rework
Robin De Bock
false
- 2
- 5.1.4.%2a
+ 1
+ 6.0.0.%2a
false
true
true
@@ -163,6 +163,7 @@
+
@@ -195,7 +196,6 @@
-
FormLabel.vb
@@ -290,7 +290,6 @@
-
@@ -302,7 +301,6 @@
Form
-
FishEye: Tag 1740 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/Spoelbakladen/HoofdAansturingSpoelbakLade.vb'.
FishEye: No comparison available. Pass `N' to diff?
FishEye: Tag 1740 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/laden/special laden/Spoelbakladen/SpoelbakLade.vb'.
FishEye: No comparison available. Pass `N' to diff?