Re: doubt regarding editable ALV report using Classes

Former Member — Mon, 04 Jun 2007 14:44:11 GMT

Hi ramesh,

Please check this example program. I think it will help for some extent.

[code]&----

*& Report ZSUMA_INTERACTIVEREPORT *

*& *

&----

*& *

&----

report zsuma_interactivereport.

tables: vbak.

data :gr_alvgrid type ref to cl_gui_alv_grid,

gr_cc_name type scrfname value 'CC_ALV',

gr_ccontainer type ref to cl_gui_custom_container,

gr_fieldcat type lvc_t_fcat,

gr_layout type lvc_s_layo,

gr_sort type lvc_t_sort,

gr_get_cell type lvc_t_cell,

gr_set_cell type lvc_t_cell,

gr_hyper type lvc_t_hype,

gr_drop_down type lvc_t_drop,

is_variant type disvariant,

line_number type lvc_s_roid-row_id,

line(5) type c ,

cell_value type lvc_value.

data: begin of it_vbak occurs 0,

vbeln type vbak-vbeln,

erdat like vbak-erdat,

erzet like vbak-erzet,

netwr like vbak-netwr,

waerk like vbak-waerk,

*Below field is useful for making the entire row with different colors.

it must be a char of 4.and layout-info_fname should populate with

*this field.

rowcolor(4) type c,

*Below field is useful for making the INDIVIDUAL CELL with different

*colors.for this we have to include structure of type lvc_t_scol.

*layout-ctab_fname should be populate with this field.

cellcolor type lvc_t_scol,

*below field is added for for providing the hyperlinks to perticular

*field. at the time of field catalog , it_fcatalog-web_field should be

*populate with this field.

vbeln_hyper type int4,

*For displaying one cell as button.we have to declare one styles

*internal table .it has to be populate.at layout structure this table

*name has to be populate at layout-stylename.

cellstyle type lvc_t_styl,

end of it_vbak.

&----

*& SELECTION SCREEN

&----

selection-screen begin of block b1 with frame title text-001.

select-options s_vbeln for vbak-vbeln.

selection-screen end of block b1.

start-of-selection.

select vbeln

erdat

erzet

netwr

waerk

from vbak

into corresponding fields of table it_vbak

where vbeln in s_vbeln.

data: wa_cellcolor type lvc_s_scol,

wa_style type lvc_s_styl.

loop at it_vbak.

FOR ROW COLORING

if sy-tabix = 1.

it_vbak-rowcolor = 'C511'.

FOR PUTTING THE HYPERLINKS ON VBELN FIELD

it_vbak-vbeln_hyper = '1'.

modify it_vbak.

endif.

FOR CELL COLORING

if sy-tabix = 2.

wa_cellcolor-fname = 'ERZET'.

wa_cellcolor-color-col = '6'.

wa_cellcolor-color-int = '1'.

wa_cellcolor-color-inv = '1'.

append wa_cellcolor to it_vbak-cellcolor.

modify it_vbak index 2.

endif.

FOR DISPLAYING THE CELL AS A BUTTON

clear it_vbak-cellstyle.

at last.

read table it_vbak index sy-tabix.

wa_style-fieldname = 'NETWR'.

wa_style-style = cl_gui_alv_grid=>mc_style_button.

append wa_style to it_vbak-cellstyle .

modify it_vbak .

endat.

endloop.

if not it_vbak[] is initial.

call screen 100.

endif.

*CLASS DEFINITION FOR HANDLING THE EVENTS IN ALV GRID

class gr_event_handler definition.

public section.

methods:handle_hotspot_click

for event hotspot_click of cl_gui_alv_grid

importing e_row_id e_column_id es_row_no.

endclass.

*CLASS IMPLEMENTATIONFOR HANDLING THE EVENTS IN ALV GRID

class gr_event_handler implementation.

method handle_hotspot_click.

