Form S_189FE
*===================================================================;
*;
* Component : S_189FE;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - Joins; ;
*;
* 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 LEFT(327) TOP(119) WIDTH(412);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(256) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(48) WIDTH(385);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(29);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('Show all 4GL skills of existing employees, ordered by date. This example joins the files PSLMST (Personnel file) and PSLSKL (Personnel Skill file).') DISPLAYPOSITION(2) HEIGHT(32) LEFT(11) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(8) WIDTH(374);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SKILCODE) WIDTH(26);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) DISPLAYPOSITION(3) PARENT(#LTVW_1) SOURCE(#DATEACQR) WIDTH(32) WIDTHTYPE(Remainder);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS((#EMPNO PSLMST.EMPNO) #SKILCODE #DATEACQR) FROM_FILES((PSLMST)(PSLSKL)) WHERE('PSLMST.EMPNO=PSLSKL.EMPNO AND SKILCODE=''4GL''') ORDER_BY(DATEACQR);
add_entry #ltvw_1;
endselect;
ENDROUTINE;
;
END_COM;
*===================================================================;
*;
* Component : S_189FE;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - Joins; ;
*;
* 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 LEFT(327) TOP(119) WIDTH(412);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(256) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(48) WIDTH(385);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(29);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('Show all 4GL skills of existing employees, ordered by date. This example joins the files PSLMST (Personnel file) and PSLSKL (Personnel Skill file).') DISPLAYPOSITION(2) HEIGHT(32) LEFT(11) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(8) WIDTH(374);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SKILCODE) WIDTH(26);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) DISPLAYPOSITION(3) PARENT(#LTVW_1) SOURCE(#DATEACQR) WIDTH(32) WIDTHTYPE(Remainder);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS((#EMPNO PSLMST.EMPNO) #SKILCODE #DATEACQR) FROM_FILES((PSLMST)(PSLSKL)) WHERE('PSLMST.EMPNO=PSLSKL.EMPNO AND SKILCODE=''4GL''') ORDER_BY(DATEACQR);
add_entry #ltvw_1;
endselect;
ENDROUTINE;
;
END_COM;