Page History

[ Image Removed |../../index.htm#lansa/wamengt4_0445.htm]
You are here:

...

WAM075 - Using a Tree View Weblet
In this step you will add a new treeexpand WebRoutine to handle expanding departments to add the department's sections and expanding sections to add employees for the selected section.

...

• Level 1 expanding – add sections When (= '1') #deptment := #onsubid Select Fields(#deptment #section #secdesc) From_File(sectab) With_Key(#deptment) #listid := #deptment + #section #listcapt := #secdesc #listpid := #deptment #haschld := Y #selwam := iiiTRE_2 #selwrn := SECDET Add_Entry To_List(#emptree) Endselect

• Level 2 expanding – add employees When (= '2') Get_Entry Number(1) From_List(#ancestor) #deptment := #listid #std_num := (#deptment.CurChars  1) Get_Entry Number(2) From_List(#ancestor) #section := #listid.substring( #std_num ) Clr_List Named(#emptree) Select Fields(#empno #surname #givename) From_File(pslmst1) With_Key(#deptment #section) #listid := #empno #listcapt := #surname  ', '  #givename #listpid := #deptment  #section #haschld := N #selwam := iiiTRE_2 #selwrn := EMPDET Add_Entry To_List(#emptree) Endselect Endcase Endroutine
   
  2.  Compile your WAM and open the deptview WebRoutine in the Design view. Select the tree view and complete setting up its properties, as follows:

  Property	Value
  onexpand_wrname	TREEEXPAND
  onsubmit_id_field	ONSUBID
  onsubmit_level_field	ONSUBLVL
  onsubmit_ancestor_list	ANCESTOR

   |
  3.  Save your changes and execute your WAM in the browser. Click the Expand icon to test the expanding. (Clicking the text to display the details for this level, will be completed in the next step.)
       You should now be able to expand a department to add sections belonging to this department and then expand a section, adding employees belonging to this section.

  
  Image Removed

  
  

  [

  Image Modified

  |../../index.htm#lansa/wamengt4_0445.htm]