hi
*&---------------------------------------------------------------------*
*& Report Z_OOPS_ALV *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
report z_oops_alv .
class event_reciever definition deferred.
data: begin of it_tab occurs 0.
include structure mara.
data : celltab type lvc_t_styl.
data: end of it_tab.
data: it_tab1 type table of mara,
wa_mara type mara,
it_celltab type lvc_t_styl,
wa_celltab type lvc_s_styl,
wa_edit type raw4 value cl_gui_alv_grid=>mc_style_enabled.
data wa_layout type lvc_s_layo.
data: gui_container type ref to cl_gui_custom_container,
alv type ref to cl_gui_alv_grid,
reciever type ref to event_reciever.
*---------------------------------------------------------------------*
* CLASS event_reciever DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
class event_reciever definition.
public section.
methods: data_change for event data_changed of cl_gui_alv_grid
importing sender er_data_changed.
endclass. "event_reciever DEFINITION
*---------------------------------------------------------------------*
* CLASS event_reciever IMPLEMENTATION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
class event_reciever implementation.
method data_change.
data: good_cells type lvc_s_modi,
wa_matkl type matkl.
loop at er_data_changed->mt_good_cells into good_cells.
call method er_data_changed->get_cell_value
exporting
i_row_id = good_cells-row_id
* I_TABIX =
i_fieldname = 'MATKL'
importing
e_value = wa_matkl.
endloop.
endmethod. "data_change
endclass. "event_reciever IMPLEMENTATION
start-of-selection.
select * into table it_tab1 from mara up to 100 rows where matkl ne ' '
.
call screen '0100'.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module status_0100 output.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
wa_layout-stylefname = 'CELLTAB'.
create object gui_container
exporting
* PARENT =
container_name = 'CONTAINER'
* STYLE =
* LIFETIME = lifetime_default
* REPID =
* DYNNR =
* NO_AUTODEF_PROGID_DYNNR =
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 alv
exporting
* I_SHELLSTYLE = 0
* I_LIFETIME =
i_parent = gui_container
* I_APPL_EVENTS = space
* I_PARENTDBG =
* I_APPLOGPARENT =
* I_GRAPHICSPARENT =
* I_NAME =
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.
loop at it_tab1 into wa_mara.
refresh it_celltab.
move-corresponding wa_mara to it_tab.
if wa_mara-matkl = '00101'.
wa_celltab-fieldname = 'MATKL'.
wa_celltab-style = wa_edit.
append wa_celltab to it_celltab.
wa_celltab-fieldname = 'MATNR'.
wa_celltab-style = wa_edit.
append wa_celltab to it_celltab.
endif.
it_tab-celltab = it_celltab.
append it_tab.
endloop.
call method alv->set_ready_for_input
exporting
i_ready_for_input = 1.
call method alv->set_table_for_first_display
exporting
* I_BUFFER_ACTIVE =
* I_BYPASSING_BUFFER =
* I_CONSISTENCY_CHECK =
i_structure_name = 'MARA'
* IS_VARIANT =
* I_SAVE =
* I_DEFAULT = 'X'
is_layout = wa_layout
* IS_PRINT =
* IT_SPECIAL_GROUPS =
* IT_TOOLBAR_EXCLUDING =
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
changing
it_outtab = it_tab[]
* IT_FIELDCATALOG =
* IT_SORT =
* IT_FILTER =
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 reciever.
set handler reciever->data_change for all instances.
endmodule. " STATUS_0100 OUTPUT
hope it clears ur doubt
regards
vijay
<b>plz dont forget to reward points if useful</b>
- SAP Managed Tags:
