Form VL_SAM135: Tier Aware Employee Enquiry

LANSA

previous page next page
Form VL_SAM135: Tier Aware Employee Enquiry
Name: VL_SAM135

Description: The following RDMLX form is used to display the details of an employee. It is "tier aware" and can work in different tier configurations with no code changes.
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM HEIGHT(245) LAYOUTMANAGER(#ATLM_1) LEFT(349) TOP(156) VISUALSTYLE(#VS_NORM) WIDTH(540);
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_1);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) DISPLAYPOSITION(1) HEIGHT(41) LAYOUTMANAGER(#FWLM_1) LEFT(0) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(0) WIDTH(532);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_1) ATTACHMENT(Top) MANAGE(#GPBX_1) PARENT(#ATLM_1);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_2) DISPLAYPOSITION(2) HEIGHT(155) LAYOUTMANAGER(#FWLM_2) LEFT(0) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(41) WIDTH(532);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_2) ATTACHMENT(Center) MANAGE(#GPBX_2) PARENT(#ATLM_1);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_1) FLOWOPERATION(Spread) FLOWOPERATIONVER(Center) MARGINLEFT(4) SPACINGITEMS(20);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_2) DIRECTION(TopToBottom) FLOWOPERATIONVER(Spread) MARGINLEFT(4) SPACING(2) SPACINGITEMS(2);
DEFINE_COM CLASS(#EMPNO.Visual) NAME(#EMPNO) DISPLAYPOSITION(1) HEIGHT(19) LEFT(8) PARENT(#GPBX_1) TABPOSITION(1) TOP(14) WIDTH(204);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_1) MANAGE(#EMPNO) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#BTN_FETCH) BUTTONDEFAULT(True) CAPTION('Fetch Employee Details') DISPLAYPOSITION(2) LEFT(232) PARENT(#GPBX_1) TABPOSITION(2) TOP(11) WIDTH(137);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_2) MANAGE(#BTN_FETCH) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_STBR) NAME(#STBR_1) DISPLAYPOSITION(3) HEIGHT(22) LEFT(0) MESSAGEPOSITION(1) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(196) WIDTH(532);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_3) ATTACHMENT(Bottom) MANAGE(#STBR_1) PARENT(#ATLM_1);
DEFINE_COM CLASS(#SURNAME.Visual) NAME(#SURNAME) DISPLAYPOSITION(1) HEIGHT(19) LEFT(8) PARENT(#GPBX_2) READONLY(True) TABPOSITION(1) TABSTOP(False) TOP(14) VISUALSTYLE(#VS_NOREAD) WIDTH(324);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_3) MANAGE(#SURNAME) PARENT(#FWLM_2);
DEFINE_COM CLASS(#GIVENAME.Visual) NAME(#GIVENAME) DISPLAYPOSITION(2) HEIGHT(19) LEFT(8) PARENT(#GPBX_2) READONLY(True) TABPOSITION(2) TABSTOP(False) TOP(37) VISUALSTYLE(#VS_NOREAD) WIDTH(324);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_4) MANAGE(#GIVENAME) PARENT(#FWLM_2);
DEFINE_COM CLASS(#ADDRESS1.Visual) NAME(#ADDRESS1) DISPLAYPOSITION(3) HEIGHT(19) LEFT(8) PARENT(#GPBX_2) READONLY(True) TABPOSITION(3) TABSTOP(False) TOP(60) VISUALSTYLE(#VS_NOREAD) WIDTH(363);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_5) MANAGE(#ADDRESS1) PARENT(#FWLM_2);
DEFINE_COM CLASS(#ADDRESS2.Visual) NAME(#ADDRESS2) DISPLAYPOSITION(4) HEIGHT(19) LEFT(8) PARENT(#GPBX_2) READONLY(True) TABPOSITION(4) TABSTOP(False) TOP(83) VISUALSTYLE(#VS_NOREAD) WIDTH(363);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_6) MANAGE(#ADDRESS2) PARENT(#FWLM_2);
DEFINE_COM CLASS(#ADDRESS3.Visual) NAME(#ADDRESS3) DISPLAYPOSITION(5) HEIGHT(19) LEFT(8) PARENT(#GPBX_2) READONLY(True) TABPOSITION(5) TABSTOP(False) TOP(106) VISUALSTYLE(#VS_NOREAD) WIDTH(363);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_7) MANAGE(#ADDRESS3) PARENT(#FWLM_2);
DEFINE_COM CLASS(#POSTCODE.Visual) NAME(#POSTCODE) DISPLAYPOSITION(6) HEIGHT(19) LEFT(8) PARENT(#GPBX_2) READONLY(True) TABPOSITION(6) TABSTOP(False) TOP(129) VISUALSTYLE(#VS_NOREAD) WIDTH(201);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_8) MANAGE(#POSTCODE) PARENT(#FWLM_2);
;
* ==================================================== ;
* During initialization, make a reference to the *DATA_TIER system;
* variable to cause the logical data tier to be connected up ;
* ==================================================== ;
;
EVTROUTINE handling(#Com_Owner.Initialize);
Change #Std_Obj *Data_Tier;
ENDROUTINE;
;
* ==================================================== ;
* During closing, make a reference to *END_ALL_TIERS to;
* close any access to any tiers stiill open. If this is left out,;
* the tier will be closed automatically and no harm results,;
* but an "automatic disconnect" message is shown. ;
* ==================================================== ;
;
EVTROUTINE handling(#Com_Owner.Closing);
Change #Std_Obj *End_All_Tiers;
ENDROUTINE;
;
* ==================================================== ;
* Handle a lookup of employee details from the PSLMST table;
* ==================================================== ;
;
EVTROUTINE HANDLING(#BTN_FETCH.Click);
Fetch (#SurName #GiveName #Address1 #Address2 #Address3 #PostCode) From_File(PslMst) With_Key(#Empno) Issue_msg(*Yes) ;
ENDROUTINE;
;
END_COM;

previous page start next page