How to use drill down ability in ALV report.

Question

Hi All,
I have a ALV report and now i want to add  drill down functionality in this ALV report.
See the requirement below.
The Document Number, aka Accounting Document Number (BELNR) of each row will take the user to the appropriate document to edit as follows:
For Parked documents:-
If VBKPF-AWTYP (Reference Procedure) = “RMRP”, then the drilldown functionality should be to MIR4 using the Object ID in VBKPF- AWKEY.    In this scenario the Object ID represents a Invoice Document Number, not an Accounting Document Number.  Not the Object ID is a combination of Invoice Document Number and Fiscal Year
If VBKPF-AWTYP = Any other value, then the drilldown functionality should be to FBV2 using the Object ID in VBKPF-AWKEY. In this scenario the Object ID represents a true Accounting Document Number.  Note the Object ID is a combination of Company Code (VBKPF-BUKRS), Accounting Document Number (VBKPF-BELNR) and Fiscal Year (VBKPF-GJAHR)
For Posted, not Cleared documents:-
Drilldown ability should be to FB02.   The combination of Company Code (BSIK-BUKRS), Accounting Document Number (BSIK-BELNR) and Fiscal Year (BSIK-GJAHR) will be used to open/drilldown to the correct document in FB02.
For Cleared documents:-
Drilldown ability should be to FB03.   The combination of Company Code (BSIK-BUKRS), Accounting Document Number (BSIK-BELNR) and Fiscal Year (BSIK-GJAHR) will be used to open/drilldown to the correct document in FB03.
Its very urgent, pls help on this.
Thanks!
Vipin

Answer 1

Hi Vipin,
Please look at the reference code.
You need to use the FM 'REUSE_ALV_EVENTS_GET' and in the user command event u need to pass the name of the form that u need to write.
Please find the ollowing code:
REPORT ZSOURAVICON NO STANDARD PAGE HEADING.
type-pools: slis.
tables: vbap.
data: begin of itab occurs 0,
      chk,
      lights,
      vbeln like vbap-vbeln,
      posnr like vbap-posnr,
      matnr like vbap-matnr,
      kwmeng like vbap-kwmeng,
      end of itab.
data: P_LIGNAM TYPE SLIS_FIELDNAME VALUE  'LIGHTS'.
data: v_repid like sy-repid.
data: t_fld type slis_t_fieldcat_alv,
      ws_fld like t_fld with header line,
      t_sort type slis_t_sortinfo_alv,
      ws_sort like t_sort with header line,
      ws_layout type slis_layout_alv,
      t_event type slis_t_event,
      ws_event like t_event with header line,
      c_topup TYPE slis_t_listheader,
      ws_topup like c_topup with header line.
constants: c_top type slis_formname value 'TOP_OF_PAGE',
           c_pfs type slis_formname value 'PF_STATUS_SET',
           c_ucomm type slis_formname value 'USER_COMMAND'.
initialization.
  v_repid = sy-repid.
select vbeln posnr matnr kwmeng from vbap into corresponding fields of
                                         table itab.
  loop at itab.
    if itab-kwmeng lt 500.
      itab-lights = '2'.
    elseif itab-kwmeng = 500.
      itab-lights = '1'.
    else.
      itab-lights = '3'.
    endif.
    modify itab.
  endloop.
HERE WE ARE POPULATING THE FIELD CATALOG
  ws_fld-col_pos = '3'.
  ws_fld-fieldname = 'VBELN'.
  ws_fld-KEY = 'X'.
  ws_fld-tabname = ITAB.
  ws_fld-reptext_ddic = 'SALES DOC'.
  append ws_fld to t_fld.
  clear ws_fld.
  ws_fld-col_pos = '4'.
  ws_fld-fieldname = 'POSNR'.
  ws_fld-tabname = 'ITAB'.
  ws_fld-reptext_ddic = 'SALES ITEM'.
  append ws_fld to t_fld.
  clear ws_fld.
  ws_fld-col_pos = '5'.
  ws_fld-fieldname = 'MATNR'.
  ws_fld-tabname = 'ITAB'.
  ws_fld-reptext_ddic = 'MATERIAL NO'.
  append ws_fld to t_fld.
  clear ws_fld.
  ws_fld-col_pos = '6'.
  ws_fld-fieldname = 'KWMENG'.
  ws_fld-tabname = 'ITAB'.
  ws_fld-reptext_ddic = 'UNIT'.
  ws_fld-do_sum = 'X'.
  append ws_fld to t_fld.
  clear ws_fld.
  ws_sort-spos = '1'.
  ws_sort-fieldname = 'MATNR'.
  ws_sort-tabname = 'ITAB'.
  ws_sort-subtot  = 'X'.
  append ws_sort to t_sort.
  clear ws_sort.
  ws_layout-zebra = 'X'.
