ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

ABAP 选择屏幕上的自定义搜索帮助

2022-07-18 14:05:52  阅读:211  来源: 互联网

标签:帮助 F4 自定义 LT VALUE ABAP TAB 屏幕 ZMMT407


1.搜索帮助调用处

 

 

 

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_ZPUR-LOW.
  PERFORM frm_f4_zpur.

 

2.搜索帮助方法明细

FORM FRM_F4_ZPUR .
DATA:LT_ZMMT407 TYPE TABLE OF ZMMT407.

   SELECT
     *
     FROM ZMMT407
     INTO CORRESPONDING FIELDS OF  TABLE @LT_ZMMT407.
  SORT LT_ZMMT407 BY ZPURSORT.
  DELETE ADJACENT DUPLICATES FROM LT_ZMMT407 COMPARING ZPURSORT.


*将取到的值通过函数显示在搜索帮助显示框中
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
   EXPORTING
*    DDIC_STRUCTURE         = ' '
     RETFIELD               = 'ZPURSORT'            "这个参数为帮助表中返回到选择屏幕的字段的参数
*    PVALKEY                = ' '
     DYNPPROG               = SY-REPID           "当前程序,不写会有问题
     DYNPNR                 = SY-DYNNR           "当前屏幕,不写会有问题
     DYNPROFIELD            = 'S_ZPUR-LOW'       "选择屏幕上需要加F4帮助的字段
*    STEPL                  = 0
*    WINDOW_TITLE           =
*    VALUE                  = ' '
     VALUE_ORG              = 'S'                "默认为C但是此处不用S不行
*    MULTIPLE_CHOICE        = ' '
*    DISPLAY                = ' '
*    CALLBACK_PROGRAM       = ' '
*    CALLBACK_FORM          = ' '
*    CALLBACK_METHOD        =
*    MARK_TAB               =
*  IMPORTING
*    USER_RESET             =
   TABLES
     VALUE_TAB              = LT_ZMMT407           "F4帮助值的表
*    FIELD_TAB              =
*    RETURN_TAB             =
*    DYNPFLD_MAPPING        =
  EXCEPTIONS
    PARAMETER_ERROR        = 1
    NO_VALUES_FOUND        = 2
    OTHERS                 = 3
           .
 IF SY-SUBRC <> 0.
*Implement suitable error handling here
 ENDIF.
ENDFORM.

标签:帮助,F4,自定义,LT,VALUE,ABAP,TAB,屏幕,ZMMT407
来源: https://www.cnblogs.com/huangqingdong/p/16490148.html

本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享;
2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关;
3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关;
4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除;
5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有