预警开发步骤

1、第一步：创建邮件收件人类/*/* 编号：HPS_HR005 */* 描述：合同到期 */* 作者： */* 日期：2015-04-17 */*/import HPS_ALERT:HPS_ALTER_INTFACE;import HPS_COMMON:HR_COMMON:Hr_Common;class HPS_HR005_DS implements HPS_ALERT:HPS_ALTER_INTFACE method HPS_HR005_DS(); /*获取预警要发送的数据*/ method GetAlterDataSource() Returns array of array of any;

2、/*获取预警接收者员工ID*/ method GetAlterRecipter() Returns array of array of any; /*获取邮件接收着需要抄送对象的对应关系*/ method GetRecipterCC() Returns array of array of any; /*获取预警接收者员工ID和预警内容关联员工的对应关系*/ method GetAlterRecipterMap() Returns array of array of any; /*发送表格的头*/ method GetTableHeader() Returns array of any; /*智

3、能分组*/ method PutRcpArray(&rcpTemp As array of any); /*添加预警接收者和抄送对象的对应关系*/ method PutRcpCCArray(&rcpEmplid As string, &ccContent As string, &ccType As string); /*添加预警接收者和预警内容相关员工的对应关系*/ method PutRcpMapArray(&rcpEmplid As string, &cntEmplid As string); /*接收者二维数组,一维数组格式,第一列为接收人

4、的员工ID,第二列为类型EMPLID或者EMAIL*/ property array of array of any rcpArray; /*邮件抄送二维数组,第一列为接收人的员工ID,第二列为需要抄送的邮件地址或者员工工号，第三列标志第二列的内容（EMPLID/EMAIL）*/ property array of array of any rcpCCArray; /*接收者二维数组，第一列为接受者员工ID，第二列为预警内容相关员工ID*/ property array of array of any rcpMapArray; /*回调处理函数,主要用来处理数据发送状态*/ method Ca

5、llBackStatus(&dsArray As array of array of any); /*事物处理表对象*/ property Record txnRec; /*参数列表*/ property any commonParamter; private instance HPS_COMMON:HR_COMMON:Hr_Common &common;end-class;method HPS_HR005_DS &common = create HPS_COMMON:HR_COMMON:Hr_Common(); %This.rcpArray = CreateArray

6、Rept(CreateArrayAny(), 0); %This.rcpMapArray = CreateArrayRept(CreateArrayAny(), 0); %This.rcpCCArray = CreateArrayRept(CreateArrayAny(), 0);end-method;method CallBackStatus /+ &dsArray as Array2 of Any +/ /+ Extends/implements HPS_ALERT:HPS_ALTER_INTFACE.CallBackStatus +/end-method;method GetAl

7、terDataSource /+ Returns Array2 of Any +/ /+ Extends/implements HPS_ALERT:HPS_ALTER_INTFACE.GetAlterDataSource +/ Local array of array of any &dsArray = CreateArrayRept(CreateArrayAny(), 0); Local array of any &data; Local string &name, &deptLevelDescr, &hireDt, &ConEndDt, &a

8、mp;reportsTo, &emplidRcp, &emplidRcp_CC; Local array of any &temp = CreateArrayAny(); Local SQL &sql, &sql2; Local number &index; Local string &str; &str = &str | "SELECT A.EMPLID, C.NAME_DISPLAY, A.CONTRACT_NUM, A.CONTRCT_EXP_END_DT FROM PS_CONTRACT_DATA A,

9、PS_PERSONAL_DATA C" &str = &str | " WHERE C.EMPLID = A.EMPLID AND (A.CONTRACT_END_DT IS NULL OR A.CONTRACT_END_DT > SYSDATE) AND ( A.EMPLID = 'K0G006' or A.EMPLID='KWG015')" &sql = CreateSQL(&str); While &sql.Fetch(&temp) /*加入表格头*/ If &in

