Page History

...

If Empno is then added to the form, as following, a further two monitors are required to inform Empno of changes to Deptment and Section.

     Function Options(*DIRECT)
     Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(304) Clientwidth(589) Left(277) Top(135) Width(605)
     Define_Com Class(#Deptment.VisualPicklist) Name(#Deptment) Displayposition(1) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(8) Width(401)
     Define_Com Class(#Section.VisualPicklist) Name(#Section) Displayposition(2) Left(8) Parent(#COM_OWNER) Tabposition(2) Top(32) Width(401)
     Define_Com Class(#EMPNO.VisualPicklist) Name(#Empno) Displayposition(3) Left(8) Parent(#COM_OWNER) Tabposition(3) Top(56) Width(401)
     Define_Com Class(#prim_lm) Name(#DepartmentSection) Source(#Deptment) Target(#Section)
     Define_Com Class(#prim_lm) Name(#SectionEmployee) Source(#Section) Target(#Empno)
     Define_Com Class(#prim_lm) Name(#DepartmentEmployee) Source(#Deptment) Target(#Empno)
     Evtroutine Handling(#Deptment.Changed)
     * Ensure the Section and Empno are valid after a department change
     #Com_owner.GetDefaultSection
     #Com_owner.GetDefaultEmpno
     Endroutine
     Evtroutine Handling(#Section.Changed)
     * Ensure the Empno is valid after a department change
     #Com_owner.GetDefaultEmpno
     Endroutine
     Mthroutine Name(GetDefaultSection) Access(*private)
     #Section := *null
     Select Fields(#Section) From_File(sectab) With_Key(#Deptment)
     Leave
     Endselect
     Endroutine
     Mthroutine Name(GetDefaultEmpno) Access(*private)
     #Empno := *null
     Select Fields(#Empno) From_File(pslmst1) With_Key(#Deptment #Section)
     Leave
     Endselect
     Endroutine
     End_Com

...