利用VisualBasic开发SAP接口程序初探

《利用VisualBasic开发SAP接口程序初探》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、利用VisualBasic开发SAP接口程序初探SAPR/3系统是业界最先进、最稳定的ERP系统，国际和国内大型企业采用该系统的比例遥遥领先于-其它ERP系统的总和。SAPR/3内建了二次开发平台，使用的开发语言叫做ABAP,是一种类似于COBOL的编程语言。ABAP在报表输出方而功能相对较弱（只能按行打印在屏幕上或者导出到Excel屮处理），所以I」常工作屮经常需要在外部开发程序。通过程序接口自动读取SAPR/3的数据农（视图），在外部进行处理和利用水晶报表等工具生成符合中国人习惯的报表样式。SAPR/3的接口方式主要有RFC、IDOC、BAPI三利》本文要介绍的是相対比较简单的RFC（

2、RomoteFunctionCall,远程函数调用）。SAP系统RFC调用的原理其实很简单,有一些类似于三层构架的C/S系统，第三方的客户程序通过接口调用SAP内部的标准或自定义函数，获得函数返回的数据进行处理后显示或打印。下面是RFC调用的模型：本文主耍不是讨论SAPR/3函数的开发，因为使用SAP的公司一般都有专门的ABAP开发人员。大家如果有机会接触ABAP平台，可以通过事务代码SE37进入ABAP开发平台的“两数编制器”进行函数开发测试。如图：下面主要以VB为例介绍一下SAP接口RFC的开发思路。在SAP客户端SAPGuiClient安装的时候，注意选择安装附带的SDK包（最保险是

3、选择完全安装）。RFC接II程序开发，主要用的是“SAP.Functions"这个控件，通过控件在外部程序模拟SAPGuiClient的用户背录和两数调用，然后返回两数的值。请看卜面的程序片段和重点注解（尤其是test_Click（））：PrivateSubCommandl_Click（）*定义R/3用户名和密码变量（用户名应由SAP管理员开运行函数的权限）DimlognameAsString*22,passwordAsString*22CallIogonr3（logname,password），调用SAP登录界面程序IflogflagThen'调用生产、开发系统开关StatusBarl.

4、Visible=TrueStatusBarl.SimpleText="正在登录SAPR/3系统...”DimR3AppServerAsString,R3ClientAsString,R3SystemNoAsStringIfForm2.opPRD.ValueThen1以下服务器参数请根据客户配置情况更改R3AppServer="10.3.1.4"'生产系统服务器IPR3Client=”800“，生产系统集团代码R3SystemNo=”00”'生产系统号ElseR3AppServer=n10.3.3.1n'开发系统服务器IPR3Client="101,'R3SystemNo=”00”EndIf

5、UnloadForm2'释放Form2,所有控件及值不可用SetFunctions=CreateObject（"Sap.Functions"）'创建RFC的木地对象SetConnect=Functions.Connection1设置连接Connect.Applicationserver=R3AppServer'赋值服务器IPConnect.Client=R3Client'赋值SAP集团代码Connect.Language="ZH"'HSAP系统界面屮文Connect.User=Trim(logname)，赋值SAP登录用户名Connect.password=Trim(password)'赋

6、值SAP登录用户密码Connect.SystemNumber=R3SystemNo1赋值SAP系统号IfNotConnect.Logon(OzTrue)Then'软件登录SAP并判断MsgBox”登录SAPR/3失败，请重新登录!”,vbOKOnly+vbExclamation,”系统提示”Commandl.SetFocusElse*登录SAP成功Commandl.Enabled=FalseCommand2.Enabled=Truetest.Enabled=TrueEndIfStatusBarl.SimpleText=""StatusBarl.Visible=FalseEndIfEndSu

7、bPrivateSubCommand2_Click()，注销SAP登录Connect丄ogOffCommand2・Enabled=FalseCommandl.Enabled=Truetest.Enabled=FalseEndSubPrivateSubCommand3_Click()'退出SAP接口演示程序IfForml.Command2.EnabledThenMsgBox”退出前请断开SAPR/3系统!”,vbOKOnl