ABAP search help (搜索帮助) 五种方法

ABAP search help (搜索帮助) 五种方法  

 

转自：http://hunanlsy1983.blog.163.com/blog/static/616341182010520103348243/

2010-06-20 10:33:48|  分类： ABAP学习笔记|字号 订阅

 

 

 ABAP 的搜索帮助有很多种方法，掌握下面的几种基本差不多了

*&---------------------------------------------------------------------*
*& Report  ZTEST1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST1.

tables: mara.

 DATA:ok_code TYPE sy-ucomm,
       save_ok TYPE sy-ucomm.

parameters: l_matnr type matnr matchcode object zmara. " 第1种-简单的弹出对话框

PARAMETERS:l_ebeln type ebeln matchcode object ZEKKO. " 第2种-selectio-method 是 view。

* 第3种，上下两个是关联在一块的。工厂和库存地点。
PARAMETERS:l_werks type zwerks_logrt-werks.
PARAMETERS:l_logrt type zwerks_logrt-logrt.

* 第4种，selection screen 中的 ：日期类型的search help。这种方法要注意在dialogue screen 中，要在元素清单中reference中 l_data添加DATS，
*按钮才会出来，否则要按F4，才能出来帮助按钮。
PARAMETERS:l_data type dats.

* 第5种：dialogue screen 中的 屏幕下拉框。

 data l_date type dats." dialogue screen 中的日期类型的search help 创建。
 call screen '0100'.

 data l_ver type char10.

Module drop_down_list output.

  TYPE-POOLS vrm.
  DATA :name TYPE vrm_id,
        List TYPE vrm_values,
        Value LIKE LINE OF list.
  Name = 'L_VER'. "屏幕上绑定的下拉框也是这个名字。
  REFRESH list.
  Value-key = 'A'.
  Value-text = '西海岸'.
  APPEND value TO list.

  Value-key = 'B'.
  Value-text = '东海岸'.
  APPEND value TO list.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name
      values = list.

ENDMODULE.                    "drop_down_list OUTPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '0100'.
 SET TITLEBAR '0100'.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
SAVE_OK =  OK_CODE .
  clear:OK_CODE.
  case:SAVE_OK.
    when 'BACK' or 'EXIT' or 'CACEL'.
      leave to screen 0.
  endcase.
ENDMODULE.                 " USER_COMMAND_0100  INPUT