Rabu, 27 Februari 2013
Add a button beside execute button
*&---------------------------------------------------------------------*
*& Report ZSBK_BUTTON_SAMPING_EXECUTE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zbutton_samping_execute.
TABLES : sscrfields, smp_dyntxt.
*----------------------------------------------------------------------*
* SELECTION SCREEN *
*----------------------------------------------------------------------*
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
PARAMETERS : p_param TYPE t001l-werks.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'FC01'.
MESSAGE 'Button 1' TYPE 'I'.
WHEN 'FC02'.
MESSAGE 'Button 2' TYPE 'I'.
WHEN OTHERS.
ENDCASE.
INITIALIZATION.
smp_dyntxt-text = 'Button1'.
smp_dyntxt-icon_id = '@PO@'.
smp_dyntxt-icon_text = 'Button1'.
smp_dyntxt-quickinfo = 'Button1'.
sscrfields-functxt_01 = smp_dyntxt.
smp_dyntxt-text = 'Button2'.
smp_dyntxt-icon_id = '@PO@'.
smp_dyntxt-icon_text = 'Button2'.
smp_dyntxt-quickinfo = 'Button2'.
sscrfields-functxt_02 = smp_dyntxt.
*& Report ZSBK_BUTTON_SAMPING_EXECUTE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zbutton_samping_execute.
TABLES : sscrfields, smp_dyntxt.
*----------------------------------------------------------------------*
* SELECTION SCREEN *
*----------------------------------------------------------------------*
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
PARAMETERS : p_param TYPE t001l-werks.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'FC01'.
MESSAGE 'Button 1' TYPE 'I'.
WHEN 'FC02'.
MESSAGE 'Button 2' TYPE 'I'.
WHEN OTHERS.
ENDCASE.
INITIALIZATION.
smp_dyntxt-text = 'Button1'.
smp_dyntxt-icon_id = '@PO@'.
smp_dyntxt-icon_text = 'Button1'.
smp_dyntxt-quickinfo = 'Button1'.
sscrfields-functxt_01 = smp_dyntxt.
smp_dyntxt-text = 'Button2'.
smp_dyntxt-icon_id = '@PO@'.
smp_dyntxt-icon_text = 'Button2'.
smp_dyntxt-quickinfo = 'Button2'.
sscrfields-functxt_02 = smp_dyntxt.
Langganan:
Postingan (Atom)