SAP RFC方法的自测(ABAP调用和VB调用).pdf

SAP RFC方法的自测（ABAP调用和VB调用） 2016年5月18 日 12:12 SAP创建的RFC函数接口后如何自行测试？ 自己有时候代码写完之后，又不好麻烦外部系统的朋友帮忙测试，或者外部系统还没开发完，测 试确实有点麻烦，下面介绍两种方法。 方法一：在SAP 中不同的CLIENT创建到测试系统的RFC服务（SM59 ），自己编写小程序调用目标系 统的RFC函数测试。 优点：传入参数编辑比较方便 缺点：参数的内外部格式转换问题，可能会在测试中遗漏，导致后期BUG。 ZWMS_DO_INPUT_CREATE为目标系统的RFC方法 方法二：自己用其他语言编写小程序，连接测试。这里我用的VB ，因为office套件中自带VB编辑 器。 优点：差不多接近最真实的环境，避免了方法一的缺点 缺点：需要略懂其他语言，正因为是略懂，所以参数编辑是个问题。 1.打开excel--开发工具--Visual Basic 分区接口 的第1 页 2.录入代码 3.F5运行 分区接口 的第2 页 Public Sub saprfc() Dim Connect As Object Dim Functions As Object Set Functions = CreateObject(Sap.Functions) 创建RFC的本地对象Connect = Functions.Connection 设 置连接 Set Connect = Functions.Connection Connect.ApplicationServer = 192.xxx.0.xxx 赋值服务器IP Connect.Client = 001 赋值SAP集团代码 Connect.Client = 230 设置连接的client Connect.Language = ZH 置SAP系统界面中文 Connect.User = xxxRFC 赋值SAP登录用户名 Connect.Password = 6xxxxxxx 赋值SAP登录用户密码 Connect.SystemNumber = 00 赋值SAP系统号 Connect.Language = ZH SAP语言环境 Connect.ABAPDebug = True 这个不知道 If Not Connect.Logon(0, True) Then 软件登录SAP并判断\ Dim fffff MsgBox 登录SAP R/3失败，请重新登录! Else MsgBox 登录SAP R/3成功! End If Dim oFun As Object Set oFun = Functions.Add(ZGET_DO_NUM) 设置要使用的SAP 的RFC函数 oFun.exports(I_VGBEL) =传入参数 Dim returnFunc returnFunc = oFun.Call Dim msgtype msgtype = oFun.imports(E_RESULT).Value 传出参数 Dim msgtext msgtext = oFun.imports(E_RESULT).Value 传出参数 Dim tb1 As Object Set tb1 = oFun.Tables(T_VBELN) 传入/传出表 Dim i For i = 1 To tb1.RowCount Dim s1 分区接口 的第3 页 Dim s1 s1 = tb1(i, VBELN) MsgBox s1 Next i End Sub 纯手工输入，不容易啊，转载请注明，支持原创，谢谢！ 作者江湖人称才才 分区接口 的第4 页