Ansicht
Dokumentation

TABLE_GET_KEY_TO_SET_CUR_ROW - Ermittlung des Keys zum Aufsetzen in einer internen Tabelle

ABAP Short Reference   RFUMSV00 - Advance Return for Tax on Sales/Purchases  
Diese Dokumentation steht unter dem Copyright der SAP AG.

Dieser Funktionsbaustein dient dazu, daß man in einer internen Tabelle positionieren bzw. suchen kann. Dem Anwender wird hierbei ein Dialogfenster angeboten, in dem er mitteilen kann, welchen Tabelleneintrag er haben möchte. Damit dieses Dialogfenster erzeugt und der Eintrag gefunden werden kann, ist es erforderlich, daß für die mit READ_TABLE übergebene Tabelle eine Struktur im Data Dictionary vorhanden ist. Diese Struktur muß Keyfelder beinhalten, da nur diese in dem Dialogfenster angezeigt werden. Das Mandantenfeld wird dabei ignoriert. Als Ergebnis erhält man den Index, mit dem man die interne Tabelle lesen muß, um den gesuchten Eintrag zu bekommen. Analog zu der ABAP/4-Anweisung READ TABLE x WITH KEY y BINARY SEARCH wird ein Rückgabewert geliefert.Über die Tabelle SELLIST kann man Felder des Popups vorbelegen . Diese Felder sind nicht eingabebereit, aber sie werden bei der Suche nach einem bestimmten Schlüssel berücksichtigt. Wer diese Funktionalität nicht benötigt, kann entweder eine leere Tabelle übergeben, oder den Funktionsbaustein POPUP_SEEK_IN_TABLE verwenden. Dieser ruft intern TABLE_SEEK_FOR_POSITION mit einer leeren Tabelle auf. Die Funktion Springen Anderer Eintrag in der erweiterten Tabellenpflege wurde mit diesem Funktionsbaustein realisiert.

Beispiel:
TABLES: T001, T001L.
DATA: BEGIN OF T001L_TAB.
INCLUDE STRUCTURE T001L.
DATA: ... , "Beliebige Anzahl Felder
END OF T001L_TAB.

DATA: BEGIN OF SEL_TAB.
INCLUDE STRUCTURE VIMSELLIST.
DATA: END OF SEL_TAB.

DATA: NEXTLINE LIKE SY-TABIX,
RETURNCODE LIKE SY-SUBRC.
...
...
SEL_TAB-VIEWFIELD = 'WERKS'.
SEL_TAB-OPERATOR = 'EQ'.
SEL_TAB-VALUE = T001-WERKS.
SEL_TAB-DDIC = 'S'.
APPEND SEL_TAB.
CALL FUNCTION 'TABLE_SEEK_FOR_POSITION'
EXPORTING
TABLE = 'T001L'
IMPORTING
POSITION = NEXTLINE
RETURNCODE = RETURNCODE
TABLES
READ_TABLE = T001L_TAB
SELLIST = SEL_TAB
EXCEPTIONS
CANCELLED_BY_USER = 0012.
CHECK SY-SUBRC EQ 0000.
IF RETURNCODE = 8.
IF NEXTLINE GT 1.
NEXTLINE = NEXTLINE - 1.
ENDIF.
ENDIF.
READ TABLE T001L_TAB INDEX NEXTLINE.
...
...

Parameter

EXCLUDE_FIELDS
F1_FORMNAME
F1_PROGRAMNAME
F4_FORMNAME
F4_PROGRAMNAME
SELLIST
TABLE
TABLE_KEY
TABLE_KEY_NEW

Ausnahmen

CANCELLED_BY_USER
TABLE_NOT_FOUND

Funktionsgruppe

SVIX

General Material Data   General Material Data  
Diese Dokumentation steht unter dem Copyright der SAP AG.

Length: 3956 Date: 20240523 Time: 122243     sap01-206 ( 64 ms )