Form S_189FA
*===================================================================;
*;
* Component : S_189FA;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL Distinct; ;
*;
* 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(330) LEFT(290) TOP(143) WIDTH(485);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('The action DISTINCT(*YES) will ignore all records which field values already have been selected. In this example: "Show all employees with at least ONE skill".') DISPLAYPOSITION(1) HEIGHT(36) LEFT(7) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(13) WIDTH(466);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) DISPLAYPOSITION(2) HEIGHT(193) LEFT(136) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(96) WIDTH(146);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_1) CAPTION('SELECT_SQL with DISTINCT(*NO)') DISPLAYPOSITION(3) LEFT(12) PARENT(#COM_OWNER) TABPOSITION(3) TOP(64) WIDTH(189);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_2) CAPTION('SELECT_SQL with DISTINCT(*YES)') DISPLAYPOSITION(4) LEFT(216) PARENT(#COM_OWNER) TABPOSITION(4) TOP(64) WIDTH(193);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(161) LEFT(12) PARENT(#GPBX_1) TABPOSITION(1) TOP(16) WIDTH(117);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(101);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
ENDROUTINE;
;
EVTROUTINE HANDLING(#PHBN_1.Click);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#EMPNO) FROM_FILES((PSLSKL));
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
;
EVTROUTINE HANDLING(#PHBN_2.Click);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#EMPNO) FROM_FILES((PSLSKL)) DISTINCT(*YES);
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
;
END_COM;
*===================================================================;
*;
* Component : S_189FA;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL Distinct; ;
*;
* 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(330) LEFT(290) TOP(143) WIDTH(485);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('The action DISTINCT(*YES) will ignore all records which field values already have been selected. In this example: "Show all employees with at least ONE skill".') DISPLAYPOSITION(1) HEIGHT(36) LEFT(7) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(13) WIDTH(466);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) DISPLAYPOSITION(2) HEIGHT(193) LEFT(136) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(96) WIDTH(146);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_1) CAPTION('SELECT_SQL with DISTINCT(*NO)') DISPLAYPOSITION(3) LEFT(12) PARENT(#COM_OWNER) TABPOSITION(3) TOP(64) WIDTH(189);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_2) CAPTION('SELECT_SQL with DISTINCT(*YES)') DISPLAYPOSITION(4) LEFT(216) PARENT(#COM_OWNER) TABPOSITION(4) TOP(64) WIDTH(193);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(161) LEFT(12) PARENT(#GPBX_1) TABPOSITION(1) TOP(16) WIDTH(117);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(101);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
ENDROUTINE;
;
EVTROUTINE HANDLING(#PHBN_1.Click);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#EMPNO) FROM_FILES((PSLSKL));
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
;
EVTROUTINE HANDLING(#PHBN_2.Click);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#EMPNO) FROM_FILES((PSLSKL)) DISTINCT(*YES);
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
;
END_COM;