Page History
...
Begin_Com Role(*EXTENDS #PRIM_WEB) Height(456) Width(864)
Define_Com Class(#PRIM_MD.Edit) Name(#Edit) DisplayPosition(1) Label('Enter a Value') Left(16) Parent(#COM_OWNER) TabPosition(1) Top(8)
Evtroutine Handling(#Edit.AutoCompleting) Value(#Value)
Case (#Value)
When (= "1")
#Value := "100"
When (= "2")
#Value := "200"
When (= "3")
#Value := "300"
When (= "4")
#Value := "400"
Endcase
Endroutine
End_Com