Form S_189FB
*===================================================================;
*;
* Component : S_189FB;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL Calculation; ;
*;
* 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(303) TOP(110) WIDTH(440);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(225) LEFT(15) PARENT(#COM_OWNER) TABPOSITION(1) TOP(72) WIDTH(402);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#SURNAME) WIDTH(44);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SALARY) WIDTH(28);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) CAPTION('Salary + 10%') CAPTIONTYPE(Caption) DISPLAYPOSITION(3) PARENT(#LTVW_1) SOURCE(#STD_AMNT) WIDTH(23) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('This example shows in a list the employee surname with its salary. In the list we want to show the salary amount is increased by 10%. This can be done with one SELECT_SQL statement.') DISPLAYPOSITION(2) HEIGHT(41) LEFT(14) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(8) WIDTH(403);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#SURNAME #SALARY (#STD_AMNT 'SALARY * 1.10')) FROM_FILES((PSLMST));
add_entry #ltvw_1;
endselect;
ENDROUTINE;
;
END_COM;
*===================================================================;
*;
* Component : S_189FB;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL Calculation; ;
*;
* 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(303) TOP(110) WIDTH(440);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(225) LEFT(15) PARENT(#COM_OWNER) TABPOSITION(1) TOP(72) WIDTH(402);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#SURNAME) WIDTH(44);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SALARY) WIDTH(28);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) CAPTION('Salary + 10%') CAPTIONTYPE(Caption) DISPLAYPOSITION(3) PARENT(#LTVW_1) SOURCE(#STD_AMNT) WIDTH(23) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('This example shows in a list the employee surname with its salary. In the list we want to show the salary amount is increased by 10%. This can be done with one SELECT_SQL statement.') DISPLAYPOSITION(2) HEIGHT(41) LEFT(14) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(8) WIDTH(403);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#SURNAME #SALARY (#STD_AMNT 'SALARY * 1.10')) FROM_FILES((PSLMST));
add_entry #ltvw_1;
endselect;
ENDROUTINE;
;
END_COM;