一调用function 'F4IF_INT_TABLE_VALUE_REQUEST'时使用参数CALLBACK_FORM

    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
*       DDIC_STRUCTURE         = ' '
        retfield               = 'ZTJBS'
        dynpprog               = sy-repid
        dynprofield            = 'P_ZTJBS'
        dynpnr                 = sy-dynnr
        value_org              = 'S'
*        display                = 'F' "F = Force
*       MULTIPLE_CHOICE        = ' '
*       DISPLAY                = ' '
        callback_program        = sy-repid
        callback_form           = 'CB_FORM'
*       MARK_TAB               =
*     IMPORTING
*       USER_RESET             =
      TABLES
        value_tab              =   it_tjbs
*       FIELD_TAB              =
        return_tab             =   return_tab
*       DYNPFLD_MAPPING        =
*     EXCEPTIONS
*       PARAMETER_ERROR        = 1
*       NO_VALUES_FOUND        = 2
*       OTHERS                 = 3
              .
    IF sy-subrc <> 0.
*     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

ENDIF.

二在 CALLBACK_FORM里面添加要显示的列的信息

*&---------------------------------------------------------------------*
*&      Form cb_form
*&---------------------------------------------------------------------*
FORM. cb_form. TABLES record_tab STRUCTURE seahlpres
              CHANGING shlp TYPE shlp_descr_t
                       callcontrol LIKE ddshf4ctrl.
DATA: interface LIKE LINE OF shlp-interface.
READ TABLE shlp-interface INTO interface INDEX 1.
interface-shlpfield+4(1) = '2'.
interface-valfield = 'P_ZDESC'.
APPEND interface TO shlp-interface.
ENDFORM.                    "bo_callback_form

ITPub博客

F4-HELP同时返回选择的两列变量的实现方法

最新文章