perform handle_hotspot_click using e_row_id e_column_id es_row_no.

endmethod.

endclass.

&----

*& Form BUILDING_FIELDCATALOG

&----

text

----

<--P_GR_FIELDCAT text

----

form building_fieldcatalog changing p_gr_fieldcat type lvc_t_fcat.

data s_fieldcat type lvc_s_fcat.

s_fieldcat-fieldname = 'VBELN'.

s_fieldcat-outputlen = '15'.

s_fieldcat-col_pos = '1'.

s_fieldcat-coltext = 'DOCCUMENT NO.'.

s_fieldcat-key = ' '.

s_fieldcat-emphasize = 'C511'.

s_fieldcat-web_field = 'VBELN_HYPER'.

append s_fieldcat to p_gr_fieldcat .

clear s_fieldcat.

s_fieldcat-fieldname = 'ERDAT'.

s_fieldcat-outputlen = '15'.

s_fieldcat-col_pos = '2'.

s_fieldcat-coltext = 'REC CREATE DATE.'.

s_fieldcat-emphasize = 'C311'.

s_fieldcat-hotspot = 'X'.

append s_fieldcat to p_gr_fieldcat .

clear s_fieldcat.

s_fieldcat-fieldname = 'ERZET'.

s_fieldcat-outputlen = '15'.

s_fieldcat-col_pos = '3'.

s_fieldcat-coltext = 'TIME ENTRY.'.

*S_FIELDCAT-EMPHASIZE = 'C311'.

append s_fieldcat to p_gr_fieldcat .

clear s_fieldcat.

s_fieldcat-fieldname = 'NETWR'.

s_fieldcat-outputlen = '15'.

s_fieldcat-col_pos = '4'.

s_fieldcat-emphasize = 'C311'.

s_fieldcat-coltext = 'NET WEIGHT.'.

s_fieldcat-do_sum = 'X'.

append s_fieldcat to p_gr_fieldcat .

clear s_fieldcat.

s_fieldcat-fieldname = 'WAERK'.

s_fieldcat-outputlen = '5'.

s_fieldcat-col_pos = '5'.

s_fieldcat-emphasize = 'C511'.

s_fieldcat-coltext = 'CURR.'.

FOR PUTTING THE DROP DOWN BOX.

s_fieldcat-drdn_hndl = '1'.

s_fieldcat-edit = 'X'.

append s_fieldcat to p_gr_fieldcat .

clear s_fieldcat.

endform. " BUILDING_FIELDCATALOG

&----

*& Form CREATE_CCONTAINER_INSTANCE

&----

text

----

--> p1 text
<-- p2 text

----

form create_ccontainer_instance .

create object gr_ccontainer

exporting

container_name = gr_cc_name

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.

endform. " CREATE_CCONTAINER_INSTANCE

&----

*& Form CREATE_ALVGRID_INSTANCE

&----

text

----

--> p1 text
<-- p2 text

----

form create_alvgrid_instance .

create object gr_alvgrid

exporting

i_parent = gr_ccontainer

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.

endform. " CREATE_ALVGRID_INSTANCE

&----

*& Form DISPLAYING_ALVGRID

&----

text

----

--> p1 text
<-- p2 text

----

form displaying_alvgrid .

call method gr_alvgrid->set_table_for_first_display

exporting

I_BUFFER_ACTIVE =
I_BYPASSING_BUFFER =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME =

is_variant = is_variant

i_save = 'A'

I_DEFAULT = 'X'

is_layout = gr_layout

IS_PRINT =
IT_SPECIAL_GROUPS =
IT_TOOLBAR_EXCLUDING =

it_hyperlink = gr_hyper

IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =

changing

it_outtab = it_vbak[]

it_fieldcatalog = gr_fieldcat

it_sort = gr_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.

*CALL METHOD GR_ALVGRID->GET_FRONTEND_LAYOUT

IMPORTING
ES_LAYOUT = GR_LAYOUT
.

