F4_hlep_exit

时间 2020-01-04

标签 f4 hlep exit 繁體版

原文原文链接

change:css

SHLP TYPE SHLP_DESCR_T 屏幕，当前表行索引
CALLCONTROL LIKE DDSHF4CTRL 具备搜索帮助出口的 F4 处理控制结构ide

tables:spa

SHLP_TAB TYPE SHLP_DESCR_TAB_T
RECORD_TAB LIKE SEAHLPRES 搜索帮助的结果结构code

golb data:LZFUCTOP索引

FUNCTION-POOL ZFUC.                         "MESSAGE-ID ..
DATA:INPUT(20)  TYPE C,
     OUTPUT(20) TYPE C.
*--> Typen Bedarfsplanung
TYPE-POOLS:
  MRP,
  M61X,
  SHLP.                  "Typgruppe für F4 Suchhilfe Exitit

source code:table

FUNCTION Z_ZWEI_HELP.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  TABLES
*"      SHLP_TAB TYPE  SHLP_DESCR_TAB_T
*"      RECORD_TAB STRUCTURE  SEAHLPRES
*"  CHANGING
*"     REFERENCE(SHLP) TYPE  SHLP_DESCR_T
*"     REFERENCE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL
*"----------------------------------------------------------------------
  DATA:SELOPT   TYPE SELOPT OCCURS 0 WITH HEADER LINE.
  TYPES:BEGIN OF L_SELOPT,
          SHLPNAME(30) TYPE C,
          SHLPFIELD(30) TYPE C,
          SIGN   TYPE SELOPT-SIGN,
          OPTION TYPE SELOPT-OPTION,
          LOW    TYPE SELOPT-LOW,
          HIGH   TYPE SELOPT-HIGH,
        END OF L_SELOPT.
  DATA:L_SELOPT1 TYPE L_SELOPT.
  DATA:T_SELOPT1 TYPE L_SELOPT OCCURS 0.
LOOP AT SHLP_TAB WHERE SHLPNAME = 'ZWEI_HELP'.

    L_SELOPT1-SHLPNAME  = 'ZWEI_HELP'.
    L_SELOPT1-SHLPFIELD = 'BSART'.
    L_SELOPT1-SIGN      = 'I'.
    L_SELOPT1-OPTION    = 'EQ'.
    L_SELOPT1-LOW       = 'NB'.
    L_SELOPT1-HIGH      = ''.
    APPEND L_SELOPT1 TO T_SELOPT1.

    L_SELOPT1-SHLPNAME  = 'ZWEI_HELP'.
    L_SELOPT1-SHLPFIELD = 'BSART'.
    L_SELOPT1-SIGN      = 'I'.
    L_SELOPT1-OPTION    = 'EQ'.
    L_SELOPT1-LOW       = 'SN'.
    L_SELOPT1-HIGH      = ''.
    APPEND L_SELOPT1 TO T_SELOPT1.
    SHLP_TAB-SELOPT = T_SELOPT1.

    MODIFY SHLP_TAB.
ENDLOOP.
BREAK-POINT.

BREAK-POINT.

ENDFUNCTION.class

每日一句

每一个你不满意的现在，都有一个你没有努力的曾经。