eletter field change

import ZIN_COMMON:*;

Local Rowset &LEVEL11, &LEVEL10, &L0;
Component string &FILE_NAME;
Component string &emplid;

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

&URL_ID = "ZIN_INCRBNS_UPL";
&URL_ID = "URL." | &URL_ID;
&URL = GetURL(@&URL_ID);

&LEVEL10 = GetLevel0();
&LEVEL11 = &LEVEL10(1).GetRowset(Scroll.ZIN_INCRBNS_UPL);
&FILE_NAME = &LEVEL11(CurrentRowNumber()).ZIN_INCRBNS_UPL.ATTACHSYSFILENAME.Value;


SQLExec("SELECT COUNT(*) FROM PS_ZIN_INCRBNS_UPL WHERE ATTACHSYSFILENAME = :1", &FILE_NAME, &Cnt);

If &Cnt <= 0 Then
   MessageBox(0, "Increment Bonus/Performance Letter for the selected period is not available for viewing", 0, 0, "Increment Bonus/Performance Letter for the selected period is not available for viewing");
Else
  
   &retcode = ViewAttachment(&URL, &FILE_NAME, Right(&FILE_NAME, 18));
  
   If (&retcode = %Attachment_Failed) Then
      MessageBox(0, "File Attachment Status", 0, 0, "Letter not Found");
   End-If;
   If (&retcode = %Attachment_Cancelled) Then
      MessageBox(0, "File Attachment Status", 0, 0, "Letter not Found");
   End-If;
   If (&retcode = %Attachment_FileTransferFailed) Then
      MessageBox(0, "File Attachment Status", 0, 0, "Letter not Found");
   End-If;
End-If;

<*###################################################################################################
Developer:Madan
Date:11/3/2010
Description:Acknowledgement for the E letter of the employee
####################################################################################################*>
&UM_GOAL = Find("UM_SPRINT_GOALSHEET.pdf", &FILE_NAME, 51);
&ZIN_LETTER_STS = CreateRecord(Record.ZIN_LETTER_STS);
If &UM_GOAL <> 0 Then
   SQLExec("SELECT EMPLID FROM PS_ZIN_LETTER_STS WHERE EMPLID = :1", &emplid, &empl_count);
   If None(&empl_count) Then
     
      ZIN_DERIVED_LVE.AGREEMENT_ACCEPT.Visible = True;
     
      &ZIN_LETTER_STS.ATTACHSYSFILENAME.VALUE = &FILE_NAME;
      &ZIN_LETTER_STS.EMPLID.VALUE = &emplid;
      &ZIN_LETTER_STS.AGREEMENT_ACCEPT.Value = "A";
      &ZIN_LETTER_STS.VIEW_DETAILS.VALUE = "N";
      &ZIN_LETTER_STS.LASTUPDDTTM.VALUE = %Datetime;
      &ZIN_LETTER_STS.LASTUPDOPRID.VALUE = %OperatorId;
      &ZIN_LETTER_STS.Insert();
   End-If;
Else
   ZIN_DERIVED_LVE.AGREEMENT_ACCEPT.Visible = False;
End-If;

<*########################################################################
Developer:Madan.M
Date:29/3/2010
Description:To view the E letter  (UM - Goal Sheet Process)
##########################################################################*>

If &ZIN_LETTER_STS.VIEW_DETAILS.VALUE = "N" Then
   Local ZIN_COMMON:AppEngineBase &AppEngine = create ZIN_COMMON:AppEngineBase();
   Local ZIN_COMMON:ReportBase &Value = create ZIN_COMMON:ReportBase();
   rem &Location = &Value.GetFieldValue("LOCATION_TBL", "DESCR", &Value.getjobfieldvalue("BUSINESS_UNIT", %EmployeeId), &Value.getjobfieldvalue("LOCATION", %EmployeeId), "", "", "");
   SQLExec("SELECT CITY FROM PS_ZIN_JOB WHERE EMPLID=:1", %EmployeeId, &city);
   SQLExec("SELECT CITY FROM PS_ZIN_CITY_TBL WHERE GVT_CITY_CODE = :1 AND COUNTRY = 'IND'", &city, &Locdescr);
   &Subject = MsgGetText(21000, 92, "", &Value.GetName(%EmployeeId), %EmployeeId);
  
   &Text = MsgGetExplainText(21000, 92, "", DateTimeToLocalizedString(%Date, "dd-MMM-yy"), &Value.GetName(%EmployeeId), %EmployeeId, &Locdescr);
  
   &supv = &Value.getjobfieldvalue("SUPERVISOR_ID", %EmployeeId);
   SQLExec("SELECT EMAILID FROM PSOPRDEFN WHERE OPRID = :1", %EmployeeId, &mail1);
   SQLExec("SELECT EMAILID FROM PSOPRDEFN WHERE OPRID = :1", &supv, &mail2);
   &mail = &mail1 | ";" | &mail2 | ";" | "umgoalsheet@tata-aig.com";
   &TO = &mail;
  
   &contentHtml = "Content-type: text/html; charset=US-ASCII";
   &ret = SendMail(&MAIL_FLAGS, &TO, &MAIL_CC, &MAIL_BCC, &Subject, &Text, &MAIL_FILES, &MAIL_TITLES, &MAIL_SENDER, &contentHtml);
   rem &retcode = &AppEngine.SendEmail(&TO, "", &Subject, &Text, "", "");
   If &ret = 0 Then
      &ZIN_LETTER_STS.ATTACHSYSFILENAME.VALUE = &FILE_NAME;
      &ZIN_LETTER_STS.EMPLID.VALUE = &emplid;
      &ZIN_LETTER_STS.VIEW_DETAILS.VALUE = "Y";
      &ZIN_LETTER_STS.LASTUPDDTTM.VALUE = %Datetime;
      &ZIN_LETTER_STS.LASTUPDOPRID.VALUE = %OperatorId;
      &ZIN_LETTER_STS.Update();
   End-If;
End-If;
ZIN_DERIVED_LVE.AGREEMENT_ACCEPT.Enabled = False;