should invoke a button on the alv grid tool bar

Former Member · ‎2007 Sep 20

Hi guys

I am displaying a alv grid report using classes.In that report i need to add 2 buttons on the toolbar.If i select any LINE in the list and select one of the buttons in the toolbar i placed the button should call transaction mm03 by taking the material no in the selected LINE.At any time i have to select only one line not multiple lines.I need to do this with classes and methods.

any suggestions please?

Thanks in advance

Message was edited by:

dinesh paleti

Former Member · ‎2007 Sep 20

Check the code and try to implement in your code..

CLASS zcl_event_handler DEFINITION .

PUBLIC SECTION .

METHODS:

Change Status Button on Tool Bar

handle_toolbar

FOR EVENT toolbar OF cl_gui_alv_grid

IMPORTING e_object e_interactive,

Process User Command

handle_user_command

FOR EVENT user_command OF cl_gui_alv_grid

IMPORTING e_ucomm.

ENDCLASS. "zcl_event_handler DEFINITION

CLASS zcl_event_handler IMPLEMENTATION.

Change Status Button

METHOD handle_toolbar.

DATA: lz_toolbar TYPE stb_button.

CLEAR lz_toolbar.

MOVE 'CHANGE_STATUS' TO lz_toolbar-function.

MOVE text-001 TO lz_toolbar-text.

APPEND lz_toolbar TO e_object->mt_toolbar.

ENDMETHOD. "METHOD handle_toolbar

Handle User Command

METHOD handle_user_command.

CASE e_ucomm.

WHEN 'CHANGE_STATUS'.

CALL Transaction MM03.

check here how you will select the particular row.if you face problem reply.

ENDCASE. "CASE e_ucomm

ENDMETHOD. "METHOD handle_user_command

ENDCLASS. "zcl_event_handler IMPLEMENTATION

Former Member · ‎2007 Sep 20

Hi

Check the Links

go through this link

http://www.sapgenie.com/abap/OO/index.htm

http://www.geocities.com/victorav15/sapr3/abap_ood.html

http://www.brabandt.de/html/abap_oo.html

Check this cool weblog:

/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql

/people/sap.user72/blog/2005/05/10/a-small-tip-for-the-beginners-in-oo-abap

/people/ravikumar.allampallam/blog/2005/02/11/abap-oo-in-action

/people/thomas.jung3/blog/2005/09/08/oo-abap-dynpro-programming

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b6254f411d194a60000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm

http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt

http://www.allsaplinks.com/

http://www.sap-img.com/

http://www.sapgenie.com/

http://help.sap.com

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://www.sapgenie.com/abap/controls/index.htm

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_erp2005/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

these links

http://help.sap.com/saphelp_47x200/helpdata/en/ce/b518b6513611d194a50000e8353423/content.htm

For funtion module to class

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5954f411d194a60000e8353423/content.htm

for classes

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5c54f411d194a60000e8353423/content.htm

for methods

http://help.sap.com/saphelp_47x200/helpdata/en/08/d27c03b81011d194f60000e8353423/content.htm

for inheritance

http://help.sap.com/saphelp_47x200/helpdata/en/dd/4049c40f4611d3b9380000e8353423/content.htm

for interfaces

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b6254f411d194a60000e8353423/content.htm

For Materials:

1) http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCABA/BCABA.pdf -- Page no: 1291

2) http://esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt

3) http://esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

4) http://esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf

5) http://esnips.com/doc/92be4457-1b6e-4061-92e5-8e4b3a6e3239/Object-Oriented-ABAP.ppt

6) http://esnips.com/doc/448e8302-68b1-4046-9fef-8fa8808caee0/abap-objects-by-helen.pdf

7) http://esnips.com/doc/39fdc647-1aed-4b40-a476-4d3042b6ec28/class_builder.ppt

😎 http://www.amazon.com/gp/explorer/0201750805/2/ref=pd_lpo_ase/102-9378020-8749710?ie=UTF8

1) http://www.erpgenie.com/sap/abap/OO/index.htm

2) http://help.sap.com/saphelp_nw04/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm

check the sample code

Example:

REPORT sapmz_hf_alv_grid .

Type pool for icons - used in the toolbar

TYPE-POOLS: icon.

TABLES: zsflight.

To allow the declaration of o_event_receiver before the
lcl_event_receiver class is defined, decale it as deferred in the
start of the program

CLASS lcl_event_receiver DEFINITION DEFERRED.

*----

G L O B A L I N T E R N A L T A B L E S

*----

*DATA: gi_sflight TYPE STANDARD TABLE OF sflight.

To include a traffic light and/or color a line the structure of the
table must include fields for the traffic light and/or the color

TYPES: BEGIN OF st_sflight.

INCLUDE STRUCTURE zsflight.

Field for traffic light

TYPES: traffic_light TYPE c.

Field for line color

types: line_color(4) type c.

TYPES: END OF st_sflight.

TYPES: tt_sflight TYPE STANDARD TABLE OF st_sflight.

DATA: gi_sflight TYPE tt_sflight.

*----

G L O B A L D A T A

*----

DATA: ok_code LIKE sy-ucomm,

Work area for internal table

g_wa_sflight TYPE st_sflight,

ALV control: Layout structure

gs_layout TYPE lvc_s_layo.

Declare reference variables to the ALV grid and the container

DATA:

go_grid TYPE REF TO cl_gui_alv_grid,

go_custom_container TYPE REF TO cl_gui_custom_container,

o_event_receiver TYPE REF TO lcl_event_receiver.

DATA:

Work area for screen 200

g_screen200 LIKE zsflight.

Data for storing information about selected rows in the grid

DATA:

Internal table

gi_index_rows TYPE lvc_t_row,

Information about 1 row

g_selected_row LIKE lvc_s_row.

*----

C L A S S E S

*----

CLASS lcl_event_receiver DEFINITION.

PUBLIC SECTION.

METHODS:

handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid

IMPORTING

e_object e_interactive,

handle_user_command FOR EVENT user_command OF cl_gui_alv_grid

IMPORTING e_ucomm.

ENDCLASS.

----

CLASS lcl_event_receiver IMPLEMENTATION

----

CLASS lcl_event_receiver IMPLEMENTATION.

METHOD handle_toolbar.

Event handler method for event toolbar.

CONSTANTS:

Constants for button type

c_button_normal TYPE i VALUE 0,

c_menu_and_default_button TYPE i VALUE 1,

c_menu TYPE i VALUE 2,

c_separator TYPE i VALUE 3,

c_radio_button TYPE i VALUE 4,

c_checkbox TYPE i VALUE 5,

c_menu_entry TYPE i VALUE 6.

DATA:

ls_toolbar TYPE stb_button.

Append seperator to the normal toolbar

CLEAR ls_toolbar.

MOVE c_separator TO ls_toolbar-butn_type..

APPEND ls_toolbar TO e_object->mt_toolbar.

Append a new button that to the toolbar. Use E_OBJECT of
event toolbar. E_OBJECT is of type CL_ALV_EVENT_TOOLBAR_SET.
This class has one attribute MT_TOOLBAR which is of table type
TTB_BUTTON. The structure is STB_BUTTON

CLEAR ls_toolbar.

MOVE 'CHANGE' TO ls_toolbar-function.

MOVE icon_change TO ls_toolbar-icon.

MOVE 'Change flight' TO ls_toolbar-quickinfo.

MOVE 'Change' TO ls_toolbar-text.

MOVE ' ' TO ls_toolbar-disabled.

APPEND ls_toolbar TO e_object->mt_toolbar.

ENDMETHOD.

METHOD handle_user_command.

Handle own functions defined in the toolbar

CASE e_ucomm.

WHEN 'CHANGE'.

PERFORM change_flight.

LEAVE TO SCREEN 0.

ENDCASE.

ENDMETHOD.

ENDCLASS.

*----

S T A R T - O F - S E L E C T I O N.

*----

START-OF-SELECTION.

SET SCREEN '100'.

&----

*& Module USER_COMMAND_0100 INPUT

&----

MODULE user_command_0100 INPUT.

CASE ok_code.

WHEN 'EXIT'.

LEAVE TO SCREEN 0.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

*& Module STATUS_0100 OUTPUT

&----

MODULE status_0100 OUTPUT.

DATA:

For parameter IS_VARIANT that is sued to set up options for storing
the grid layout as a variant in method set_table_for_first_display

l_layout TYPE disvariant,

Utillity field

l_lines TYPE i.

After returning from screen 200 the line that was selected before
going to screen 200, should be selected again. The table gi_index_rows
was the output table from the GET_SELECTED_ROWS method in form
CHANGE_FLIGHT

DESCRIBE TABLE gi_index_rows LINES l_lines.

IF l_lines > 0.

CALL METHOD go_grid->set_selected_rows

EXPORTING

it_index_rows = gi_index_rows.

CALL METHOD cl_gui_cfw=>flush.

REFRESH gi_index_rows.

ENDIF.

Read data and create objects

IF go_custom_container IS INITIAL.

Read data from datbase table

PERFORM get_data.

Create objects for container and ALV grid

CREATE OBJECT go_custom_container

EXPORTING container_name = 'ALV_CONTAINER'.

CREATE OBJECT go_grid

EXPORTING

i_parent = go_custom_container.

Create object for event_receiver class
and set handlers

CREATE OBJECT o_event_receiver.

SET HANDLER o_event_receiver->handle_user_command FOR go_grid.

SET HANDLER o_event_receiver->handle_toolbar FOR go_grid.

Layout (Variant) for ALV grid

l_layout-report = sy-repid. "Layout fo report

*----

Setup the grid layout using a variable of structure lvc_s_layo

*----

Set grid title

gs_layout-grid_title = 'Flights'.

Selection mode - Single row without buttons
(This is the default mode

gs_layout-sel_mode = 'B'.

Name of the exception field (Traffic light field) and the color
field + set the exception and color field of the table

gs_layout-excp_fname = 'TRAFFIC_LIGHT'.

gs_layout-info_fname = 'LINE_COLOR'.

LOOP AT gi_sflight INTO g_wa_sflight.

IF g_wa_sflight-paymentsum < 100000.

Value of traffic light field

g_wa_sflight-traffic_light = '1'.

Value of color field:
C = Color, 6=Color 1=Intesified on, 0: Inverse display off

g_wa_sflight-line_color = 'C610'.

ELSEIF g_wa_sflight-paymentsum => 100000 AND

g_wa_sflight-paymentsum < 1000000.

g_wa_sflight-traffic_light = '2'.

ELSE.

g_wa_sflight-traffic_light = '3'.

ENDIF.

MODIFY gi_sflight FROM g_wa_sflight.

ENDLOOP.

Grid setup for first display

CALL METHOD go_grid->set_table_for_first_display

EXPORTING i_structure_name = 'SFLIGHT'

is_variant = l_layout

i_save = 'A'

is_layout = gs_layout

CHANGING it_outtab = gi_sflight.

*-- End of grid setup -

Raise event toolbar to show the modified toolbar

CALL METHOD go_grid->set_toolbar_interactive.

Set focus to the grid. This is not necessary in this
example as there is only one control on the screen

CALL METHOD cl_gui_control=>set_focus EXPORTING control = go_grid.

ENDIF.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Module USER_COMMAND_0200 INPUT

&----

MODULE user_command_0200 INPUT.

CASE ok_code.

WHEN 'EXIT200'.

LEAVE TO SCREEN 100.

WHEN'SAVE'.

PERFORM save_changes.

ENDCASE.

ENDMODULE. " USER_COMMAND_0200 INPUT

&----

*& Form get_data

&----

FORM get_data.

Read data from table SFLIGHT

SELECT *

FROM zsflight

INTO TABLE gi_sflight.

ENDFORM. " load_data_into_grid

&----

*& Form change_flight

&----

Reads the contents of the selected row in the grid, ans transfers
the data to screen 200, where it can be changed and saved.

----

FORM change_flight.

DATA:l_lines TYPE i.

REFRESH gi_index_rows.

CLEAR g_selected_row.

Read index of selected rows

CALL METHOD go_grid->get_selected_rows

IMPORTING

et_index_rows = gi_index_rows.

Check if any row are selected at all. If not
table gi_index_rows will be empty

DESCRIBE TABLE gi_index_rows LINES l_lines.

IF l_lines = 0.

CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'

EXPORTING

textline1 = 'You must choose a line'.

EXIT.

ENDIF.

Read indexes of selected rows. In this example only one
row can be selected as we are using gs_layout-sel_mode = 'B',
so it is only ncessary to read the first entry in
table gi_index_rows

LOOP AT gi_index_rows INTO g_selected_row.

IF sy-tabix = 1.

READ TABLE gi_sflight INDEX g_selected_row-index INTO g_wa_sflight.

ENDIF.

ENDLOOP.

Transfer data from the selected row to screenm 200 and show
screen 200

CLEAR g_screen200.

MOVE-CORRESPONDING g_wa_sflight TO g_screen200.

LEAVE TO SCREEN '200'.

ENDFORM. " change_flight

&----

*& Form save_changes

&----

Changes made in screen 200 are written to the datbase table
zsflight, and to the grid table gi_sflight, and the grid is
updated with method refresh_table_display to display the changes

----

FORM save_changes.

DATA: l_traffic_light TYPE c.

Update traffic light field
Update database table

MODIFY zsflight FROM g_screen200.

Update grid table , traffic light field and color field.
Note that it is necessary to use structure g_wa_sflight
for the update, as the screen structure does not have a
traffic light field

MOVE-CORRESPONDING g_screen200 TO g_wa_sflight.

IF g_wa_sflight-paymentsum < 100000.

g_wa_sflight-traffic_light = '1'.

C = Color, 6=Color 1=Intesified on, 0: Inverse display off

g_wa_sflight-line_color = 'C610'.

ELSEIF g_wa_sflight-paymentsum => 100000 AND

g_wa_sflight-paymentsum < 1000000.

g_wa_sflight-traffic_light = '2'.

clear g_wa_sflight-line_color.

ELSE.

g_wa_sflight-traffic_light = '3'.

clear g_wa_sflight-line_color.

ENDIF.

MODIFY gi_sflight INDEX g_selected_row-index FROM g_wa_sflight.

Refresh grid

CALL METHOD go_grid->refresh_table_display.

CALL METHOD cl_gui_cfw=>flush.

LEAVE TO SCREEN '100'.

ENDFORM. " save_changes

chk this blog

/people/vijaybabu.dudla/blog/2006/07/21/topofpage-in-alv-using-clguialvgrid

Reward if useful

regards

Anji

Former Member · ‎2007 Sep 20

hi

implement two methods of class cl_gui_alv_grid.

1. toolbar - for adding the buttons

2. handle user command - handling the buttons

see this example :

CLASS lcl_event_receiver DEFINITION.

PUBLIC SECTION.

METHODS:

To handle the toolbar on alv

handle_toolbar

FOR EVENT toolbar OF cl_gui_alv_grid

IMPORTING e_object e_interactive,

To handle the buttons on the alv grid

handle_user_command

FOR EVENT user_command OF cl_gui_alv_grid

IMPORTING e_ucomm.

ENDCLASS.

In the implemetation of the class, implement the methods.

METHOD handle_toolbar.

DATA ls_toolbar TYPE stb_button.

CLEAR gs_toolbar.

MOVE 3 TO gs_toolbar-butn_type.

APPEND gs_toolbar TO e_object->mt_toolbar.

CLEAR gs_toolbar.

PERFORM icon_create USING 'ICON_INSERT_ROW' gs_toolbar-icon.

MOVE text-010 TO gs_toolbar-function.

MOVE text-012 TO gs_toolbar-quickinfo.

MOVE ' ' TO gs_toolbar-disabled.

APPEND gs_toolbar TO e_object->mt_toolbar.

CLEAR gs_toolbar.

PERFORM icon_create USING 'ICON_DELETE_ROW' gs_toolbar-icon.

MOVE text-011 TO gs_toolbar-function.

MOVE text-013 TO gs_toolbar-quickinfo.

MOVE ' ' TO gs_toolbar-disabled.

APPEND gs_toolbar TO e_object->mt_toolbar.

ENDMETHOD.

METHOD handle_user_command.

PERFORM user_command USING e_ucomm.

ENDMETHOD.

Hope u understood this.if u still have any doubts i will post the full code.

Regards,

Prasant

*reward if useful

Former Member · ‎2007 Sep 20

Hi

refer this code

reward if usefull

&----

*& Report ZSONU_ALV_OOPS1

*&

&----

*&

&----

REPORT zsonu_alv_oops1.

INCLUDE zsonu_alv_oops1_top.

INCLUDE zsonu_alv_oops1_fo1.

INCLUDE zsonu_alv_oops1_io1.

&----

START-OF-SELECTION

&----

START-OF-SELECTION.

SELECT vbeln

posnr

matnr

matkl

spart

netpr

FROM vbap

INTO TABLE it_vbap

WHERE vbeln IN s_vbeln.

ADDING SELECT-OPTIONS ON ALV SCREEN.
LOOP AT s_vbeln.
PERFORM describe_select_options USING 'SALES ORDER'
s_vbeln-sign
s_vbeln-option
s_vbeln-low
s_vbeln-high
CHANGING salesorder.
WRITE: / salesorder.
ENDLOOP.

&----

CALLING SCREEN

&----

CALL SCREEN 9000.

&----

LOCAL CLASS IMPLEMENTATION

&----

CLASS lcl_event_receiver IMPLEMENTATION.

METHOD double_click.

READ TABLE it_vbap INDEX e_row-index INTO wa_vbap.

IF sy-subrc EQ 0.

PERFORM double_click_event USING wa_vbap-vbeln.

ENDIF.

ENDMETHOD. "DOUBLE_CLICK

ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTATION

&----

*& Form double_click_event

&----

text

----

-->P_WA_VBAP_VBELN text

----

FORM double_click_event USING p_wa_vbap_vbeln.

SET PARAMETER ID: 'AUN' FIELD p_wa_vbap_vbeln.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDFORM. " double_click_event

&----

*& Form describe_select_options

&----

text

----

-->P_0032 text
-->P_S_VBELN_SIGN text
-->P_S_VBELN_OPTION text
-->P_S_VBELN_LOW text
-->P_S_VBELN_HIGH text
<--P_SALESORDER text

----

form describe_select_options using VBELN TYPE C

s_vbeln_sign LIKE S_VBELN-SIGN

s_vbeln_option LIKE S_VBELN-OPTION

s_vbeln_low LIKE S_VBELN-LOW

s_vbeln_high LIKE S_VBELN-HIGH

changing salesorder TYPE C.

endform. " describe_select_options