ENHANCEMENT-POINT RM06EL00_G6 SPOTS ES_RM06EL00 STATIC.
*$*$-Start: RM06EL00_G6-------------------------------------------------------------------------$*$*
ENHANCEMENT 3 MGV_GENERATED_RM06EL00. "active version
START-OF-SELECTION.
ENDENHANCEMENT.
ENHANCEMENT 5 ZTEST02. "active version
*
START-OF-SELECTION.
TABLES t001w.
DATA: field(50).
FIELD-SYMBOLS: TYPE zitabty .
field = '(RM06EL00)S_WERKS[]'.
ASSIGN (field) TO .
SELECT * FROM t001w WHERE werks IN .
AUTHORITY-CHECK OBJECT 'M_BEST_WRK'
ID 'ACTVT' DUMMY
ID 'WERKS' FIELD t001w-werks.
IF sy-subrc <> 0.
MESSAGE e000(oo) WITH '没有此工厂权限!'.
ENDIF.
ENDSELECT.
ENDENHANCEMENT.
阅读(4057) | 评论(0) | 转发(0) |