Form S_200FA
*===================================================================;
*;
* Component : S_200FA;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : Demonstrate Multiline edit box;
*;
* Disclaimer : The following material is supplied as sample material;
* only. No warranty concerning this material or its use;
* in any way whatsoever is expressed or implied.;
*;
* ===================================================================;
;
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM HEIGHT(540) LEFT(298) TOP(108) VISUALSTYLE(#VS_NORM) WIDTH(320);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) FULLROWSELECT(True) HEIGHT(433) LEFT(8) PARENT(#COM_OWNER) POPUPMENU(#PMNU_1) SELECTIONSTYLE(Single) TABPOSITION(1) TOP(8) WIDTH(295);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) CAPTION('Employee Id') CAPTIONTYPE(Caption) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(30);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) CAPTION('Surname') CAPTIONTYPE(Caption) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SURNAME) WIDTH(30);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) CAPTION('First Names') CAPTIONTYPE(Caption) DISPLAYPOSITION(3) PARENT(#LTVW_1) SOURCE(#GIVENAME) WIDTH(20) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#PRIM_PMNU) NAME(#PMNU_1);
DEFINE_COM CLASS(#PRIM_MITM) NAME(#MITM_NOTES) CAPTION('Notes') DISPLAYPOSITION(1) PARENT(#PMNU_1);
DEFINE_COM CLASS(#S_200FB) NAME(#S_200FB);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('Right mouse click, or double click, on an employee to add or edit a note.') DISPLAYPOSITION(2) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(454) VISUALSTYLE(#VS_PANEL) WIDTH(297);
;
GROUP_BY #S_GRPPSL (#EMPNO #GIVENAME #SURNAME);
;
EVTROUTINE HANDLING(#COM_OWNER.Initialize) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS);
set #com_Owner caption(*component_desc);
;
CLR_LIST #LTVW_1;
SELECT #S_GRPPSL PSLMST;
ADD_ENTRY #LTVW_1;
endselect;
;
ENDROUTINE;
;
*;
* User wants to work with the note for an employee;
*;
EVTROUTINE HANDLING(#LTVW_1.DoubleClick #MITM_NOTES.Click) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS);
invoke #S_200FB.uEditNote mS_200ID(#EMPNO);
ENDROUTINE;
END_COM;
*===================================================================;
*;
* Component : S_200FA;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : Demonstrate Multiline edit box;
*;
* Disclaimer : The following material is supplied as sample material;
* only. No warranty concerning this material or its use;
* in any way whatsoever is expressed or implied.;
*;
* ===================================================================;
;
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM HEIGHT(540) LEFT(298) TOP(108) VISUALSTYLE(#VS_NORM) WIDTH(320);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) FULLROWSELECT(True) HEIGHT(433) LEFT(8) PARENT(#COM_OWNER) POPUPMENU(#PMNU_1) SELECTIONSTYLE(Single) TABPOSITION(1) TOP(8) WIDTH(295);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) CAPTION('Employee Id') CAPTIONTYPE(Caption) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(30);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) CAPTION('Surname') CAPTIONTYPE(Caption) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SURNAME) WIDTH(30);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) CAPTION('First Names') CAPTIONTYPE(Caption) DISPLAYPOSITION(3) PARENT(#LTVW_1) SOURCE(#GIVENAME) WIDTH(20) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#PRIM_PMNU) NAME(#PMNU_1);
DEFINE_COM CLASS(#PRIM_MITM) NAME(#MITM_NOTES) CAPTION('Notes') DISPLAYPOSITION(1) PARENT(#PMNU_1);
DEFINE_COM CLASS(#S_200FB) NAME(#S_200FB);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('Right mouse click, or double click, on an employee to add or edit a note.') DISPLAYPOSITION(2) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(454) VISUALSTYLE(#VS_PANEL) WIDTH(297);
;
GROUP_BY #S_GRPPSL (#EMPNO #GIVENAME #SURNAME);
;
EVTROUTINE HANDLING(#COM_OWNER.Initialize) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS);
set #com_Owner caption(*component_desc);
;
CLR_LIST #LTVW_1;
SELECT #S_GRPPSL PSLMST;
ADD_ENTRY #LTVW_1;
endselect;
;
ENDROUTINE;
;
*;
* User wants to work with the note for an employee;
*;
EVTROUTINE HANDLING(#LTVW_1.DoubleClick #MITM_NOTES.Click) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS);
invoke #S_200FB.uEditNote mS_200ID(#EMPNO);
ENDROUTINE;
END_COM;