-
Products and Technology
By Category
-
Groups
Activity Groups
Industry Groups
Influence and Feedback Groups
Interest Groups
Location Groups
Customer Only Groups
- Developers
- Partners
- Events
- Help Center
- Topic Pages
-
Explore SAP
Products
- Autonomous Enterprise
- Artificial intelligence
- Data and analytics
- Autonomous Suite
- Technology platform
- Transformation management
- Midsize business solutions
- Financial management
- Spend management
- Supply chain management
- Human capital management
- Customer experience
- Enterprise resource planning
- Business network
- Sustainability management
- SAP Store
- Try SAP
- View all industries
- Partners
- Services
Learning and Support
-
- Products and Technology
- Groups
- Developers
- Partners
- Events
- Help Center
- Topic Pages
-
Explore SAP
- Explore SAP
-
Products
- Products
- Autonomous Enterprise
- Artificial intelligence
- Data and analytics
- Autonomous Suite
- Technology platform
- Transformation management
- Midsize business solutions
- Financial management
- Spend management
- Supply chain management
- Human capital management
- Customer experience
- Enterprise resource planning
- Business network
- Sustainability management
- SAP Store
- Try SAP
- View all industries
- Partners
- Services
- Learning and Support
- About
- SAP Community
- Groups
- Interest Groups
- Application Development and Automation
- Discussions
- Re: ALV Grid Control
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Mute
- Printer Friendly Page
Re: ALV Grid Control
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2006 Oct 06 4:45 AM
- SAP Managed Tags
- ABAP Development
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.
Bluesky
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2006 Oct 06 5:21 AM
- SAP Managed Tags
- ABAP Development
Hi,
You can use checkbox for selecting multiple entries without ctrl button.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2006 Oct 06 5:33 AM
- SAP Managed Tags
- ABAP Development
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
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2006 Dec 18 9:06 AM
- SAP Managed Tags
- ABAP Development
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
| User | Count |
|---|---|
| 4 | |
| 2 | |
| 2 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |
