How to change toolbar in ALV in runtime

Former Member · ‎2006 Nov 08

Hi, Experts

I can exclude some toolbar by passing the internal table lt_exclude when first calling the method as below:

call method g_grid->set_table_for_first_display

EXPORTING

it_toolbar_excluding = lt_exclude

CHANGING

it_fieldcatalog = pt_fieldcat

it_outtab = pt_outtab.

Now, my problem is after that, if I change lt_exclude table so as to change excluding toolbar in runtime, how can I do?

Thanks a lot.

Tom

Former Member · ‎2006 Nov 08

Sorry, I might not say that clearly. My problem is after ALV is first displayed, in runtime, I want to change excluding toolbar, how can I do that?

Thanks.

RichHeilman · ‎2006 Nov 08

It actually appears that there are no methods to help you do this. One work around is to destroy the grid and rebuild it.

Regards

RIch Heilman

uwe_schieferstein · ‎2006 Nov 09

Hello Rich

Here my reply to Toms request in another forum category:

Hello Tom

Of course you can change the toolbar dynamically. You have to call method grid->set_toolbar_interactive and an event handler method for event TOOLBAR.

The following sample (modified version of BCALV_GRID_DEMO) shows how to do (my coding is in bold):

[code]PROGRAM test.

DATA: ok_code LIKE sy-ucomm,

gt_sflight TYPE TABLE OF sflight,

g_container TYPE scrfname VALUE 'BCALV_GRID_DEMO_0100_CONT1',

grid1 TYPE REF TO cl_gui_alv_grid,

g_custom_container TYPE REF TO cl_gui_custom_container.

----

CLASS lcl_eventhandler DEFINITION

----

*

----

CLASS lcl_eventhandler DEFINITION.

PUBLIC SECTION.

CLASS-DATA:

md_cnt TYPE i.

CLASS-METHODS:

handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid

IMPORTING

e_object

e_interactive

sender.

ENDCLASS. "lcl_eventhandler DEFINITION

----

CLASS lcl_eventhandler IMPLEMENTATION

----

*

----

CLASS lcl_eventhandler IMPLEMENTATION.

METHOD handle_toolbar.

DATA:

ls_button TYPE stb_button.

ADD 1 TO md_cnt. " a simple counter

LOOP AT e_object->mt_toolbar INTO ls_button FROM 1 TO md_cnt.

ls_button-disabled = 'X'.

MODIFY e_object->mt_toolbar FROM ls_button.

ENDLOOP.

ENDMETHOD. "handle_toolbar

ENDCLASS. "lcl_eventhandler IMPLEMENTATION

START-OF-SELECTION.

----

MAIN *

----

SELECT * FROM sflight INTO TABLE gt_sflight.

CALL SCREEN 100.

----

MODULE PBO OUTPUT *

----

MODULE pbo OUTPUT.

SET PF-STATUS 'MAIN100'.

IF g_custom_container IS INITIAL.

CREATE OBJECT g_custom_container

EXPORTING container_name = g_container.

CREATE OBJECT grid1

EXPORTING i_parent = g_custom_container.

CALL METHOD grid1->set_table_for_first_display

EXPORTING

i_structure_name = 'SFLIGHT'

CHANGING

it_outtab = gt_sflight.

*$Comment: Set event handler for event TOOLBAR

SET HANDLER:

lcl_eventhandler=>handle_toolbar FOR grid1.

ENDIF.

*$Comment: Toolbar can be modified on-the-fly

grid1->set_toolbar_interactive( ). " raises event TOOLBAR

ENDMODULE. "PBO OUTPUT

----

MODULE PAI INPUT *

----

MODULE pai INPUT.

to react on oi_custom_events:

CALL METHOD cl_gui_cfw=>dispatch.

CASE ok_code.

WHEN 'EXIT'.

PERFORM exit_program.

WHEN OTHERS.

do nothing

ENDCASE.

CLEAR ok_code.

ENDMODULE. "PAI INPUT

----

FORM EXIT_PROGRAM *

----

FORM exit_program.

CALL METHOD G_CUSTOM_CONTAINER->FREE.
CALL METHOD CL_GUI_CFW=>FLUSH.

LEAVE PROGRAM.

ENDFORM. "EXIT_PROGRAM[/code]

When you run the program simply push several times the ENTER button. You will see how the buttons of the toolbar are inactivated one by one.

Regards

Uwe

RichHeilman · ‎2006 Nov 09

Hi Uwe, I saw that method, but didn't think that it would help in this situation. Thanks for posting the program. Very nice.

Good one,

Rich Heilman

uwe_schieferstein · ‎2006 Nov 09

Hello Rich

The two methods SET_TOOLBAR_INTERACTIVE and CHECK_DATA_CHANGED of the ALV grid control are somewhat special in the sense that they allow us to explicitly raise ALV grid events (TOOLBAR and DATA_CHANGED).

Regards

Uwe

Former Member · ‎2006 Nov 13

Hi..

check this code.. to add the tools in the custom container output.. using events..

REPORT ZALV_OBJECT.

type-pools: icon.

--

to all the data dec for reference var defore defition-----

class: lcl_event_receiver definition deferred.

data: dis_obj type ref to zalv_obj,

alv_dis type ref to cl_gui_alv_grid,

G_container type ref to cl_gui_custom_container,

GT_CONTAINER TYPE SCRFNAME VALUE 'ALVLIST',

event_receiver type ref to lcl_event_receiver.

DATA: OK_CODE TYPE SY-UCOMM,

g_repid like sy-repid,

x_save type c,

gs_layout type disvariant, "Layout (External Use)

gl_layout type lvc_s_layo. "ALV control: Layout structure

