SE11 Search Help 搜索帮助出口实例代码（多输出字段，带入默认值等）

rogerix4

已于 2023-04-23 22:57:11 修改

阅读量538

点赞数

分类专栏： ABAP 实用程序记录 ABAP开发文章标签：数据库 java sql

于 2023-04-07 12:58:00 首次发布

本文链接：https://blog.csdn.net/qq_30797051/article/details/130009697

版权

1. 创建出口函数

复制标准的函数出口函数（F4IF_SHLP_EXIT_EXAMPLE）到自定义函数
Z_SD_SHLP_EXIT_ZZCONTR

2. 创建搜索帮助，并设置传入传出参数

3. 实现搜索帮助出口函数

代码

FUNCTION z_sd_shlp_exit_zzcontr.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  TABLES
*"      SHLP_TAB TYPE  SHLP_DESCT
*"      RECORD_TAB STRUCTURE  SEAHLPRES
*"  CHANGING
*"     VALUE(SHLP) TYPE  SHLP_DESCR
*"     VALUE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL
*"----------------------------------------------------------------------

  TYPES: BEGIN OF ty_f4,
           kunnr    TYPE vbak-kunnr,
           bukrs_vf TYPE vbak-bukrs_vf,
         END OF ty_f4.

  DATA: ls_f4 TYPE ty_f4.

  DATA:lr_zzcontr    TYPE RANGE OF zsdt008_h-zzcontr,
       lr_zsort2     TYPE RANGE OF zsdt008_i01-zsort2,
       lr_name1      TYPE RANGE OF zsdt008_i01-zname1,
       lr_zzprj      TYPE RANGE OF zpst001-zzprj,
       lr_zzprj_name TYPE RANGE OF zpst001-zzprj_name,
       lr_partner    TYPE RANGE OF bu_partner,
       lr_bukrs_vf   TYPE RANGE OF vbak-bukrs_vf.

  FIELD-SYMBOLS: <fs_field>    LIKE LINE OF shlp_tab-fielddescr.

* EXIT immediately, if you do not want to handle this step
*===============================默认处理所有事件===============================*
*  IF callcontrol-step <> 'SELONE' AND
*     callcontrol-step <> 'SELECT' AND
*     " AND SO ON
*     callcontrol-step <> 'DISP'.
*    EXIT.
*  ENDIF.

*"----------------------------------------------------------------------
* STEP SELONE  (Select one of the elementary searchhelps)
*"----------------------------------------------