eletter

Local Rowset &RS;
Local Rowset &LEVEL0, &LEVEL1, &RS0, &RS1;

&RS = CreateRowset(Record.HR_SS_EE_RCD_VW);

&RS.Flush();
&RS.Fill("where EMPLID = :1", HR_SS_PERS_SRCH.EMPLID.Value);

HR_SSEECMPH_WRK.DESCR = &RS.GetRow(1).HR_SS_EE_RCD_VW.DESCR.Value;
HR_SSEECMPH_WRK.DESCR2 = &RS.GetRow(1).HR_SS_EE_RCD_VW.DESCR2.Value;
HR_SSEECMPH_WRK.EMPL_STATUS = &RS.GetRow(1).HR_SS_EE_RCD_VW.EMPL_STATUS.Value;


<*########################################################################
Developer:Joseph
Date:19/6/2009
Description:To view the E letter 
##########################################################################*>


&LEVEL0 = GetLevel0();
&LEVEL1 = &LEVEL0(1).GetRowset(Scroll.ZIN_INCRBNS_UPL);

&emplid = HR_SS_PERS_SRCH.EMPLID.Value;
&emplid_value = "%" | &emplid | "%";

ScrollFlush(Scroll.ZIN_INCRBNS_UPL);
ScrollSelect(1, Record.ZIN_INCRBNS_UPL, Record.ZIN_INCRBNS_UPL, "WHERE  FILE_SEQ='0' AND ATTACHSYSFILENAME LIKE :1", &emplid_value);

For &i = 1 To &LEVEL1.ActiveRowCount
   &file = &LEVEL1(&i).ZIN_INCRBNS_UPL.ATTACHSYSFILENAME.Value;
   &LEVEL1(&i).ZIN_DERIVED_INC.ATTACHSYSFILENAME.Value = Substring(&file, 36, Len(&file));
   &LEVEL1(&i).ZIN_DERIVED_INC.ZIN_MONTH.Value = Substring(&file, 44, 2);
   &LEVEL1(&i).ZIN_DERIVED_INC.ZIN_YEARCD.Value = Substring(&file, 46, 4);
  
   <*########################################################################
Developer:Madan.M
Date:29/3/2010
Description:To view the E letter (UM - Goal Sheet Process) 
##########################################################################*>
   SQLExec("SELECT AGREEMENT_ACCEPT FROM PS_ZIN_LETTER_STS WHERE ATTACHSYSFILENAME=:1", &file, &Agree);
   &LEVEL1(&i).ZIN_DERIVED_LVE.AGREEMENT_ACCEPT.Value = &Agree;
   If All(&Agree) Then
      &LEVEL1(&i).ZIN_DERIVED_LVE.AGREEMENT_ACCEPT.DisplayOnly = True;
   Else
      &LEVEL1(&i).ZIN_DERIVED_LVE.AGREEMENT_ACCEPT.Visible = False;
   End-If;
End-For;

<*########################################################################
Developer:Madan.M
Date:29/3/2010
Description:To view the E letter  (UM - Goal Sheet Process)
##########################################################################*>
SQLExec("SELECT A.ATTACHSYSFILENAME FROM PS_ZIN_INCRBNS_UPL A WHERE A.LASTUPDDTTM = (SELECT MAX(A1.LASTUPDDTTM) FROM PS_ZIN_INCRBNS_UPL A1 WHERE A.ATTACHSYSFILENAME = A1.ATTACHSYSFILENAME) AND A.FILE_SEQ='0' AND A.ATTACHSYSFILENAME LIKE :1", &emplid_value, &FILE_NAME);

If &FILE_NAME <> "" Then
   &RS1 = GetLevel0().GetRow(1).GetRowset(Scroll.ZIN_INCRBNS_UPL);
   For &i = 1 To &RS1.ActiveRowCount
      &RS1(&i).DERIVED_HR.EMPLID.Value = &emplid;
   End-For;
Else
   &LEVEL1.HideAllRows();
End-If;