博客

SAP接口编程-RFC系列09 : 使用BAPI

转载出处：http://blog.csdn.net/stone0823 https://blog.csdn.net/stone0823/article/details/50668635

使用BAPI

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，并且进行测试。比如我们想获得会计科目的期间余额，我们先找到相关对象：
这里写图片描述

双击General Ledger前面的小圆圈：

这里写图片描述

在这个界面中，我们可以查看方法的参数，并进行测试。我们先点击“Parameters”按钮查查参数：
这里写图片描述

主要BAPI方法的参数，和FM的参数名并不一定相同。比如AccountBalances参数，在FM中对应的参数名称是ACCOUNT_BALA NCES，以BAPI方式调用，需要用BAPI的参数名称，切记。
BAPI测试，点击工具栏上的“Test/Execute”按钮:
这里写图片描述

填充input parameter
这里写图片描述

执行，得到如下结果：
这里写图片描述

通过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



程序结果： 

这里写图片描述

发表回复