屏幕编程 F4的帮组用法

 

PROCESS ON VALUE-REQUEST.

 

* 设置帮助（工作中心）
  FIELD wa_zppt026-arbpl MODULE mdl_arbpl_f4.

 

 

*&---------------------------------------------------------------------*
*&      Module  MDL_ARBPL_F4  INPUT
*&---------------------------------------------------------------------*
*       设置帮助（指标编码）
*----------------------------------------------------------------------*
MODULE mdl_arbpl_f4 INPUT.

* 局部变量
  DATA:
    lt_help_arbpl TYPE TABLE OF t_help_arbpl.

* 取得指标文本数据
  SELECT crhd~arbpl AS value
         crtx~ktext AS descr
    INTO CORRESPONDING FIELDS OF TABLE lt_help_arbpl
    FROM crhd LEFT JOIN crtx
      ON crhd~objty = crtx~objty
     AND crhd~objid = crtx~objid.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield    = 'VALUE'
      dynpprog    = sy-cprog
      dynpnr      = sy-dynnr
      dynprofield = 'WA_ZPPT026-ARBPL'
      value_org   = 'S'
    TABLES
      value_tab   = lt_help_arbpl.

ENDMODULE.                 " MDL_ARBPL_F4  INPUT