WEBSERVICE接口

WEBSERVICE接口

1. 创建3张表，两张wrk表

 

另一张必须要有消息id,和消息描述

 

1. 创建消息，消息类型选择行集合

1. 请求行集合

点击向根节点添加记录，添加创建的表1，

（2）响应行集合

和请求行集合不同，首先要添加表3的存放消息ID记录，然后在添加子记录表2

 

1. 创建服务

1. 添加服务操作

在消息信息中写入请求消息和响应消息

5,选择处理程序选项卡，点击类型选择请求时，实现选择应用程序类，点击详细信息，，添加软件包，方法中必须实现onRequest方法（代码详见末尾）

 

1. 提供web服务

选择服务，点击下一步

 

选择服务操作，点击下一步

 

一直点击下一步，然后点击完成，进入一下页面

 

WSDL URL就是访问的接口地址

1. 可以使用soapui工具访问接口

相关代码：

import PS_PT:Integration:IRequestHandler;

 

class WH_HR_TEST_EMP1 implements PS_PT:Integration:IRequestHandler

method WH_HR_TEST_EMP1();

method onRequest(&MSG As Message) Returns Message;

 

end-class;

 

method WH_HR_TEST_EMP1

end-method;

 

method onRequest

/+ &MSG as Message +/

/+ Returns Message +/

/+ Extends/implements PS_PT:Integration:IRequestHandler.OnRequest +/

Local Message &Response_Message;

Local string &oEmplid, &oEmpl_rcd, &oHr_status, &oCompany, &oDeptid, &oDescr, &emplid, &empl_rcd, &hrstatus, &company, &deptid, &jobcode, &oFlag;

Local SQL &Sql;

Local boolean &First = True;

Local Rowset &reqRs, &messageRs;

Local Rowset &rowset;

Local string &MsgCode, &MsgDescr;

 

 

try

REM 获取请求消息;

&reqRs = &MSG.GetRowset();

 

&oEmplid = &reqRs(1).GetRecord(Record.WH_HR_TEST1_WRK).EMPLID.Value;

REM Error 222;

REM &oEmpl_rcd = &reqRs(1).GetRecord(Record.WH_HR_TEST1_WRK).EMPL_RCD.Value;

REM Error MsgGet(0, 0, "1");

&oHr_status = &reqRs(1).GetRecord(Record.WH_HR_TEST1_WRK).HR_STATUS.Value;

 

&oCompany = &reqRs(1).GetRecord(Record.WH_HR_TEST1_WRK).COMPANY.Value;

 

&oDeptid = &reqRs(1).GetRecord(Record.WH_HR_TEST1_WRK).DEPTID.Value;

&oDescr = &reqRs(1).GetRecord(Record.WH_HR_TEST1_WRK).DESCR.Value;

&oFlag = &reqRs(1).GetRecord(Record.WH_HR_TEST1_WRK).FLAG.Value;

 

Local string &Str = FetchSQL(SQL.WH_HR_TEST_SQL1);

If &oEmplid = "?" Then

Error MsgGet(0, 0, "员工ID输入错误，请重新输入......");

Else

If All(&oEmplid) Then

&Str = &Str | " AND J.EMPLID =" | Quote(&oEmplid);

End-If;

End-If;

REM 是否包含子部门;

If All(&oDeptid) Then

If &oFlag = "Y" Then

Local string &is_child_dept;

&is_child_dept = &is_child_dept | " SELECT WM_CONCAT(''''||PT.PART_TREE_NODE||'''') FROM (SELECT A.SETID ";

&is_child_dept = &is_child_dept | " , B.TREE_NODE PART_TREE_NODE ";

&is_child_dept = &is_child_dept | " , B.TREE_LEVEL_NUM PART_TREE_LEVEL_NUM ";

&is_child_dept = &is_child_dept | " , C.TREE_NODE ";

&is_child_dept = &is_child_dept | " , C.TREE_LEVEL_NUM ";

&is_child_dept = &is_child_dept | " FROM PSTREEDEFN A ";

&is_child_dept = &is_child_dept | " , PSTREENODE B ";

&is_child_dept = &is_child_dept | " , PSTREENODE C ";

&is_child_dept = &is_child_dept | " WHERE ";

&is_child_dept = &is_child_dept | " A.TREE_NAME = 'DEPT_SECURITY' ";

&is_child_dept = &is_child_dept | " AND A.EFFDT = ( ";

&is_child_dept = &is_child_dept | " SELECT MAX(A1.EFFDT) ";

&is_child_dept = &is_child_dept | " FROM PSTREEDEFN A1 ";

