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