有关BAPI
BAPI(business application programming interface)是面向对象程序设计方法中的一组程序接口。它允许程序员通过SAP将第三方软件整合成R/3专有产品。为了完成一些特殊的商业任务，如上传交易数据等，R/3系统中内置了BAPI。
ABAP中有关BAPI的介绍
1.BAPI – business application programming interface
2.它实际上是一种特殊的Remote Function Modules (RFC)是为了提供使用外部程序来进行交易活动
3.它提供的基于企业目标(Business Object) 技术的接口应用界面
4.SAP采用了Object-oriented技术，逻辑定义了SAP R/3系统的所有功能目标，并且将所有的目标(Objects) 和BAPIs存储于企业勘昕釨OR(Business Objects Repository).
5.SAP R/3 企业目标的目标类型(Object Type) 相当于目标设计语言中类(Class) 的概念，其定义结构由以下几部分组成：基本数据,接口界面,键(Key Fields),方法(Methods),特征(Attributes),事件(Events)
--如何创建BAPI程序
1.定义BAPI Structure (Structure不能在BAPI中重复使用，因为一旦BAPI被释放，其Structure被冻结）
2.创建FUNCTION MODULE
每个BAPI必须有自己的Function Group，Function Group属性必须为RFC
3.创建Business Object
4.使用BAPI WIZARD创建API Method
这样BAPI可以被外部程序调用
5.Function Module符合BOR Method
4.释放BAPI Function Module,
释放Business Object Type,
释放BAPI作为BOR的一种Method
SAP BAPI
BAPI是 Business Application Programming Interface的缩写.
BAPI是SAP以外程序访问SAP内部数据和程序的标准方式
?
BAPI在SAP系统内部以Function Modulede的方式实现.所有的BAPI Function都
- 支持Remote Function Call (RFC)
- 处理过程中不激活对话窗口
?
BAPI是被定义为Business Object Repository(BOR)中的SAP Business Object类型或SAP interface类型的方法,并且以Function Module方式实现的. 这种定义和实现分离的方式是我们可以通过2中方式访问BAPI.
- 通过面向对象的方法调用BOR中的BAPI
- 通过RFC直接调用Function Module
BAPI的简单实现步骤
一，创建Function Module
1，在SM11，创建需要的structure
2，在SE80，建Function group
3，在SE37，创建Function Module
Note：一个Function Group只能包含一个BAPI；参数传值；必须有有一个BAPIRETURN类型的EXPORT参数
二，封装
1，在SWO1，建Object Type
2，把Function Module作为一个Method加入，utilities->API Methods->Add Method
3，release Object和Module。使在BAPI Browser 中可以看到。也就是外部能够调用。
三，调用
1，如在另一系统中用ABAP调用，先在SM59中建RFC联到有BAPI的R/3，(ZGOGO)
在SE38的程序中调用，Call Function "ZBAPIXXXXX" DESTINATION ZGOGO EXPORTING ...
2，如用JAVA调用
引入包；（不一定要用IBM的）
import com.sap.rfc.*;
import com.sap.rfc.exception.*;
import com.ibm.sap.bapi.*;
import com.ibm.sap.bapi.generated.*;
建立连接；调用。。。（See CALL_BAPI.java）
VBA for SAP
Private Sub CommandButton1_Click()
Set oFunction = CreateObject("SAP.LogonControl.1")
Set oConnection = oFunction.NewConnection
oConnection.Client = "500"
oConnection.Language = "EN"
oConnection.User = "user"
oConnection.Password = "pasword"
oConnection.ApplicationServer = "sap1.yok.com.cn"
oConnection.SystemNumber = "01"
result = oConnection.Logon(0, True)
Set ofun = CreateObject("SAP.FUNCTIONS")
Set ofun.Connection = oConnection
Set func = ofun.Add("RFC_READ_TABLE")
func.Exports("QUERY_TABLE") = "MARA"
If func.Call = True Then
Set oline = func.tables.Item("DATA")
Row = oline.rowcount
i = 1
Do While i <= Row
Cells(i, 1) = Mid(Trim(oline.Value(i, 1)), 4, 22)
i = i + 1
Loop
Else
MsgBox "FAIL"
End If
End Sub
VBA2
Private Sub CommandButton1_Click()
Dim sapFunctionCtrl As Object 'Function Control (Collective object)
Dim sapConnection As Object 'Connection object
Dim theFunc As Object 'Function object
Set sapFunctionCtrl = CreateObject("SAP.Functions")
Set sapConnection = sapFunctionCtrl.Connection
sapConnection.Client = "800"
sapConnection.user = "user"
sapConnection.Language = "EN"
If sapConnection.logon(0, False) <> True Then
MsgBox "No connection to R/3!"
End If
Set theFunc = sapFunctionCtrl.Add("ZRFCPING")
If theFunc.call Then ' call the RFC FM
MsgBox "RFC call is okay"
End If
sapFunctionCtrl.Connection.logoff
Set sapConnection = Nothing
Set sapFunctionCtrl = Nothing
End Sub