SAP的BAPI和Function Module经常让大家迷惑和混淆。究竟BAPI和Functional Module有什么区别呢？我的理解，BAPI是基于Function Module的，但提供面向对象的接口调用方式。比如说，我们想获得总账科目的期间余额，我们可以通过RFC远程调用BAPI_GL_GETGLACCPERIODBALANCES函数来实现，也可以使用类似GeneralLedger.GetGLAccountPeriodBalances这种面向对象的方式来实现。后者就是BAPI调用，底层上BAPI也是调用的BAPI_GL_GETGLACCPERIODBALANCES函数。
在SAP系统中查看BAPI
在SAP中，我们可以使用事务码：SWO2查看BAPI，并且进行测试。比如我们想获得会计科目的期间余额，我们先找到相关对象：
RFC-9-1.jpg
双击General Ledger前面的小圆圈：
RFC-9-2.jpg
在这个界面中，我们可以查看方法的参数，并进行测试。我们先点击“Parameters”按钮查查参数：
RFC-9-3.jpg
BAPI方法的参数，和FM的参数名并不一定相同。比如AccountBalances参数，在FM中对应的参数名称是ACCOUNT_BALA NCES，以BAPI方式调用，需要用BAPI的参数名称，切记。
BAPI测试
点击工具栏上的“Test/Execute”按钮:
RFC-9-4.jpg
填充input parameter :
RFC-9-5.jpg
执行，得到如下结果:
RFC-9-6.jpg
通过BAPI控件调用SAP BAPI
OK，下面编写接口实现的代码。在外部使用BAPI，关键是BAPI ActiveX控件的使用，对应的文件是wdobapi.ocx，Win7下默认路径：C:\Program Files (x86)\SAP\FrontEnd\SAPgui\wdobapi.ocx。添加对ocx控件的引用。
Option Explicit
Public Sub TestGetACBalacne()
Call Logon
Call DoGetAccBalance("Z900", "0010010100", "2015")
Call logoff
End Sub
Private Sub DoGetAccBalance(cocd As String, glAccount As String, year As String)
' Function: Get account period balances, just like FAGLB03'
Dim bapiControl As New SAPBAPIControlLib.SAPBAPIControl
Dim glObj As Object 'general ledger object'
Dim ret As SAPFunctionsOCX.Structure
Dim acBalance As SAPTableFactoryCtrl.Table
Set bapiControl.Connection = sapConnection ' global variable'
' creating business object'
' return value of GetSAPObject() is of type Object'
' first parameter indicates ObjectType, other ten parameters is objectKey'
Set glObj = bapiControl.GetSAPObject("GeneralLedger")
' Invoke method'
glObj.GetGLAccountPeriodBalances _
CompanyCode:=cocd, _
Glacct:=glAccount, _
fiscalYear:=year, _
CurrencyType:="10", _
AccountBalances:=acBalance, _
Return:=ret
' Error occured'
If ret("TYPE") = "E" Then
Call DebugWriteBapiError(ret)
Exit Sub
End If
If acBalance.rowcount > 0 Then
' Write acBalance internal table in worksheet'
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets.Add
sht.Name = sht.Name + "_GLBalances"
Call WriteTable(acBalance, sht)
End If
Set acBalance = Nothing
Set glObj = Nothing
Set bapiControl = Nothing
End Sub
Private Sub DebugWriteBapiError(error As SAPFunctionsOCX.Structure)
Debug.Print "Type:", error.Value("TYPE")
Debug.Print "Code:", error.Value("CODE")
Debug.Print "Message:", error.Value("MESSAGE")
End Sub
程序结果：
RFC-9-7.jpg
