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


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM