ABAP F4 帮助一例

最新推荐文章于 2024-01-19 16:37:51 发布

weixin_30703911

最新推荐文章于 2024-01-19 16:37:51 发布

阅读量103

点赞数

原文链接：http://www.cnblogs.com/lean/articles/1931966.html

版权

*&---------------------------------------------------------------------*
*& Report Z_LJC_078
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT z_ljc_078 LINE-SIZE 200.

tables: mara.

parameters: p_sh like mara-matnr.

DATA: LTAB_FIELDS LIKE HELP_VALUE OCCURS 0 WITH HEADER LINE,
      BEGIN OF LTAB_VALUES OCCURS 0,
          FELD(40) TYPE C,
      END OF LTAB_VALUES.

INITIALIZATION.
DATA: L_matnr(40),L_meins(40).

LTAB_FIELDS-TABNAME = 'MARA'.
LTAB_FIELDS-FIELDNAME = 'MATNR'.
LTAB_FIELDS-SELECTFLAG = 'X'.
APPEND LTAB_FIELDS.
LTAB_FIELDS-TABNAME = 'MARA'.
LTAB_FIELDS-FIELDNAME = 'MEINS'.
LTAB_FIELDS-SELECTFLAG = ''.
APPEND LTAB_FIELDS.

SELECT matnr meins INTO (L_matnr,L_meins)
FROM mara where matnr like '%380%'.
    LTAB_VALUES-FELD = L_matnr.
    APPEND LTAB_VALUES.
    LTAB_VALUES-FELD = L_meins.
    APPEND LTAB_VALUES.
ENDSELECT.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_SH.
PERFORM getF4help USING P_SH.

START-OF-SELECTION.

*&---------------------------------------------------------------------*
*&      Form getF4help
*&---------------------------------------------------------------------*
FORM getF4help USING P_PARA.
CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'
    EXPORTING
      FIELDNAME                 = 'MATNR'
      TABNAME                   = 'MARA'
      Titel                     = '搜索物料'
    IMPORTING
      SELECT_VALUE              = P_PARA
    TABLES
      FIELDS                    = LTAB_FIELDS
      VALUETAB                  = LTAB_VALUES
    EXCEPTIONS
      FIELD_NOT_IN_DDIC         = 01
      MORE_THEN_ONE_SELECTFIELD = 02
      NO_SELECTFIELD            = 03.
ENDFORM.                                                    " getF4help