HTML for SET011C (SET011C001)
<!-- Process : SET_011 WEB samples and examples -->
<!-- Function : SET011C Employees -->
<!-- Page : 001 -->
<!-- Generated by - LANSA -->
<!-- Created by user - SETUSER -->
<!-- Time and Date - 085843090300 -->
<!-- RDML function sequence number - 0033 -->
<!-- This is a *WEBEVENT function -->
<HTML>
<SCRIPT LANGUAGE="JavaScript">
<!-- This Java Script function recieves the selected Department and Section from the left side menu. (SET011B), -->
<!-- sets the value of SELT_DEPT and SELT_SECT submits the function SET011C which will SELECT all Employees -->
<!-- and build the Employee browselist. Refer also to the compononet S_011ADDSUBITM -->
function SetKey(KeyValue1,KeyValue2)
{
}
</SCRIPT>
<HEAD>
<RDML MERGE="&STYLE">
<TITLE><RDML MERGE="&FUNCTION"> </TITLE>
</HEAD>
<RDML MERGE="&SCRIPT">
<!-- This condition is used to force the refresh of the bottom frame (SET011D). When there no Employees in a selected -->
<!-- Department/Section, whatever details were being displayed have to disapear. As well, when a different department/section -->
<!-- is chosen, any Employee details being displayed have to disappear -->
<BODY BGCOLOR="<RDML MERGE="*LW3CLNTCOLOR">"
BACKGROUND="<RDML MERGE="*LW3CLNTBKGND">"
<RDML NOTCONDITION="HAS_EMPLO">
onLoad="parent.empdet.ShowEmpDet('')"
</RDML>
>
<FORM METHOD="POST" NAME="LANSA"
ACTION="/<RDML MERGE="&CGI">/LANSAWEB?WEBEVENT+<RDML MERGE="&SESSPL">">
<RDML MERGE="&HIDDEN">
<INPUT NAME="ASELT_DEPT" TYPE="HIDDEN" SIZE="004" MAXLENGTH="004" VALUE="<RDML MERGE="SELT_DEPT ">">
<INPUT NAME="ASELT_SECT" TYPE="HIDDEN" SIZE="002" MAXLENGTH="002" VALUE="<RDML MERGE="SELT_SECT ">">
<INPUT NAME="AS_EMPNUMB" TYPE="HIDDEN" SIZE="005" MAXLENGTH="005" VALUE="<RDML MERGE="S_EMPNUMB ">">
<INPUT NAME="PHAS_EMPLO" TYPE="HIDDEN" SIZE="007" MAXLENGTH="007" VALUE="<RDML MERGE="HAS_EMPLO ">">
<INPUT NAME="PFIRS_TIME" TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="FIRS_TIME ">">
<INPUT NAME="ASTDRENTRY" TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="STDRENTRY ">">
<INPUT NAME="ADEPTDESC " TYPE="HIDDEN" SIZE="004" MAXLENGTH="020" VALUE="<RDML MERGE="DEPTDESC ">">
<INPUT NAME="ASECDESC " TYPE="HIDDEN" SIZE="004" MAXLENGTH="020" VALUE="<RDML MERGE="SECDESC ">">
<RDML MERGE="&MESSAGES">
<BR>
<!-- The very first time, show an image so that the right hand side of the screen doesn't appear blank. -->
<!-- In this case the image has been set in the graphical variable *LW3SETIMG -->
<RDML NOTCONDITION="FIRS_TIME">
<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 VALIGN="TOP" WIDTH="100%">
<TR>
<TD ALIGN="CENTER"><IMG SRC="<RDML MERGE="*LW3SETIMG">"></TD>
</TR>
</TABLE>
</RDML>
<!-- Table showing the Employee browselist. -->
<RDML ONCONDITION="FIRS_TIME">
<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 VALIGN="TOP" WIDTH="100%">
<TR>
<TD ALIGN="CENTER"><RDML COMPONENT="S_011EMPLISTHEADER"></TD>
</TR>
<TR>
<TD><IMG BORDER=0 WIDTH="22" HEIGHT="10" SRC="<RDML MERGE="*LW3SETSPACER">"></TD>
</TR>
<TR>
<TD><RDML MERGE="@BLS_011EMPL "></TD>
</TR>
</TABLE>
</RDML>
</FORM>
</BODY>
</HTML>
<!-- Process : SET_011 WEB samples and examples -->
<!-- Function : SET011C Employees -->
<!-- Page : 001 -->
<!-- Generated by - LANSA -->
<!-- Created by user - SETUSER -->
<!-- Time and Date - 085843090300 -->
<!-- RDML function sequence number - 0033 -->
<!-- This is a *WEBEVENT function -->
<HTML>
<SCRIPT LANGUAGE="JavaScript">
<!-- This Java Script function recieves the selected Department and Section from the left side menu. (SET011B), -->
<!-- sets the value of SELT_DEPT and SELT_SECT submits the function SET011C which will SELECT all Employees -->
<!-- and build the Employee browselist. Refer also to the compononet S_011ADDSUBITM -->
function SetKey(KeyValue1,KeyValue2)
{
document.LANSA.ASELT_DEPT.value=KeyValue1; | |
document.LANSA.ASELT_SECT.value=KeyValue2; | |
HandleEvent('<RDML MERGE="*PROCESS">','<RDML MERGE="*FUNCTION">') |
</SCRIPT>
<HEAD>
<RDML MERGE="&STYLE">
<TITLE><RDML MERGE="&FUNCTION"> </TITLE>
</HEAD>
<RDML MERGE="&SCRIPT">
<!-- This condition is used to force the refresh of the bottom frame (SET011D). When there no Employees in a selected -->
<!-- Department/Section, whatever details were being displayed have to disapear. As well, when a different department/section -->
<!-- is chosen, any Employee details being displayed have to disappear -->
<BODY BGCOLOR="<RDML MERGE="*LW3CLNTCOLOR">"
BACKGROUND="<RDML MERGE="*LW3CLNTBKGND">"
<RDML NOTCONDITION="HAS_EMPLO">
onLoad="parent.empdet.ShowEmpDet('')"
</RDML>
>
<FORM METHOD="POST" NAME="LANSA"
ACTION="/<RDML MERGE="&CGI">/LANSAWEB?WEBEVENT+<RDML MERGE="&SESSPL">">
<RDML MERGE="&HIDDEN">
<INPUT NAME="ASELT_DEPT" TYPE="HIDDEN" SIZE="004" MAXLENGTH="004" VALUE="<RDML MERGE="SELT_DEPT ">">
<INPUT NAME="ASELT_SECT" TYPE="HIDDEN" SIZE="002" MAXLENGTH="002" VALUE="<RDML MERGE="SELT_SECT ">">
<INPUT NAME="AS_EMPNUMB" TYPE="HIDDEN" SIZE="005" MAXLENGTH="005" VALUE="<RDML MERGE="S_EMPNUMB ">">
<INPUT NAME="PHAS_EMPLO" TYPE="HIDDEN" SIZE="007" MAXLENGTH="007" VALUE="<RDML MERGE="HAS_EMPLO ">">
<INPUT NAME="PFIRS_TIME" TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="FIRS_TIME ">">
<INPUT NAME="ASTDRENTRY" TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="STDRENTRY ">">
<INPUT NAME="ADEPTDESC " TYPE="HIDDEN" SIZE="004" MAXLENGTH="020" VALUE="<RDML MERGE="DEPTDESC ">">
<INPUT NAME="ASECDESC " TYPE="HIDDEN" SIZE="004" MAXLENGTH="020" VALUE="<RDML MERGE="SECDESC ">">
<RDML MERGE="&MESSAGES">
<BR>
<!-- The very first time, show an image so that the right hand side of the screen doesn't appear blank. -->
<!-- In this case the image has been set in the graphical variable *LW3SETIMG -->
<RDML NOTCONDITION="FIRS_TIME">
<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 VALIGN="TOP" WIDTH="100%">
<TR>
<TD ALIGN="CENTER"><IMG SRC="<RDML MERGE="*LW3SETIMG">"></TD>
</TR>
</TABLE>
</RDML>
<!-- Table showing the Employee browselist. -->
<RDML ONCONDITION="FIRS_TIME">
<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 VALIGN="TOP" WIDTH="100%">
<TR>
<TD ALIGN="CENTER"><RDML COMPONENT="S_011EMPLISTHEADER"></TD>
</TR>
<TR>
<TD><IMG BORDER=0 WIDTH="22" HEIGHT="10" SRC="<RDML MERGE="*LW3SETSPACER">"></TD>
</TR>
<TR>
<TD><RDML MERGE="@BLS_011EMPL "></TD>
</TR>
</TABLE>
</RDML>
</FORM>
</BODY>
</HTML>