Index: TAOR rework/TAOR rework/formulieren/Specials/FormReworkAutomilling.vb =================================================================== diff -u -r1872 -r1873 --- TAOR rework/TAOR rework/formulieren/Specials/FormReworkAutomilling.vb (.../FormReworkAutomilling.vb) (revision 1872) +++ TAOR rework/TAOR rework/formulieren/Specials/FormReworkAutomilling.vb (.../FormReworkAutomilling.vb) (revision 1873) @@ -4,14 +4,27 @@ Me.ControlBox = False 'tonen of er wel verwerkt mag worden lblVerwerking.Visible = Not Configs.geefVerwerkStatus - 'TODO zorgen dat scherm niet gebruikt kan worden of waarschuwing geven als reworks in wachtrij staan + controleerToegang() laadData() End Sub Private Sub BtnTerug_Click(sender As Object, e As EventArgs) Handles btnTerug.Click FormController.getInstance.laadFormSpecialMenu(Me) End Sub + ''' + ''' Elke keer controleren of er nog geen reworks in de repo zitten. + ''' Het gewone rework scherm en deze maken gebruik van hetzelfde onderliggende systeem. + ''' We willen niet dat de andere reworks plots ook verwerkt worden. + ''' + Sub controleerToegang() + 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) + End If + End Sub + Private Sub laadData() 'Lijst van automilling data opvragen Try @@ -46,6 +59,8 @@ End Sub Private Sub BtnRework_Click(sender As Object, e As EventArgs) Handles btnRework.Click + controleerToegang() + 'Rework reden opvragen en verwerken FormController.getInstance().laadFormReworkRedenen(Me,"zijkant",AddressOf verwerkMetReworkReden) End Sub