Index: TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.vb
===================================================================
diff -u -r1898 -r1900
--- TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.vb (.../FormVoorraad.vb) (revision 1898)
+++ TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.vb (.../FormVoorraad.vb) (revision 1900)
@@ -56,10 +56,10 @@
lblFoutmeldingToevoegen.Text = ""
Try
If RadioButtonLinksRechts.Checked Then ' als linksrechts is aangeduid een voorraad item tovoegen met links en eentje met rechts
- Domeincontroller.getInstance.voegVoorraadItemToe(TextBoxLabelTekst.Text, LinksOfRechts.Links, ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked)
- Domeincontroller.getInstance.voegVoorraadItemToe(TextBoxLabelTekst.Text, LinksOfRechts.Rechts, ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked)
+ Domeincontroller.getInstance.voegZijkantVoorraadItemToe(TextBoxLabelTekst.Text, LinksOfRechts.Links, ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked)
+ Domeincontroller.getInstance.voegZijkantVoorraadItemToe(TextBoxLabelTekst.Text, LinksOfRechts.Rechts, ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked)
Else
- Domeincontroller.getInstance.voegVoorraadItemToe(TextBoxLabelTekst.Text, If(radioLinks.Checked, LinksOfRechts.Links, LinksOfRechts.Rechts), ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked)
+ Domeincontroller.getInstance.voegZijkantVoorraadItemToe(TextBoxLabelTekst.Text, If(radioLinks.Checked, LinksOfRechts.Links, LinksOfRechts.Rechts), ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked)
End If
refreshVoorraadItemsGrid()
Catch ex As Exception
@@ -88,9 +88,9 @@
DataGridViewVoorraadItems.Rows.Clear()
Try
'de waarden van de voorraad items ophalen en in de grid steken
- Dim voorraadItems As IEnumerable(Of IVoorraadItem) = Domeincontroller.getInstance.geefVoorraadItems
+ Dim voorraadItems As IEnumerable(Of IZijkantVoorraadItem) = Domeincontroller.getInstance.geefZijkantVoorraadItems
Dim index As Integer = 0
- For Each voorraadItem As IVoorraadItem In voorraadItems
+ For Each voorraadItem As IZijkantVoorraadItem In voorraadItems
Dim linksOfRechts = [Enum].GetName(GetType(LinksOfRechts), voorraadItem.LinksOfRechts).ToLower
linksOfRechts = linksOfRechts.Substring(0, 1).ToUpper + linksOfRechts.Substring(1)
Dim row As String() = New String() {"verwijder", voorraadItem.Label, linksOfRechts, voorraadItem.Diepte, voorraadItem.Hoogte, voorraadItem.Kantenband, voorraadItem.KleurBinnen, voorraadItem.KleurBuiten, voorraadItem.IsSifonlade}
@@ -122,7 +122,7 @@
Try
If rowIndex >= 0 And colIndex >= 0 Then 'als er op de header wordt gedrukt geven ze index -1
If DataGridViewVoorraadItems.Columns(colIndex).Name.Equals("verwijderVoorraadItem") Then
- Domeincontroller.getInstance.verwijderVoorraadItem(Domeincontroller.getInstance.geefVoorraadItems()(rowIndex))
+ Domeincontroller.getInstance.verwijderZijkantVoorraadItem(Domeincontroller.getInstance.geefZijkantVoorraadItems()(rowIndex))
refreshVoorraadItemsGrid()
End If
End If
@@ -164,7 +164,7 @@
End Sub
Private Sub btnWisAlle_Click(sender As System.Object, e As System.EventArgs) Handles btnWisAlle.Click
- Domeincontroller.getInstance.verwijderVolledigeVoorraad()
+ Domeincontroller.getInstance.verwijderVolledigeZijkantVoorraad()
refreshVoorraadItemsGrid()
End Sub
End Class
\ No newline at end of file
FishEye: Tag 1900 refers to a dead (removed) revision in file `TAOR rework/TAOR rework/Voorraad/IVoorraadItem.vb'.
FishEye: No comparison available. Pass `N' to diff?
Index: TAOR rework/TAOR rework/formulieren/Specials/FormFronten.vb
===================================================================
diff -u -r1899 -r1900
--- TAOR rework/TAOR rework/formulieren/Specials/FormFronten.vb (.../FormFronten.vb) (revision 1899)
+++ TAOR rework/TAOR rework/formulieren/Specials/FormFronten.vb (.../FormFronten.vb) (revision 1900)
@@ -37,4 +37,8 @@
Private Sub updateVerwerkButtonStatus()
btnProduceer.Enabled = not String.IsNullOrEmpty(TextBoxLetterBarcode.Text)
End Sub
+
+ Private Sub BtnProduceer_Click(sender As Object, e As EventArgs) Handles btnProduceer.Click
+
+ End Sub
End Class
\ No newline at end of file
Index: TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb
===================================================================
diff -u -r1884 -r1900
--- TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb (.../ZijkamerFreesProductieData.vb) (revision 1884)
+++ TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb (.../ZijkamerFreesProductieData.vb) (revision 1900)
@@ -492,7 +492,7 @@
#Region "voorraad"
- Public Sub voorraadStelInitieleWaardenIn(trayId As String, slotNr As String, vItem As IVoorraadItem, barcodeA As String, Optional barcodeB As String = "")
+ Public Sub voorraadStelInitieleWaardenIn(trayId As String, slotNr As String, vItem As IZijkantVoorraadItem, barcodeA As String, Optional barcodeB As String = "")
PickSequence = slotNr
PickPlace = "R"
PalletID = trayId
FishEye: Tag 1900 refers to a dead (removed) revision in file `TAOR rework/TAOR rework/Voorraad/VoorraadItem.vb'.
FishEye: No comparison available. Pass `N' to diff?
Index: TAOR rework/TAOR rework/controllers/Domeincontroller.vb
===================================================================
diff -u -r1879 -r1900
--- TAOR rework/TAOR rework/controllers/Domeincontroller.vb (.../Domeincontroller.vb) (revision 1879)
+++ TAOR rework/TAOR rework/controllers/Domeincontroller.vb (.../Domeincontroller.vb) (revision 1900)
@@ -1,16 +1,16 @@
-Imports TA_OR_Rework
+Imports TA_OR_rework
Imports TA_OR_rework.SpecialLadenRepository
Public Class Domeincontroller
Private Shared instance As Domeincontroller
Private reworkRep As ReworkRepository
Private reworkTrayslotRep As ReworkTraySlotRepository
- private reworkTrayRep As ReworkTrayRepository
+ Private reworkTrayRep As ReworkTrayRepository
Private reworkRedenenRep As ReworkRedenenRepository
Private testLadenRep As TestLadenRepository
Private hoofdAansturingRework As HoofdAansturingRework
Private specialLadenRep As SpecialLadenRepository
- Private voorraadRepository As VoorraadItemRepository
+ Private _zijkantZijkantVoorraadRepository As ZijkantVoorraadItemRepository
Private stalenRepository As StalenRepository
Private Sub New()
@@ -21,7 +21,7 @@
testLadenRep = New TestLadenRepository
hoofdAansturingRework = New HoofdAansturingRework
specialLadenRep = New SpecialLadenRepository
- voorraadRepository = New VoorraadItemRepository
+ _zijkantZijkantVoorraadRepository = New ZijkantVoorraadItemRepository
stalenRepository = New StalenRepository
End Sub
@@ -128,11 +128,11 @@
Dim onderdeel As String = rework.onderdeel.ToLower.Trim
Select Case onderdeel
Case "front"
- hoofdAansturingRework.verwerkFront(rework)
+ hoofdAansturingRework.VerwerkFront(rework)
Case "rug"
- hoofdAansturingRework.verwerkRug(rework)
+ hoofdAansturingRework.VerwerkRug(rework)
Case "bodem"
- hoofdAansturingRework.verwerkBodem(rework)
+ hoofdAansturingRework.VerwerkBodem(rework)
Case Else
If Not onderdeel.Contains("zijkant") Then
MsgBox($"Tussen de geselecteerde reworks zit een onderdeel waar nog geen productieproces voor is gedefinieerd, gelieve dit aan te passen in de Domeincontroller en HoofdAansturing, het onderdeel in kwestie is: {onderdeel.ToUpper}")
@@ -142,7 +142,7 @@
Try
'de reworktrays verwerken en data aanpassen
For Each ReworkTray As ReworkTray In reworkTrayRep.reworkTrays
- hoofdAansturingRework.verwerkTray(ReworkTray)
+ hoofdAansturingRework.VerwerkTray(ReworkTray)
Next
Catch ex As Exception
reworkTrayRep.verwijderReworkTrays()
@@ -273,7 +273,7 @@
Private Sub verdeelParenEnEnkeleOverTrays(ByVal paren As List(Of Rework()), ByVal enkel As List(Of Rework))
Do While paren.Count > 0 Or enkel.Count > 0
- Dim reworkTray As ReworkTray = New ReworkTray(reworkTrayslotRep.slots)
+ Dim reworkTray As ReworkTray = New ReworkTray(reworkTrayslotRep.Slots)
Do While paren.Count > 0
If Not reworkTray.parenVol Then
@@ -300,7 +300,7 @@
#End Region
#Region "verworpen automilling reworken"
- public Function geefUitgeworpenAutomilling As List(Of ZijkamerFreesProductieData)
+ Public Function geefUitgeworpenAutomilling() As List(Of ZijkamerFreesProductieData)
'ZijkamerFreesProductieData bevat meer dan enkel properties, maar de frontend moet toch enkel displayen
Return AutomillingMapper.geefUitgeworpen()
End Function
@@ -311,17 +311,17 @@
#Region "opvragen info rework trays en verwijderen"
Public Function geefTypeInReworkTray() As ItemType
- If voorraadRepository.zijnErVoorraadItems Then
- Return ItemType.VOORRAAD
+ If _zijkantZijkantVoorraadRepository.zijnErVoorraadItems Then
+ Return ItemType.Voorraad
End If
If specialLadenRep.zijnErSpecialLaden Then
Return specialLadenRep.typeLade
End If
If reworkRep.aantalReworks > 0 Or reworkTrayRep.aantalReworkTrays > 0 Then
- Return ItemType.REWORK
+ Return ItemType.Rework
End If
If _gekozenZijkanten.Count > 0 Then
- Return ItemType.TESTLADE
+ Return ItemType.Testlade
End If
Throw New Exception("Type in rework tray is niet gedefinieerd")
End Function
@@ -397,7 +397,7 @@
'voorraad
content.Add(slot.nummer)
content.Add(slot.zijkantenSpeciaal(0).PartCalc)
- content.Add(slot.zijkantenSpeciaal(0).geefBatch)
+ content.Add(slot.zijkantenSpeciaal(0).GeefBatch)
If slot.zijkantenSpeciaal.Count = 4 Then 'voorraad
content.Add(slot.zijkantenSpeciaal(0).geefColorDubbelVoorraad(slot.zijkantenSpeciaal(1), slot.zijkantenSpeciaal(2), slot.zijkantenSpeciaal(3)))
ElseIf slot.type = SlotType.enkel Then 'voorraad met 1 zijkant
@@ -581,8 +581,8 @@
'opvragen van het type special lade dat is gekozen
Public Function geefTypeSpecialLade() As ItemType
- If voorraadRepository.zijnErVoorraadItems Then
- Return ItemType.VOORRAAD
+ If _zijkantZijkantVoorraadRepository.zijnErVoorraadItems Then
+ Return ItemType.Voorraad
End If
Return specialLadenRep.typeLade
End Function
@@ -605,22 +605,22 @@
Public Sub verdeelOverReworkTrays()
Dim typeLade As ItemType = specialLadenRep.typeLade
If Not specialLadenRep.zijnErSpecialLaden Then
- If voorraadRepository.zijnErVoorraadItems Then
- typeLade = ItemType.VOORRAAD
+ If _zijkantZijkantVoorraadRepository.zijnErVoorraadItems Then
+ typeLade = ItemType.Voorraad
Else
Throw New Exception("Er zijn geen special laden voor verwerking aanwezig")
End If
End If
Try
Select Case typeLade
- Case ItemType.VOORRAAD
- For Each voorraadItem As VoorraadItem In voorraadRepository.voorraadItems
- voorraadItem.genereerZijkantArdisData()
+ Case ItemType.Voorraad
+ For Each voorraadItem As ZijkantVoorraadItem In _zijkantZijkantVoorraadRepository.voorraadItems
+ voorraadItem.GenereerZijkantArdisData()
Next
- verdeelVoorraadItemsOverTrays()
- For Each voorraadItem As VoorraadItem In voorraadRepository.voorraadItems
- voorraadItem.genereerZijkantAutomillingData()
- voorraadItem.genereerZijkantKantenbandDatas()
+ verdeelZijkantVoorraadItemsOverTrays()
+ For Each voorraadItem As ZijkantVoorraadItem In _zijkantZijkantVoorraadRepository.voorraadItems
+ voorraadItem.GenereerZijkantAutomillingData()
+ voorraadItem.GenereerZijkantKantenbandDatas()
Next
Case Else
specialLadenRep.verwijderSpecialLaden()
@@ -638,29 +638,29 @@
Public Sub verwerkSpecialLaden()
Dim typeLade As ItemType = specialLadenRep.typeLade
If Not specialLadenRep.zijnErSpecialLaden Then
- If voorraadRepository.zijnErVoorraadItems Then
- typeLade = ItemType.VOORRAAD
+ If _zijkantZijkantVoorraadRepository.zijnErVoorraadItems Then
+ typeLade = ItemType.Voorraad
Else
Throw New Exception("Er zijn geen special laden voor verwerking aanwezig")
End If
End If
Try
Select Case typeLade
- Case ItemType.VOORRAAD
- slaVoorraadItemsOp()
- Case ItemType.DIEPEREZIJKANT
+ Case ItemType.Voorraad
+ slaZijkantVoorraadItemsOp()
+ Case ItemType.DiepereZijkant
specialLadenRep.updateDataSpecialLaden()
slaSpecialLadenDiepereZijkantOp()
specialLadenRep.verwijderSpecialLaden()
- Case ItemType.HOGEREZIJKANT
+ Case ItemType.HogereZijkant
specialLadenRep.updateDataSpecialLaden()
slaSpecialLadenHogereZijkantOp()
specialLadenRep.verwijderSpecialLaden()
- Case ItemType.NIEUWEKLEUR
+ Case ItemType.NieuweKleur
specialLadenRep.updateDataSpecialLaden()
slaSpecialLadenNieuweKleurOp()
specialLadenRep.verwijderSpecialLaden()
- Case ItemType.GEEN
+ Case ItemType.Geen
specialLadenRep.verwijderSpecialLaden()
reworkTrayRep.verwijderReworkTraysSpecialLade()
Throw New Exception("Er zijn geen special laden om te verwerken")
@@ -769,7 +769,7 @@
zijkantenList.AddRange(zijkanten)
'4 plankjes worden 2 plankjes in 1 slot
Do While zijkantenList.Count > 0
- Dim reworkTray As New ReworkTray(reworkTrayslotRep.slots)
+ Dim reworkTray As New ReworkTray(reworkTrayslotRep.Slots)
Do While zijkantenList.Count > 0
If Not reworkTray.parenVol Then
'twee plankjes, de originelen
@@ -791,56 +791,58 @@
#Region "voorraad"
Public Function geefVoorraadDieptes() As List(Of String)
- Return voorraadRepository.dieptes
+ Return Configs.voorraadDieptes
End Function
Public Function geefVoorraadHoogtes() As List(Of String)
- Return voorraadRepository.hoogtes
+ Return Configs.voorraadHoogteLetters
End Function
Public Function geefVoorraadKleuren() As List(Of String)
- Return voorraadRepository.kleuren
+ Return Configs.voorraadKleuren
End Function
- Public Sub voegVoorraadItemToe(label As String, linksOfRechts As LinksOfRechts, diepte As String, hoogte As String, kantenband As String, kleurBinnen As String, kleurBuiten As String, isSifonlade As Boolean)
- Dim voorraadItem As VoorraadItem = New VoorraadItem(label, linksOfRechts, diepte, hoogte, kantenband, kleurBinnen, kleurBuiten, isSifonlade)
- voorraadRepository.voegVoorraadItemToe(voorraadItem)
+#Region "voorraad zijkanten"
+
+ Public Sub voegZijkantVoorraadItemToe(label As String, linksOfRechts As LinksOfRechts, diepte As String, hoogte As String, kantenband As String, kleurBinnen As String, kleurBuiten As String, isSifonlade As Boolean)
+ Dim zijkantVoorraadItem As ZijkantVoorraadItem = New ZijkantVoorraadItem(label, linksOfRechts, diepte, hoogte, kantenband, kleurBinnen, kleurBuiten, isSifonlade)
+ _zijkantZijkantVoorraadRepository.voegVoorraadItemToe(zijkantVoorraadItem)
End Sub
- Public Function geefVoorraadItems() As IEnumerable(Of IVoorraadItem)
- Return voorraadRepository.voorraadItems()
+ Public Function geefZijkantVoorraadItems() As IEnumerable(Of IZijkantVoorraadItem)
+ Return _zijkantZijkantVoorraadRepository.voorraadItems()
End Function
- Public Sub verwijderVoorraadItem(voorraadItem As IVoorraadItem)
- If voorraadRepository.voorraadItems.Count <= 0 Then
+ Public Sub verwijderZijkantVoorraadItem(zijkantVoorraadItem As IZijkantVoorraadItem)
+ If _zijkantZijkantVoorraadRepository.voorraadItems.Count <= 0 Then
Throw New Exception("Voorraad item kan niet worden verwijderd als er geen voorraad items aanwezig zijn")
End If
- voorraadRepository.verwijderVoorraadItem(voorraadItem)
+ _zijkantZijkantVoorraadRepository.verwijderVoorraadItem(zijkantVoorraadItem)
End Sub
- Public Sub verwijderVolledigeVoorraad()
- voorraadRepository.verwijderVolledigeVoorraad()
+ Public Sub verwijderVolledigeZijkantVoorraad()
+ _zijkantZijkantVoorraadRepository.verwijderVolledigeVoorraad()
End Sub
- Private Sub verdeelVoorraadItemsOverTrays()
- Dim voorraadItems As List(Of VoorraadItem) = voorraadRepository.voorraadItems
+ Private Sub verdeelZijkantVoorraadItemsOverTrays()
+ Dim voorraadItems As List(Of ZijkantVoorraadItem) = _zijkantZijkantVoorraadRepository.voorraadItems
- Dim paren As List(Of VoorraadItem()) = New List(Of VoorraadItem())
- Dim enkele As List(Of VoorraadItem) = New List(Of VoorraadItem)
+ Dim paren As List(Of ZijkantVoorraadItem()) = New List(Of ZijkantVoorraadItem())
+ Dim enkele As List(Of ZijkantVoorraadItem) = New List(Of ZijkantVoorraadItem)
Dim gevonden As Boolean = False
Do While voorraadItems.Count > 0
gevonden = False
- Dim templateToCheck As VoorraadItem = voorraadItems(0) 'eerste van de lijst
+ Dim templateToCheck As ZijkantVoorraadItem = voorraadItems(0) 'eerste van de lijst
voorraadItems.RemoveAt(0)
For index As Integer = 0 To voorraadItems.Count - 1
'waarden controleren
- Dim instanceToCheck As VoorraadItem = voorraadItems(index)
- If (templateToCheck.diepte.Equals(instanceToCheck.diepte)) And (templateToCheck.hoogte.Equals(instanceToCheck.hoogte)) Then
- templateToCheck.partnerInSlot = instanceToCheck
- instanceToCheck.partnerInSlot = templateToCheck
- instanceToCheck.isTweedeVanPaar = True
+ Dim instanceToCheck As ZijkantVoorraadItem = voorraadItems(index)
+ If (templateToCheck.Diepte.Equals(instanceToCheck.Diepte)) And (templateToCheck.Hoogte.Equals(instanceToCheck.Hoogte)) Then
+ templateToCheck.PartnerInSlot = instanceToCheck
+ instanceToCheck.PartnerInSlot = templateToCheck
+ instanceToCheck.IsTweedeVanPaar = True
paren.Add({templateToCheck, instanceToCheck})
voorraadItems.RemoveAt(index)
gevonden = True
@@ -853,15 +855,15 @@
Loop
Do While paren.Count > 0 Or enkele.Count > 0
- Dim reworkTray As New ReworkTray(reworkTrayslotRep.slots)
+ Dim reworkTray As New ReworkTray(reworkTrayslotRep.Slots)
Do While paren.Count > 0
If Not reworkTray.parenVol Then
- Dim paar As VoorraadItem() = paren(0)
+ Dim paar As ZijkantVoorraadItem() = paren(0)
Dim zijkanten As New List(Of ArdisData)
- zijkanten.Add(paar(0).zijkantArdisDatas()(0)) 'eerste plankje nemen van de zijkant van de eerste van het paar
- zijkanten.Add(paar(0).zijkantArdisDatas()(1)) 'tweede plankje nemen van de zijkant van de eerste van het paar
- zijkanten.Add(paar(1).zijkantArdisDatas()(0)) 'eerste plankje nemen van de zijkant van de tweede van het paar
- zijkanten.Add(paar(1).zijkantArdisDatas()(1)) 'tweede plankje nemen van de zijkant van de tweede van het paar
+ zijkanten.Add(paar(0).ZijkantArdisDatas()(0)) 'eerste plankje nemen van de zijkant van de eerste van het paar
+ zijkanten.Add(paar(0).ZijkantArdisDatas()(1)) 'tweede plankje nemen van de zijkant van de eerste van het paar
+ zijkanten.Add(paar(1).ZijkantArdisDatas()(0)) 'eerste plankje nemen van de zijkant van de tweede van het paar
+ zijkanten.Add(paar(1).ZijkantArdisDatas()(1)) 'tweede plankje nemen van de zijkant van de tweede van het paar
reworkTray.voegPaarToe(zijkanten)
paren.RemoveAt(0)
Else
@@ -870,10 +872,10 @@
Loop
Do While enkele.Count > 0
If Not reworkTray.enkelVol Then
- Dim enkel As VoorraadItem = enkele(0)
+ Dim enkel As ZijkantVoorraadItem = enkele(0)
Dim zijkanten As New List(Of ArdisData)
- zijkanten.Add(enkel.zijkantArdisDatas()(0))
- zijkanten.Add(enkel.zijkantArdisDatas()(1)) 'eerste plankje nemen van de zijkant
+ zijkanten.Add(enkel.ZijkantArdisDatas()(0))
+ zijkanten.Add(enkel.ZijkantArdisDatas()(1)) 'eerste plankje nemen van de zijkant
reworkTray.voegEnkelToe(zijkanten)
enkele.RemoveAt(0)
Else
@@ -885,14 +887,26 @@
Loop
End Sub
- Private Sub slaVoorraadItemsOp()
- For Each voorraadItem As VoorraadItem In voorraadRepository.voorraadItems
- HoofdAansturingVoorraad.opslaanVoorraadItem(voorraadItem)
+ Private Sub slaZijkantVoorraadItemsOp()
+ For Each voorraadItem As ZijkantVoorraadItem In _zijkantZijkantVoorraadRepository.voorraadItems
+ HoofdAansturingZijkantVoorraad.OpslaanVoorraadItem(voorraadItem)
Next
End Sub
+#End Region
+#Region "voorraad fronten"
+ '''
+ ''' Maak de verschillende voorraad items aan.
+ ''' Genereer de verschillende data's
+ ''' Laat verwerken
+ '''
+ public sub produceerFrontenVoorraad()
+
+ End sub
#End Region
+#End Region
+
#Region "stalen"
Public Function geefStaalKleuren() As List(Of String)
Return stalenRepository.staalKleuren
FishEye: Tag 1900 refers to a dead (removed) revision in file `TAOR rework/TAOR rework/Voorraad/VoorraadItemRepository.vb'.
FishEye: No comparison available. Pass `N' to diff?
Index: TAOR rework/TAOR rework/Voorraad/fronten/FrontenVoorraadItemRepository.vb
===================================================================
diff -u
--- TAOR rework/TAOR rework/Voorraad/fronten/FrontenVoorraadItemRepository.vb (revision 0)
+++ TAOR rework/TAOR rework/Voorraad/fronten/FrontenVoorraadItemRepository.vb (revision 1900)
@@ -0,0 +1,38 @@
+Public Class FrontenVoorraadItemRepository
+ Private _voorraadItems As List(Of ZijkantVoorraadItem)
+
+ Public Sub New()
+ _voorraadItems = New List(Of ZijkantVoorraadItem)
+ End Sub
+
+#Region "properties"
+ Public ReadOnly Property voorraadItems As List(Of ZijkantVoorraadItem)
+ Get
+ Return New List(Of ZijkantVoorraadItem)(_voorraadItems)
+ End Get
+ End Property
+
+ Public ReadOnly Property zijnErVoorraadItems() As Boolean
+ Get
+ If _voorraadItems.Count <= 0 Then
+ Return False
+ End If
+ Return True
+ End Get
+ End Property
+#End Region
+
+ Public Sub voegVoorraadItemToe(zijkantVoorraad As ZijkantVoorraadItem)
+ _voorraadItems.Add(zijkantVoorraad)
+ End Sub
+
+ Public Sub verwijderVoorraadItem(zijkantVoorraadItem As IZijkantVoorraadItem)
+ _voorraadItems.Remove(zijkantVoorraadItem)
+ End Sub
+
+ Public Sub verwijderVolledigeVoorraad()
+ _voorraadItems = Nothing
+ _voorraadItems = New List(Of ZijkantVoorraadItem)
+ End Sub
+
+End Class
Index: TAOR rework/TAOR rework/Voorraad/zijkanten/IZijkantVoorraadItem.vb
===================================================================
diff -u
--- TAOR rework/TAOR rework/Voorraad/zijkanten/IZijkantVoorraadItem.vb (revision 0)
+++ TAOR rework/TAOR rework/Voorraad/zijkanten/IZijkantVoorraadItem.vb (revision 1900)
@@ -0,0 +1,10 @@
+Public Interface IZijkantVoorraadItem
+ ReadOnly Property Label As String
+ ReadOnly Property LinksOfRechts As LinksOfRechts
+ ReadOnly Property Diepte As String
+ ReadOnly Property Hoogte As String
+ ReadOnly Property Kantenband As String
+ ReadOnly Property KleurBinnen As String
+ ReadOnly Property KleurBuiten As String
+ ReadOnly Property IsSifonlade As Boolean
+End Interface
\ No newline at end of file
Index: TAOR rework/TAOR rework/formulieren/FormReworkTrayPrinter.vb
===================================================================
diff -u -r1879 -r1900
--- TAOR rework/TAOR rework/formulieren/FormReworkTrayPrinter.vb (.../FormReworkTrayPrinter.vb) (revision 1879)
+++ TAOR rework/TAOR rework/formulieren/FormReworkTrayPrinter.vb (.../FormReworkTrayPrinter.vb) (revision 1900)
@@ -238,7 +238,7 @@
Domeincontroller.getInstance.verwijderAlleReworks()
Domeincontroller.getInstance.verwijderAlleSpecialLaden()
Domeincontroller.getInstance.verwijderReworkTrays()
- Domeincontroller.getInstance.verwijderVolledigeVoorraad()
+ Domeincontroller.getInstance.verwijderVolledigeZijkantVoorraad()
Else
SifonLadeController.GetInstance().WisSifonladen()
End If
Index: TAOR rework/TAOR rework/Voorraad/zijkanten/HoofdAansturingZijkantVoorraad.vb
===================================================================
diff -u
--- TAOR rework/TAOR rework/Voorraad/zijkanten/HoofdAansturingZijkantVoorraad.vb (revision 0)
+++ TAOR rework/TAOR rework/Voorraad/zijkanten/HoofdAansturingZijkantVoorraad.vb (revision 1900)
@@ -0,0 +1,44 @@
+Module HoofdAansturingZijkantVoorraad
+
+ '''
+ ''' Opslaan van zijkantVoorraad item in de verschillende databanken.
+ '''
+ '''
+ Public Sub OpslaanVoorraadItem(zijkantVoorraad As ZijkantVoorraadItem)
+ 'Enkel eerste plaatje.
+ If Not zijkantVoorraad.isTweedeVanPaar Then
+ 'Automilling.
+ slaOpInAutomilling(zijkantVoorraad.zijkantAutomillingData)
+ 'Kantenband
+ For Each zijkantKantenbandData In zijkantVoorraad.zijkantKantenbandDatas
+ If Not zijkantKantenbandData Is Nothing Then
+ slaOpInKantenband(zijkantKantenbandData)
+ End If
+ Next
+ End If
+
+ 'Alles opslaan in Ardis (als laatste, want dit eet de $$$).
+ For Each zijkant As ArdisData In zijkantVoorraad.zijkantArdisDatas
+ slaOpInArdis(zijkant)
+ Next
+ End Sub
+
+ Private Sub SlaOpInAutomilling(zijkamerFreesProductieData As ZijkamerFreesProductieData)
+ If Configs.geefVerwerkStatus Then
+ AutomillingMapper.opslaan(zijkamerFreesProductieData)
+ End If
+ End Sub
+
+ Private Sub SlaOpInKantenband(zijkantKantenbandData As KantenbandData)
+ If Configs.geefVerwerkStatus Then
+ KantenbandMapper.Opslaan(zijkantKantenbandData)
+ End If
+ End Sub
+
+ Private Sub SlaOpInArdis(onderdeel As ArdisData)
+ If Configs.geefVerwerkStatus Then
+ ArdisTextMapper.opslaan(ItemType.VOORRAAD, onderdeel, "", "")
+ End If
+ End Sub
+
+End Module
Index: TAOR rework/TAOR rework/TAOR rework.vbproj
===================================================================
diff -u -r1897 -r1900
--- TAOR rework/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1897)
+++ TAOR rework/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1900)
@@ -321,10 +321,10 @@
-
-
-
-
+
+
+
+
Index: TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItemRepository.vb
===================================================================
diff -u
--- TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItemRepository.vb (revision 0)
+++ TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItemRepository.vb (revision 1900)
@@ -0,0 +1,38 @@
+Public Class ZijkantVoorraadItemRepository
+ Private _voorraadItems As List(Of ZijkantVoorraadItem)
+
+ Public Sub New()
+ _voorraadItems = New List(Of ZijkantVoorraadItem)
+ End Sub
+
+#Region "properties"
+ Public ReadOnly Property voorraadItems As List(Of ZijkantVoorraadItem)
+ Get
+ Return New List(Of ZijkantVoorraadItem)(_voorraadItems)
+ End Get
+ End Property
+
+ Public ReadOnly Property zijnErVoorraadItems() As Boolean
+ Get
+ If _voorraadItems.Count <= 0 Then
+ Return False
+ End If
+ Return True
+ End Get
+ End Property
+#End Region
+
+ Public Sub voegVoorraadItemToe(zijkantVoorraad As ZijkantVoorraadItem)
+ _voorraadItems.Add(zijkantVoorraad)
+ End Sub
+
+ Public Sub verwijderVoorraadItem(zijkantVoorraadItem As IZijkantVoorraadItem)
+ _voorraadItems.Remove(zijkantVoorraadItem)
+ End Sub
+
+ Public Sub verwijderVolledigeVoorraad()
+ _voorraadItems = Nothing
+ _voorraadItems = New List(Of ZijkantVoorraadItem)
+ End Sub
+
+End Class
Index: TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb
===================================================================
diff -u
--- TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb (revision 0)
+++ TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb (revision 1900)
@@ -0,0 +1,134 @@
+Public Class ZijkantVoorraadItem
+ Implements IZijkantVoorraadItem
+
+ Public Sub New(label As String, linksOfRechts As LinksOfRechts, diepte As String, hoogte As String, kantenband As String, kleurBinnen As String, kleurBuiten As String, isSifonlade As Boolean)
+ Me.Label = label
+ Me.LinksOfRechts = linksOfRechts
+ Me.Diepte = diepte
+ Me.Hoogte = hoogte
+ Me.Kantenband = kantenband
+ Me.KleurBinnen = kleurBinnen
+ Me.KleurBuiten = kleurBuiten
+ Me.IsSifonlade = isSifonlade
+ End Sub
+
+#Region "properties"
+
+ Public Property PartnerInSlot() As ZijkantVoorraadItem
+
+ Private _zijkantArdisDatas As ArdisData()
+ Public ReadOnly Property ZijkantArdisDatas() As ArdisData()
+ Get
+ If _zijkantArdisDatas Is Nothing Then
+ Throw New Exception("De zijkant Ardis datas zijn nog niet gegenereerd.")
+ End If
+ Return _zijkantArdisDatas
+ End Get
+ End Property
+
+ Private _zijkantAutomillingData As ZijkamerFreesProductieData
+ Public ReadOnly Property ZijkantAutomillingData() As ZijkamerFreesProductieData
+ Get
+ If _zijkantAutomillingData Is Nothing Then
+ Throw New Exception("De zijkant zijkantAutomillingData data is nog niet gegenereerd.")
+ End If
+ Return _zijkantAutomillingData
+ End Get
+ End Property
+
+ Private _zijkantKantenbandDatas As KantenbandData()
+ Public ReadOnly Property ZijkantKantenbandDatas() As KantenbandData()
+ Get
+ If _zijkantKantenbandDatas Is Nothing Then
+ Throw New Exception("De zijkant KantenbandData data is nog niet gegenereerd.")
+ End If
+ Return _zijkantKantenbandDatas
+ End Get
+ End Property
+
+ Private _label As String
+ Public Property Label() As String Implements IZijkantVoorraadItem.Label
+ Get
+ Return _label
+ End Get
+ Set
+ If String.IsNullOrEmpty(Value) OrElse String.IsNullOrEmpty(Value.Trim) Then
+ Throw New Exception("Label tekst mag niet leeg zijn.")
+ End If
+ _label = Value.Trim
+ End Set
+ End Property
+
+ Public Property LinksOfRechts As LinksOfRechts Implements IZijkantVoorraadItem.LinksOfRechts
+
+ Public Property Diepte As String Implements IZijkantVoorraadItem.Diepte
+
+ Public Property Hoogte As String Implements IZijkantVoorraadItem.Hoogte
+
+ Public Property Kantenband As String Implements IZijkantVoorraadItem.Kantenband
+
+ Public Property KleurBinnen As String Implements IZijkantVoorraadItem.KleurBinnen
+
+ Public Property KleurBuiten As String Implements IZijkantVoorraadItem.KleurBuiten
+
+ Public Property IsSifonlade As Boolean Implements IZijkantVoorraadItem.IsSifonlade
+
+ Property IsTweedeVanPaar As Boolean
+
+#End Region
+
+ Public Sub GenereerZijkantArdisData()
+ If _zijkantArdisDatas Is Nothing Then
+ Dim ardisDataBinnen As New ArdisData
+ Dim ardisDataBuiten As New ArdisData
+
+ ardisDataBinnen.voorraadStelInitieleWaardenIn(Me, true)
+ ardisDataBinnen.voorraadGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(), IsSifonlade)
+
+ ardisDataBuiten.voorraadStelInitieleWaardenIn(Me,false)
+ ardisDataBuiten.voorraadGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(), IsSifonlade)
+
+ ardisDataBinnen.updateKommasNaarPunten()
+ ardisDataBuiten.updateKommasNaarPunten()
+
+ _zijkantArdisDatas = ({ardisDataBinnen, ardisDataBuiten})
+ End If
+ End Sub
+
+ Public Sub GenereerZijkantAutomillingData()
+ If _zijkantAutomillingData Is Nothing Then
+ Dim zijkantA As ArdisData = ZijkantArdisDatas(0)
+
+ Dim zijkamerfreesProductieData As New ZijkamerFreesProductieData
+ If PartnerInSlot Is Nothing Then
+ zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, Me,zijkantA.PartCalc)
+ zijkamerfreesProductieData.voorraadStelProgrammasInZonderPartner(Hoogte)
+ Else
+ zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, Me, zijkantA.PartCalc, PartnerInSlot.ZijkantArdisDatas(0).PartCalc)
+ zijkamerfreesProductieData.voorraadStelProgrammasInMetPartner(LinksOfRechts, PartnerInSlot.LinksOfRechts, Hoogte)
+ End If
+
+ _zijkantAutomillingData = zijkamerfreesProductieData
+ End If
+ End Sub
+
+ Public Sub GenereerZijkantKantenbandDatas()
+ If _zijkantKantenbandDatas Is Nothing And Not IsTweedeVanPaar Then ' de kantenbanddata's wordt door 1 van de twee van het paar afgehandeld
+ Dim zijkantA = ZijkantArdisDatas(0)
+ Dim kantenbandDataA As New KantenbandData
+ kantenbandDataA.voorraadStelInitieleWaardenIn(zijkantA.PartMat, zijkantA.PartCalc, Diepte, Hoogte, Kantenband)
+
+ Dim kantenbandDataB As KantenbandData
+ If Not PartnerInSlot Is Nothing Then
+ Dim zijkantB = PartnerInSlot.ZijkantArdisDatas(0)
+ kantenbandDataB = New KantenbandData
+ kantenbandDataB.voorraadStelInitieleWaardenIn(zijkantB.PartMat, zijkantB.PartCalc, Diepte, Hoogte, Kantenband)
+ Else
+ kantenbandDataB = Nothing
+ End If
+
+ _zijkantKantenbandDatas = ({kantenbandDataA, kantenbandDataB})
+ End If
+ End Sub
+
+End Class
Index: TAOR rework/TAOR rework/Voorraad/fronten/IFrontVoorraadItem.vb
===================================================================
diff -u
--- TAOR rework/TAOR rework/Voorraad/fronten/IFrontVoorraadItem.vb (revision 0)
+++ TAOR rework/TAOR rework/Voorraad/fronten/IFrontVoorraadItem.vb (revision 1900)
@@ -0,0 +1,3 @@
+Public Interface IFrontVoorraadItem
+
+End Interface
\ No newline at end of file
FishEye: Tag 1900 refers to a dead (removed) revision in file `TAOR rework/TAOR rework/Voorraad/HoofdAansturingVoorraad.vb'.
FishEye: No comparison available. Pass `N' to diff?
Index: TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1889 -r1900
--- TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1889)
+++ TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1900)
@@ -566,7 +566,7 @@
Return GeefKleurBinnen() & "-" & zijkantB.GeefKleurBinnen & "-" & andereZijkantA.GeefKleurBinnen & "-" & andereZijkantB.GeefKleurBinnen
End Function
- Public Sub voorraadStelInitieleWaardenIn(vItem As IVoorraadItem, isBinnen As Boolean)
+ Public Sub voorraadStelInitieleWaardenIn(vItem As IZijkantVoorraadItem, isBinnen As Boolean)
PartRef = "Zijkantplaat" 'rol/onderdeel
PartQty = "1" 'aantal
PartMat = "WORDT VERVANGEN" 'plaatmateriaal"
Index: TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb
===================================================================
diff -u
--- TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb (revision 0)
+++ TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb (revision 1900)
@@ -0,0 +1,12 @@
+Public Class FrontVoorraadItem
+ Implements IFrontVoorraadItem
+
+#Region "properties"
+
+#End Region
+
+ Public Sub GenereerZijkantArdisData()
+
+ End Sub
+
+End Class