*GR_LAYOUT-GRID_TITLE = 'HAI ALV'.

*CALL METHOD GR_ALVGRID->SET_FRONTEND_LAYOUT

EXPORTING
IS_LAYOUT = GR_LAYOUT
.

endform. " DISPLAYING_ALVGRID

&----

*& Form REFRESH_DISPLAY_TABLE

&----

text

----

--> p1 text
<-- p2 text

----

form refresh_display_table .

call method gr_alvgrid->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.

endform. " REFRESH_DISPLAY_TABLE

&----

*& Form SETTING_LAYOUT

&----

text

----

<--P_GR_LAYOUT text

----

form setting_layout changing p_gr_layout type lvc_s_layo.

p_gr_layout-grid_title = 'ALV GRID USING ABAP OBJECTS'.

p_gr_layout-zebra = 'X'.

p_gr_layout-no_toolbar = ''.

p_gr_layout-sel_mode = 'D'.

p_gr_layout-info_fname = 'ROWCOLOR'.

p_gr_layout-ctab_fname = 'CELLCOLOR'.

p_gr_layout-stylefname = 'CELLSTYLE'.

endform. " SETTING_LAYOUT

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

module status_0100 output.

SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.

set pf-status 'MENU'.

if gr_alvgrid is initial.

*CREATING THE CONTAINER INSTANCE BY SENDING THE CONTAINER NAME( IT HAS

*TO COINSIDE WITH COSTUM CONTROL NAME OF TRANSACTION SCREEN

perform create_ccontainer_instance.

perform create_alvgrid_instance.

*VARIANT POPULATION.

perform setting_variants changing is_variant.

*BELOW FORM IS USEFUL TO FILL THE HYPER LINK TABLE AND WE PASS THAT

*TABLE TO 'IT_HYPERLINK' PARAMETER IN FIRST DISPLAY METHOD.

perform setting_hyperlinks_field changing gr_hyper.

*TO MAKE THE COLOUMN AS DROP DOWN.

perform setting_dropdown_column changing gr_drop_down.

perform building_fieldcatalog changing gr_fieldcat.

perform setting_layout changing gr_layout.

perform setting_sorting changing gr_sort.

perform setting_cells changing gr_set_cell.

perform displaying_alvgrid.

*PERFORM GETTING_CELL_DETAILS CHANGING GR_GET_CELL. " IT IS NOT WORKING

FOR ME AND I HAVE DOUBT .

perform creating_event_object.

*PERFORM REFRESH_DISPLAY_TABLE.

endif.

endmodule. " STATUS_0100 OUTPUT

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

module user_command_0100 input.

case sy-ucomm.

when 'BACK'.

leave to screen 000.

endcase.

endmodule. " USER_COMMAND_0100 INPUT

&----

*& Form SETTING_SORTING

&----

text

----

<--P_GR_SORT text

----

form setting_sorting changing p_gr_sort type lvc_t_sort.

data: lr_sort type lvc_s_sort.

lr_sort-spos = '1'.

lr_sort-fieldname = 'VBELN'.

lr_sort-up = 'X'.

append lr_sort to p_gr_sort.

lr_sort-spos = '2'.

lr_sort-fieldname = 'ERDAT'.

lr_sort-up = 'X'.

append lr_sort to p_gr_sort.

endform. " SETTING_SORTING

&----

*& Form GETTING_CELL_DETAILS

&----

text

----

<--P_GR_GET_CELL text

----

form getting_cell_details changing p_gr_get_cell.

call method gr_alvgrid->get_selected_cells

importing

et_cell = p_gr_get_cell

*CELL_VALUE = P_GR_GET_CELL-VALUE.

endform. " GETTING_CELL_DETAILS

&----

*& Form SETTING_CELLS

&----

text

----

<--P_GR_SET_CELL text

----

form setting_cells changing p_gr_set_cell type lvc_t_cell.

data:s_gr_set_cell type lvc_s_cell.

s_gr_set_cell-col_id-fieldname = 'NETWR'.

s_gr_set_cell-row_id-index = '3'.

append s_gr_set_cell to p_gr_set_cell.

call method gr_alvgrid->set_selected_cells

exporting

it_cells = p_gr_set_cell.

endform. " SETTING_CELLS

&----

*& Form SETTING_HYPERLINKS_FIELD

&----

text

----

<--P_GR_HYPER text

----

form setting_hyperlinks_field changing p_gr_hyper type lvc_t_hype.

data: is_hype type lvc_s_hype.

is_hype-handle = '1'.

is_hype-href = 'HTTP://WWW.GOOGLE.CO.IN'.

append is_hype to p_gr_hyper.

is_hype-handle = '2'.

is_hype-href = 'HTTP://SDN.SAP.COM'.

append is_hype to p_gr_hyper.

endform. " SETTING_HYPERLINKS_FIELD

&----

*& Form SETTING_DROPDOWN_COLUMN

&----

text

----

<--P_GR_DROP_DOWN text

----

form setting_dropdown_column changing p_gr_drop_down type lvc_t_drop.

data: wa_drop type lvc_s_drop.

wa_drop-handle = '1'.

wa_drop-value = '$'.

append wa_drop to p_gr_drop_down.

wa_drop-handle = '1'.

wa_drop-value = 'Rs'.

append wa_drop to p_gr_drop_down.

wa_drop-handle = '1'.

wa_drop-value = 'CUR'.

append wa_drop to p_gr_drop_down.

call method gr_alvgrid->set_drop_down_table

exporting

it_drop_down = p_gr_drop_down

IT_DROP_DOWN_ALIAS =

endform. " SETTING_DROPDOWN_COLUMN

&----

*& Form SETTING_VARIANTS

&----

text

----

<--P_IS_VARIANT text

----

form setting_variants changing p_is_variant type disvariant.

p_is_variant-report = sy-repid.

endform. " SETTING_VARIANTS

&----

*& Form HANDLE_HOTSPOT_CLICK

&----

text

----

-->P_E_ROW text
-->P_E_COLUMN text
-->P_E_ROW_NO text

----

form handle_hotspot_click using p_e_row_id type lvc_s_row

p_e_column_id type lvc_s_col

p_es_row_no type lvc_s_roid.

read table it_vbak index p_es_row_no-row_id.

if sy-subrc = 0 and p_e_column_id-fieldname = 'ERDAT'.

line = p_es_row_no-row_id.

line_number = p_es_row_no-row_id.

leave to screen 200.

endif.

endform. " HANDLE_HOTSPOT_CLICK

&----

*& Form CREATING_EVENT_OBJECT

&----

text

----

--> p1 text
<-- p2 text

----

form creating_event_object .

data event_handle type ref to gr_event_handler.

create object event_handle.

set handler event_handle->handle_hotspot_click for gr_alvgrid.

endform. " CREATING_EVENT_OBJECT

&----

*& Module STATUS_0200 OUTPUT

&----

text

----

module status_0200 output.

set pf-status 'BB'.

SET TITLEBAR 'xxx'.

*LINE = LINE_NUMBER.

endmodule. " STATUS_0200 OUTPUT

&----

*& Module USER_COMMAND_0200 INPUT

&----

text

----

module user_command_0200 input.

if sy-ucomm = 'BACK'.

leave to screen 100.

endif.

endmodule. " USER_COMMAND_0200 INPUT[/code]

Reward points if helpful

Thanks,

Suma.

topic Re: doubt regarding editable ALV report using Classes in Application Development and Automation Discussions

doubt regarding editable ALV report using Classes

Re: doubt regarding editable ALV report using Classes

Re: doubt regarding editable ALV report using Classes

Re: doubt regarding editable ALV report using Classes