HTML for SET011C (SET011C001)

LANSA

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)
{
 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>