SAP ABAP ALV OM EX01
From SapWiki
*&---------------------------------------------------------------------*
*& Report YALV
*&---------------------------------------------------------------------*
*& ejemplo alv con user command y double click
*&---------------------------------------------------------------------*
REPORT yalv.
TYPES: BEGIN OF ty_data,
vbeln TYPE vbrk-vbeln,
fkart TYPE vbrk-fkart,
fkdat TYPE vbrk-fkdat,
netwr TYPE vbrk-netwr,
waerk TYPE vbrk-waerk,
END OF ty_data.
DATA gt_data TYPE TABLE OF ty_data.
DATA wa_data LIKE LINE OF gt_data.
**********************************************************************
* ALV data
**********************************************************************
DATA: gr_table TYPE REF TO cl_salv_table.
DATA: gr_selections TYPE REF TO cl_salv_selections,
gt_rows TYPE salv_t_row.
DATA: gr_functions TYPE REF TO cl_salv_functions_list.
*DATA : gt_color TYPE lvc_t_scol,
* st_color TYPE lvc_s_scol.
*---------------------------------------------------------------------*
* CLASS lcl_handle_events DEFINITION
*---------------------------------------------------------------------*
* define a local class for handling events of cl_salv_table
*---------------------------------------------------------------------*
CLASS lcl_handle_events DEFINITION.
PUBLIC SECTION.
METHODS:
on_user_command FOR EVENT added_function OF cl_salv_events
IMPORTING e_salv_function,
on_double_click FOR EVENT double_click OF cl_salv_events_table
IMPORTING row column.
ENDCLASS. "lcl_handle_events DEFINITION
*---------------------------------------------------------------------*
* CLASS lcl_handle_events IMPLEMENTATION
*---------------------------------------------------------------------*
* §5.2 implement the events for handling the events of cl_salv_table
*---------------------------------------------------------------------*
CLASS lcl_handle_events IMPLEMENTATION.
METHOD on_user_command.
PERFORM user_command USING e_salv_function.
ENDMETHOD. "on_user_command
METHOD on_double_click.
PERFORM double_click USING row column.
ENDMETHOD. "on_double_click
ENDCLASS. "lcl_handle_events IMPLEMENTATION
* for handling the events of cl_salv_table
DATA: gr_events TYPE REF TO lcl_handle_events.
**********************************************************************
*--------------------------------------------------------------------*
*
*--------------------------------------------------------------------*
SELECT-OPTIONS s_vbeln FOR wa_data-vbeln.
*--------------------------------------------------------------------*
START-OF-SELECTION.
*--------------------------------------------------------------------*
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_data FROM vbrk UP TO 100 ROWS
WHERE vbeln IN s_vbeln.
PERFORM display_alv.
*&---------------------------------------------------------------------*
*& Form user_command
*&---------------------------------------------------------------------*
* Displays the content based on the selection criteria.
*----------------------------------------------------------------------*
FORM user_command USING i_function TYPE salv_de_function.
gr_selections = gr_table->get_selections( ).
* set selection mode
gr_selections->set_selection_mode(
if_salv_c_selection_mode=>row_column ).
gt_rows = gr_selections->get_selected_rows( ).
DATA(l_lines) = lines( gt_rows ).
IF l_lines = 0.
RETURN.
ENDIF.
CLEAR wa_data.
LOOP AT gt_rows INTO DATA(l_tabix).
READ TABLE gt_data INDEX l_tabix INTO wa_data.
CASE i_function.
WHEN 'PRINT'. "ICON_PRINT
MESSAGE i000(0k) WITH 'N° factura:' wa_data-vbeln.
ENDCASE.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form double_click
*&---------------------------------------------------------------------*
* Diplays the popup for the selected row.
*----------------------------------------------------------------------*
FORM double_click USING i_row TYPE i
i_column TYPE lvc_fname.
READ TABLE gt_data INTO wa_data INDEX i_row.
CASE i_column.
WHEN 'VBELN'.
SET PARAMETER ID 'VF' FIELD wa_data-vbeln.
CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM. " double_click
FORM display_alv.
DATA: lr_events TYPE REF TO cl_salv_events_table,
lr_columns TYPE REF TO cl_salv_columns_table,
lr_column TYPE REF TO cl_salv_column,
lr_grid TYPE REF TO cl_salv_form_layout_grid,
lr_layout TYPE REF TO cl_salv_layout,
ls_key TYPE salv_s_layout_key,
lr_sorts TYPE REF TO cl_salv_sorts,
lr_sort TYPE REF TO cl_salv_sort.
*... Create Instance
TRY.
CALL METHOD cl_salv_table=>factory
IMPORTING
r_salv_table = gr_table
CHANGING
t_table = gt_data.
CATCH cx_salv_msg.
ENDTRY.
gr_table->set_screen_status(
pfstatus = 'STAT_ALV' "copiar de SALV_DEMO_TABLE_LAYOUT SALV_STANDARD
report = sy-repid
set_functions = gr_table->c_functions_all ).
* setting default ALV generic funtions
gr_functions = gr_table->get_functions( ).
gr_functions->set_all( ).
* set layout
lr_layout = gr_table->get_layout( ).
* set the Layout Key
ls_key-report = sy-repid.
lr_layout->set_key( ls_key ).
* LR_LAYOUT->SET_SAVE_RESTRICTION( 3 ).
lr_layout->set_save_restriction( ).
lr_layout->set_default( 'X' ).
* edit ALV columns
lr_columns = gr_table->get_columns( ).
* optimize output
lr_columns->set_optimize( 'X' ).
*----------------------------------------------------------------------*
* Set column names
*----------------------------------------------------------------------*
DEFINE m_column_names.
TRY.
lr_column = lr_columns->get_column( &1 ).
lr_column->set_long_text( &2 ).
lr_column->set_medium_text( &2 ).
lr_column->set_short_text( &3 ).
CATCH cx_salv_not_found.
CATCH cx_salv_existing.
CATCH cx_salv_data_error.
ENDTRY.
END-OF-DEFINITION.
DEFINE m_no_display.
TRY.
lr_column = lr_columns->get_column( '&1' ).
lr_column->set_visible( if_salv_c_bool_sap=>false ).
CATCH cx_salv_not_found.
ENDTRY.
END-OF-DEFINITION.
DEFINE m_set_moneda.
TRY.
lr_column = lr_columns->get_column( '&1' ).
lr_column->set_currency_column( 'WAERK' ).
CATCH cx_salv_not_found.
CATCH cx_salv_existing.
CATCH cx_salv_data_error.
ENDTRY.
END-OF-DEFINITION.
m_set_moneda netwr.
* register to the events of cl_salv_table
lr_events = gr_table->get_event( ).
CREATE OBJECT gr_events.
* register to the event USER_COMMAND
SET HANDLER gr_events->on_user_command FOR lr_events.
* register to the event DOUBLE_CLICK
SET HANDLER gr_events->on_double_click FOR lr_events.
gr_selections = gr_table->get_selections( ).
* set selection mode
gr_selections->set_selection_mode(
if_salv_c_selection_mode=>row_column ).
*----------------------------------------------------------------------*
*METHOD OF CREATING TOP-OF-LIST
*----------------------------------------------------------------------*
PERFORM create_top_of_list CHANGING lr_grid.
gr_table->set_top_of_list( lr_grid ).
*... Display table
gr_table->display( ).
ENDFORM. "display_alv
FORM create_top_of_list CHANGING lr_grid TYPE REF TO cl_salv_form_layout_grid.
DATA : lr_flow TYPE REF TO cl_salv_form_layout_flow,
lr_label TYPE REF TO cl_salv_form_label,
lr_text TYPE REF TO cl_salv_form_text,
l_text TYPE string.
l_text = 'Reporte Facturas'.
CREATE OBJECT lr_grid.
CALL METHOD lr_grid->create_header_information
EXPORTING
row = 1
column = 1
* ROWSPAN =
* COLSPAN =
text = l_text
tooltip = sy-title.
*********************************************
CALL METHOD lr_grid->create_flow
EXPORTING
row = 2
column = 1
RECEIVING
r_value = lr_flow.
CALL METHOD lr_flow->create_label
EXPORTING
text = 'Fecha:'
tooltip = 'Fecha:'
RECEIVING
r_value = lr_label.
l_text = |{ sy-datum DATE = USER }|.
CALL METHOD lr_flow->create_text
EXPORTING
text = l_text
tooltip = l_text
RECEIVING
r_value = lr_text.
************************************************
ENDFORM. "create_top_of_list
