[ |../../index.htm#lansa/wbfeng01_0190.htm]
You are here:

Step 7. Add Error Handling to the Web Page

1.  With your web page open in the editor at the Design tab, drag your Pop-Up component, iiiMessagesPopUp onto a blank space in the left hand column.
     On the Details tab, change its Name to Messages. Your source now contains a Define_Com similar to the following:
Define_Com Class(#iiiMessagesPopUp) Name(#Messages) Left(276) Parent(#COM_OWNER) Top(365)
2.  On the Design tab, with your pop_up component selected, use the Bring Forward button on the Home ribbon, to bring the pop-up to the front.

3.  Using the Layout ribbon, change the Pop-Up's Alignment to Center and leave Flow as None.
     Change Span for Columns to 2.

4.  Switch to the Source tab and extend the Save method to show the Pop-Up component if an error has occurred. To do this you simply need to invoke the Show method in the Messages pop-up, which will then read Sys_MsgQ.messages and populate the List control. Extend the If (#io$sts = OK) as shown:
. . . .
Evtroutine Handling(#SaveEmployee.Completed)
If (#io$sts = OK)
#xEmployee := *null
Else
#Messages.Show
Endif
Endroutine
. . . .
     Note: The above code is part of the Save method in your web page.
5.  Add a statement to the Save method before executing SaveEmployee, to clear messages in Sys_MsgQ, as shown:
Mthroutine Name(Save) Access(*private)
Define_Com Class(#iiixEmployeeDataServer.save) Name(#SaveEmployee)

• Clear messages
  #sys_msgq.clearall
  . . . .
       Note: Once again, remember you can investigate components such as Sys_MsgQ using F2 to show the Features tab.
  6.  Compile the iiiAddEmployee web page.
  7.  Execute your Add Employee web page. Enter a new employee number and click the Save button while leaving some of the input fields blank. The messages pop-up should be displayed, containing all validation error messages:
  
  [ |../../index.htm#lansa/wbfeng01_0190.htm]