Form S_169FA - Demonstrate a prompt calendar

LANSA

previous page next page
Form S_169FA - Demonstrate a prompt calendar

* ===================================================================;
*;
* Component : S_169FA;
* Type : Form;
* Ancestor : PRIM_FORM;
* ;
* Description : Demonstrate Calendar Form ;
* The following RDMLX form demonstrates how VL calendar S_169FA1 ;
* can be accessed. ;
*;
* 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 FORMPOSITION(ScreenCenter) LEFT(342) TOP(119);
DEFINE_COM CLASS(#S_FMTLONG.Visual) NAME(#S_FMTLONG) DISPLAYPOSITION(1) HEIGHT(19) LEFT(50) PARENT(#COM_OWNER) TABPOSITION(1) TOP(72) WIDTH(324);
DEFINE_COM CLASS(#S_169FA1) NAME(#S_169FA1);
DEFINE_COM CLASS(#S_DATFRM.Visual) NAME(#S_DATFRM) DISPLAYPOSITION(2) HEIGHT(19) LEFT(52) PARENT(#COM_OWNER) TABPOSITION(2) TOP(111) WIDTH(216);
DEFINE_COM CLASS(#S_DATTO.Visual) NAME(#S_DATTO) DISPLAYPOSITION(3) HEIGHT(19) LEFT(52) PARENT(#COM_OWNER) TABPOSITION(3) TOP(152) WIDTH(216);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_3) DISPLAYPOSITION(5) HEIGHT(17) LEFT(277) PARENT(#COM_OWNER) TABPOSITION(5) TOP(112) WIDTH(28);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_4) DISPLAYPOSITION(4) HEIGHT(17) LEFT(277) PARENT(#COM_OWNER) TABPOSITION(4) TOP(152) WIDTH(28);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
ENDROUTINE;
;
EVTROUTINE HANDLING(#PHBN_3.Click);
* Show Calendar 1, Date from (as a modal form);
CHANGE #S_PMPTFLD 'S_DATFRM';
Invoke #S_169FA1.Show_Calendar I_DATE8(#S_DATFRM) I_FORMAT( #S_FMTLONG);
ENDROUTINE;
EVTROUTINE HANDLING(#PHBN_4.Click);
* Show Calendar 1, Date to (as a modal form);
CHANGE #S_PMPTFLD 'S_DATTO';
Invoke #S_169FA1.Show_Calendar I_DATE8(#S_DATTO) I_FORMAT( #S_FMTLONG);
ENDROUTINE;
;
EVTROUTINE HANDLING(#S_169FA1.Date_Selected) O_DATE(#O_DATE8);
CASE #S_PMPTFLD;
WHEN '= S_DATFRM';
CHANGE #S_DATFRM #O_DATE8;
WHEN '= S_DATTO';
CHANGE #S_DATTO #O_DATE8;
ENDCASE;
ENDROUTINE;
END_COM;
previous page start next page