Add Dynamic Buttons to Selection Screen

• 
• 

Details

Category: ABAP

Published on Saturday, 11 April 2009 03:57

Written by Sandeep

Hits: 20665

TABLES: sscrfields, mara.

DATA: l_docu_container TYPE REF TO cl_gui_control.

SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
SELECTION-SCREEN BEGIN OF BLOCK object WITH FRAME TITLE text-322.
*JUST TO GET THE SELECTION SCREEN, ACTUAL MAGIC IS ABOVE :)
SELECT-OPTIONS: so_obj_n FOR mara-matnr.
SELECTION-SCREEN END OF BLOCK object.


INITIALIZATION.

MOVE 'Get ABAP Doc for UNICODE'(019) TO sscrfields-functxt_01.
MOVE 'Sample Button2'(029) TO sscrfields-functxt_02.

AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'FC01'.
 CALL FUNCTION 'ABAP_DOCU_SHOW'
 EXPORTING
 area  = 'ABEN'
 name = 'UNICODE'
 langu = sy-langu
 IMPORTING
 docu_container = l_docu_container.

 IF NOT l_docu_container IS INITIAL.
 CALL METHOD cl_gui_control=>set_focus
 EXPORTING
 control = l_docu_container.
 CLEAR l_docu_container.

 ENDIF.
 WHEN 'FC02'.
 IF sscrfields-ucomm = 'FC02'.
 MESSAGE ID '61' TYPE 'E' NUMBER '753'.
 ENDIF.
ENDCASE.

• < Prev
• Next >