VS2005调用RFC

今日心血来潮，想自己做一些VS2005调用SAP的RFC的程序例子来学习学习。

1、 SE37，进入FUNCTION BUILDER主界面；

2、 转到主菜单上的Goto->Function Group->Create Group，然后输入名称等，由于只是测试，所以就选择本地对象进行保存，对应的开发类为$TMP;

3、 SE80，进入对象浏览器，选择自己刚才创建的函数组，点击右键，在弹出菜单中选择激活选项进行激活，如图：

4、 重新回到SE37，创建函数YCTF_RFC2，选择刚才创建的函数组Y_CTF_FUN_GROUP，然后进入，选择，这样整个函数就可以被外部系统进行RFC了。IMPORT这边我就输入参数INPUT，类型为I，EXPORT处我也只输入参数OUTPUT，类型为I，其它的就修改下源代码，输入output = input * 2.

5、 激活此函数

6、 现在开始进行VS2005的操作了，新建一个类库，然后在引用中导入Interop.SAPFunctionsOCX、Interop.SAPLogonCtrl和Interop.SAPTableFactoryCtrl。

7、 添加Conn类的编写，代码如下：

1、 namespace Sap

2、 {

3、 public class Conn

4、 {

5、 /// <summary>

6、 /// sap连接

7、 /// </summary>

8、 private static SAPLogonCtrl.Connection conn = null;

9、

10、 /// <summary>

11、 /// 登录

12、 /// </summary>

13、 /// <param name="ip"></param>

14、 /// <param name="client"></param>

15、 /// <param name="language"></param>

16、 /// <param name="user"></param>

17、 /// <param name="password"></param>

18、 /// <param name="systemNumber"></param>

19、 /// <returns></returns>

20、 public static bool logon(

21、 string ip,

22、 string client,

23、 string language,

24、 string user,

25、 string password,

26、 int systemNumber)

27、 {

28、 SAPLogonCtrl.SAPLogonControlClass logon = new SAPLogonCtrl.SAPLogonControlClass();

29、 logon.ApplicationServer = ip; //SAP system’s IP

30、 logon.Client = client; //SAP system’client

31、 logon.Language = language; //Lauguage

32、 logon.User = user; //Username

33、 logon.Password = password; //Password

34、 logon.SystemNumber = systemNumber; //System number

35、 conn = (SAPLogonCtrl.Connection)logon.NewConnection();

36、 return conn.Logon(0, true);

37、 }

38、

39、 /// <summary>

40、 /// 获取某个值

41、 /// </summary>

42、 /// <param name="functionName"></param>

43、 /// <param name="importNames"></param>

44、 /// <param name="importValues"></param>

45、 /// <param name="exportFieldName"></param>

46、 /// <returns></returns>

47、 public static string getValue(string functionName,

48、 List<string> importNames,

49、 List<string> importValues,

50、 string exportFieldName)

51、 {

52、 SAPFunctionsOCX.SAPFunctionsClass func = new SAPFunctionsOCX.SAPFunctionsClass();

53、 func.Connection = conn;

54、 SAPFunctionsOCX.IFunction ifunc = (SAPFunctionsOCX.IFunction)func.Add(functionName);

55、 for (int i = 0; i < importNames.Count; ++i)

56、 {

57、 SAPFunctionsOCX.IParameter parameter = (SAPFunctionsOCX.IParameter)ifunc.get_Exports(importNames[i]);

58、 parameter.Value = importValues[i];

59、 }

60、 ifunc.Call();

61、 SAPFunctionsOCX.IParameter output = (SAPFunctionsOCX.IParameter)ifunc.get_Imports(exportFieldName);

62、 return output.Value.ToString();

63、 }

64、

65、 /// <summary>

66、 /// 获取表

67、 /// </summary>

68、 /// <param name="functionName"></param>

69、 /// <param name="importNames"></param>

70、 /// <param name="importValues"></param>

71、 /// <returns></returns>

72、 public static DataSet getDs(

73、 string functionName,

74、 List<string> importNames,

75、 List<string> importValues)

76、 {

77、 DataSet ds = new DataSet();

78、

79、 SAPFunctionsOCX.SAPFunctionsClass func = new SAPFunctionsOCX.SAPFunctionsClass();

80、 func.Connection = conn;

81、 SAPFunctionsOCX.IFunction ifunc = (SAPFunctionsOCX.IFunction)func.Add(functionName);

82、 for (int i = 0; i < importNames.Count; ++i)

83、 {

84、 SAPFunctionsOCX.IParameter parameter = (SAPFunctionsOCX.IParameter)ifunc.get_Exports(importNames[i]);

85、 parameter.Value = importValues[i];

86、 }

87、 ifunc.Call();

88、 //SAPFunctionsOCX.IParameter NUMBER = (SAPFunctionsOCX.IParameter)ifunc.get_Imports("P_SUBRC");

89、 SAPTableFactoryCtrl.Tables tables = (SAPTableFactoryCtrl.Tables)ifunc.Tables;

90、

91、 for (int i = 1; i <= tables.Count; ++i)

92、 {

93、 SAPTableFactoryCtrl.Table t = (SAPTableFactoryCtrl.Table)tables.get_Item(i);

94、 DataTable dt = new DataTable();

95、 dt.TableName = t.Name;

96、 for (int j = 1; j <= t.ColumnCount; ++j)

97、 {

98、 string title = t.get_ColumnName(j);

99、 DataColumn column = new DataColumn(title, typeof(string));

100、 dt.Columns.Add(column);

101、 }

102、 for (int j = 1; j <= t.RowCount; ++j)

103、 {

104、 DataRow dr = dt.NewRow();

105、 for (int col = 0; col < dt.Columns.Count; ++col)

106、 {

107、 string title = dt.Columns[col].Caption;

108、 dr[title] = t.get_Cell(j, title).ToString();

109、 }

110、 dt.Rows.Add(dr);

111、 }

112、 ds.Tables.Add(dt);

113、 }

114、

115、 return ds;

116、 }

117、 }

118、 }

