Index: TAOR-rework-bugfixing/TAOR rework/formulieren/FormReworkTrayPrinter.vb =================================================================== diff -u -r1607 -r1626 --- TAOR-rework-bugfixing/TAOR rework/formulieren/FormReworkTrayPrinter.vb (.../FormReworkTrayPrinter.vb) (revision 1607) +++ TAOR-rework-bugfixing/TAOR rework/formulieren/FormReworkTrayPrinter.vb (.../FormReworkTrayPrinter.vb) (revision 1626) @@ -66,7 +66,7 @@ Case ItemType.SIFONLADE typelade = "sifon lade" reworkTrayNummer = Domeincontroller.getInstance.geefSpecialLadeReworkTrayNummer(_nummerTray - 1) - Case ItemType.SPOELBAKLADE + Case ItemType.DUBBELESIFONLADE typelade = "spoelbak lade" reworkTrayNummer = Domeincontroller.getInstance.geefSpecialLadeReworkTrayNummer(_nummerTray - 1) Case ItemType.VOORRAAD @@ -79,7 +79,7 @@ typelade = "rework" reworkTrayNummer = Domeincontroller.getInstance.geefReworkTrayNummer(_nummerTray - 1) Case Else - Throw New Exception("Het type: " & EnumMapper.geefWaardeBijEnumValue(Domeincontroller.getInstance.geefTypeInReworkTray) & " kon niet gebruikt worden voor tray printer te visualiseren") + Throw New Exception("Het type: " & EnumMapper.GeefTekstVanEnumOptie(Domeincontroller.getInstance.geefTypeInReworkTray) & " kon niet gebruikt worden voor tray printer te visualiseren") End Select _builder.AppendLine("Rework tray " & reworkTrayNummer & " | " & typelade) _builder.AppendLine() @@ -141,14 +141,14 @@ Private Sub verwerkDeItems() 'verwerken, onderscheid tussen reworks en special laden Select Case Domeincontroller.getInstance.geefTypeInReworkTray - Case ItemType.SIFONLADE, ItemType.SPOELBAKLADE, ItemType.VOORRAAD + Case ItemType.SIFONLADE, ItemType.DUBBELESIFONLADE, ItemType.VOORRAAD Domeincontroller.getInstance.verwerkSpecialLaden() Case ItemType.REWORK Domeincontroller.getInstance.verwerkReworks() Case ItemType.TESTLADE Domeincontroller.getInstance.verwerkTestLaden() Case Else - Throw New Exception("Het type: " & EnumMapper.geefWaardeBijEnumValue(Domeincontroller.getInstance.geefTypeInReworkTray) & " kon niet gebruikt worden voor te verwerken") + Throw New Exception("Het type: " & EnumMapper.GeefTekstVanEnumOptie(Domeincontroller.getInstance.geefTypeInReworkTray) & " kon niet gebruikt worden voor te verwerken") End Select End Sub @@ -157,12 +157,12 @@ For _nummerTray = 1 To _aantalTrays vulBuilderMetInfo(_nummerTray - 1) Select Case Domeincontroller.getInstance.geefTypeInReworkTray - Case ItemType.SIFONLADE, ItemType.SPOELBAKLADE, ItemType.VOORRAAD, ItemType.TESTLADE + Case ItemType.SIFONLADE, ItemType.DUBBELESIFONLADE, ItemType.VOORRAAD, ItemType.TESTLADE PrinterBacklogDocMapper.addPrinterBacklogDoc(Domeincontroller.getInstance.geefSpecialLadeReworkTrayNummer(_nummerTray - 1), _builder.ToString(), True) Case ItemType.REWORK PrinterBacklogDocMapper.addPrinterBacklogDoc(Domeincontroller.getInstance.geefReworkTrayNummer(_nummerTray - 1), _builder.ToString(), False) Case Else - Throw New Exception("Het type: " & EnumMapper.geefWaardeBijEnumValue(Domeincontroller.getInstance.geefTypeInReworkTray) & " kon niet gebruikt worden voor opslag backlog") + Throw New Exception("Het type: " & EnumMapper.GeefTekstVanEnumOptie(Domeincontroller.getInstance.geefTypeInReworkTray) & " kon niet gebruikt worden voor opslag backlog") End Select Next End Sub @@ -180,7 +180,7 @@ 'de afbeeldingen tekenen op de textbox If Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SIFONLADE Then tekenAfbeeldingMetInfoOpSchermSifonLade() - ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SPOELBAKLADE Then + ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.DUBBELESIFONLADE Then tekenAfbeeldingMetInfoOpSchermSpoelbakLade() End If Catch ex As Exception @@ -250,7 +250,7 @@ 'de afbeelding tekenen met waarden tekenen op het document If Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SIFONLADE Then tekenAfbeeldingMetInfoVoorPrinterSifonLade(e) - ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SPOELBAKLADE Then + ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.DUBBELESIFONLADE Then tekenAfbeeldingMetInfoVoorPrinterSpoelbakLade(e) End If 'e.HasMorePages = _aantalTrays > 1 Index: TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb =================================================================== diff -u -r1614 -r1626 --- TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb (.../CacheMapper.vb) (revision 1614) +++ TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb (.../CacheMapper.vb) (revision 1626) @@ -93,7 +93,7 @@ ''' Een optionele filter ''' Private Function GetDataReader(kolom As Kolommen, waarde As String, Optional filter As String = Nothing) As OdbcDataReader - LogBestandTextMapper.writeToFile("Caché", $"Opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.geefWaardeBijEnumValue(kolom)}' '{waarde}' '{filter}'") + LogBestandTextMapper.writeToFile("Caché", $"Opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.GeefTekstVanEnumOptie(kolom)}' '{waarde}' '{filter}'") Try Dim kolomnaam As String = EnumMapper.geefCacheKolomNaamBijKolom(kolom) Dim equalsOfLikeSleutelwoord As String @@ -120,10 +120,10 @@ 'Uitvoeren van query en datareader retourneren. Dim dr = ExecuteIntoDataReader(query) - LogBestandTextMapper.writeToFile("Caché", $"Opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.geefWaardeBijEnumValue(kolom)}' '{waarde}' '{filter}'", True) + LogBestandTextMapper.writeToFile("Caché", $"Opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.GeefTekstVanEnumOptie(kolom)}' '{waarde}' '{filter}'", True) Return dr Catch ex As Exception - Throw New Exception($"Fout bij opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.geefWaardeBijEnumValue(kolom)}' '{waarde}' '{filter}'{vbNewLine}{ex.Message}") + Throw New Exception($"Fout bij opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.GeefTekstVanEnumOptie(kolom)}' '{waarde}' '{filter}'{vbNewLine}{ex.Message}") End Try End Function Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/SpecialLadenRepository.vb =================================================================== diff -u -r1596 -r1626 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/SpecialLadenRepository.vb (.../SpecialLadenRepository.vb) (revision 1596) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/SpecialLadenRepository.vb (.../SpecialLadenRepository.vb) (revision 1626) @@ -297,7 +297,7 @@ Case ItemType.SIFONLADE specialLade = New SifonLade _sifonLaden.Add(specialLade) - Case ItemType.SPOELBAKLADE + Case ItemType.DUBBELESIFONLADE specialLade = New SpoelbakLade _spoelbakLaden.Add(specialLade) Case ItemType.DIEPEREZIJKANT Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb =================================================================== diff -u -r1625 -r1626 --- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb (.../FormSifonLade.vb) (revision 1625) +++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb (.../FormSifonLade.vb) (revision 1626) @@ -2,34 +2,47 @@ Public Class FormSifonLade - Private Sub btnTerug_Click(sender As System.Object, e As System.EventArgs) Handles TerugButton.Click + Private Sub TerugButton_Click(sender As Object, e As EventArgs) Handles TerugButton.Click + 'Terug naar vorige form. FormController.getInstance.laadFormSpecialMenu(Me) End Sub - Private Sub btnZoek_Click(sender As System.Object, e As System.EventArgs) Handles ZoekButton.Click - toonInformatie() +#Region "Opzoeken" + + Private Sub TextBoxLadeCode_TextChanged(sender As System.Object, e As System.EventArgs) Handles LadeCodeTextBox.TextChanged + 'Controleren of de input tekst niet leeg is. + If Not String.IsNullOrEmpty(LadeCodeTextBox.Text.Trim()) Then + 'Tekst is niet leeg, kan zoeken. + ZoekButton.Enabled = True + Else + 'Tekst is leeg, kan niet zoeken. + ZoekButton.Enabled = False + End If End Sub - '"enter" die in de textbox wordt ingevoerd wordt vervangen door een tab, maar doet hetzelfde alsof er op de knop wordt gedrukt + 'Enter drukken in de Ladecode input textbox zoekt ook. Private Sub textBoxInput_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles LadeCodeTextBox.KeyDown + '"enter" onderscheppen. If e.KeyCode = Keys.Enter Then + 'Informatie tonen. toonInformatie() + 'Zorgen dat er geen nieuwe lijn wordt geplaatst door de "enter" te negeren. e.Handled = True End If End Sub - Private Sub TextBoxLadeCode_TextChanged(sender As System.Object, e As System.EventArgs) Handles LadeCodeTextBox.TextChanged - If Not LadeCodeTextBox.Text.Equals("") Then - ZoekButton.Enabled = True - Else - ZoekButton.Enabled = False - End If + Private Sub ZoekButton_Click(sender As Object, e As EventArgs) Handles ZoekButton.Click + toonInformatie() End Sub +#End Region - Private Sub toonInformatie() + Private Sub ToonInformatie() + 'Velden leegmaken en buttons enable status goedzetten. + resetControls() Try - resetControls() - Domeincontroller.getInstance.kiesSpecialLaden(LadeCodeTextBox.Text, If(radioSifon.Checked, ItemType.SIFONLADE, ItemType.SPOELBAKLADE)) + 'De special lade selecteren aan de hand van de ladecode en het type. + 'Afhankelijk van het type zal de dubbele lade geselecteerd worden. + Domeincontroller.getInstance.kiesSpecialLaden(LadeCodeTextBox.Text, If(DubbelCheckBox.Checked, ItemType.SIFONLADE, ItemType.DUBBELESIFONLADE)) Catch ex As Exception FoutmeldingOpzoekenLabel.Text = ex.Message LadeCodeTextBox.SelectAll() @@ -51,12 +64,12 @@ LblComboBoxDiepte.Visible = True 'informatie opvragen informatie = Domeincontroller.getInstance.geefInformatieSifonLade() - ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SPOELBAKLADE Then + ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.DUBBELESIFONLADE Then informatie = Domeincontroller.getInstance.geefInformatieSpoelbakLade() 'de combobox vullen met de vaste waarden BreedteComboBox.DataSource = Configs.spoelbakLadeBreedteUitsparing Else - Throw New Exception("Het type: " & EnumMapper.geefWaardeBijEnumValue(Domeincontroller.getInstance.geefTypeSpecialLade) & " kon niet gebruikt worden in form special lade") + Throw New Exception("Het type: " & EnumMapper.GeefTekstVanEnumOptie(Domeincontroller.getInstance.geefTypeSpecialLade) & " kon niet gebruikt worden in form special lade") End If FileNameTextBox.Text = informatie(0) LWTextBox.Text = informatie(1) @@ -100,7 +113,7 @@ PanelSifonTekening.Visible = True PanelSpoelbakTekening.Visible = False LblComboBoxDiepte.Visible = True - LblTextBoxRestPositieEnNuttigeRuimte.Text = "Rest positie:" + Label61.Text = "Rest positie:" LblSifonDiepteUitsparing.Text = "" LblSifonBreedteUitsparing.Text = "" LblSifonBreedte.Text = "" @@ -114,7 +127,7 @@ PanelSifonTekening.Visible = False PanelSpoelbakTekening.Visible = True LblComboBoxDiepte.Visible = False - LblTextBoxRestPositieEnNuttigeRuimte.Text = "Nuttige ruimte:" + Label61.Text = "Nuttige ruimte:" LblSpoelbakBreedte.Text = "" LblSpoelbakBreedteUitsparing.Text = "" LblSpoelbakDiepte.Text = "" @@ -195,7 +208,7 @@ LblSifonRest.BackColor = Color.White VerwerkButton.Enabled = True End If - ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SPOELBAKLADE Then 'spoelbaklade is gekozen + ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.DUBBELESIFONLADE Then 'spoelbaklade is gekozen Domeincontroller.getInstance.spoelbakLadeStelBreedteIn(BreedteComboBox.SelectedItem) RestTextBox.Text = Domeincontroller.getInstance.geefNuttigeRuimteZijvakkenSpoelbak() If Not isNumericUpDown Then @@ -217,7 +230,7 @@ VerwerkButton.Enabled = True End If Else - Throw New Exception("Het type: " & EnumMapper.geefWaardeBijEnumValue(Domeincontroller.getInstance.geefTypeSpecialLade) & " kon niet gebruikt worden in form special lade") + Throw New Exception("Het type: " & EnumMapper.GeefTekstVanEnumOptie(Domeincontroller.getInstance.geefTypeSpecialLade) & " kon niet gebruikt worden in form special lade") End If Catch ex As Exception PositieNumericUpDown.BackColor = Color.Firebrick @@ -270,12 +283,12 @@ If Configs.geefVerwerkStatus Then Domeincontroller.getInstance.verplaatsVerwerkteSifonLaden() 'verplaats End If - ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SPOELBAKLADE Then 'spoelbak lade geselecteerd + ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.DUBBELESIFONLADE Then 'spoelbak lade geselecteerd If Configs.geefVerwerkStatus Then Domeincontroller.getInstance.verplaatsVerwerkteSpoelbakLaden() 'verplaats End If Else - Throw New Exception("Het type: " & EnumMapper.geefWaardeBijEnumValue(Domeincontroller.getInstance.geefTypeSpecialLade) & " kon niet verplaatst worden in form special lade") + Throw New Exception("Het type: " & EnumMapper.GeefTekstVanEnumOptie(Domeincontroller.getInstance.geefTypeSpecialLade) & " kon niet verplaatst worden in form special lade") End If If Configs.geefVerwerkStatus Then Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb =================================================================== diff -u -r1625 -r1626 --- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb (.../FormSifonLade.Designer.vb) (revision 1625) +++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb (.../FormSifonLade.Designer.vb) (revision 1626) @@ -38,7 +38,7 @@ Me.RestTextBox = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.LblComboBoxDiepte = New System.Windows.Forms.Label() - Me.LblTextBoxRestPositieEnNuttigeRuimte = New System.Windows.Forms.Label() + Me.Label61 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.KleurBinnenTextBox = New System.Windows.Forms.TextBox() Me.VerwerkButton = New System.Windows.Forms.Button() @@ -64,12 +64,12 @@ Me.BreedteUitsparingComboBox = New System.Windows.Forms.ComboBox() Me.DiepteUitsparingComboBox = New System.Windows.Forms.ComboBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.DiepteUitsparingResetButton = New System.Windows.Forms.Button() + Me.DubbelCheckBox = New System.Windows.Forms.CheckBox() Me.Label13 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() Me.BreedteUitsparingResetButton = New System.Windows.Forms.Button() - Me.DubbelCheckBox = New System.Windows.Forms.CheckBox() - Me.DiepteUitsparingResetButton = New System.Windows.Forms.Button() - Me.Label14 = New System.Windows.Forms.Label() CType(Me.OnderdelenOplijstingDataGridView,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.PositieNumericUpDown,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox1.SuspendLayout @@ -204,15 +204,15 @@ Me.LblComboBoxDiepte.TabIndex = 30 Me.LblComboBoxDiepte.Text = "U1 (diepte):" ' - 'LblTextBoxRestPositieEnNuttigeRuimte + 'Label61 ' - Me.LblTextBoxRestPositieEnNuttigeRuimte.AutoSize = true - Me.LblTextBoxRestPositieEnNuttigeRuimte.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) - Me.LblTextBoxRestPositieEnNuttigeRuimte.Location = New System.Drawing.Point(36, 814) - Me.LblTextBoxRestPositieEnNuttigeRuimte.Name = "LblTextBoxRestPositieEnNuttigeRuimte" - Me.LblTextBoxRestPositieEnNuttigeRuimte.Size = New System.Drawing.Size(168, 31) - Me.LblTextBoxRestPositieEnNuttigeRuimte.TabIndex = 32 - Me.LblTextBoxRestPositieEnNuttigeRuimte.Text = "Rest Positie:" + Me.Label61.AutoSize = true + Me.Label61.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.Label61.Location = New System.Drawing.Point(36, 814) + Me.Label61.Name = "Label61" + Me.Label61.Size = New System.Drawing.Size(168, 31) + Me.Label61.TabIndex = 32 + Me.Label61.Text = "Rest Positie:" ' 'Label8 ' @@ -533,6 +533,35 @@ Me.GroupBox1.TabIndex = 65 Me.GroupBox1.TabStop = false ' + 'Label14 + ' + Me.Label14.AutoSize = true + Me.Label14.Location = New System.Drawing.Point(595, 56) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(86, 31) + Me.Label14.TabIndex = 69 + Me.Label14.Text = "Reset" + ' + 'DiepteUitsparingResetButton + ' + Me.DiepteUitsparingResetButton.Location = New System.Drawing.Point(601, 185) + Me.DiepteUitsparingResetButton.Name = "DiepteUitsparingResetButton" + Me.DiepteUitsparingResetButton.Size = New System.Drawing.Size(68, 68) + Me.DiepteUitsparingResetButton.TabIndex = 68 + Me.DiepteUitsparingResetButton.UseVisualStyleBackColor = true + ' + 'DubbelCheckBox + ' + Me.DubbelCheckBox.AutoSize = true + Me.DubbelCheckBox.Enabled = false + Me.DubbelCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!) + Me.DubbelCheckBox.Location = New System.Drawing.Point(6, 0) + Me.DubbelCheckBox.Name = "DubbelCheckBox" + Me.DubbelCheckBox.Size = New System.Drawing.Size(119, 35) + Me.DubbelCheckBox.TabIndex = 66 + Me.DubbelCheckBox.Text = "Dubbel" + Me.DubbelCheckBox.UseVisualStyleBackColor = true + ' 'Label13 ' Me.Label13.AutoSize = true @@ -559,35 +588,6 @@ Me.BreedteUitsparingResetButton.TabIndex = 65 Me.BreedteUitsparingResetButton.UseVisualStyleBackColor = true ' - 'DubbelCheckBox - ' - Me.DubbelCheckBox.AutoSize = true - Me.DubbelCheckBox.Enabled = false - Me.DubbelCheckBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!) - Me.DubbelCheckBox.Location = New System.Drawing.Point(6, 0) - Me.DubbelCheckBox.Name = "DubbelCheckBox" - Me.DubbelCheckBox.Size = New System.Drawing.Size(119, 35) - Me.DubbelCheckBox.TabIndex = 66 - Me.DubbelCheckBox.Text = "Dubbel" - Me.DubbelCheckBox.UseVisualStyleBackColor = true - ' - 'DiepteUitsparingResetButton - ' - Me.DiepteUitsparingResetButton.Location = New System.Drawing.Point(601, 185) - Me.DiepteUitsparingResetButton.Name = "DiepteUitsparingResetButton" - Me.DiepteUitsparingResetButton.Size = New System.Drawing.Size(68, 68) - Me.DiepteUitsparingResetButton.TabIndex = 68 - Me.DiepteUitsparingResetButton.UseVisualStyleBackColor = true - ' - 'Label14 - ' - Me.Label14.AutoSize = true - Me.Label14.Location = New System.Drawing.Point(595, 56) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(86, 31) - Me.Label14.TabIndex = 69 - Me.Label14.Text = "Reset" - ' 'FormSifonLade ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) @@ -608,7 +608,7 @@ Me.Controls.Add(Me.VerwerkButton) Me.Controls.Add(Me.Label8) Me.Controls.Add(Me.KleurBinnenTextBox) - Me.Controls.Add(Me.LblTextBoxRestPositieEnNuttigeRuimte) + Me.Controls.Add(Me.Label61) Me.Controls.Add(Me.LblComboBoxDiepte) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) @@ -645,7 +645,7 @@ Friend WithEvents RestTextBox As System.Windows.Forms.TextBox Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents LblComboBoxDiepte As System.Windows.Forms.Label - Friend WithEvents LblTextBoxRestPositieEnNuttigeRuimte As System.Windows.Forms.Label + Friend WithEvents Label61 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents KleurBinnenTextBox As System.Windows.Forms.TextBox Friend WithEvents VerwerkButton As System.Windows.Forms.Button Index: TAOR-rework-bugfixing/TAOR rework/Enums.vb =================================================================== diff -u -r1596 -r1626 --- TAOR-rework-bugfixing/TAOR rework/Enums.vb (.../Enums.vb) (revision 1596) +++ TAOR-rework-bugfixing/TAOR rework/Enums.vb (.../Enums.vb) (revision 1626) @@ -1,82 +1,94 @@ Public Enum ItemType - GEEN = 0 - REWORK = 1 - SIFONLADE = 2 - SPOELBAKLADE = 3 - TESTLADE = 4 - STAAL = 5 - VOORRAAD = 6 - DIEPEREZIJKANT = 7 - NIEUWEKLEUR = 8 - HOGEREZIJKANT = 9 + Geen = 0 + Rework = 1 + Sifonlade = 2 + DubbeleSifonlade = 3 + Testlade = 4 + Staal = 5 + Voorraad = 6 + DiepereZijkant = 7 + NieuweKleur = 8 + HogereZijkant = 9 End Enum Public Enum Kolommen - barcode = 0 - batch = 1 - toelevering = 2 - sorteerkar = 3 - klantnaam = 4 - dossierCode = 5 - barcodesVoorraad = 6 - barcodeArdis = 7 + Barcode = 0 + Batch = 1 + Toelevering = 2 + Sorteerkar = 3 + Klantnaam = 4 + DossierCode = 5 + BarcodesVoorraad = 6 + BarcodeArdis = 7 End Enum Public Enum LinksOfRechts - links = 0 - rechts = 1 + Links = 0 + Rechts = 1 End Enum Public Module EnumMapper - Public Function geefArdisTextBijItemType(itemType As ItemType) As String +#Region "ItemType" + Public Function GeefArdisTextBijItemType(itemType As ItemType) As String Select Case itemType - Case TA_OR_rework.ItemType.REWORK + Case ItemType.Rework Return "RW_TAORRW" - Case TA_OR_rework.ItemType.SIFONLADE + Case ItemType.Sifonlade, + ItemType.DubbeleSifonlade, + ItemType.DiepereZijkant, + ItemType.HogereZijkant, + ItemType.NieuweKleur Return "SPECIAL" - Case TA_OR_rework.ItemType.SPOELBAKLADE - Return "SPECIAL" - Case TA_OR_rework.ItemType.DIEPEREZIJKANT - Return "SPECIAL" - Case TA_OR_rework.ItemType.HOGEREZIJKANT - Return "SPECIAL" - Case TA_OR_rework.ItemType.NIEUWEKLEUR - Return "SPECIAL" - Case TA_OR_rework.ItemType.TESTLADE + Case ItemType.Testlade Return "TESTLADE" - Case TA_OR_rework.ItemType.STAAL + Case ItemType.Staal Return "STAAL" - Case TA_OR_rework.ItemType.VOORRAAD + Case ItemType.Voorraad Return "VOORRAAD" Case Else - Throw New Exception("Dit itemType: '" & geefWaardeBijEnumValue(itemType) & "' kan niet worden gebruikt om ArdisText op te vragen") + Throw New Exception($"Dit itemType: '{GeefTekstVanEnumOptie(itemType)}' kan niet worden gebruikt om ArdisText op te vragen.") End Select End Function - Public Function geefCacheKolomNaamBijKolom(kolom As Kolommen) + ''' + ''' De letterlijke tekst opvragen van een enum optie. In uppercase. + ''' + ''' De enum optie + ''' De letterlijke tekst + Public Function GeefTekstVanEnumOptie(itemType As ItemType) As String + Return [Enum].GetName(GetType(ItemType), itemType).ToUpper() + End Function + +#End Region + +#Region "Kolommen" + Public Function GeefCacheKolomNaamBijKolom(kolom As Kolommen) Select Case kolom - Case Kolommen.barcode + Case Kolommen.Barcode Return "verwerkingID" - Case Kolommen.batch + Case Kolommen.Batch Return "batchID" - Case Kolommen.toelevering + Case Kolommen.Toelevering Return "toeleveringID" - Case Kolommen.sorteerkar + Case Kolommen.Sorteerkar Return "kar" - Case Kolommen.klantnaam + Case Kolommen.Klantnaam Return "naam" - Case Kolommen.dossierCode + Case Kolommen.DossierCode Return "dossierCode" Case Else - Throw New Exception("Cache kolomnaam kon niet worden opgevraagd met kolom: " & geefWaardeBijEnumValue(kolom)) + Throw New Exception($"Cache kolomnaam kon niet worden opgevraagd met kolom: '{GeefTekstVanEnumOptie(kolom)}'") End Select End Function - Public Function geefWaardeBijEnumValue(itemType As ItemType) As String - Return [Enum].GetName(GetType(ItemType), itemType) + ''' + ''' De letterlijke tekst opvragen van een enum optie. In lowercase. + ''' + ''' De enum optie + ''' De letterlijke tekst + Public Function GeefTekstVanEnumOptie(kolom As Kolommen) As String + Return [Enum].GetName(GetType(Kolommen), kolom).ToLower() End Function +#End Region - Public Function geefWaardeBijEnumValue(kolom As Kolommen) As String - Return [Enum].GetName(GetType(Kolommen), kolom) - End Function End Module \ No newline at end of file Index: TAOR-rework-bugfixing/TAOR rework/Domeincontroller.vb =================================================================== diff -u -r1607 -r1626 --- TAOR-rework-bugfixing/TAOR rework/Domeincontroller.vb (.../Domeincontroller.vb) (revision 1607) +++ TAOR-rework-bugfixing/TAOR rework/Domeincontroller.vb (.../Domeincontroller.vb) (revision 1626) @@ -629,7 +629,7 @@ specialLadenRep.updateEtiketLijnSifonLaden() verdeelSifonLadenOverReworkTrays() - Case ItemType.SPOELBAKLADE + Case ItemType.DUBBELESIFONLADE specialLadenRep.updateDataSpecialLaden() 'de extra zijkanten en ruggen toevoegen specialLadenRep.maakExtraOnderdelenSpoelbakLaden() @@ -640,7 +640,7 @@ Case Else specialLadenRep.verwijderSpecialLaden() reworkTrayRep.verwijderReworkTraysSpecialLade() - Throw New Exception("Type '" & EnumMapper.geefWaardeBijEnumValue(specialLadenRep.typeLade) & "' kan niet verdeeld worden over rework trays") + Throw New Exception("Type '" & EnumMapper.GeefTekstVanEnumOptie(specialLadenRep.typeLade) & "' kan niet verdeeld worden over rework trays") End Select Catch ex As Exception specialLadenRep.verwijderSpecialLaden() @@ -677,7 +677,7 @@ specialLadenRep.verwijderSpecialLaden() Case ItemType.SIFONLADE slaSifonLadenOp() - Case ItemType.SPOELBAKLADE + Case ItemType.DUBBELESIFONLADE slaSpoelbakLadenOp() Case ItemType.GEEN specialLadenRep.verwijderSpecialLaden() @@ -686,7 +686,7 @@ Case Else specialLadenRep.verwijderSpecialLaden() reworkTrayRep.verwijderReworkTraysSpecialLade() - Throw New Exception("Type '" & EnumMapper.geefWaardeBijEnumValue(specialLadenRep.typeLade) & "' heeft geen verwerking") + Throw New Exception("Type '" & EnumMapper.GeefTekstVanEnumOptie(specialLadenRep.typeLade) & "' heeft geen verwerking") End Select Catch ex As Exception Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Spoelbakladen/HoofdAansturingSpoelbakLade.vb =================================================================== diff -u -r1607 -r1626 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Spoelbakladen/HoofdAansturingSpoelbakLade.vb (.../HoofdAansturingSpoelbakLade.vb) (revision 1607) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Spoelbakladen/HoofdAansturingSpoelbakLade.vb (.../HoofdAansturingSpoelbakLade.vb) (revision 1626) @@ -11,7 +11,7 @@ Private Sub slaOpInArdis(onderdeel As ArdisData, Optional trayNummer As String = "", Optional slotNummer As String = "") If Configs.geefVerwerkStatus Then - ArdisTextMapper.opslaan(ItemType.SPOELBAKLADE, onderdeel, trayNummer, slotNummer) + ArdisTextMapper.opslaan(ItemType.DUBBELESIFONLADE, onderdeel, trayNummer, slotNummer) End If End Sub Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/SpecialLade.vb =================================================================== diff -u -r1596 -r1626 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/SpecialLade.vb (.../SpecialLade.vb) (revision 1596) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/SpecialLade.vb (.../SpecialLade.vb) (revision 1626) @@ -171,7 +171,7 @@ ' Case GetType(SpecialLadeDiepereZijkant) ' Return ItemType.DIEPEREZIJKANT ' Case GetType(SpecialLadeHogereZijkant) - ' Return ItemType.HOGEREZIJKANT + ' Return ItemType.HogereZijkant ' Case GetType(SpecialLadeNieuweKleur) ' Return ItemType.NIEUWEKLEUR ' Case GetType(SifonLade)