Page History
...
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(147) Clientwidth(492) Height(174) Left(369) Top(152)
Define_Com Class(#SECTION.COMBO) Name(#SECT_CBX) Height(49) Left(248) Parent(#COM_OWNER) Top(8) Width(234)
Define_Com Class(#PRIM_LTBX) Name(#LIST) Componentversion(1) Displayposition(2) Height(132) Left(6) Parent(#COM_OWNER) Showselection(True) Tabposition(2) Top(8) Width(131)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_SET) Caption('Set Field Value') Displayposition(3) Left(144) Parent(#COM_OWNER) Tabposition(3) Top(24) Width(89)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_GET) Caption('Get Field Value') Displayposition(4) Left(144) Parent(#COM_OWNER) Tabposition(4) Top(80) Width(89)
Define_Com Class(#PRIM_LBCL) Name(#LBCL_1) Displayposition(1) Parent(#LIST) Source(#SECTION) Width(20)
Evtroutine Handling(#COM_OWNER.CreateInstance) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
Select Fields(#SECTION) From_File(PSLMST)
Add_Entry To_List(#LIST)
Endselect
Endroutine
Evtroutine Handling(#PHBN_SET.Click)
If_Ref Com(#LIST.focusitem) Is_Not(*NULL)
Change Field(#STD_NUM) To('#LIST.FOCUSITEM.ENTRY')
Get_Entry Number(#STD_NUM)
Endif
Change Field(#SECT_CBX) To(#SECTION)
Endroutine
Evtroutine Handling(#PHBN_GET.Click)
Selectlist Named(#LIST)
If Cond('#SECTION *ne #SECT_CBX')
Continue
Endif
Set Com(#LIST.currentitem) Focus(true) Selected(true)
Endselect
Endroutine
End_Com