10、dex = 0 Then &dsArray.Push(%This.GetTableHeader(); &index = &index + 1; End-If; /*第一列为该行数据的接收者,用于分组发送的参数*/ &data = CreateArrayAny(&temp 1, &temp 1, &temp 2, &temp 3, &temp 4); Evaluate %This.txnRec.HPS_ALERT_WAY.Value When "D" /*分组发送*/ Local SQL &emp

11、lInPosnSql = CreateSQL("SELECT ROLEUSER FROM此处为取收件人逻辑 PS_ROLEUSER_VW WHERE ROLENAME='HPS_DEVELOPER'"); &emplidRcp = "" While &emplInPosnSql.Fetch(&emplidRcp) If All(&emplidRcp) Then %This.PutRcpArray(CreateArrayAny(&emplidRcp,&common.GetEmailAddr(&

12、amp;emplidRcp, "BUSN"); %This.PutRcpMapArray(&emplidRcp, &temp 1);此处是形成收件人和符合预警逻辑人之间的一对多关系 End-If; End-While; &emplInPosnSql.Close(); Local SQL &emplInPosnSql_CC = CreateSQL("SELECT ROLEUSER取抄送人逻辑，如无抄送功能注释此处代码 FROM PS_ROLEUSER_VW WHERE ROLENAME='HPS_DEVELOPER'&

13、quot;); &emplidRcp_CC = "" While &emplInPosnSql_CC.Fetch(&emplidRcp_CC) If All(&emplidRcp_CC) Then %This.PutRcpArray(CreateArrayAny(&emplidRcp_CC,&common.GetEmailAddr(&emplidRcp_CC, "BUSN"); %This.PutRcpCCArray(&emplidRcp_CC, &common.GetEmailAd

14、dr(&emplidRcp_CC, "BUSN"), "EMAIL"); End-If; End-While; &emplInPosnSql_CC.Close(); Break; When "A" /*统一发送：该功能暂时取消*/ Break; End-Evaluate; &dsArray.Push(&data); End-While; &sql.Close(); Return &dsArray;end-method;method PutRcpArray /+ &rcpTemp

15、as Array of Any +/ Local number &i; Local boolean &flag = False; If %This.rcpArray.Len <= 0 Then %This.rcpArray.Push(CreateArrayAny(&rcpTemp 1, &rcpTemp 2, "EMPLID"); Else For &i = 1 To %This.rcpArray.Len If (%This.rcpArray &i1 = &rcpTemp 1) Then &flag =

16、True; End-If; End-For; If Not &flag Then %This.rcpArray.Push(CreateArrayAny(&rcpTemp 1, &rcpTemp 2, "EMPLID"); End-If; End-If;end-method;method PutRcpMapArray /+ &rcpEmplid as String, +/ /+ &cntEmplid as String +/ Local number &i; Local boolean &flag = False; If

17、 %This.rcpMapArray.Len <= 0 Then %This.rcpMapArray.Push(CreateArrayAny(&rcpEmplid, &cntEmplid, "EMPLID"); Else For &i = 1 To %This.rcpMapArray.Len If (%This.rcpMapArray &i1 = &rcpEmplid) And (%This.rcpMapArray &i2 = &cntEmplid) Then &flag = True; End-If;

18、End-For; If Not &flag Then %This.rcpMapArray.Push(CreateArrayAny(&rcpEmplid, &cntEmplid, "EMPLID"); End-If; End-If;end-method;method PutRcpCCArray /+ &rcpEmplid as String, +/ /+ &ccContent as String, +/ /+ &ccType as String +/ Local number &i; Local boolean &

19、;flag = False; If %This.rcpCCArray.Len <= 0 Then %This.rcpCCArray.Push(CreateArrayAny(&rcpEmplid, &ccContent, &ccType); Else For &i = 1 To %This.rcpCCArray.Len If (%This.rcpCCArray &i1 = &rcpEmplid) And (%This.rcpCCArray &i2 = &ccContent) And (%This.rcpCCArray &

20、;i3 = &ccType) Then &flag = True; End-If; End-For; If Not &flag Then %This.rcpCCArray.Push(CreateArrayAny(&rcpEmplid, &ccContent, &ccType); End-If; End-If;end-method;method GetAlterRecipter /+ Returns Array2 of Any +/ /+ Extends/implements HPS_ALERT:HPS_ALTER_INTFACE.GetAlter

21、Recipter +/ Return %This.rcpArray;end-method;method GetRecipterCC /+ Returns Array2 of Any +/ /+ Extends/implements HPS_ALERT:HPS_ALTER_INTFACE.GetRecipterCC +/ Return %This.rcpCCArray;end-method;method GetAlterRecipterMap /+ Returns Array2 of Any +/ /+ Extends/implements HPS_ALERT:HPS_ALTER_INTFACE

22、.GetAlterRecipterMap +/ Return %This.rcpMapArray;end-method;method GetTableHeader /+ Returns Array of Any +/ Local array of any &header = CreateArrayAny(); Return &header;end-method;第二步：创建邮件模版类/*/* 编号：HPS_HR_ALT_003 */* 描述：工作满10年的员工，合同到期 */* 前60天，通知其主管 */* 作者：Daffy */* 日期：2014-12-03 */*/impo

23、rt HPS_ALERT:HPS_ALERT_TEMPLATE;import HPS_COMMON:HR_COMMON:Hr_Common;class HPS_HR005_TEMPLATE_MAIL extends HPS_ALERT:HPS_ALERT_TEMPLATE method HPS_HR005_TEMPLATE_MAIL(); /*生成邮件内容*/ method GenerateHTMLContent() Returns string; /*邮件正文内容*/ method GetContent() Returns string; /*初始化邮件模板中配置的变量值*/ method

24、initTemplateVarList() Returns array of any; /*获取邮件主题：如果为空，则取自模板配置*/ method GetEmailSubject() Returns string; /*事物处理表对象*/ property Record txnRec; /*收件人员工ID*/ property string emplid;private instance HPS_COMMON:HR_COMMON:Hr_Common &common;end-class;method HPS_HR005_TEMPLATE_MAIL %Super = create HPS

25、_ALERT:HPS_ALERT_TEMPLATE(); &common = create HPS_COMMON:HR_COMMON:Hr_Common();end-method;method GenerateHTMLContent /+ Returns String +/ /+ Extends/implements HPS_ALERT:HPS_ALERT_TEMPLATE.GenerateHTMLContent +/ Local string &htmlContent; Local array of any &varList; Local number &i;

26、 /*获取邮件模板*/ Local Record &templateRec = CreateRecord(Record.HPS_ALT_TEMPLTE); &templateRec.HPS_ALT_TEMPLTE_ID.Value = %This.txnRec.HPS_ALT_TEMPLTE_ID.Value; If (&templateRec.SelectByKey() Then &htmlContent = &templateRec.HPS_EMAIL_CONTENT.Value; End-If; /*替换模板中的变量值*/ &varList

27、 = %This.initTemplateVarList(); For &i = &varList.Len To 1 Step - 1 &htmlContent = Substitute(&htmlContent, "%CAFVAR" | &i, &varList &i); End-For; /*生成最终邮件内容*/ Return %Super.GenerateEmailContent(&htmlContent);end-method;method GetContent /+ Returns String +/

28、 Local string &html; Local string &style; Local number &i; /* &html = &html | "<table " | %Super.tableStyle | ">" | %Super.lineTail; For &i = 1 To %Super.dsArray.Len &html = &html | "<tr>" | %Super.lineTail; If &i = 1 Then

29、 &style = %Super.thStyle; Else &style = %Super.tdStyle; End-If; &html = &html | "<td " | &style | ">" | %Super.dsArray &i2 | "</td>" | %Super.lineTail; &html = &html | "<td " | &style | ">" | %Sup

30、er.dsArray &i3 | "</td>" | %Super.lineTail; &html = &html | "<td " | &style | ">" | %Super.dsArray &i4 | "</td>" | %Super.lineTail; &html = &html | "<td " | &style | ">" | %Super.dsArr

31、ay &i5 | "</td>" | %Super.lineTail; &html = &html | "<td " | &style | ">" | %Super.dsArray &i6 | "</td>" | %Super.lineTail; &html = &html | "</tr>" | %Super.lineTail; End-For; &html = &html | "</table>" | %Super.lineTail;*/ Return &html;end-method;method initTemplateVarList /+ Returns Array of An