Step 3 Add a Routine to Listen for the EMPLOYEE_CHANGED Event

Step 3. Add a Routine to Listen for the EMPLOYEE_CHANGED Event

In this step you will change the Employees filter to listen for the EMPLOYEE_CHANGED event.

1.   Locate and open the Employees filter iiiCOM04.

2.   Display the Source tab.

3.   Register the EMPLOYEE_CHANGED event in the UHandleEvent webroutine:

 

Invoke Method(#avFrameworkManager.avRegisterEvent) Named(EMPLOYEE_CHANGED) Signalaswamevent(2)

 

The UHandleEvent will now look like this:

4.   Scroll to the end of the WAM source and add an event routine to listen for the EMPLOYEE_CHANGED event signal:

Evtroutine Handling(#avFrameworkManager.uWAMEvent_2) Withid(#eventid) WithAinfo1(#Ainfo1) Options(*noclearmessages *noclearerrors)

 

Endroutine

  

5.   In the event routine first add code to check the event id:

If '#EventId.Value = EMPLOYEE_CHANGED'

 

Endif

 

6.   Then save the current key values from overwrites done by the select loop:

 

Inz_List #Save_Keys 1

 

 

7.   Assign the value passed by the signaled event to the EMPNO field:

 

#EmpNo := #AInfo1

 

 

8.   Start updating the instance list:

 

Invoke Method(#avListManager.BeginListUpdate)

 

 

9.   Fetch the details of the employee that has been updated:

 

FETCH FIELDS(#SURNAME #GIVENAME #EMPNO) FROM_FILE(PSLMST) WITH_KEY(#EMPNO)

 

 

10.   Update the entry in the instance list:

 

Use Builtin(BCONCAT) With_Args(#SURNAME #GIVENAME) To_Get(#FULLNAME)

Invoke #avListManager.AddtoList Visualid1(#EMPNO) Visualid2(#FULLNAME) AKey1(#EMPNO)

 

 

11.   Complete the instance list update:

 

Invoke Method(#avListManager.EndListUpdate)

 

 

12.   Lastly restore the saved key values:

 

Get_Entry 1 #Save_Keys

 

 

Your finished code will look like this:

13.   Compile the filter and check it in.