.NET 调用SAP Web Service(转）

里，我们介绍外部系统调用SAP R/3的WEB SERVICE的功能，以.NET调用WEB SERVICE为例。
Web service是一种通用的接口方式，通过WEB实现系统间的通讯，所以掌握WEB SERVICE的接口方式，可以有效的为我们提供接口设计方法。

下面我们开始介绍.NET调用WEB SERVICE的实现方法：
1． 在R3中创建remote enable的RFC
在R/3中创建一个通过参数CARRID获取FLIGHTS数据的RFC：
定义属性为Remote-Enabled
在IMPORT中定义过滤参数
在TABLES中定义返回数据的表类型
在SOURCE CODE中，写入取数逻辑：

2． 将RFC扩展成为WEBSERVICE
Sap提供给我们根据RFC扩展为WEBSERVICE的方式，简化定义webservice的过程：
修改RFC，路径：Utlities->More Utlities->Create Web Service
定义webservice的名称：
下一屏幕，采用默认值：
下一屏幕，Profil属性选择MEDIUN
下一屏幕，选择package，我们这里选择LOCAL，然后点击“继续”，直到完成。
3． 维护webservice并获得WSDL
执行TCODE：SOAMANAGER，系统为我们打开一个WEB页面：
选择“Application and scenario Communition”下的Single Service Administration链接：
在“Search Pattern”中，输入我们的WEBSERVICE，选中查询到的结果，并点击“APPLY Selection”按钮，页面下面的内容就是WEBSERVICE的定义，可以根据需要进行修改。
选择上图中的“Open WSDL document for selected binding”链接，弹出WSDL的界面，保存地址栏中的地址：

4． 在VS2005中，调用webservice
在VS2005中，创建WEB项目：
在WEB项目中添加WEB引用：
输入刚才创建的SAP webservice的WSDL地址，点击“前往”：
按要求输入验证用户名及密码：
链接成功后，系统提示找到了WEBSERVICE，点击“添加引用”按钮，完成web引用的添加。
我们可以在类视图中查看到系统自动添加的代理类：
接下来，我们通过代理类，来调用WEBSERVICE提供的数据：
在DEFAULT.ASPX中添加GRIDVIEW：
在Page_Load方法中添加以下代码：
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Net;
public partial class _Default : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
//authority
NetworkCredential credentials = new NetworkCredential("ZHAOCG", "password");
com.XXXXX.sap.bjbidev.ZFLIGHTService serv = new com.XXXXX.sap.bjbidev.ZFLIGHTService();
serv.Credentials = credentials;

com.XXXXX.sap.bjbidev.Sflight[] data;
data = new com.XXXXX.sap.bjbidev.Sflight[0];
//call function module for sflight
serv.Zflights("LH", ref data);

//define a table for keey data got
DataTable dt = new DataTable();
//define columns for table
dt.Columns.Add("Carrid");
dt.Columns.Add("Connid");
dt.Columns.Add("FLDATE");
dt.Columns.Add("Price");
dt.Columns.Add("CURRENCY");
dt.Columns.Add("PLANETYPE");
dt.Columns.Add("SEATSMAX");
dt.Columns.Add("SEATSOCC");
dt.Columns.Add("PAYMENTSUM");
dt.Columns.Add("SEATSMAX_B");

foreach (com.XXXXX.sap.bjbidev.Sflight flights in data)
{
DataRow dr = dt.NewRow();

dr[0] = flights.Carrid;
dr[1] = flights.Connid;
dr[2] = flights.Fldate;
dr[3] = flights.Price;
dr[4] = flights.Currency;
dr[5] = flights.Planetype;
dr[6] = flights.Seatsmax;
dr[7] = flights.Seatsocc;
dr[8] = flights.Paymentsum;
dr[9] = flights.SeatsmaxB;

dt.Rows.Add(dr);

}

GridView1.DataSource = dt.DefaultView;
GridView1.DataBind();

}
}

更详细步骤：

这里，我们介绍外部系统调用SAP R/3的WEB SERVICE的功能，以.NET调用WEB SERVICE为例。

Web service是一种通用的接口方式，通过WEB实现系统间的通讯，所以掌握WEB SERVICE的接口方式，可以有效的为我们提供接口设计方法。

