Page History
[ 
|../../index.htm#lansa/wbfeng01_0190.htm]
You are here:
...
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 |
|---|
...
| 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 |
|---|
| 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:
...
