SAP接口编程-RFC系列06 : Table作为输入参数

Table作为输入参数

调用SAP FM的时候，如果table作为输入参数，调用前需要填充。本篇讲述填充的方法，以RFC_READ_TABLE为例。

RFC_READ_TABLE用于读取SAP数据库表的结构和数据。使用方法如下

IMPORTING

QUERY_TABLE：读取的表名

DELIMITER：输出字段（DATA参数）之间的分隔符

NO_DATA：输入’X’时，不向传出表DATA输出数据

ROWSKIP：输出的第一条数据的行号(从0开始)

ROWCOUNT：从ROWSKIP开始，一共输出的数据行数(0代表所有数据)

TABLE：

OPTIONS：表查询条件，比如SKA1表，KTOPL = ‘Z900’表示查收Z900账目表的会计科目数据，留空 代表所有数据。

FIELDS：输出的表字段，留空代表输出所有字段。

DATA：输出的数据记录。

假设我们要读取Z900账目表有所有会计科目，只需要输出KTOPL(账目表)和SAKNR(会计科目)两个字段

Public Sub Read_Table_SKA1()
Dim functions As SAPFunctionsOCX.SAPFunctions
Dim options As SAPTableFactoryCtrl.Table
Dim fields As SAPTableFactoryCtrl.Table
Dim data As SAPTableFactoryCtrl.Table

Call Logon

Set functions = New SAPFunctions
Set functions.Connection = sapConnection

Dim fm As SAPFunctionsOCX.Function
Set fm = functions.Add("RFC_READ_TABLE")

fm.Exports("QUERY_TABLE").Value = "SKA1" ' 要查询的表
fm.Exports("DELIMITER").Value = ","      ' Data表要存储的数据以逗号分割

Set options = fm.Tables("OPTIONS")
Set fields = fm.Tables("FIELDS")
Set data = fm.Tables("DATA")

' 以下是表参数填充的方法
' options表参数限定要选择的数据
options.FreeTable
options.AppendRow
options(1, "TEXT") = " KTOPL = 'Z900' " '第一行列名为TEXT的列增加选择条件

' fields表参数限定要输出的列，如果不限定
' 默认输出所有列
' 我只想输出KTOPL和SAKNR两列
fields.FreeTable
fields.AppendRow
fields(1, "FIELDNAME") = "KTOPL"

fields.AppendRow
fields(2, "FIELDNAME") = "SAKNR"

fm.Call
' 如果有Exception , 说明有错误产生
If fm.Exception <> "" Then
Debug.Print fm.Exception
Exit Sub
End If

' 将DATA输出到立即窗口
Dim row As SAPTableFactoryCtrl.row
Dim col As SAPTableFactoryCtrl.Column

' 按行读取，DATA表只有一列
For Each row In data.Rows
Debug.Print row.Value("WA")
Next

Call Logoff
End Sub

表填充的方法：

填充第一行第一列: sometable(1, 1) = “XXX”

或者根据列名：sometable(1, “FIELDNAME”) = “XXX”

因为table有一个RowCount属性，我们总是可以将RowCount用于代码中，增加灵活性。比如上面的代码可以写成：

fields.FreeTable
fields.AppendRow
fields(fields.RowCount, "FIELDNAME") = "KTOPL"

fields.AppendRow
fields(fields.RowCount, "FIELDNAME") = "SAKNR"