Lektion 6: Mehrzeiliges virtuelles Attribut anlegen (SAP-Bibliothek

Lektion 6: Mehrzeiliges virtuelles Attribut anlegen

Verwendung

Sie legen in dieser Lektion das mehrzeilige, objektwertige virtuelle Attribut Verkaufsbelegpositionen an und implementieren es. Dieses Attribut wertet die Positionen des Kundenauftrags aus und liefert eine Liste mit Referenzen auf Objekte vom Typ VBAP ( Verkaufsbelegposition) zurück.

Ein virtuelles Attribut erfordert stets eine Implementierung im Implementierungsprogramm.

Voraussetzungen

Bei der Implementierung dieser Attribute verwenden Sie Makrobefehle, die vom System bereitgestellt werden.

Weitere Informationen zu bereitgestellten Makrobefehlen finden Sie unter:

Makrobefehle zum Bearbeiten eines Containers

Makrobefehle zum Zugriff auf Objekte, Attribute und Methoden

Vorgehensweise

Positionieren Sie den Cursor auf dem Eintrag Attribute.

Wählen Sie Diese Grafik wird im zugehörigen Text erklärt

und beantworten Sie die Frage Anlegen mit ABAP/4-Dictionary Feldvorgaben? mit Nein.

Geben Sie für das anzulegende Attribut folgende Texte ein:

Attribut: Items
Bezeichnung: Auftragspositionen
Kurzbeschreibung: Positionen eines Kundenauftrags

Markieren Sie Virtuell im Bereich Quelle.

Markieren Sie mehrzeilig im Bereich Attributeigenschaft.

Markieren Sie Objekttyp im Bereich Datentypreferenz.

Geben Sie VBAP in das Feld Objekttyp ein.

Wählen Sie Diese Grafik wird im zugehörigen Text erklärt

Attribut im Implementierungsprogramm implementieren

Prüfen Sie die bisher vorgenommene Definition des Objekttyps. Wählen Sie dazu Diese Grafik wird im zugehörigen Text erklärt .

Das System erkennt die fehlende Implementierung und bietet Ihnen die automatische Erzeugung eines Musters für den fehlenden Quelltext an.

Nehmen Sie das Angebot unbedingt an!

Der automatisch erzeugte Quelltext für die Implementierung von virtuellen Attributen ist immer unvollständig und beschränkt sich auf das Setzen des entsprechenden Containerelementes. Sie müssen hier noch Änderungen vornehmen und im Programm des Objekttyps die Leseprozedur implementieren, die zur Laufzeit den Attributwert durch die Auswertung von Datenbankinhalten bestimmt.

Das System verzweigt in das Implementierungsprogramm des von Ihnen angelegten Objekttyps.

Virtuelles Attribut

Ein virtuelles Attribute wird zwischen den Makrobefehlen GET_PROPERTY <Attributname> CHANGING CONTAINER und END_PROPERTY implementiert. Dort ist programmiert, wie der Wert des virtuellen Attributes zur Laufzeit gebildet wird.

Analysieren Sie das bisher vorhandene Implementierungsprogramm. Als Vergleich kann Ihnen das im Anhang wiedergegebene Implementierungsprogramm dienen.

Da das Attribut eine mehrzeilige Liste von Objektreferenzen zurückliefern soll, wird eine interne Tabelle OBJECT-ITEMS mit dem Typ SWC_OBJECT deklariert (Zeile 14 des Programms, automatisch generiert).

Die eigentliche Implementierung muß manuell vorgenommen werden. Sie muß zwischen den beiden Makrobefehlen GET_PROPERTY ITEMS CHANGING CONTAINER und END_PROPERTY (Zeilen 65-96) vorgenommen werden. Durch das System wird zwischen diesen Makrobefehlen der Makrobefehl eingefügt, mit dem die noch zu erzeugende Objektreferenz in den Container geschrieben wird.

Datendeklaration (Zeilen 69-78)

Refresh der Tabelle OBJECT-ITEMS

Hilfsvariable ITEM mit Typ SWC_OBJECT zur Aufnahme einer Objektreferenz

Struktur VBAP_KEY mit den beiden Feldern VBELN und POSNR . Diese Felder entsprechen den Schlüsselfeldern der Tabelle VBAP ( Verkaufsbeleg: Positionsdaten).

Interne Tabelle VBAP_TAB mit der Struktur VBAP . In dieser Tabelle werden die Positionen zu einem Auftrag "gesammelt".

Datenselektion (Zeilen 81-91)

Aus der Tabelle VBAP werden alle Positionen zu dem Kundenauftrag gelesen, der durch das Schlüsselfeld des Objekttyps identifiziert wird, und in die Tabelle VBAP_TAB geschrieben (Zeilen 81-82).

Innerhalb einer Schleife (Zeilen 87-91) werden die Einträge der Tabelle VBAP_TAB folgendermaßen genutzt:

die Struktur VBAP_KEY wird gefüllt

eine Objektreferenz ITEM wird erzeugt

ITEM wird an die Tabelle OBJECT-ITEMS angehängt

Zuweisung (Zeile 94)

Mit dem Containermakro SWC_SET_TABLE wird die interne Tabelle OBJECT-ITEMS mit der Liste der Objektreferenzen dem Element Items des Containers zugewiesen.

Ergebnis

Virtuelles Attribut Items testen

Positionieren Sie den Cursor auf dem gerade definierten Attribut.

Wählen Sie Bearbeiten ® Freigabestatus ändern ® Objekttypkomponente ® in Implementiert.

Wählen Sie Diese Grafik wird im zugehörigen Text erklärt

Wenn der Objekttyp noch Fehler hat, werden Sie darauf hingewiesen. Versuchen Sie dann, über die Fehlerübersicht (Springen ® Fehlerliste) diese Fehler zu beheben.

Jetzt können die bisher angelegten Attribute getestet werden.

Wählen Sie .

Sie gelangen auf das Bild Testen Objekttyp <Objektname>: keine Instanz gebunden.

Wählen Sie Instanz.

Identifizieren Sie ein Objekt vom Typ Kundenauftrag, indem Sie die Nummer eines beliebigen Kundenauftrags eintragen. Lassen Sie sich ggf. durch die F4-Eingabehilfe unterstützen.

Wählen Sie .

Sie gelangen auf das Bild Testen Objekttyp <Objektname>, auf dem Sie Ihren Objekttyp testen können (Methoden ausführen, Werte der Attribute überprüfen).

Exkurs: Der Objekttyp VBAP (Verkaufsbelegposition)3

Der Objekttyp VBAP beschreibt die einzelnen Positionen eines Verkaufsbelegs. Die Schlüsselfelder des Objekttyps VBAP sind:

SalesDocumentNo (Verkaufsbeleg)

ItemNo (Verkaufsbelegposition)

Diese Schlüsselfelder referenzieren die Schlüsselfelder VBELN und POSNR der Tabelle VBAP (Verkaufsbeleg: Positionsdaten).

Alternative Implementierung

Eine alternative Implementierung, die ohne zusätzliche interne Tabelle auskommt, ist nachfolgend wiedergegeben:

Syntax

get_property items changing container.

  tables vbap.
  refresh object-items. clear object-items.

  data item type swc_object.
  data: begin of vbap_key,
         vbeln like vbap-vbeln,
         posnr like vbap-posnr,
       end of vbap_key.

  vbap_key-vbeln = object-key-salesdocument.

  select * from vbap where vbeln = object-key-salesdocument.
    vbap_key-posnr = vbap-posnr.
    swc_create_object item 'VBAP' vbap_key.
    append item to object-items.
  endselect.

  swc_set_table container 'Items' object-items.
end_property.