C# 实现调用 SAP Com组件
/// <summary>/// 登陆SAP系统
/// </summary>
/// <returns>登陆状态</returns>
public LoginStatus LoginSAP()
{
try
{
SAPLogonCtrl.SAPLogonControlClass logon = new SAPLogonCtrl.SAPLogonControlClass();
logon.ApplicationServer = ApplicationServer; //SAP系统IP
logon.Client = Client; //SAP客户端号
logon.Language = Language; //SAP登陆语言
logon.User = User; //用户帐号
logon.Password = Password; //用户密码
logon.SystemNumber = SystemNumber; //SAP系统编号
Conn = (SAPLogonCtrl.Connection)logon.NewConnection();
if (Conn.Logon(0, true))
{
Status = LoginStatus.Success; //登陆成功
}
else
{
Status = LoginStatus.Fail; //登陆失败
}
return Status;
}
catch (Exception exc)
{
throw(new Exception(exc.Message));
}
}
/// <summary>
/// 调用SAP系统函数模块
/// </summary>
/// <param name="strFunName">函数名称</param>
/// <param name="strArgs">输入参数字典</param>
/// <param name="strRetTabs">返回表结果字典</param>
/// <param name="strResult">返回程序运行结果</param>
/// <returns>返回表结果集</returns>
public DataSet InvokSAPFun(string strFunName, ListDictionary strArgs, ListDictionary strRetTabs, ref ListDictionary strResult)
{
try
{
DataSet retDST = new DataSet();
string[] array = new string;
strResult.Keys.CopyTo(array, 0);
if (Status == LoginStatus.Success)
{
SAPFunctionsOCX.SAPFunctionsClass func = new SAPFunctionsOCX.SAPFunctionsClass();
func.Connection = Conn;
//(1)
SAPFunctionsOCX.IFunction ifunc = (SAPFunctionsOCX.IFunction)func.Add(strFunName); //调用函数模块
foreach (string arg in strArgs.Keys)
{
SAPFunctionsOCX.IParameter gclient = (SAPFunctionsOCX.IParameter)ifunc.get_Exports(arg); //取得输入参数
gclient.Value = strArgs; //设置参数值
}
ifunc.Call(); //调用函数模块
//(2)
foreach (string ret in array)
{
SAPFunctionsOCX.IParameter NUMBER = (SAPFunctionsOCX.IParameter)ifunc.get_Imports(ret); //返回程序运行结果
strResult = NUMBER.Value;
}
//(3)
SAPTableFactoryCtrl.Tables ENQs = (SAPTableFactoryCtrl.Tables)ifunc.Tables; //获取所有Tables
foreach (string tab in strRetTabs.Keys)
{
SAPTableFactoryCtrl.Table ENQ = (SAPTableFactoryCtrl.Table)ENQs.get_Item(tab); //返回指定Tables
DataTable dat = ConvertTable(ENQ);
retDST.Tables.Add(dat);
}
}
return retDST;
}
catch (Exception exc)
{
throw (new Exception(exc.Message));
}
}
页:
[1]