ALV ...Logic required

Question

Hi every body,
   I have one requirement like an alv report will display
output which contains a material number.
<b>If i click On the material number it shud go to MM03...Accounting view
Logic required for this.</b>I am a beginner ...Plz help me...
Thanks in advance.
Message was edited by: raja gurrala

Answer 1

Hi,
See the code sample,
INCLUDE <icon>.
* Predefine a local class for event handling to allow the
* declaration of a reference variable before the class is defined.
CLASS lcl_event_receiver DEFINITION DEFERRED.
DATA : o_alvgrid          TYPE REF TO cl_gui_alv_grid ,
       o_dockingcontainer TYPE REF TO cl_gui_docking_container ,
       o_eventreceiver    TYPE REF TO lcl_event_receiver,
       wa_layout TYPE lvc_s_layo ,
       wa_variant TYPE disvariant.
CONSTANTS : c_a(1) TYPE c VALUE 'A' ,                     " All Layouts
            c_x(1) TYPE c VALUE 'X'.
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS:
* Hot Spot Click
       handle_hotspot
         FOR EVENT hotspot_click OF cl_gui_alv_grid
            IMPORTING e_row_id
                      e_column_id
                      es_row_no,
* Double Click
handle_double_click
      FOR EVENT double_click OF cl_gui_alv_grid
          IMPORTING e_row
                    e_column
                    es_row_no,
ENDCLASS.                    "lcl_event_receiver DEFINITION
* Implementation
CLASS lcl_event_receiver IMPLEMENTATION.
*&      Method handle_hotspot
* This method is called when the user clicks on a hotspot to drill down.
* The following types are exported from the ALV
* LVC_S_ROW
* LVC_S_COL
* LVC_S_ROID
  METHOD handle_hotspot.
* The hotspot processing coded in the form below.
    PERFORM f9900_handle_hotspot USING e_row_id
                                       e_column_id
                                       es_row_no.
  ENDMETHOD.                    "handle_hotspot
*&      Method handle_double_click
  METHOD handle_double_click.
* The double click processing should be coded in the form below.
    PERFORM f9901_handle_double_click USING e_row
                                            e_column
                                            es_row_no.
  ENDMETHOD.                    "HANDLE_DOUBLE_CLICK
FORM f9900_handle_hotspot  USING    p_row_id
                                    p_column_id
                                    p_row_no.
*Read internal table for proper value.
  READ TABLE  i_output
              INDEX p_row_id
              INTO wa_output.
* Call the transaction MMBE
  SET PARAMETER ID 'MAT' FIELD wa_output-matnr.
  CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN .
ENDFORM.                    " f9900_handle_hotspot
*&      Form  f9901_handle_double_click
*       Double Click
FORM f9901_handle_double_click  USING    p_row
                                         p_column
                                         p_row_no.
  READ TABLE i_output INDEX p_row INTO wa_output.
  CASE p_column.
    WHEN 'MATNR'.
      IF NOT wa_output-matnr IS INITIAL.
        SET PARAMETER ID 'MAT' FIELD wa_output-matnr.
        CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN .
      ENDIF.
  ENDCASE.
ENDFORM.                    " f9901_handle_double_click
U can use either hot spot or double click event.
If u r using hotspot set the hotspot = 'X' in fieldcatalog.
Hope this helps.
OR another method without oops concept
FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
data:lv_matnr    LIKE v_mmim_lc-matnr,   "Material
read table i_output into w_output index rs_selfield-tabindex.
lv_matnr = w_output-matnr.
SET PARAMETER ID 'MAT' FIELD lv_matnr.
CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN .
Clear:     lv_matnr.
ENDFORM.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                =
*   I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = v_repid
     i_callback_pf_status_set          = 'SET_PF_STATUS'
<b>     i_callback_user_command           = 'USER_COMMAND'</b>
     i_background_id        = 'ALV_BACKGROUND'
    IS_LAYOUT               = I_LAYOUT
    it_fieldcat             = i_fieldcat "field catalog
   I_SAVE                   = 'A'
   IS_VARIANT               = G_VARIANT
    TABLES
        t_outtab                       = i_output "output table
   EXCEPTIONS
     program_error                     = 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.
Kindly reward points if this helps u, revert back with queries.
Message was edited by: Judith Jessie Selvi