Step 9. Add Logic for Employee Notes

This step will add logic to populate the NotesList.

1.  Paste the working list, xEmployeeNotesList into the web page.

2.  Create a GetNotes method routine to perform the following:

Define a component for xEmployeeNotesDataServer / FindxEmployeeNotesBy srvroutine, named GetNotes

Clear list NotesList

Execute GetNotes asynchronously, exchanging Employee ID and list xEmployeeNotesList

Within an event routine for GetNotes.Completed

Select all entries in list xEmployeeNotesList

   Add each entry to NotesList

End Select

End routine

     Your code should look like the following:

Mthroutine Name(GetNotes)

Define_Com Class(#iiixEmployeeNotesDataServer.FindxEmployeeNotesBy) Name(#GetNotes)

Clr_List Named(#NotesList)

#GetNotes.ExecuteAsync( #xEmployeeIdentification #xEmployeeNotesList )

Evtroutine Handling(#GetNotes.Completed)

Selectlist Named(#xEmployeeNotesList)

Add_Entry To_List(#NotesList)

Endselect

Endroutine

Endroutine 

3.  Add code to the GetEmployee routine to invoke the GetNotes method routine.

     Your code should look like the following:

Mthroutine Name(GetEmployee)

Define_Map For(*INPUT) Class(#xEmployeeIdentification) Name(#EmployeeID)

Define_Com Class(#iiixEmployeeDataServer.find) Name(#GetEmployee)

#xEmployee := *null

#GetEmployee.ExecuteAsync( #EmployeeID #xEmployee #IO$STS )

Evtroutine Handling(#GetEmployee.Completed)

#COM_SELF.GetNotes

Endroutine

Endroutine 

4.  Compile your web page.

5.  Test your web page. Remember, not all employees will have notes.

     Search for employees and select an employee in the EmployeesList. When employee details are shown on the Detail tab sheet, select the Notes tab sheet. In most cases, this should contain a list of notes.