&is_child_dept = &is_child_dept | " WHERE A1.SETID = A.SETID ";

&is_child_dept = &is_child_dept | " AND A1.SETID = 'SHARE' ";

&is_child_dept = &is_child_dept | " AND A1.SETCNTRLVALUE = A.SETCNTRLVALUE ";

&is_child_dept = &is_child_dept | " AND A1.TREE_NAME = A.TREE_NAME ";

&is_child_dept = &is_child_dept | " AND A1.EFF_STATUS = 'A' ";

&is_child_dept = &is_child_dept | " AND A1.EFFDT <= SYSDATE) ";

&is_child_dept = &is_child_dept | " AND B.SETID = A.SETID ";

&is_child_dept = &is_child_dept | " AND B.SETCNTRLVALUE = A.SETCNTRLVALUE ";

&is_child_dept = &is_child_dept | " AND B.TREE_NAME = A.TREE_NAME ";

&is_child_dept = &is_child_dept | " AND B.EFFDT = A.EFFDT ";

&is_child_dept = &is_child_dept | " AND C.SETID = A.SETID ";

&is_child_dept = &is_child_dept | " AND C.SETCNTRLVALUE = A.SETCNTRLVALUE ";

&is_child_dept = &is_child_dept | " AND C.TREE_NAME = A.TREE_NAME ";

&is_child_dept = &is_child_dept | " AND C.EFFDT = A.EFFDT ";

&is_child_dept = &is_child_dept | " AND C.TREE_NODE_NUM BETWEEN B.TREE_NODE_NUM AND B.TREE_NODE_NUM_END) PT ";

&is_child_dept = &is_child_dept | " WHERE PT.TREE_NODE = :1 ";

 

Local File &filelog = GetFile(GetEnv("PS_CFG_HOME") | "/IFC_" | DateTimeToLocalizedString(%Date, "yyyyMMddHHmmss") | ".log", "w", "a", %FilePath_Absolute);

 

Local string &strDP;

 

SQLExec(&is_child_dept, &oDeptid, &strDP);

&Str = &Str | " and J.DEPTID in ( " | &strDP | ")";

Else

&Str = &Str | " and J.DEPTID = " | Quote(&oDeptid);

End-If;

End-If;

 

rem 创建响应消息行集合;

&messageRs = CreateRowset(Record.WH_HR_TEST_MSG, CreateRowset(Record.WH_HR_TEST2_WRK));

&rowset = &messageRs(1).GetRowset(Scroll.WH_HR_TEST2_WRK);

REM 定义临时表;

Local Record &rec = CreateRecord(Record.WH_HR_TEST2_WRK);

rem 查询数据;

REM &filelog.WriteLine(&Str);

REM &filelog.Close();

&Sql = CreateSQL(&Str);

 

While &Sql.Fetch(&emplid, &empl_rcd, &hrstatus, &company, &deptid, &jobcode)

 

&rec.EMPLID.Value = &emplid;

&rec.EMPL_RCD.Value = &empl_rcd;

&rec.HR_STATUS.Value = &hrstatus;

&rec.COMPANY_DESCR.Value = &company;

&rec.DEPT_DESCR.Value = &deptid;

&rec.JOBCODE_DESCR.Value = &jobcode;

 

If &First Then

&rec.CopyFieldsTo(&rowset(1).WH_HR_TEST2_WRK);

&First = False;

Else

&rowset.InsertRow(&rowset.ActiveRowCount);

&rec.CopyFieldsTo(&rowset(&rowset.ActiveRowCount).WH_HR_TEST2_WRK);

End-If;

End-While;

&Sql.Close();

If None(&rowset(1).WH_HR_TEST2_WRK.EMPLID.Value) Then

&MsgCode = "100";

&MsgDescr = "未查询到员工信息！！！";

 

Else

 

&MsgCode = "101";

&MsgDescr = "员工数据获取成功！！！";

End-If;

 

catch Exception &ex

 

&MsgCode = "102";

&MsgDescr = "异常消息：" | &ex.ToString();

end-try;

 

&messageRs(1).GetRecord(Record.WH_HR_TEST_MSG).MESSAGE_ID.Value = &MsgCode;

&messageRs(1).GetRecord(Record.WH_HR_TEST_MSG).MESSAGE_DESCR.Value = &MsgDescr;

 

&Response_Message = CreateMessage(Operation.WH_HR_TEST_SYNC, %IntBroker_Response);

&Response_Message.CopyRowset(&messageRs);

 

Return &Response_Message;

end-method;