data: WA_TAB LIKE ZOB_TAB,

itab type ZOB_ITAB,

fcat type LVC_T_FCAT.

----

local class definition to handle events

----

class lcl_event_receiver definition.

public section.

methods: handle_toolbar for event toolbar

of cl_gui_alv_grid importing e_object,

handle_user_command for event user_command

of cl_gui_alv_grid importing e_ucomm,

handle_data_changed for event data_changed

of cl_gui_alv_grid importing er_data_changed.

endclass.

----

local class implementation to handle events

----

class lcl_event_receiver implementation.

method handle_toolbar.

to add a buton in the standard toolbar of the custom control

data: ls_toolbar type stb_button, "Toolbar Button

ls_toolbar1 type stb_button.

*to add insert button.

clear ls_toolbar.

move 3 to ls_toolbar-butn_type.

append ls_toolbar to e_object->mt_toolbar.

clear ls_toolbar.

move ICON_EXECUTE_OBJECT to ls_toolbar-icon.

move 'INSERT' to ls_toolbar-function.

move 'move list to ztable' to ls_toolbar-quickinfo.

move 'Insert_values' to ls_toolbar-text.

move ' ' to ls_toolbar-disabled.

append ls_toolbar to e_object->mt_toolbar.

clear ls_toolbar.

*to add edit button.

clear ls_toolbar1.

move 3 to ls_toolbar1-butn_type.

append ls_toolbar1 to e_object->mt_toolbar.

clear ls_toolbar1.

move ICON_TOGGLE_DISPLAY_CHANGE to ls_toolbar1-icon.

move 'EDIT' to ls_toolbar1-function.

move 'change contents in list' to ls_toolbar1-quickinfo.

move 'Edit' to ls_toolbar1-text.

move ' ' to ls_toolbar1-disabled.

append ls_toolbar1 to e_object->mt_toolbar.

clear ls_toolbar1.

endmethod.

*to trigge the action when the button is pressed

method handle_user_command.

*data gl1_layout type lvc_s_layo.

case e_ucomm.

*function insert

when 'INSERT'.

LOOP AT ITAB INTO WA_TAB.

INSERT INTO ZALV_TAB values wa_tab. " from wa_tab table itab.

ENDLOOP.

*function edit

when 'EDIT'.

perform editable.

endcase.

endmethod.

endclass.

*selection-screen

SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETER: P_VBELN LIKE VBAP-VBELN.

selection-screen: END OF BLOCK B1.

start-of-selection.

create object dis_obj.

CALL METHOD DIS_OBJ->GET_METHOD

EXPORTING

SALE_DOC_NUM = p_vbeln

IMPORTING

ZITAB = itab.

end-of-selection.

clear gs_layout.

call screen 201.

&----

*& Module STATUS_0201 OUTPUT

&----

text

----

MODULE STATUS_0201 OUTPUT.

SET PF-STATUS 'ZSRN201'.

SET TITLEBAR 'xxx'.

if g_container is initial.

--

create object for custom control ref var--

CREATE OBJECT G_CONTAINER

EXPORTING

CONTAINER_NAME = GT_CONTAINER

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

CREATE_ERROR = 3

LIFETIME_ERROR = 4

LIFETIME_DYNPRO_DYNPRO_LINK = 5

others = 6.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

--

create object for the class alv_obj--

CREATE OBJECT ALV_DIS

EXPORTING

I_PARENT = G_CONTAINER

EXCEPTIONS

ERROR_CNTL_CREATE = 1

ERROR_CNTL_INIT = 2

ERROR_CNTL_LINK = 3

ERROR_DP_CREATE = 4

others = 5.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

--

fieldcatalog definition--

PERFORM FIELDCAT CHANGING FCAT.

perform save_layout.

gl_layout-grid_title = 'sales document details'(100).

*gl_layout-edit = 'X'.

endif.

--

set the table for display--

CALL METHOD ALV_DIS->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

IS_VARIANT = gs_layout

I_SAVE = x_save

IS_LAYOUT = gl_layout

CHANGING

IT_OUTTAB = itab[]

IT_FIELDCATALOG = fcat

EXCEPTIONS

INVALID_PARAMETER_COMBINATION = 1

PROGRAM_ERROR = 2

TOO_MANY_LINES = 3

others = 4.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*create object for event reference var

create object event_receiver.

*set the event to grid reference variable

set handler event_receiver->handle_toolbar for alv_dis.

set handler event_receiver->handle_user_command for alv_dis.

CALL METHOD ALV_DIS->REFRESH_TABLE_DISPLAY

EXPORTING
IS_STABLE =
I_SOFT_REFRESH =

EXCEPTIONS

FINISHED = 1

others = 2.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDMODULE. " STATUS_0201 OUTPUT

&----

*& Module USER_COMMAND_0201 INPUT

&----

text

----

MODULE USER_COMMAND_0201 INPUT.

*CALL METHOD CL_GUI_CFW=>DISPATCH.

CASE OK_CODE.

when 'EXIT'.

LEAVE PROGRAM.

when 'EXEC'.

LOOP AT ITAB INTO WA_TAB.

INSERT INTO ZALV_TAB values wa_tab. " from wa_tab table itab.

ENDLOOP.

when 'EDIT'.

perform editable.

ENDCASE.

CLEAR OK_CODE.

ENDMODULE. " USER_COMMAND_0201 INPUT

&----

*& Form save_layout

&----

text

----

--> p1 text
<-- p2 text

----

FORM save_layout .

x_save = 'A'.

g_repid = sy-repid.

gs_layout-report = g_repid.

ENDFORM. " save_layout

regards

kothai venkatasamy