ABAP 選擇螢幕應用工具欄新增按鈕
阿新 • • 發佈:2019-01-01
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.
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.