PeopleSoft-PS系统布置HTML页面

发表于 更新于 分类于 本文字数： 4k 阅读时长 ≈ 4 分钟
如果实现在PS系统中布置一个动态的HTML页面，以下是实现方法。

先创建HTML页面

在WEBLIB_CEP 表上的字段编写动态获取HTML页面的代码

如果是入口HTML，那么需要在PS的结构与内容注册，PeopleCode函数名称即为加载首页HTML的函数名称：

代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
import SH_ITF:XmindDataFile;
import C_EP_COMM_PKG:COMMON;
import C_EP_COMM_PKG:C_EP_ACTION;

<***********************************************>

rem 绩效文件详细-参评人评分详细;
Function Iscript_EpSelfView
   
   Local string &strHtml;
   Local string &strEMPLID = %Request.GetParameter("EMPLID");
   rem &strHtml = GetHTMLText(HTML.C_EP_LIST_HTML4);
   If None(&strEMPLID) Then
      &strEMPLID = %EmployeeId;
   End-If;
   If All(&strEMPLID) Then
      &strHtml = GetHTMLText(HTML.C_EP_LIST_WDJX_HTML);
   End-If;
   %Response.Write(&strHtml);
   
End-Function;


rem 获取绩效文件列表-查看历史(按年度查询);

Function Iscript_EpListDataCklsByYears
   Local string &strHtml;
   /*====================获取参数 begin==================================*/
   rem 用户;
   Local string &strEMPLID = %Request.GetParameter("EMPLID");
   rem 年度;
   Local string &strYEARS = %Request.GetParameter("YEARS");
   rem 期间ID;
   Local string &strCAL_PRD_ID = %Request.GetParameter("CAL_PRD_ID");
   rem 文档步骤;
   Local string &strC_EP_DOC_STEP = %Request.GetParameter("C_EP_DOC_STEP");
   rem 考核组;
   Local string &strGB_GROUP_ID = %Request.GetParameter("GB_GROUP_ID");
   
   
   If None(&strEMPLID) Then
      &strEMPLID = %EmployeeId;
   End-If;
   
   rem Error "==" | &strEMPLID | "==" | &strCAL_PRD_ID | "==" | &strC_EP_DOC_STEP | "==" | &strGB_GROUP_ID;
   /*====================获取参数 end==================================*/
   
   
   
   /*====================获取数据 begin==================================*/
   Local Rowset &rsC_IFC_DOC_LS_VW1 = CreateRowset(Record.C_IFC_DOC_LS_VW);
   Local string &strSQLwhere = " ";
   
   If None(&strYEARS) Then
      &strSQLwhere = &strSQLwhere | " WHERE 1 = 1 ";
   Else
      &strYEARS = &strYEARS | "%";
      &strSQLwhere = &strSQLwhere | " WHERE FILL.CAL_PRD_ID LIKE :1	";
   End-If;
   &strSQLwhere = &strSQLwhere | "	   AND FILL.CAL_PRD_ID = DECODE(:2, ' ', FILL.CAL_PRD_ID, :2)	";
   &strSQLwhere = &strSQLwhere | "	   AND FILL.C_EP_DOC_STEP = DECODE(:3, ' ', FILL.C_EP_DOC_STEP, :3)	";
   &strSQLwhere = &strSQLwhere | "	   AND FILL.GB_GROUP_ID = DECODE(:4, ' ', FILL.GB_GROUP_ID, :4)	";
   &strSQLwhere = &strSQLwhere | "	   AND FILL.EMPLID = DECODE(:5, ' ', FILL.EMPLID, :5) ORDER BY FILL.CAL_PRD_ID	";
   &rsC_IFC_DOC_LS_VW1.Fill(&strSQLwhere, &strYEARS, &strCAL_PRD_ID, &strC_EP_DOC_STEP, &strGB_GROUP_ID, &strEMPLID);
   
   Local number &t;
   rem 删除空行;
   For &t = &rsC_IFC_DOC_LS_VW1.ActiveRowCount To 1 Step - 1
      If &rsC_IFC_DOC_LS_VW1.GetRow(&t).GetRecord(Record.C_IFC_DOC_LS_VW).C_EP_DOC_ID.Value <= 0 Then
         &rsC_IFC_DOC_LS_VW1.DeleteRow(&t);
      End-If;
   End-For;
   /*====================获取数据 end==================================*/
   
   
   
   /*====================拼接JOSN串 begin==================================*/
   Local C_EP_COMM_PKG:COMMON &ApkEpComm = create C_EP_COMM_PKG:COMMON();
   Local string &strRetHtml = &ApkEpComm.TableDataToJosnString(&rsC_IFC_DOC_LS_VW1, "Iscript_EpListDataSjpf", "C_IFC_DOC_LS_VW");
   
   /*====================拼接JOSN串 end==================================*/
   rem &strHtml = GetHTMLText(HTML.C_EP_LIST_HTML);
   
   %Response.Write(&strRetHtml);
   
End-Function;

<***********************************************>

rem 获取期间列表(按年度查询);
Function Iscript_GetCalPrdIdYears
   Local string &strRetHtml;
   Local Rowset &rsC_IFC_PRD_Y_VW = CreateRowset(Record.C_IFC_PRD_Y_VW);
   &rsC_IFC_PRD_Y_VW.Fill(" where 1 = 1 ");
   
   /*====================拼接JOSN串 begin==================================*/
   Local C_EP_COMM_PKG:COMMON &ApkEpComm = create C_EP_COMM_PKG:COMMON();
   &strRetHtml = &ApkEpComm.TableDataToJosnString(&rsC_IFC_PRD_Y_VW, "GetCalPrdIdYears", "C_IFC_PRD_Y_VW");
   
   /*====================拼接JOSN串 end==================================*/
   
   %Response.Write(&strRetHtml);
End-Function;