Re: alv

ashok_kumar24116 — Mon, 03 Jul 2006 12:39:01 GMT

Hi yossi balan ,

Try this program code

report zshail_alv_new .

tables: sflight.

type-pools: icon.

data: pt_sort type lvc_t_sort.

data: my_column type table of lvc_s_ceno with header line.

data: t_hype type LVC_T_HYPE.

class shail_event 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,

handle_contextmenu_request for event context_menu_request of

cl_gui_alv_grid importing e_object.

endclass.

class shail_event implementation.

method handle_toolbar.

perform handler_toolbar using e_object e_interactive.

endmethod.

method handle_user_command.

perform handler_user_command using e_ucomm.

endmethod.

method handle_contextmenu_request.

perform handler_contextmenu_request using e_object.

endmethod.

endclass.

data: go_container type ref to cl_gui_custom_container,

go_grid type ref to cl_gui_alv_grid,

field_catalog type lvc_t_fcat,

layout type lvc_s_layo.

data: begin of itab occurs 0.

include structure sflight.

data: end of itab.

data: obj type ref to shail_event.

data: button_exclude type ui_functions.

start-of-selection.

call screen 200.

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

module status_0100 output.

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

if go_container is initial.

create object go_container

exporting

PARENT =

container_name = 'ALV_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 go_grid

exporting

I_SHELLSTYLE = 0
I_LIFETIME =

i_parent = go_container

I_APPL_EVENTS = space
I_PARENTDBG =
I_APPLOGPARENT =
I_GRAPHICSPARENT =
I_USE_VARIANT_CLASS = SPACE
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.

create object obj.

set handler obj->handle_toolbar for go_grid.

set handler obj->handle_user_command for go_grid.

set handler obj->handle_contextmenu_request for go_grid.

select * from sflight into corresponding fields of table itab.

perform catalog_fill changing field_catalog.

perform layout_fill changing layout.

perform prepare_sort_table changing pt_sort.

call method go_grid->set_table_for_first_display

exporting

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME = 'SFLIGHT'
IS_VARIANT =
I_SAVE =
I_DEFAULT = 'X'

is_layout = layout

IS_PRINT =
IT_SPECIAL_GROUPS =

it_toolbar_excluding = button_exclude

IT_HYPERLINK = t_hype

IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =

changing

it_outtab = itab[]

it_fieldcatalog = field_catalog

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

else.

call method go_grid->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_0100 OUTPUT

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

module user_command_0100 input.

case sy-ucomm.

when 'BACK'.

LEAVE TO SCREEN 0.

endcase.

endmodule. " USER_COMMAND_0100 INPUT

&----

*& Form CATALOG_FILL

&----

text

----

<--P_FIELD_CATALOG text

----

form catalog_fill changing p_field_catalog.

data ls_fcat type lvc_s_fcat .

ls_fcat-fieldname = 'CARRID' .

ls_fcat-inttype = 'C' .

ls_fcat-outputlen = '20' .

ls_fcat-coltext = 'Carrier ID' .

ls_fcat-web_field = 'carrid_handle'.

ls_fcat-edit = 'X'.

*ls_fcat-emphasize = 'C310'. "needed for column coloring

append ls_fcat to field_catalog .

clear ls_fcat .

ls_fcat-fieldname = 'FLDATE' .

ls_fcat-ref_table = 'SFLIGHT' .

ls_fcat-ref_table = 'FLDATE' .

ls_fcat-outputlen = '20' .

ls_fcat-coltext = 'Flight Date' .

ls_fcat-web_field = 'fldate_handle'.

append ls_fcat to field_catalog .

clear ls_fcat .

ls_fcat-fieldname = 'PRICE' .

ls_fcat-ref_table = 'SFLIGHT' .

ls_fcat-ref_table = 'PRICE' .

ls_fcat-outputlen = '20' .

ls_fcat-coltext = 'Airfare' .

append ls_fcat to field_catalog .

clear ls_fcat .

ls_fcat-fieldname = 'SEATSMAX' .

ls_fcat-ref_table = 'SFLIGHT' .

ls_fcat-ref_table = 'SEATSMAX' .

ls_fcat-outputlen = '20' .

ls_fcat-coltext = 'Maximum seats' .

append ls_fcat to field_catalog .

endform. " CATALOG_FILL

&----

*& Form LAYOUT_FILL

&----

text

----

<--P_LAYOUT text

----

form layout_fill changing p_layout type lvc_s_layo.

p_layout-zebra = 'X' .

p_layout-grid_title = 'Flights' .

p_layout-smalltitle = 'X' .

p_layout-no_merging = 'X'.

*p_layout-sel_mode = 'A'.

*p_layout-info_fname = 'rowcolor'.

endform. " LAYOUT_FILL

&----

*& Form exclude_std_buttons

&----

text

----

<--P_BUTTON_EXCLUDE text

----

form exclude_std_buttons changing p_button_exclude type ui_functions.

the various buttons are details,sort asc,sort desc,find,set filter,
total, subtotal,
print,view,export,changelayout,display graphic, eu documentation
MC_FC_DETAIL,MC_FC_FIND,MC_FC_FILTER,MC_FC_GRAPHIC,MC_FC_SORT_ASC,
MC_FC_SORT_DSC,MC_FC_SUBTOT,MC_FC_SUM,MC_FC_PC_FILE,MC_FC_VIEWS

data: ls_exclude type ui_func.

ls_exclude = cl_gui_alv_grid=>mc_fc_detail.