Form S_189FD
*===================================================================;
*;
* Component : S_189FD;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - Boolean NOT; ;
*;
* 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(241) TOP(130) WIDTH(514);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(256) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(48) WIDTH(495);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(22);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(3) PARENT(#LTVW_1) SOURCE(#ADDRESS2) WIDTH(24);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) DISPLAYPOSITION(4) PARENT(#LTVW_1) SOURCE(#SALARY) WIDTH(20) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_4) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SURNAME) WIDTH(32);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('Show all employees who live outside SEVEN HILLS AND have a salary greater than 30000.') DISPLAYPOSITION(2) HEIGHT(32) LEFT(11) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(8) WIDTH(446);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#EMPNO #SURNAME #ADDRESS2 #SALARY) FROM_FILES((PSLMST)) WHERE('NOT ''SEVEN HILLS.'' = ADDRESS2 AND SALARY > 30000');
add_entry #ltvw_1;
endselect;
ENDROUTINE;
;
;
END_COM;
*===================================================================;
*;
* Component : S_189FD;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - Boolean NOT; ;
*;
* 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(241) TOP(130) WIDTH(514);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(256) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(48) WIDTH(495);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(22);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(3) PARENT(#LTVW_1) SOURCE(#ADDRESS2) WIDTH(24);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) DISPLAYPOSITION(4) PARENT(#LTVW_1) SOURCE(#SALARY) WIDTH(20) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_4) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SURNAME) WIDTH(32);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('Show all employees who live outside SEVEN HILLS AND have a salary greater than 30000.') DISPLAYPOSITION(2) HEIGHT(32) LEFT(11) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(8) WIDTH(446);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#EMPNO #SURNAME #ADDRESS2 #SALARY) FROM_FILES((PSLMST)) WHERE('NOT ''SEVEN HILLS.'' = ADDRESS2 AND SALARY > 30000');
add_entry #ltvw_1;
endselect;
ENDROUTINE;
;
;
END_COM;