This is an ALV Report

Question

If have Displayed a ALV report , i that my requirement is :
Double click on line -> navigation to MM03 (Material master material; Accounting or Costing View) andd skip selection screen.
for this i have written  a call transaction program but i dont know what i should do  for this Double click on line ->.
please help me as this is very urgent , i will reward points if helpfull.
thanks and regards,
prasadnn

Answer 1

hi,
check the below example.
u have to use
form val using user_command like sy-ucomm sel type slis_selfield.
report  zalvinteractive1                        .
tables : lfa1,ekko,ekpo.
select-options : vendor for lfa1-lifnr.
data : begin of itab occurs 0,
       lifnr like lfa1-lifnr,
       name1 like lfa1-name1,
       end of itab.
data : begin of jtab occurs 0,
       ebeln like ekko-ebeln,
       aedat like ekko-aedat,
       end of jtab.
data : begin of ktab occurs 0,
       ebelp like ekpo-ebelp,
       matnr like ekpo-matnr,
       end of ktab.
type-pools : slis.
data : repid like sy-repid.
data :lfa1_b type slis_t_fieldcat_alv,
      lfa1_w type slis_fieldcat_alv,
      ekko_b type slis_t_fieldcat_alv,
      ekko_w type slis_fieldcat_alv,
      ekpo_b type slis_t_fieldcat_alv,
      ekpo_w type slis_fieldcat_alv,
      events_b type slis_t_event,
      events_w type slis_alv_event.
perform get_val.
repid = sy-repid.
select lifnr name1 from lfa1 into table itab where lifnr in vendor.
*perform val USING USER_COMMAND sel.
call function 'REUSE_ALV_LIST_DISPLAY'
  exporting
    i_callback_program = repid
    it_fieldcat        = lfa1_b
    it_events          = events_b
  tables
    t_outtab           = itab.
*&      Form  GET_VAL
      text  this is to put column headings
form get_val.
  lfa1_w-fieldname = 'LIFNR'.
  lfa1_w-ref_tabname = 'LFA1'.
  lfa1_w-ref_fieldname = 'LIFNR'.
  append lfa1_w to lfa1_b.
  lfa1_w-fieldname = 'NAME1'.
  lfa1_w-ref_tabname = 'LFA1'.
  lfa1_w-ref_fieldname = 'NAME1'.
  append lfa1_w to lfa1_b.
  ekko_w-fieldname = 'EBELN'.
  ekko_w-ref_tabname = 'EKKO'.
  ekko_w-ref_fieldname = 'EBELN'.
  append ekko_w to ekko_b.
  ekko_w-fieldname = 'AEDAT'.
  ekko_w-ref_tabname = 'EKKO'.
  ekko_w-ref_fieldname = 'AEDAT'.
  append ekko_w to ekko_b.
  ekpo_w-fieldname = 'EBELP'.
  ekpo_w-ref_tabname = 'EKPO'.
  ekpo_w-ref_fieldname = 'EBELP'.
  append ekpo_w to ekpo_b.
  ekpo_w-fieldname = 'MATNR'.
  ekpo_w-ref_tabname = 'EKPO'.
  ekpo_w-ref_fieldname = 'MATNR'.
  append ekpo_w to ekpo_b.
  events_w-name = 'USER_COMMAND'.
  events_w-form = 'VAL'.
  append events_w to events_b.
endform.                    "GET_VAL
*&      Form  VAL
      text
     -->USER_COMMANtext
     -->SEL        text     for retrieving data
form val using user_command like sy-ucomm sel type slis_selfield.
  data : ven(10) type n,
         po(10) type n.
  data : mat(10) type c.
  if sel-fieldname = 'LIFNR'.
    ven = sel-value.
    select ebeln aedat from ekko into table jtab where lifnr = ven.
   call function 'REUSE_ALV_LIST_DISPLAY'
    exporting
      i_callback_program             = repid
     I_STRUCTURE_NAME               = EKKO_B
      it_fieldcat                    = ekko_b
      it_events                      = events_b
     tables
       t_outtab                       = jtab.
  endif.
  if sel-fieldname = 'EBELN'.
    po = sel-value.
    select ebelp matnr from ekpo into table ktab where ebeln = po.
    call function 'REUSE_ALV_POPUP_TO_SELECT'
      exporting
        i_title            = 'ITEM DETAILS'
        i_tabname          = 'EKPO'
        it_fieldcat        = ekpo_b
        i_callback_program = repid
      importing
        es_selfield        = sel
      tables
        t_outtab           = ktab.
  endif.
logic to select a record
  if sel-fieldname = 'MATNR'.
    mat = sel-value.
    set parameter id 'MAT' field mat.
    call transaction 'MM02' and skip first screen.
  endif.
endform.                    "VAL