Creating a Report for the following Query u0096 Kindly help

Question

Hi,
Using selection options we have to give the name of
1) Sales Organization  -- VBAK -VKORG
2) Distribution Channel -- VBAK - VTWEG
3) Division -- VBAK -- SPART
4) Created Date -- VBAK -- ERDAT.
Once we select this the following list should be displayed.
1) Order no. -- VBAK - VBELN.
2) Created date -- VBAK - ERDAT
3) Sold To Party -- VBAK - KUNNR
4) Shipped to party -- VBPA -- KUNNR.
5) Item no -- VBAP -- POSNR
6) Material no. -- VBAP -- MATNR
7) Material Discription -- VBAP - ARKTX.
The out put should be like this
Sales Org  : **********
Dist chan  : **************
Division    : *********
Created Date : ********
Orderno  credate soltopar shiptopar itemno materiano materdes
and so.
Also When we click on the order no we should ge the transaction VA03.
With Select options i was able to get the sales organization distribution channel and division and the when we give the values it is showing Run time errors.
Kindly help me to proceed further.
Even if I am able to generate the order list it will be fine. Going on to VA03 I will manage some how  If possible give the syntax for this also).
Regard,
Surjith

Answer 1

Hi,
Check the below code :
REPORT  yvic_test_sales.
TABLES vbak.
TYPES:
  BEGIN OF ty_sales_data,
    vbeln  TYPE vbeln_va,
    erdat  TYPE erdat,
    kunnr   TYPE kunag,
    oid_ship TYPE kunwe,
    posnr    TYPE posnr_va,
    matnr    TYPE matnr,
  END   OF ty_sales_data.
DATA : gt_data TYPE STANDARD TABLE OF ty_sales_data.
      CLASS gcl_handle_events DEFINITION
CLASS gcl_handle_events DEFINITION.
  PUBLIC SECTION.
    METHODS:
          on_link_click FOR EVENT link_click OF cl_salv_events_table
            IMPORTING row column.
ENDCLASS.                    "gcl_handle_events DEFINITION
SELECTION-SCREEN BEGIN OF BLOCK b1.
SELECT-OPTIONS:
s_vkorg  FOR vbak-vkorg,
s_vtweg  FOR vbak-vtweg,
s_spart  FOR vbak-spart,
s_erdat  FOR vbak-erdat.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
  SELECT  d1~vbeln
          d1~erdat
          d1~kunnr
          d2~oid_ship
          d2~posnr
          d2~matnr
          INTO TABLE gt_data
         FROM vbak AS d1
          JOIN vbap AS d2
    ON d1vbeln = d2vbeln
        WHERE d1~vkorg IN s_vkorg[]
        AND   d1~vtweg IN s_vtweg[]
        AND   d1~spart IN s_spart[]
        AND   d1~erdat IN s_erdat[].
      CLASS gcl_handle_events IMPLEMENTATION
Subroutine call_transaction will get called
when user clicks on BELNR (Acounting document) or EBELN(PO)
CLASS gcl_handle_events IMPLEMENTATION.
  METHOD on_link_click.
    PERFORM call_transaction USING row column.
  ENDMETHOD.                    "on_link_click
ENDCLASS.                    "gcl_handle_events IMPLEMENTATION
END-OF-SELECTION.
  PERFORM display_data.
*&      Form  DISPLAY_DATA
      text
-->  p1        text
<--  p2        text
FORM display_data .
  DATA:
      lo_table         TYPE REF TO cl_salv_table,"table object
      lo_function      TYPE REF TO cl_salv_functions,
      lo_layout        TYPE REF TO cl_salv_layout,
      lo_columns       TYPE REF TO cl_salv_columns_table,
      lo_hotspot       TYPE REF TO cl_salv_column_table,
      lo_events_name   TYPE REF TO cl_salv_events_table,
    lo_click         TYPE REF TO gcl_handle_events,
      ls_key           TYPE salv_s_layout_key,
      lo_sorts         TYPE REF TO cl_salv_sorts,
      lo_aggregation   TYPE REF TO cl_salv_aggregations,
      lo_exception     TYPE REF TO cx_root,"exception object
      l_text           TYPE string." to hold exception message
create a table object to display result table
  TRY.
      cl_salv_table=>factory( IMPORTING r_salv_table = lo_table
                             CHANGING  t_table      = gt_data ).
catch exception
    CATCH cx_salv_msg INTO lo_exception.
get exception text and display it in message
      l_text = lo_exception->get_text( ).
Message: & & & &
      MESSAGE i000(zzz) WITH l_text.
  ENDTRY.
get column object of the table created
  lo_columns = lo_table->get_columns( ).
FOR HOTSPOT on Doc no
  TRY.
      lo_hotspot  ?= lo_columns->get_column( 'VBELN' ).
      lo_hotspot->set_cell_type( if_salv_c_cell_type=>hotspot ).
    CATCH cx_salv_not_found INTO lo_exception.
get exception text and display it in message
      l_text = lo_exception->get_text( ).
Message: & & & &
      MESSAGE i000(zzz) WITH l_text.
  ENDTRY.
  lo_events_name = lo_table->get_event( ).
  CREATE OBJECT lo_click.
  SET HANDLER lo_click->on_link_click FOR lo_events_name.
  lo_table->display( ).
ENDFORM.                    " DISPLAY_DATA
*&      Form  CALL_TRANSACTION
      text
     -->P_ROW  text
     -->P_COLUMN  text
FORM call_transaction  USING    pa_row
                                pa_column.
  DATA ls_final_data TYPE ty_sales_data.
  IF pa_column = 'VBELN'.
    CLEAR ls_final_data.
    READ TABLE gt_data INTO ls_final_data INDEX pa_row.
    IF NOT ls_final_data-vbeln IS INITIAL.
      SET PARAMETER ID 'AUN' FIELD ls_final_data-vbeln.
      CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
    ENDIF.
  ENDIF.
ENDFORM.                    " CALL_TRANSACTION
Reward if helpful..
Thanks