1. 程式人生 > >ABAP 選擇螢幕應用工具欄新增按鈕

ABAP 選擇螢幕應用工具欄新增按鈕

REPORT  ZCMH2.

TYPE-POOLS icon.
TABLES sscrfields.
DATA functxt TYPE smp_dyntxt.

PARAMETERS: p_carrid TYPE s_carr_id,
            p_cityfr TYPE s_from_cit.
SELECTION-SCREEN: FUNCTION KEY 1,
                  FUNCTION KEY 2.

INITIALIZATION.
  functxt-icon_id   = ICON_CREATE.
*  functxt-quickinfo = 'Preselected Carrier'.


  functxt-icon_text = '新增'.
  sscrfields-functxt_01 = functxt.

  functxt-icon_id   = ICON_CHANGE.
  functxt-icon_text = '修改'.
  sscrfields-functxt_02 = functxt.

*ICON_EXECUTE_OBJECT
*ICON_DISPLAY
*ICON_PRINT

AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      p_carrid = 'LH'.
      p_cityfr = 'Frankfurt'
.
    WHEN 'FC02'.
      p_carrid = 'UA'.
      p_cityfr = 'Chicago'.
    WHEN OTHERS.
      ...
  ENDCASE.