.net 调用SAP RFC函数获取数据的两种方式

方式1:使用客户端自带的组件

安装客户端以后,添加引用:SAPFunctionsOCX(.net 的Com列表里一般找不到,需要引用DLL【一般位于以下路径:Program Files\SAP\FrontEnd\SAPgui\wdtfuncs.ocx】),SAPLogonCtrl,SAPTableFactoryCtrl。

public DataTable GetRFCData()
{ Connection conn = null;
SAPFunctionsClass func = null;
IFunction ifunc = null; conn = this.getSAPConnection(); //返回SAP登录类
func = this.getSAPFunctionsClass(conn); //返回SAP操作类
ifunc = this.getIFunction("ZHRIF01_FM01", func); //返回SAP接口 //设定SAP RFC函数的参数
IParameter IP_DATA_BEGIN = (IParameter)ifunc.get_Exports("I_DATUM"); //
IP_DATA_BEGIN.Value = "201602"; // "20100101";//;strDatB; //"20090101"; //CALL RFC函数
ifunc.Call(); //输出参数
Tables Table_Outs = (Tables)ifunc.Tables;
Table Table_mkpf = (Table)Table_Outs.get_Item("T_RESULT"); //获取返回结果集
DataTable dt = GetDataTable(Table_mkpf);
//this.label1.Text = dt.Rows.Count.ToString();
return dt;
} public Connection getSAPConnection()
{
//SAP登录类
SAPLogonControlClass logon = new SAPLogonControlClass();
Connection Conn; logon.ApplicationServer = "10.1.8.11";
logon.Client = "300";
logon.Language = "ZH"; //EN OR ZH ....
//logon.Language = "zh"; //EN OR ZH ....
logon.User = "test";
logon.Password = "test1234";
logon.SystemNumber = Convert.ToInt16("00");
Conn = (SAPLogonCtrl.Connection)logon.NewConnection();
//Conn.CodePage = "8300"; //登录SAP
if (!Conn.Logon(0, true)) //Login Successful
{
throw new Exception("登录SAP系统失败,请重新登录!");
} //返回SAP登录类
return Conn;
} public SAPFunctionsClass getSAPFunctionsClass(Connection conn)
{
//SAPFunction Object
SAPFunctionsClass func = new SAPFunctionsClass();
//Set Connection
func.Connection = conn; return func; } /// <summary>
/// 返回接口
/// </summary>
/// <param name="IFunctionName"></param>
/// <returns></returns>
private IFunction getIFunction(string IFunctionName, SAPFunctionsClass func)
{
IFunction ifunc = (SAPFunctionsOCX.IFunction)func.Add(IFunctionName);
return ifunc;
} /// <summary>
/// 将从sap获取的table转换为datatable
/// </summary>
/// <param name="saptb"></param>
/// <returns></returns>
/// private DataTable GetDataTable(Table saptb)
{
DataTable dt = new DataTable();
try
{
for (int i = 1; i < saptb.ColumnCount; i++)
{
//dt.Columns.Add(saptb.get_ColumnName(i), typeof(string));
dt.Columns.Add(saptb.get_ColumnName(i));
}
for (int m = 1; m <= saptb.RowCount; m++)
{
DataRow dr = dt.NewRow();
for (int n= 1; n < saptb.ColumnCount; n++)
{
string columnName=saptb.get_ColumnName(n);
dr[saptb.get_ColumnName(n)] = saptb.get_Cell(m, columnName).ToString(); }
dt.Rows.Add(dr);
}
}
catch (Exception ex)
{
throw ex;
}
return dt;
}

 注意:如果出现中文数据全部为#(井)的情况,这说明是CodePage的问题,暂时没找到解决办法。尝试设定SAPConnection的CodePage,结果提示内存不能写入。

方法2:在机器上没有安装客户端的情况下,使用官网提供的Nco3.0.16.0(SAP Connector for Microsoft .Net)。本DLL含有四个版本。

32位和64位,以及基于.Net2.0 或者 4.0编译的组件(本处代码基于:32位 4.0 的组件,开发环境VS2010),安装完毕后需要引用如下DLL文件:sapnco.dll,sapnco_utils.dll(位于安装目录下)

