HTML for function SET011D (SET011D001)

LANSA

HTML for function SET011D (SET011D001)
<!-- Process : SET_011 WEB samples and examples -->
<!-- Function : SET011D Employee Details -->
<!-- Page : 001 -->

<!-- Generated by - LANSA -->
<!-- Created by user - SETUSER -->
<!-- Time and Date - 100437100300 -->

<!-- RDML function sequence number - 0037 -->

<!-- This is a *WEBEVENT function -->

<HTML>


<SCRIPT>

<!-- This Java Script function recieves the Employee Number from the Employee selected in the Employee browselist (SET011C), -->
<!-- sets the value of S_EMPNUMB and submits the function SET011D which will FETCH the Employee details and display them-->
<!-- in the bottom frame (empdet). Refer also to the compononets S_011RBSE and S_011ADDSUBITM-->

function ShowEmpDet(EmpNo)
{
document.LANSA.AS_EMPNUMB.value=EmpNo;
HandleEvent('<RDML MERGE="*PROCESS">','<RDML MERGE="*FUNCTION">')
}
</SCRIPT>

<HEAD>
<RDML MERGE="&STYLE">
<TITLE><RDML MERGE="&FUNCTION"> </TITLE>
</HEAD>


<RDML MERGE="&SCRIPT">

<BODY BGCOLOR="<RDML MERGE="*LW3CLNTCOLOR">"
BACKGROUND="<RDML MERGE="*LW3CLNTBKGND">" <RDML COMPONENT="FORMINIT">>

<FORM METHOD="POST" NAME="LANSA"
ACTION="/<RDML MERGE="&CGI">/LANSAWEB?WEBEVENT+<RDML MERGE="&SESSPL">">

<RDML MERGE="&HIDDEN">

<RDML MERGE="&MESSAGES">

<!-- This table merges all the Employee details. It is conditioned by the value of FIRS_TIME whose value is set in SET011D -->

<RDML ONCONDITION="FIRS_TIME">

<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=0 BORDERCOLOR="DARKBLUE" WIDTH="100%">
<TR>
<TD ALIGN="CENTER" BGCOLOR="LIGHTBLUE">
<FONT FACE="Arial" SIZE=4 COLOR="DARKRED"><RDML MERGE="FULLNAME"></FONT>
</TD>
</TR>

<TR>
<TD>
<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 BORDERCOLOR="DARKBLUE" WIDTH="100%">
<TR>
<TD VALIGN="TOP">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH="100%">
<TR>
<TD WIDTH="25%">
<FONT FACE="Arial" SIZE="2" COLOR="darkred">
<STRONG>Address:</STRONG>&nbsp;&nbsp;
</TD>
<TD WIDTH="75%">
<FONT COLOR="black" FACE="Arial" SIZE="2"><RDML MERGE="FULLADDRE "></FONT>
</FONT>
</TD>
</TR>
<TR>
<TD WIDTH="25%">
<FONT FACE="Arial" SIZE="2" COLOR="darkred">
  <STRONG>Home phone:</STRONG>&nbsp;&nbsp;
</TD>
<TD WIDTH="75%">
  <FONT COLOR="black" FACE="Arial" SIZE="2"><RDML MERGE="PHONEHME "></FONT>
  </FONT>
</TD>
<TR>
<TD WIDTH="25%">
<FONT FACE="Arial" SIZE="2" COLOR="darkred">
  <STRONG>Bus. phone:</STRONG>&nbsp;&nbsp;
</TD>
<TD WIDTH="75%">
<FONT COLOR="black" FACE="Arial" SIZE="2"><RDML MERGE="PHONEBUS "></FONT>
</FONT>
</TD>
</TR>
</TR>
<TR>
 <TD>&nbsp;</TD>
</TR>
<TR>
<TD WIDTH="25%">
<FONT FACE="Arial" SIZE="2" COLOR="darkred">
<STRONG>Start Date:</STRONG>&nbsp;&nbsp;
</TD>
<TD WIDTH="75%">
<FONT COLOR="black" FACE="Arial" SIZE="2"><RDML MERGE="STARTDTE " EDITCODEO="Y"></FONT>
</FONT>
</TD>
</TR>
<TR>
<TD WIDTH="25%">
<FONT FACE="Arial" SIZE="2" COLOR="darkred">
<STRONG>Salary:</STRONG>&nbsp;&nbsp;
</TD>
<TD WIDTH="75%">
<FONT COLOR="black" FACE="Arial" SIZE="2"><RDML MERGE="SALARY " EDITCODEO="1"></FONT>
</FONT>
</TD>
</TR>
</TABLE>
</TD>
<RDML ONCONDITION="HAS_SKILL">
<TD VALIGN="top">
<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 BORDERCOLOR="DARKBLUE">
<TR>
<TD VALIGN="top">
<RDML MERGE="@BLS_011SKLL ">
</TD>
</TR>
</TABLE>
</TD>
</RDML>
<RDML NOTCONDITION="HAS_SKILL">
<TD VALIGN="middle">
<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 BORDERCOLOR="DARKBLUE">
<TR>
<TD VALIGN="middle">
<RDML COMPONENT="S_011NOSK">
</TD>
</TR>
</TABLE>
</TD>
</RDML>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</RDML>


<INPUT NAME="AS_EMPNUMB" TYPE="HIDDEN" SIZE="005" MAXLENGTH="005" VALUE="<RDML MERGE="S_EMPNUMB ">">
<INPUT NAME="ASTDRENTRY" TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="STDRENTRY ">">
<INPUT NAME="PFIRS_TIME" TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="FIRS_TIME ">">
<INPUT NAME="AFULLNAME " TYPE="HIDDEN" SIZE="001" MAXLENGTH="041" VALUE="<RDML MERGE="FULLNAME ">">

</FORM>

</HTML>