Index: TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.vb =================================================================== diff -u -r1900 -r1902 --- TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.vb (.../FormVoorraad.vb) (revision 1900) +++ TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.vb (.../FormVoorraad.vb) (revision 1902) @@ -27,7 +27,7 @@ ''' We willen niet dat de andere reworks plots ook verwerkt worden. ''' Sub controleerToegang() - if Domeincontroller.getInstance().geefAantalReworks() > 0 Then + If Domeincontroller.getInstance().geefAantalReworks() > 0 Then 'Er zijn al reworks aanwezig, afbreken MessageBox.Show("Er zijn al reworks aanwezig. Deze moeten eerst verwerkt worden vooraleer deze functionaliteit kan gebruikt worden.") FormController.getInstance().laadFormSpecialMenu(Me) @@ -102,20 +102,36 @@ 'label dat aantal voorrad items bijhoud updaten lblAantalVoorraadItems.Text = voorraadItems.Count - 'button enabled maken als reworks aantal hoog genoeg is - If voorraadItems.Count > 0 Then - btnVerwerk.Enabled = True - btnWisAlle.Enabled = True - Else - btnVerwerk.Enabled = False - btnWisAlle.Enabled = False - End If + updateWisEnVerwerkButtonStatus() + Catch ex As Exception MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) Application.Exit() End Try End Sub + ''' + ''' De knoppen mogen enkel enabled worden als er geldige waarden zijn + ''' + Private Sub updateWisEnVerwerkButtonStatus() + 'button enabled maken als reworks aantal hoog genoeg is + If Domeincontroller.getInstance.geefZijkantVoorraadItems.Count > 0 Then + btnVerwerk.Enabled = true + btnWisAlle.Enabled = true + else + btnVerwerk.Enabled = false + btnWisAlle.Enabled = false + End If + End Sub + + ''' + ''' Knop enabled maken als velden geldig zijn + ''' + Private sub updateToevoegenButtonStatus + 'button enabled maken als etiket veld ingevuld is + btnToevoegen.Enabled = not String.IsNullOrEmpty(TextBoxLabelTekst.Text) + End sub + Private Sub DataGridViewVoorraadItems_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewVoorraadItems.CellClick Dim rowIndex = e.RowIndex Dim colIndex = e.ColumnIndex @@ -133,11 +149,15 @@ Private Sub btnVerwerk_Click(sender As System.Object, e As System.EventArgs) Handles btnVerwerk.Click Try + btnVerwerk.Enabled = False + Domeincontroller.getInstance.verdeelOverReworkTrays() FormController.getInstance.laadFormReworkTrayPrinter(Me) Catch ex As Exception lblFoutmeldingToevoegen.Text = ex.Message + Finally + updateWisEnVerwerkButtonStatus() End Try End Sub @@ -162,9 +182,14 @@ Private Sub FormVoorraadAanmaken_VisibleChanged(sender As Object, e As System.EventArgs) Handles Me.VisibleChanged laadData() End Sub + + Private Sub TextBoxLabelTekst_TextChanged(sender As Object, e As EventArgs) Handles TextBoxLabelTekst.TextChanged + updateToevoegenButtonStatus() + End Sub Private Sub btnWisAlle_Click(sender As System.Object, e As System.EventArgs) Handles btnWisAlle.Click Domeincontroller.getInstance.verwijderVolledigeZijkantVoorraad() refreshVoorraadItemsGrid() End Sub + End Class \ No newline at end of file Index: TAOR rework/TAOR rework/formulieren/Specials/FormFronten.vb =================================================================== diff -u -r1901 -r1902 --- TAOR rework/TAOR rework/formulieren/Specials/FormFronten.vb (.../FormFronten.vb) (revision 1901) +++ TAOR rework/TAOR rework/formulieren/Specials/FormFronten.vb (.../FormFronten.vb) (revision 1902) @@ -22,33 +22,35 @@ ComboBoxKantenband.DataSource = Configs.kantenbandKleurenLetters ComboBoxMateriaal.DataSource = Domeincontroller.getInstance.geefVoorraadKleuren - updateVerwerkButtonStatus + updateVerwerkButtonStatus() Catch ex As Exception MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) FormController.getInstance().laadVorige(Me) End Try End Sub - Private Sub Controls_TextChanged(sender As Object, e As EventArgs) Handles TextBoxLetterBarcode.TextChanged,TextBoxLabelTekst.TextChanged + Private Sub Controls_TextChanged(sender As Object, e As EventArgs) Handles TextBoxLetterBarcode.TextChanged, TextBoxLabelTekst.TextChanged updateVerwerkButtonStatus() End Sub ''' ''' De verwerk knop mag enkel enabled worden als geldige waarden zijn ingevuld ''' Private Sub updateVerwerkButtonStatus() - Dim enabledButton = true - enabledButton = enabledButton and Not String.IsNullOrEmpty(TextBoxLabelTekst.Text) - enabledButton = enabledButton and Not String.IsNullOrEmpty(TextBoxLetterBarcode.Text) + Dim enabledButton = True + enabledButton = enabledButton And Not String.IsNullOrEmpty(TextBoxLabelTekst.Text) + enabledButton = enabledButton And Not String.IsNullOrEmpty(TextBoxLetterBarcode.Text) btnProduceer.Enabled = enabledButton End Sub Private Sub BtnProduceer_Click(sender As Object, e As EventArgs) Handles btnProduceer.Click Try - Domeincontroller.getInstance().produceerFrontenVoorraad(NumericUpDownAantal.Value,TextBoxLabelTekst.Text,NumericUpDownBreedte.Value,ComboBoxHoogte.SelectedValue,ComboBoxMateriaal.SelectedValue,ComboBoxKantenband.SelectedValue,TextBoxLetterBarcode.Text) + btnProduceer.Enabled = False + Domeincontroller.getInstance().produceerFrontenVoorraad(NumericUpDownAantal.Value, TextBoxLabelTekst.Text, NumericUpDownBreedte.Value, ComboBoxHoogte.SelectedValue, ComboBoxMateriaal.SelectedValue, ComboBoxKantenband.SelectedValue, TextBoxLetterBarcode.Text) Catch ex As Exception MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) - FormController.getInstance().laadVorige(Me) + Finally + updateVerwerkButtonStatus() End Try End Sub End Class \ No newline at end of file