/// <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.Count];
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[arg]; //设置参数值
}
ifunc.Call(); //调用函数模块
//(2)
foreach (string ret in array)
{
SAPFunctionsOCX.IParameter NUMBER = (SAPFunctionsOCX.IParameter)ifunc.get_Imports(ret); //返回程序运行结果
strResult[ret] = 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));
}
}
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/Peak915/archive/2009/02/05/3863337.aspx
