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