代码如下:

配置文件:

  <configSections>
<sectionGroup name="SAP.Middleware.Connector">
<sectionGroup name="ClientSettings">
<section name="DestinationConfiguration" type="SAP.Middleware.Connector.RfcDestinationConfiguration,sapnco"/>
</sectionGroup>
</sectionGroup>
</configSections> <SAP.Middleware.Connector>
<ClientSettings>
<DestinationConfiguration>
<destinations>
<add NAME="DEV" USER="test" PASSWD="1234" CLIENT="300" LANG="EN" ASHOST="10.1.8.11" SYSNR="00" MAX_POOL_SIZE="10" IDLE_TIMEOUT="10"/>
</destinations>
</DestinationConfiguration>
</ClientSettings>
</SAP.Middleware.Connector>
<startup useLegacyV2RuntimeActivationPolicy="true">
<supportedRuntime version="v4.0" sku = ".NETFramework,Version=v4.0"/>
<supportedRuntime version="v2.0.50727"/>
</startup>

  程序代码:

public static DataTable GetSAPTestData()
{ RfcDestination destination = RfcDestinationManager.GetDestination("DEV"); RfcFunctionMetadata BAPI_COMPANYCODE_GETDETAIL_MD = destination.Repository.GetFunctionMetadata("ZHRIF01_FM01"); IRfcFunction function = null; function = BAPI_COMPANYCODE_GETDETAIL_MD.CreateFunction(); function.SetValue("I_DATUM", "20160203"); //设置参数
//function.SetParameterActive("COMPANYCODE_ADDRESS", false);设置参数
function.Invoke(destination);//提交调用 IRfcTable returnTable = function.GetTable("T_RESULT");
return GetDataTable(returnTable);
} /// <summary>
/// 将从sap获取的table转换为datatable
/// </summary>
/// <param name="saptb"></param>
/// <returns></returns>
///
public static DataTable GetDataTable(IRfcTable IrfTable)
{
DataTable dt = new DataTable(); //遍历元素个数,循环添加列
for(int i=0;i<IrfTable.ElementCount;i++)
{
string columnName=IrfTable.GetElementMetadata(i).Name;
dt.Columns.Add(columnName);
} ////循环把IRfcTable里面的数据放入Table里面,因为类型不同,不可直接使用。
for (int m= 0; m < IrfTable.RowCount; m++)
{
IrfTable.CurrentIndex = m;
DataRow dr = dt.NewRow();
for(int n =0;n<IrfTable.CurrentRow.Metadata.FieldCount;n++)
{
string colName = IrfTable.GetElementMetadata(n).Name;
dr[colName]=IrfTable.CurrentRow.GetString(colName);
}
dt.Rows.Add(dr);
} return dt;
}

  

  不使用配置文件直接代码写入参数的方式:

public static DataTable GetSapData()
{
RfcConfigParameters rfcPar = new RfcConfigParameters();
rfcPar.Add(RfcConfigParameters.Name, "CON");
rfcPar.Add(RfcConfigParameters.AppServerHost, "10.1.8.11");
rfcPar.Add(RfcConfigParameters.Client, "300");
rfcPar.Add(RfcConfigParameters.User, "test");
rfcPar.Add(RfcConfigParameters.Password, "1234");
rfcPar.Add(RfcConfigParameters.SystemNumber, "00");
rfcPar.Add(RfcConfigParameters.Language, "EN");
rfcPar.Add(RfcConfigParameters.Codepage, "8400");
RfcDestination dest = RfcDestinationManager.GetDestination(rfcPar);
RfcRepository rfcrep = dest.Repository;
IRfcFunction myfun = null;
myfun = rfcrep.CreateFunction("ZHRIF01_FM01");
myfun.SetValue("I_DATUM", "20160203");//SAP里面的传入参数
try
{
myfun.Invoke(dest);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
IRfcTable IrfTable = myfun.GetTable("T_RESULT");
return GetDataTable(IrfTable);
}

  

上一篇:Redis客户端之Spring整合Jedis,ShardedJedisPool集群配置


下一篇:转]解析C语言中的sizeof