在用webservice进行数据传输的过程中,SAP系统与.net开发的信息系统之间的数据调用。如何用SAP调用外部的.net系统发布的webservice程序来获取外部的数据,详情请见下文:
1,创建代理
事务码:SE80
【右键】-【create】-【enterprise service】
选择【service consumer】点击【继续】
选择【URL/HTTP Destination】,点击【继续】
填写URL地址,地址是wsdl结尾的地址,然后点击【继续】
package处输入程序包,prefix处输入名称,request/task中输入请求号名称,点击【继续】
点击【complete】
然后点击【保存】,然后进行【激活】,则代理就创建好了
2,调用逻辑代理端口
事务码:LPCONFIG
填写【代理类】名称,【逻辑端口】名称(代理名称就是上创建的代理名称,逻辑端口名称与代理类名称相同即可),勾选【缺省端口】,点击创建
填写【描述】,勾选【全局设置】中的【状态管理】,保存
填写【调用参数】中的URL地址(以?wsdl结束的地址),然后保存
输入对应的URL地址中的对应方法的soapAction找到如下部分代码:
将其中的soapaction部分放入到SOAP操作,点击【保存】,然后点击【激活】
3,创建调用程序
事务码:SE38
填写程序名称,点击【创建】
填写【title】,选择【type】,然后点击【保存】
选择【开发类】,点击【保存】,输入请求号,程序就创建好了
SAP程序中撰写调用.net中的webservice的中的helloworld方法程序,直接第1步中创建好的代理拖拉到创建好的程序中,则会自动生成代码,将代码修改如下所示:
"定义调用函数名称 DATA: ZHELLOWORLD TYPE REF TO ZCRM_DELIVERYCO_SERVICE_SOAP . TRY. CREATE OBJECT ZHELLOWORLD * EXPORTING "定义逻辑端口名称 LOGICAL_PORT_NAME = ‘ZCRM_DELIVERYCO_SERVICE_SOAP‘ . CATCH CX_AI_SYSTEM_FAULT . ENDTRY. "定义输入输出参数类型 data: ZOUTPUT type ZCRM_DELIVERY_WSHELLO_WORLD_SO . data: ZINPUT type ZCRM_DELIVERY_WSHELLO_WORLD_S1 . TRY. CALL METHOD XXXXXXXX->HELLO_WORLD EXPORTING INPUT = ZINPUT IMPORTING OUTPUT = ZOUTPUT . * CATCH CX_AI_SYSTEM_FAULT . * CATCH CX_AI_APPLICATION_FAULT . ENDTRY.
通过调试上述代码,则可以看到调用到的数据
如果对方给定的webservice的URL地址中包含有消息头文件,则在程序中需要添加消息头文件的说明,其代码如下:
REPORT ZHELLOWORLD. "声明消息头header文件 data: ws_header TYPE REF TO if_wsprotocol_ws_header, name TYPE string, namespace TYPE string. DATA: ZHELLOWORLD TYPE REF TO ZCRM_DELIVERYCO_SERVICE_SOAP . TRY. CREATE OBJECT ZHELLOWORLD * EXPORTING * LOGICAL_PORT_NAME = . ws_header ?= ZHELLOWORLD->get_protocol(‘IF_WSPROTOCOL_WS_HEADER‘). DATA: ixml TYPE REF TO if_ixml, xml_document TYPE REF TO if_ixml_document, xml_root TYPE REF TO if_ixml_element, xml_element TYPE REF TO if_ixml_element, xml_node TYPE REF TO if_ixml_node. DATA l_xstring TYPE xstring. DATA l_string TYPE string. FIELD-SYMBOLS <fs_xstring> TYPE xstring. CONCATENATE "消息头文件header中的内容 ‘<soap:Header>‘ ‘<s1:MySoapHeader xmlns:s1="http://tempuri.org/">‘ "‘<s1:RegisteredUser>‘ ‘<s1:Uname>admin</s1:Uname>‘ ‘<s1:Password>admin</s1:Password>‘ "‘</s1:RegisteredUser> ‘</s1:MySoapHeader>‘ ‘</soap:Header>‘ INTO l_string. l_xstring = cl_proxy_service=>cstring2xstring( l_string ). IF NOT l_string IS INITIAL. CALL FUNCTION ‘SDIXML_XML_TO_DOM‘ EXPORTING xml = l_xstring IMPORTING document = xml_document EXCEPTIONS invalid_input = 1 OTHERS = 2. IF sy-subrc = 0 AND NOT xml_document IS INITIAL. xml_root = xml_document->get_root_element( ). xml_element ?= xml_root->get_first_child( ). WHILE NOT xml_element IS INITIAL. name = xml_element->get_name( ). namespace = ‘http://tempuri.org/‘ . "xml_element->get_namespace_uri( ). IF NOT xml_element IS INITIAL. ENDIF. ws_header->set_request_header( name = name namespace = namespace dom = xml_element ). xml_element ?= xml_element->get_next( ). ENDWHILE. ENDIF. ENDIF. CATCH CX_AI_SYSTEM_FAULT . ENDTRY. data: OUTPUT type ZCRM_DELIVERY_WSHELLO_WORLD_SO . data: INPUT type ZCRM_DELIVERY_WSHELLO_WORLD_S1 . TRY. CALL METHOD ZSALES->HELLO_WORLD EXPORTING INPUT = ZINPUT IMPORTING OUTPUT = ZOUTPUT . * CATCH CX_AI_SYSTEM_FAULT . * CATCH CX_AI_APPLICATION_FAULT . ENDTRY.