Needed help on this report

Question

When BELNR field is double clicked it is not going to F1 document in FB03
Could anybody help on this , plz help
Here is the code,
*& Report  YALV_1
REPORT  YALV_1.
TABLES : BKPF,BSEG.
Data for ALV display
TYPE-POOLS: SLIS.
data : int_fcat type SLIS_T_FIELDCAT_ALV,
       fieldcatalog type slis_t_fieldcat_alv with header line.
DATA:  wa_sortinfo TYPE slis_sortinfo_alv,
       i_sortcat TYPE slis_t_sortinfo_alv.
TYPES  : BEGIN OF T_BKPF,
        BUKRS TYPE BKPF-BUKRS,
        BELNR TYPE BKPF-BELNR,
        GJAHR TYPE BKPF-GJAHR,
        BLART TYPE BKPF-BLART,
        BLDAT TYPE BKPF-BLDAT,
        BUDAT TYPE BKPF-BUDAT,
       BUZEI TYPE BSEG-BUZEI,
        END OF T_BKPF.
types: begin of t_bseg,
       BUZEI TYPE BSEG-BUZEI,
       end of t_bseg.
DATA : it_bkpf TYPE STANDARD TABLE OF t_bkpf with header line,
      wa_bkpf TYPE t_bkpf,
       it_bseg type standard table of t_bseg.
      wa_bseg type t_bseg.
field to store report name
DATA :  i_repid like sy-repid.
select bukrs belnr gjahr blart bldat budat from bkpf into table
it_bkpf where blart = 'AA'.
field to check table length
*data i_lines like sy-tabix.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
PERFORM sortcat_init CHANGING i_sortcat.
perform display_alv_report.
*&      Form  BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
form build_fieldcatalog.
There are a number of ways to create a fieldcat.
For the purpose of this example i will build the fieldcatalog manualy
by populating the internal table fields individually and then
appending the rows. This method can be the most time consuming but
*can
also allow you  more control of the final product.
Beware though, you need to ensure that all fields required are
populated. When using some of functionality available via ALV, such
*as
total. You may need to provide more information than if you were
simply displaying the result
              I.e. Field type may be required in-order for
                   the 'TOTAL' function to work.
  fieldcatalog-fieldname   = 'BUKRS'.
  fieldcatalog-seltext_m   = 'Company Code'.
  fieldcatalog-col_pos     = 0.
  fieldcatalog-outputlen   = 4.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'BELNR'.
  fieldcatalog-seltext_m   = 'Doc No'.
  fieldcatalog-hotspot = 'X'.
  fieldcatalog-col_pos     = 1.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'GJAHR'.
  fieldcatalog-seltext_m   = 'Fiscal Year'.
  fieldcatalog-col_pos     = 2.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'BLART'.
  fieldcatalog-seltext_m   = 'DOC Type'.
  fieldcatalog-col_pos     = 3.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'BLDAT'.
  fieldcatalog-seltext_m   = 'Doc Date'.
  fieldcatalog-col_pos     = 4.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'BUDAT'.
  fieldcatalog-seltext_m   = 'Popsting Date'.
  fieldcatalog-col_pos     = 5.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'BUZEI'.
  fieldcatalog-seltext_m   = 'Line Items'.
  fieldcatalog-col_pos     = 6.
  fieldcatalog-do_sum      = 'X'.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
endform.                    " BUILD_FIELDCATALOG
FORM sortcat_init CHANGING i_sortcat TYPE slis_t_sortinfo_alv.
  CLEAR wa_sortinfo.
  wa_sortinfo-fieldname = 'BUKRS'.
  wa_sortinfo-tabname = 'T_BKPF'.
  wa_sortinfo-spos = 1.            " First sort by this field.
  wa_sortinfo-up = 'X'.            "   Ascending
  wa_sortinfo-subtot = 'X'.        " Subtotal at Name1
  APPEND wa_sortinfo TO i_sortcat.
  CLEAR wa_sortinfo.
  wa_sortinfo-fieldname = 'BELNR'.
  wa_sortinfo-tabname = 'T_BKPF'.
  wa_sortinfo-spos = 2.            " Sec sort by this field.
  wa_sortinfo-up = 'X'.            "   Ascending
  wa_sortinfo-subtot = 'X'.        " Subtotal at Name1
  APPEND wa_sortinfo TO i_sortcat.
ENDFORM.                    " sortcat_init
*&      Form  DISPLAY_ALV_REPORT
      Display report using ALV grid
form display_alv_report.
  i_repid = sy-repid.
  call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = i_repid
           i_callback_top_of_page   = 'TOP-OF-PAGE'  "see FORM
            i_callback_user_command = 'USER_COMMAND'
           i_grid_title           = outtext
           is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
           it_sort                = i_sortcat
           it_special_groups       = gd_tabgroup
           IT_EVENTS                = GT_XEVENTS
            i_save                  = 'X'
           is_variant              = z_template
       tables
            t_outtab                = IT_bkpf
       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.
endform.                    " DISPLAY_ALV_REPORT
*&      Form  DATA_RETRIEVAL
form data_retrieval.
IF it_bkpf[] IS NOT INITIAL.
   select buzei from bseg into
     table it_bseg for all entries in it_bkpf
     where bukrs = it_bkpf-bukrs
     and belnr = it_bkpf-belnr
     and gjahr = it_bkpf-gjahr.
     endif.
endform.                    " DATA_RETRIEVAL.
FORM USER_COMMAND
FORM user_command USING u_com LIKE sy-ucomm sel_lin TYPE slis_selfield.
CASE u_com.
  WHEN '&IC1'.
    CASE sel_lin.
      WHEN 'BELNR'.
      read TABLE IT_BKPF INDEX sel_lin-tabindex.
      SET PARAMETER ID 'BLN' FIELD IT_BKPF-BELNR.
      SET PARAMETER ID 'BUK' FIELD IT_BKPF-BUKRS.
      SET PARAMETER ID 'GJR' FIELD IT_BKPF-GJAHR.
      CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
    ENDCASE.
CLEAR u_com.
ENDCASE.
ENDFORM. "USER_COMMAND

Answer 1

Pl. do this change in ur code...
FORM user_command USING u_com LIKE sy-ucomm sel_lin TYPE slis_selfield.
CASE u_com.
WHEN '&IC1'.
CASE sel_lin-FIELDNAME.
WHEN 'BELNR'.
read TABLE IT_BKPF INDEX sel_lin-tabindex.
SET PARAMETER ID 'BLN' FIELD IT_BKPF-BELNR.
SET PARAMETER ID 'BUK' FIELD IT_BKPF-BUKRS.
SET PARAMETER ID 'GJR' FIELD IT_BKPF-GJAHR.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ENDCASE.
CLEAR u_com.
ENDCASE.
ENDFORM. "USER_COMMAND
Regards,
Joy.