Page History
Begin_
...
Com Role(*
...
EXTENDS #PRIM_FORM)
...
Caption('
...
Employee Details')
...
Clientheight(269)
...
Clientwidth(486)
...
Height(296)
...
Left(326)
...
Top(172)
...
Width(494)
Define_
...
Com Class(#EMPNO.Visual)
...
Name(#EMPNO)
...
Displayposition(1)
...
Height(19)
...
Left(32)
...
Parent(#COM_OWNER)
...
Tabposition(1)
...
Top(8)
...
Width(209)
Define_
...
Com Class(#GIVENAME.Visual)
...
Name(#GIVENAME)
...
Displayposition(2)
...
Height(19)
...
Left(32)
...
Parent(#COM_OWNER)
...
Tabposition(2)
...
Top(32)
...
Width(324)
Define_
...
Com Class(#SURNAME.Visual)
...
Name(#SURNAME)
...
Displayposition(3)
...
Height(19)
...
Left(32)
...
Parent(#COM_OWNER)
...
Tabposition(3)
...
Top(56)
...
Width(324)
Define_
...
Com Class(#ADDRESS1.Visual)
...
Name(#ADDRESS1)
...
Displayposition(4)
...
Left(32)
...
Parent(#COM_OWNER)
...
Tabposition(4)
...
Top(80)
Define_
...
Com Class(#ADDRESS2.Visual)
...
Name(#ADDRESS2)
...
Displayposition(5)
...
Height(19)
...
Left(32)
...
Parent(#COM_OWNER)
...
Tabposition(5)
...
Top(104)
...
Width(363)
Define_
...
Com Class(#ADDRESS3.Visual)
...
Name(#ADDRESS3)
...
Displayposition(6)
...
Height(19)
...
Left(32)
...
Parent(#COM_OWNER)
...
Tabposition(6)
...
Top(128)
...
Width(363)
Define_
...
Com Class(#POSTCODE.Visual)
...
Name(#POSTCODE)
...
Displayposition(7)
...
Height(19)
...
Left(32)
...
Parent(#COM_OWNER)
...
Tabposition(7)
...
Top(152)
...
Width(216)
Define_
...
Com Class(#PHONEHME.Visual)
...
Name(#PHONEHME)
...
Displayposition(8)
...
Height(19)
...
Left(32)
...
Parent(#COM_OWNER)
...
Tabposition(8)
...
Top(176)
...
Width(286)
Define_
...
Com Class(#PRIM_PHBN)
...
Name(#OKBTN)
...
Caption('OK')
...
Displayposition(9)
...
Left(384)
...
Parent(#COM_OWNER)
...
Tabposition(9)
...
Top(168)
Define_
...
Com Class(#PRIM_PHBN)
...
Name(#CANCELBTN)
...
Caption('Cancel')
...
Displayposition(10)
...
Left(384)
...
Parent(#COM_OWNER)
...
Tabposition(10)
...
Top(200)
Define_
...
Com Class(#PRIM_STBR)
...
Name(#STBR_1)
...
Displayposition(11)
...
Height(21)
...
Left(0)
...
Messageposition(1)
...
Parent(#COM_OWNER)
...
Tabposition(11)
...
Top(248)
...
Width(486)
Group_
...
By Name(#DETFLDS)
...
Fields(#EMPNO #GIVENAME #SURNAME #ADDRESS1 #ADDRESS2 #ADDRESS3 #POSTCODE #PHONEHME)
* define events and properties and methods
Define_Evt Name(OKPressed)
Define_
...
Pty Name(employee)
...
Get(*
...
auto #empno) Set(*
...
auto #empno)
...
Mthroutine Name(GetInfo)
...
Fetch Fields(#DETFLDS)
...
From_File(PSLMST)
...
With_Key(#EMPNO)
Endroutine
...
* Event routines
Evtroutine Handling(#CANCELBTN.Click)
...
Invoke Method(#frmdetail.CloseForm)
Endroutine
...
Evtroutine Handling(#OKBTN.Click)
...
Update Fields(#DETFLDS)
...
In_File(PSLMST)
...
With_Key(#EMPNO)
...
Issue_Msg(*YES)
...
Signal Event(OKPressed)
...
Invoke Method(#frmdetail.CloseForm)
Endroutine
End_Com