ws_layout-detail_popup = 'X'.
ws_layout-f2code = '&ETA'.
  ws_layout-totals_text(60) = 'TOTAL'.
  ws_layout-subtotals_text(60) = 'SUB TOTAL'.
  ws_layout-box_fieldname = 'CHK'.
  ws_layout-lights_fieldname = P_LIGNAM.
  ws_layout-box_tabname = ITAB.
  ws_layout-edit = 'X'.
  clear ws_event.
  ws_event-name = c_top.
  ws_event-form = c_top.
  append ws_event to t_event.
  ws_event-name = c_pfs.
  ws_event-form = c_pfs.
  append ws_event to t_event.
  clear ws_event.
  ws_event-name = c_ucomm.
  ws_event-form = c_ucomm.
  append ws_event to t_event.
  clear ws_event.
  CLEAR ws_topup.
  ws_topup-typ  = 'H'.
  ws_topup-info = 'Purchase Order Report'.
  APPEND ws_topup TO c_topup.
  CLEAR ws_topup.
  ws_topup-typ  = 'H'.
  ws_topup-info = 'An ALV Report '.
  APPEND ws_topup TO c_topup.
  ws_topup-TYP = 'S'.
  ws_topup-KEY = 'CURRENT PROGRAM NAME:'.
  ws_topup-INFO = v_repid.
  APPEND ws_topup TO c_topup.
  CLEAR ws_topup.
  ws_topup-TYP = 'S'.
  ws_topup-KEY = 'DATE:'.
  write SY-DATUM to ws_topup-INFO.
  APPEND ws_topup to c_topup.
  CLEAR ws_topup.
  ws_topup-TYP = 'S'.
  ws_topup-KEY = 'TIME:'.
  write SY-UZEIT to ws_topup-INFO.
  APPEND ws_topup TO c_topup.
  CLEAR ws_topup.
  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       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
  I_STRUCTURE_NAME               =
     IS_LAYOUT                      = ws_layout
     IT_FIELDCAT                    = t_fld
  IT_EXCLUDING                   =
  IT_SPECIAL_GROUPS              =
     IT_SORT                        = t_sort
  IT_FILTER                      =
  IS_SEL_HIDE                    =
  I_DEFAULT                      = 'X'
  I_SAVE                         = ' '
  IS_VARIANT                     =
     IT_EVENTS                      = t_event
  IT_EVENT_EXIT                  =
  IS_PRINT                       =
  IS_REPREP_ID                   =
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        =
  ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB                       = itab[]
EXCEPTIONS
  PROGRAM_ERROR                  = 1
  OTHERS                         = 2
      FORM top_of_page                                              *
FORM top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = c_topup
      I_LOGO                   = 'LOGO'
  I_END_OF_LIST_GRID       =
ENDFORM.
      FORM PF_STATUS_SET                                            *
-->  RT_EXTAB                                                      *
FORM PF_STATUS_SET using rt_extab type slis_t_extab.
  set pf-status 'STD'. "EXCLUDING RT_EXTAB.
set pf-status 'STANDARD'.
endform.
      FORM user_command                                             *
form USER_COMMAND using r_ucomm like sy-ucomm
                        rs_selfield type slis_selfield.
  data: begin of itab_temp occurs 0,
        VBELN LIKE VBAP-VBELN,
        POSNR LIKE VBAP-POSNR,
        MATNR LIKE VBAP-MATNR,
        kwmeng like vbap-kwmeng,
        end of itab_temp.
  DATA: t_fld1  TYPE SLIS_T_FIELDCAT_ALV,
        ws_fld1  LIKE t_fld1  WITH HEADER LINE.
  case r_ucomm.
    when 'SHOW'.
      loop at itab where chk = 'X'.
        move-corresponding itab to itab_temp.
        append itab_temp.
        clear itab.
      endloop.
      ws_fld1-col_pos = '1'.
      ws_fld1-fieldname = 'VBELN'.
      ws_fld1-tabname = ITAB_TEMP.
      ws_fld1-reptext_ddic = 'SALES DOC'.
     ws_fld1-key = 'X'.
      append ws_fld1 to t_fld1.
      clear ws_fld1.
      ws_fld1-col_pos = '2'.
      ws_fld1-fieldname = 'POSNR'.
      ws_fld1-tabname = ITAB_TEMP.
      ws_fld1-reptext_ddic = 'SALES ITEM'.
     ws_fld1-key = ' '.
      append ws_fld1 to t_fld1.
      clear ws_fld1.
      ws_fld1-col_pos = '3'.
      ws_fld1-fieldname = 'MATNR'.
      ws_fld1-tabname = ITAB_TEMP.
      ws_fld1-reptext_ddic = 'MATERIAL NO'.
     ws_fld1-key = ' '.
      append ws_fld1 to t_fld1.
      clear ws_fld1.
      ws_fld1-col_pos = '4'.
      ws_fld1-fieldname = 'KWMENG'.
      ws_fld1-tabname = ITAB_TEMP.
      ws_fld1-reptext_ddic = 'UNIT'.
     ws_fld1-key = ' '.
      ws_fld1-do_sum = 'X'.
      append ws_fld1 to t_fld1.
      CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
        EXPORTING
         I_TITLE                       =  'my report'
        I_SELECTION                   = ' '
        I_ZEBRA                       = ' '
        I_SCREEN_START_COLUMN         = 0
        I_SCREEN_START_LINE           = 0
        I_SCREEN_END_COLUMN           = 0
        I_SCREEN_END_LINE             = 0
        I_CHECKBOX_FIELDNAME          =
        I_LINEMARK_FIELDNAME          =
        I_SCROLL_TO_SEL_LINE          = 'X'
          I_TABNAME                     = ITAB_TEMP
         I_STRUCTURE_NAME              = 'VBAP'
         IT_FIELDCAT                   = t_fld1
        IT_EXCLUDING                  =
         I_CALLBACK_PROGRAM            = v_repid
        I_CALLBACK_USER_COMMAND       =
         IS_PRIVATE                    = GS_PRIVATE
      IMPORTING
         ES_SELFIELD                   = RS_SELFIELD
         E_EXIT                        = G_EXIT
        TABLES
          T_OUTTAB                      = ITAB_TEMP[]
      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.
  endcase.
ENDFORM.
Thanks and Regards,
Saurabh