Daten an BAPIs übergeben 

Voraussetzungen

BAPIs erwarten eine große Anzahl strukturierter Datentypen und/oder Tabellen. Damit Sie beim Aufruf korrekt typisierte Parameter übergeben, bieten die R/3-Desktop-Integrationskomponenten zur Unterstützung eine Reihe von Objekten an, die Strukturen und Tabellen kapseln.

Vorgehensweise

Um die Objekte anzulegen, mit denen Sie Daten auf einfache Weise an BAPIs übergeben können, verwenden Sie die Methode DimAs.

Die Methode DimAs hat folgende Syntax:

Object.DimAs(Object BusinessObject, String Method, String Parameter)

DimAs hat folgende Parameter:

Dies ist der Name des in der Anwendung zur Kennzeichung des SAP-Business-Objekts verwendeten Objekts. Er wird von einem vorherigen Aufruf von GetSAPObject zurückgegeben.

Dies ist der Name des BAPI, zu dem der Parameter gehört. Die Zeichenkette unterscheidet Groß-und Kleinschreibung und muß einem der BAPIs für das SAP-Business-Objekt Object entsprechen, so wie es im BOR definiert ist.

Dies ist der Name des Parameters, dessen Struktur- oder Tabellenobjekt beschafft wird. Die Zeichenkette unterscheidet Groß- und Kleinschreibung und muß einem der Parameternamen des BAPI Method entsprechen, so wie es im BOR definiert ist.

Für jedes BAPI pflegt das BAPI-ActiveX-Control eine Sammlung von R/3-Tabellen, die durch ein Tabellensammelobjekt dargestellt werden. Um die Definition einer bestimmten Tabelle oder Struktur zu erhalten, rufen Sie die Methode DimAs auf und geben den Business-Objekttyp, die BAPI-Methode und den Parameternamen an. Das System liefert dann das angeforderte Tabellen- oder Strukturobjekt zurück. Das Objekt verbirgt die von der nativen RFC-Schnittstelle übergebene interne Tabelle und handhabt die Daten, die im R/3-System gelesen oder dorthin geschrieben wurden. Es liefert außerdem eine vollständige, zweidimensionale Sicht der internen Tabelle.

Den erwarteten Typ finden Sie in der Parameterdefinition des angeforderten BAPI im Business Object Repository (BOR).

1. Holen Sie das Tabellenobjekt OrderPartners mit der Methode DimAs

Set oPartners = oBAPICtrl.DimAs(boOrder, "CreateFromData", "OrderPartners")

2. Setzen Sie Werte des Parameters OrderPartners

 oPartners.Rows.Add
oPartners.Value(1, "PARTN_ROLE") = "AG"
oPartners.Value(1, "PARTN_NUMB") = "0000010096"

3. Rufen Sie die Methode auf

 boOrder.CreateFromData OrderHeaderIn:=oHeader, _
OrderPartners:=oPartners, _
OrderItemsIn:=oItemsIn, _
Return:=oReturn

Aus Sicht des rufenden Programms müssen nur die Exportparameter mit DimAs initialisiert werden. Die Daten können dann in das beschaffte Tabellen- oder Strukturobjekt gestellt werden. Diese Parameter sind als Importparameter des BAPI-Funktionsbausteins definiert.

Sie können nicht initialisierte Objekte an Parameter übergeben, die Rückgabewerte erhalten.