119、

8、 编写部分代码进行RFC函数编写：

1、 List<string> importNames = new List<string>();

2、 List<string> importValues = new List<string>();

3、 importNames.Add("INPUT");

4、 importValues.Add("13");

5、

6、 string output = Sap.Conn.getValue("YCTF_RFC2", importNames, importValues, "OUTPUT");

7、 MessageBox.Show(output);

8、 OK，很正常。

9、

来个复杂的，整个太简单了点，可是由于自己水平有限，写不出什么来，原来有个顾问写的一个获取批次属性的函数，我们都用它，逻辑还是有点复杂，所以打算直接调用整个函数来试试看，此函数既有返回的单个值，也有表格返回。

10、 编写测试代码：

1、 List<string> importNames = new List<string>();

2、 List<string> importValues = new List<string>();

3、 importNames.Add("P_MATNR");

4、 importNames.Add("P_CHARG");

5、 importValues.Add("000000000064000024");

6、 importValues.Add("N10052501 ");

7、

8、 DataSet ds = Sap.Conn.getDs("Y_FIG001_GET_CHAR_FROM_BATCH", importNames, importValues);

9、 if (ds.Tables.Count > 0)

10、 {

11、 dataGridView1.DataSource = ds.Tables[1];

12、 dataGridView1.Visible = true;

13、 }

测试，表格中没有返回任何值，但在SAP中进行测试是有的。跟踪IFunc变量，在调用call方法之前都是正常的，但是在调用之后，里面的RFC结果显示SYSTEM_FAILURE.，不知道什么原因，马上GOOGLE一下，有人建议说用ST22可以查看运行时错误信息。

11、 ST22，选择今天错误信息进行查看，马上定位到了，打开日志信息，显示如下：

哦，原来在函数的属性中不是Remote Enable Module，不行，恩，应该就是这个原因。

12、 拷贝Z_FIG001_GET_CHAR_FROM_BATCH，新生成函数Y_ FIG001_GET_CHAR_FROM_BATCH，函数组选择前面自己创建的那个函数组，OK，进去激活，没想到错误一大堆，不管了，定位错误地方，到原来的Z_FIG001_GET_CHAR_FROM_BATCH，把引用的代码都给拷贝过来，现在也差不多慢慢懂得了函数组的一些用户了，就是可以自己定义一些结构、变量等供该函数组下面的功能模块调用。

13、 代码没错之后，激活、测试，OK，通过。

另外要注意的是，因为物料代码是18位，所以前面一定要补0以合乎要求，否则是取不到结果的。

涉及TCODE：SE37、SE80、ST22。