Code: Alles auswählen.
PARAMETER P_PRIOK TYPE T356-PRIOK AS LISTBOX VISIBLE LENGTH 20.
TABLES: T350, T356, T356_T, T003O.
TYPE-POOLS VRM.
*----------------------------------------------------------------------*
* TABLE IT_PRIO
*----------------------------------------------------------------------*
TYPES: BEGIN OF TY_PRIO,
PRIOK TYPE T356-PRIOK,
PRIOKX TYPE T356_T-PRIOKX,
END OF TY_PRIO.
DATA: IT_PRIO TYPE TABLE OF TY_PRIO WITH HEADER LINE,
WA_PRIO TYPE TY_PRIO.
*----------------------------------------------------------------------*
* F4-Hilfe für Prio *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PRIOK.
DATA: IT_PRIO TYPE TABLE OF TY_PRIO WITH HEADER LINE.
DATA: WA_PRIO TYPE TY_PRIO.
CLEAR IT_PRIO.
SELECT T~PRIOK
PRIOKX
FROM T356 AS T INNER JOIN T356_T AS U
ON T~PRIOK = U~PRIOK
INNER JOIN T350 AS V
ON U~ARTPR = V~ARTPR
INTO CORRESPONDING FIELDS OF TABLE IT_PRIO
WHERE AUART = 'FWSR' AND
T~ARTPR = 'PM'.
INITIALIZATION.
DATA L_VALUE TYPE VRM_VALUE.
DATA T_VALUES TYPE VRM_VALUES.
LOOP AT IT_PRIO INTO WA_PRIO.
L_VALUE-KEY = WA_PRIO-PRIOK.
L_VALUE-TEXT = WA_PRIO-PRIOKX.
APPEND L_VALUE TO T_VALUES.
ENDLOOP.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'P_PRIOK'
VALUES = T_VALUES.