The Tree View will have three levels, departments, employees and employee notes. All data will be loaded initially.

1.  Create an AddEntry method routine. This needs five input parameters:

• Map of class STD_OBJ, name Column1
• Map of class STD_DESC, name Column 2
• Map of class STD_DESCL, name Column 3
• Map of class PRIM_BMP, name Image, passed by reference
• Map of class PRIM_TVIT, name ParentItem, passed by reference

     Your code should look like the following:
Mthroutine Name(AddEntry)
Define_Map For(*INPUT) Class(#STD_OBJ) Name(#Column1)
Define_Map For(*INPUT) Class(#STD_desc) Name(#Column2) Mandatory(' ')
Define_Map For(*INPUT) Class(#STD_descl) Name(#Column3) Mandatory(' ')
Define_Map For(*INPUT) Class(#prim_bmp) Name(#Image) Mandatory(*NULL) Pass(*BY_REFERENCE)
Define_Map For(*input) Class(#Prim_tvit) Name(#ParentItem) Mandatory(*Null) Pass(*By_reference)
Endroutine

       Note: All except the first map have a Mandatory() parameter, meaning the parameter will be given its Mandatory value if not passed. These parameters are optional.

2.  To complete the AddEntry routine, the following logic is required:
Assign STD_OBJ to Column1
Assign STD_DESC to Column2
Assign STD_DESCL to Column3
Add entry to TreeView
Set reference to TreeView.CurrentItem.ParentItem from ParentItem
Set refrence to TreeViewcurrentItem.Image to Image
Set TreeView.CurrentItem.hasChildren property to Yes for level 1 and 2
Set TreeView.CurrentItem.hasChildren poperty to No for level 3

Your code should look like the following:
Mthroutine Name(AddEntry)
Define_Map For(*INPUT) Class(#STD_OBJ) Name(#Column1)
Define_Map For(*INPUT) Class(#STD_desc) Name(#Column2) Mandatory(' ')
Define_Map For(*INPUT) Class(#STD_descl) Name(#Column3) Mandatory(' ')
Define_Map For(*INPUT) Class(#prim_bmp) Name(#Image) Mandatory(*NULL) Pass(*BY_REFERENCE)
Define_Map For(*input) Class(#Prim_tvit) Name(#ParentItem) Mandatory(*Null) Pass(*By_reference)
#std_obj := #Column1
#std_desc := #Column2
#std_descl := #Column3
Add_Entry To_List(#TreeView)
#TreeView.Currentitem.ParentItem <= #ParentItem
#TreeView.Currentitem.image <= #Image

• Employee notes have no children
  If (#TreeView.currentitem.level = 3)
  #TreeView.CurrentItem.HasChildren := No
  Else
  #TreeView.CurrentItem.HasChildren := Yes
  Endif
  Endroutine
       Note: When an item HasChildren property is No, an expand symbol is not shown. Employee Notes are level 3 and have no children.
  3.  Create a LoadDepts method routine, no maps are required. Add logic to perform the following:
  Read all departments from table xDepartments
  For each entry invoke AddEntry, passing xDepartmentCode, xDepartmentDescription, *blank, xImageDepartment32
       Your code should look like the following:
  Mthroutine Name(LoadDepts)
  Select Fields(#xDepartmentCode #xDepartmentDescription) From_File(xDepartments)
  #com_self.addentry( #xDepartmentCode #xDepartmentDescription "" #xImageDepartment32 )
  Endselect
  Endroutine
       Note: xImageDepartment32 is a Repository Bitmap component.
  4.  Create a LoadEmploys method routine with input for department code and ParentItem passed by reference.
  Mthroutine Name(LoadEmploys)
  Define_Map For(*INPUT) Class(#xDepartmentCode) Name(#DeptCode)
  Define_Map For(*INPUT) Class(#prim_tvit) Name(#ParentItem) Pass(*BY_REFERENCE)
  Endroutine
       Each employee entry must have a parent item reference to a department entry.
  5.  Complete LoadEmploys with the following logic. Note that surname and givennames must be passed to AddEntry as a native string.
  Read all employees from index xEmployeeeByDepartment with key DeptCode
  Invoke AddEntry passing xEmployeeIdentification, xEmployeeSurname, xEmployeeGivenNames, xImageEmployee32 and ParentItem
  End Select
       Your code should look like the following:
  Mthroutine Name(LoadEmploys)
  Define_Map For(*INPUT) Class(#xDepartmentCode) Name(#DeptCode)
  Define_Map For(*INPUT) Class(#prim_tvit) Name(#ParentItem) Pass(*BY_REFERENCE)
   
  Select Fields(#xEmployeeIdentification #xEmployeeSurname #xEmployeeGivenNames) From_File(xEmployeeByDepartment) With_Key(#DeptCode)
  #com_self.AddEntry( #xEmployeeIdentification #xEmployeeSurname.asNativeString #xEmployeeGivenNames.asNativeString #xImageEmployee32 #ParentItem )
  Endselect
  Endroutine
   
  6.  Invoke LoadEmploys for each department from LoadDepts passing department code and TreeView.currentitem:
  Mthroutine Name(LoadDepts)
  Select Fields(#xDepartmentCode #xDepartmentDescription) From_File(xDepartments)
  #com_self.addentry( #xDepartmentCode #xDepartmentDescription "" #xImageDepartment32 )
  #com_self.LoadEmploys( #xDepartmentCode #TreeView.currentitem )
  Endselect
  Endroutine
   
  7.  Create a LoadNotes method routine with input maps for EmployCode and ParentItem passed by reference
  Mthroutine Name(LoadNotes)
  Define_Map For(*INPUT) Class(#xEmployeeIdentification) Name(#EmployCode)
  Define_Map For(*INPUT) Class(#prim_tvit) Name(#ParentItem) Pass(*BY_REFERENCE)
  Endroutine
  8.  Add the following logic to LoadNotes:
  Read all employee notes from index xEmployeeNotesByEmployee with key EmployCode
    For each entry, invoke AddEntry passing these parameters:
  xEmployeeNoteCreateUpdate as display string
  xEmployeeNote as native string, trimmed
  *blank
  xImageDetail32
  ParentItem
       Your code should look like the following:
  Mthroutine Name(LoadNotes)
  Define_Map For(*INPUT) Class(#xEmployeeIdentification) Name(#EmployCode)
  Define_Map For(*INPUT) Class(#prim_tvit) Name(#ParentItem) Pass(*BY_REFERENCE)
  Select Fields(#xEmployeeNote) From_File(xemployeenotesbyemployee) With_Key(#EmployCode)
  #com_self.addentry( #xEmployeeNoteCreateUpdate.asdisplaystring #xEmployeeNote.AsNativeString.trim "" #xImageDetails32 #ParentItem )
  Endselect
   
  Endroutine
  9.  Add code to invoke LoadNotes from LoadEmploys, passing xEmployeeIdentification and TreeView.CurrentItem.
  Mthroutine Name(LoadEmploys)
  Define_Map For(*INPUT) Class(#xDepartmentCode) Name(#DeptCode)
  Define_Map For(*INPUT) Class(#prim_tvit) Name(#ParentItem) Pass(*BY_REFERENCE)
   
  Select Fields(#xEmployeeIdentification #xEmployeeSurname #xEmployeeGivenNames) From_File(xEmployeeByDepartment) With_Key(#DeptCode)
  #STD_desc := #xEmployeeSurname.AsNativeString
  #std_descl := #xEmployeeGivenNames.AsNativeString
  #com_self.AddEntry( #xEmployeeIdentification #std_desc #std_descl #xImageEmployee32 #ParentItem )
  #com_self.LoadNotes( #xEmployeeIdentification #TreeView.currentitem )
  Endselect
  Endroutine
  10. Invoke LoadDepts from form CreateInstance event routine:
  Evtroutine Handling(#com_owner.CreateInstance)
   
  Set Com(#com_owner) Caption(*component_desc)
  #com_self.LoadDepts
  Endroutine
  11. Compile and test the form.
  [ |../../index.htm#lansa/frmeng01_0540.htm]