下面我们开始介绍.NET调用WEB SERVICE的实现方法：

1． 在R3中创建remote enable的RFC

在R/3中创建一个通过参数CARRID获取FLIGHTS数据的RFC：

定义属性为Remote-Enabled

在IMPORT中定义过滤参数

在TABLES中定义返回数据的表类型

在SOURCE CODE中，写入取数逻辑：

2． 将RFC扩展成为WEBSERVICE

Sap提供给我们根据RFC扩展为WEBSERVICE的方式，简化定义webservice的过程：

修改RFC，路径：Utlities->More Utlities->Create Web Service

定义webservice的名称：

下一屏幕，采用默认值：

下一屏幕，Profil属性选择MEDIUN

下一屏幕，选择package，我们这里选择LOCAL，然后点击“继续”，直到完成。

3． 维护webservice并获得WSDL

执行TCODE：SOAMANAGER，系统为我们打开一个WEB页面：

选择“Application and scenario Communition”下的Single Service Administration链接：

在“Search Pattern”中，输入我们的WEBSERVICE，选中查询到的结果，并点击“APPLY Selection”按钮，页面下面的内容就是WEBSERVICE的定义，可以根据需要进行修改。

选择上图中的“Open WSDL document for selected binding”链接，弹出WSDL的界面，保存地址栏中的地址：

4． 在VS2005中，调用webservice

在VS2005中，创建WEB项目：

在WEB项目中添加WEB引用：

输入刚才创建的SAP webservice的WSDL地址，点击“前往”：

按要求输入验证用户名及密码：

链接成功后，系统提示找到了WEBSERVICE，点击“添加引用”按钮，完成web引用的添加。

我们可以在类视图中查看到系统自动添加的代理类：

接下来，我们通过代理类，来调用WEBSERVICE提供的数据：

在DEFAULT.ASPX中添加GRIDVIEW：

在Page_Load方法中添加以下代码：

using System;

using System.Data;

using System.Configuration;

using System.Web;

using System.Web.Security;

using System.Web.UI;

using System.Web.UI.WebControls;

using System.Web.UI.WebControls.WebParts;

using System.Web.UI.HtmlControls;

using System.Net;

public partial class _Default : System.Web.UI.Page

{

protected void Page_Load(object sender, EventArgs e)

{

//authority

NetworkCredential credentials = new NetworkCredential("ZHAOCG", "password");

com.XXXXX.sap.bjbidev.ZFLIGHTService serv = new com.XXXXX.sap.bjbidev.ZFLIGHTService();

serv.Credentials = credentials;

com.XXXXX.sap.bjbidev.Sflight[] data;

data = new com.XXXXX.sap.bjbidev.Sflight[0];

//call function module for sflight

serv.Zflights("LH", ref data);

//define a table for keey data got

DataTable dt = new DataTable();

//define columns for table

dt.Columns.Add("Carrid");

dt.Columns.Add("Connid");

dt.Columns.Add("FLDATE");

dt.Columns.Add("Price");

dt.Columns.Add("CURRENCY");

dt.Columns.Add("PLANETYPE");

dt.Columns.Add("SEATSMAX");

dt.Columns.Add("SEATSOCC");

dt.Columns.Add("PAYMENTSUM");

dt.Columns.Add("SEATSMAX_B");

foreach (com.XXXXX.sap.bjbidev.Sflight flights in data)

{

DataRow dr = dt.NewRow();

dr[0] = flights.Carrid;

dr[1] = flights.Connid;

dr[2] = flights.Fldate;

dr[3] = flights.Price;

dr[4] = flights.Currency;

dr[5] = flights.Planetype;

dr[6] = flights.Seatsmax;

dr[7] = flights.Seatsocc;

dr[8] = flights.Paymentsum;

dr[9] = flights.SeatsmaxB;

dt.Rows.Add(dr);

}

GridView1.DataSource = dt.DefaultView;

GridView1.DataBind();

}

}

测试运行，结果如下：

详细及其他内容，请访问：

http://community.kingdee.com/pages/chunguangz/

http://community.kingdee.com/pages/chunguangz/blog/archive/2010/06/24/468946.aspx