Step 7. Add Update Employee Logic

1.  Complete the SaveEmployeeButton.Click event routine to perform the following:

     Update employee using the Group_By EmployeeDetails with key xEmployeeIdentification
     If status is *Okay
     Clear the list NotesList and list EmployeeNotes
     Reset employee fields to their default values.
     Endif

     Your code should look like the following:

     Evtroutine Handling(#SaveEmployeeButton.Click)
     Update Fields(#EmployeeDetails) In_File(xEmployee) With_Key(#xEmployeeIdentification) Val_Error(*NEXT)
     If_Status Is(*OKAY)
     Clr_List Named(#NotesList)
     Clr_List Named(#EmployeeNotes)
     #EmployeeDetails := *default
     Endif
     Endroutine

2.  Compile and test the form. Search for employees and select an employee. Select an employee note to populate the multiline edit box. Click the SaveEmployeeButton, which should clear the employee fields, the NotesList and EmployeeNote multiline edit box. Change an employee field and check that the employee was updated correctly.