Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Re: ALV Grid Control

Former Member

‎2006 Oct 06 4:45 AM

0 Likes
626

Dear Experts,

Pls. Find the following code.My requirement is i have to select Multiple rows without pressing 'Ctrl' Button.I tried with all options of SEL_MODE = 'A','B','C','D' But no luck.

pls. help on this how to achieve this functionality.

REPORT ysflight .

DATA ok_code LIKE sy-ucomm.

DATA gr_alvgrid TYPE REF TO cl_gui_alv_grid.

DATA gc_custom_control_name TYPE scrfname VALUE 'CC_ALV'.

DATA gr_ccontainer TYPE REF TO cl_gui_custom_container.

DATA gt_fieldcat TYPE lvc_t_fcat.

DATA gs_layout TYPE lvc_s_layo.

DATA BEGIN OF gt_list OCCURS 0.

INCLUDE STRUCTURE sflight.

DATA END OF gt_list.

DATA BEGIN OF gt_temp_list OCCURS 0.

INCLUDE STRUCTURE sflight.

DATA END OF gt_temp_list.

DATA lt_selected_rows TYPE lvc_t_roid.

DATA ls_selected_row TYPE lvc_s_roid.

SELECT * FROM sflight INTO TABLE gt_list.

CALL SCREEN 100.

----

  • MODULE DISPLAY_ALV OUTPUT

----

*

----

MODULE display_alv OUTPUT.

PERFORM display_alv.

ENDMODULE. "DISPLAY_ALV OUTPUT

&----

*& Form DISPLAY_ALV

&----

  • text

----

FORM display_alv.

SET PF-STATUS 'STAT'.

IF gr_alvgrid IS INITIAL.

CREATE OBJECT gr_ccontainer

EXPORTING

container_name = gc_custom_control_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.

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.

PERFORM prepare_field_catalog CHANGING gt_fieldcat.

PERFORM prepare_layout CHANGING gs_layout.

CALL METHOD gr_alvgrid->set_table_for_first_display

EXPORTING

  • I_BUFFER_ACTIVE =

  • I_BYPASSING_BUFFER =

  • I_CONSISTENCY_CHECK =

  • I_STRUCTURE_NAME =

  • IS_VARIANT =

  • I_SAVE =

  • I_DEFAULT = 'X'

is_layout = gs_layout

  • IS_PRINT =

  • IT_SPECIAL_GROUPS =

  • IT_TOOLBAR_EXCLUDING =

  • IT_HYPERLINK =

  • IT_ALV_GRAPHICS =

  • IT_EXCEPT_QINFO =

CHANGING

it_outtab = gt_list[]

it_fieldcatalog = gt_fieldcat

  • 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.

ENDIF.

ENDFORM. "DISPLAY_ALV

&----

*& Form prepare_FIELD_CATALOG

&----

  • text

----

  • -->PT_FIELDCAT text

----

FORM prepare_field_catalog CHANGING pt_fieldcat TYPE lvc_t_fcat.

DATA ls_fcat TYPE lvc_s_fcat.

ls_fcat-fieldname = 'CARRID'.

ls_fcat-inttype = 'C'.

ls_fcat-outputlen = '3'.

ls_fcat-coltext = 'Carrier ID'.

ls_fcat-seltext = 'Carrier ID'.

APPEND ls_fcat TO pt_fieldcat.

CLEAR ls_fcat.

ls_fcat-fieldname = 'CONNID'.

ls_fcat-ref_table = 'SFLIGHT'.

ls_fcat-ref_table = 'CONNID'.

ls_fcat-outputlen = '3'.

ls_fcat-coltext = 'Connection ID'.

ls_fcat-seltext = 'Connection ID'.

APPEND ls_fcat TO pt_fieldcat.

ENDFORM. "prepare_FIELD_CATALOG

&----

*& Form prepare_layout

&----

  • text

----

  • -->PS_LAYOUT text

----

FORM prepare_layout CHANGING ps_layout TYPE lvc_s_layo.

ps_layout-sel_mode = 'D'.

ENDFORM. "prepare_layout

*&----

*& Module USER_COMMAND_0100 INPUT

*&----

  • text

*----

MODULE user_command_0100 INPUT.

CASE ok_code.

WHEN 'BACK'.

LEAVE PROGRAM.

WHEN 'EDIT' .

CALL METHOD gr_alvgrid->get_selected_rows

IMPORTING

et_row_no = lt_selected_rows.

set pf-status 'STAT1'.

LOOP AT lt_selected_rows INTO ls_selected_row.

READ TABLE gt_list INDEX ls_selected_row-row_id.

IF sy-subrc EQ 0.

gt_temp_list = gt_list.

APPEND gt_temp_list.

LEAVE TO LIST-PROCESSING.

WRITE: / gt_temp_list-carrid ,gt_temp_list-connid input on.

ENDIF.

ENDLOOP.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

at user-command.

case sy-ucomm.

WHEN 'BACK'.

leave program.

endcase.

LEAVE PROGRAM.

Dear Experts,

Pls. Find the following code.My requirement is i have to select Multiple rows without pressing 'Ctrl' Button.I tried with all options of SEL_MODE = 'A','B','C','D' But no luck.

pls. help on this how to achieve this functionality.

REPORT ysflight .

DATA ok_code LIKE sy-ucomm.

DATA gr_alvgrid TYPE REF TO cl_gui_alv_grid.

DATA gc_custom_control_name TYPE scrfname VALUE 'CC_ALV'.

DATA gr_ccontainer TYPE REF TO cl_gui_custom_container.

DATA gt_fieldcat TYPE lvc_t_fcat.

DATA gs_layout TYPE lvc_s_layo.

DATA BEGIN OF gt_list OCCURS 0.

INCLUDE STRUCTURE sflight.

DATA END OF gt_list.

DATA BEGIN OF gt_temp_list OCCURS 0.

INCLUDE STRUCTURE sflight.

DATA END OF gt_temp_list.

DATA lt_selected_rows TYPE lvc_t_roid.

DATA ls_selected_row TYPE lvc_s_roid.

SELECT * FROM sflight INTO TABLE gt_list.

CALL SCREEN 100.

----

  • MODULE DISPLAY_ALV OUTPUT

----

*

----

MODULE display_alv OUTPUT.

PERFORM display_alv.

ENDMODULE. "DISPLAY_ALV OUTPUT

&----

*& Form DISPLAY_ALV

&----

  • text

----

FORM display_alv.

SET PF-STATUS 'STAT'.

IF gr_alvgrid IS INITIAL.

CREATE OBJECT gr_ccontainer

EXPORTING

container_name = gc_custom_control_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.

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.

PERFORM prepare_field_catalog CHANGING gt_fieldcat.

PERFORM prepare_layout CHANGING gs_layout.

CALL METHOD gr_alvgrid->set_table_for_first_display

EXPORTING

  • I_BUFFER_ACTIVE =

  • I_BYPASSING_BUFFER =

  • I_CONSISTENCY_CHECK =

  • I_STRUCTURE_NAME =

  • IS_VARIANT =

  • I_SAVE =

  • I_DEFAULT = 'X'

is_layout = gs_layout

  • IS_PRINT =

  • IT_SPECIAL_GROUPS =

  • IT_TOOLBAR_EXCLUDING =

  • IT_HYPERLINK =

  • IT_ALV_GRAPHICS =

  • IT_EXCEPT_QINFO =

CHANGING

it_outtab = gt_list[]

it_fieldcatalog = gt_fieldcat

  • 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.

ENDIF.

ENDFORM. "DISPLAY_ALV

&----

*& Form prepare_FIELD_CATALOG

&----

  • text

----

  • -->PT_FIELDCAT text

----

FORM prepare_field_catalog CHANGING pt_fieldcat TYPE lvc_t_fcat.

DATA ls_fcat TYPE lvc_s_fcat.

ls_fcat-fieldname = 'CARRID'.

ls_fcat-inttype = 'C'.

ls_fcat-outputlen = '3'.

ls_fcat-coltext = 'Carrier ID'.

ls_fcat-seltext = 'Carrier ID'.

APPEND ls_fcat TO pt_fieldcat.

CLEAR ls_fcat.

ls_fcat-fieldname = 'CONNID'.

ls_fcat-ref_table = 'SFLIGHT'.

ls_fcat-ref_table = 'CONNID'.

ls_fcat-outputlen = '3'.

ls_fcat-coltext = 'Connection ID'.

ls_fcat-seltext = 'Connection ID'.

APPEND ls_fcat TO pt_fieldcat.

ENDFORM. "prepare_FIELD_CATALOG

&----

*& Form prepare_layout

&----

  • text

----

  • -->PS_LAYOUT text

----

FORM prepare_layout CHANGING ps_layout TYPE lvc_s_layo.

ps_layout-sel_mode = 'D'.

ENDFORM. "prepare_layout

*&----

*& Module USER_COMMAND_0100 INPUT

*&----

  • text

*----

MODULE user_command_0100 INPUT.

CASE ok_code.

WHEN 'BACK'.

LEAVE PROGRAM.

WHEN 'EDIT' .

CALL METHOD gr_alvgrid->get_selected_rows

IMPORTING

et_row_no = lt_selected_rows.

set pf-status 'STAT1'.

LOOP AT lt_selected_rows INTO ls_selected_row.

READ TABLE gt_list INDEX ls_selected_row-row_id.

IF sy-subrc EQ 0.

gt_temp_list = gt_list.

APPEND gt_temp_list.

LEAVE TO LIST-PROCESSING.

WRITE: / gt_temp_list-carrid ,gt_temp_list-connid input on.

ENDIF.

ENDLOOP.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

at user-command.

case sy-ucomm.

WHEN 'BACK'.

leave program.

endcase.

LEAVE PROGRAM.

Reply
3 REPLIES 3
Read only

jayanthi_jayaraman
Active Contributor

‎2006 Oct 06 5:21 AM

0 Likes
578

Hi,

You can use checkbox for selecting multiple entries without ctrl button.

Read only

Former Member

‎2006 Oct 06 5:33 AM

0 Likes
578

Hi,

You have to do the following things..

1) in the layout structure pass sel_mode = 'D'.

2) In the layout structure pass box_fname = 'SELKZ'.

3) Add the field SELKZ to the output internal table gt_list ..

Thanks,

Naren

Read only

Former Member
In response to Former Member

‎2006 Dec 18 9:06 AM

0 Likes
578

hello naren ,

i tried using SELKZ

BUT IT IS NOT WORKING MINE IS THE SAME CASE AS OF HARISH

CAN U HELP ME

PLEASE REPLY ON THE SAME FORUM

THANKS