How to handle at line-selection event for 2 different fields

Question

Hi,
The requirement is there are 2 fields in a report output.
One is Material number
and the other is Material document number.
On clicking the material number, the user should be taken to MM03 screen.
On clicking the Material document number, the user should be taken to MB03 screen.
I am able to take care of the first one by putting a HOTSPOT on material number and I am using at line-Selection event, call transaction MM03 and it is working fine
I want to know how can I handle similarly for the document number?
Thanks,
Kumar.

Answer 1

Hi,
chk this sample code.
Some part of code is higlighted which meets ur rewuirement.
REPORT  z50871sd_rept_interactiverept NO STANDARD PAGE HEADING.
        STRUCTURE DECLARATIONS*
        INTERNAL TABLE  DECLARATIONS*
        WORKAREA DECLARATIONS*
TYPES : BEGIN OF st_kna1,
         kunnr TYPE kna1-kunnr,            "CUSTOMER NUMBER
         name1 TYPE kna1-name1,            "CUSTOMER NAME
        END OF st_kna1.
TYPES : BEGIN OF st_vbak,
         kunnr TYPE kna1-kunnr,
         vbeln TYPE vbak-vbeln,            "SALES DOCUMENT NUMBER
         erdat TYPE vbak-erdat,            "DATE ON WHICH THE RECORD WAS CREATED
         audat TYPE vbak-audat,            "DOCUMENT DATE
         auart TYPE vbak-auart,            "SALES DOCUMENT TYPE
         ernam TYPE vbak-ernam,            "NAME OF PERSON WHO CREATED THE OBJECT.
         augru TYPE vbak-augru,            "ORDER REASON
        END OF st_vbak.
TYPES : BEGIN OF st_vbap,
         vbeln TYPE vbak-vbeln,
         posnr TYPE vbap-posnr,            "SALES DOCUMENT ITEM
         matnr TYPE vbap-matnr,            "MATERIAL NUMBER
         charg TYPE vbap-charg,            "BATCH NUMBER
         matkl TYPE vbap-matkl,            "MATERIAL GROUP
         posar TYPE vbap-posar,            "ITEM TYPE
       END OF st_vbap.
DATA : it_kna1 TYPE STANDARD TABLE OF st_kna1,
       it_vbak TYPE STANDARD TABLE OF st_vbak,
       it_vbap TYPE STANDARD TABLE OF st_vbap,
       wa_kna1 TYPE st_kna1,
       wa_vbak TYPE st_vbak,
       wa_vbap TYPE st_vbap.
DATA : v_fld(15),
       v_kunnr TYPE kna1-kunnr,
       v_vbeln TYPE vbak-vbeln.
        SELECT-OPTIONS*
         PARAMETERS*
SELECT-OPTIONS so_kunnr FOR v_kunnr.          "CUSTOMER NUMBER
PARAMETERS : p_max TYPE i.                    "NUMBER OF HITS
        START-OF-SELECTION*
START-OF-SELECTION.
  PERFORM get_customerdata.
  SET PF-STATUS 'MENU1'.
     AT LINE-SELECTION**
*AT LINE-SELECTION.*
  *IF sy-lsind = 1.*
    *PERFORM get_salesheader.*
  *ELSEIF sy-lsind = 2.*
    *PERFORM get_salesitemdata.*
  *ENDIF.*
     AT USER-COMMAND*
AT USER-COMMAND.
  CASE sy-ucomm.
    WHEN 'DISP'.
      PERFORM get_salesheader.
    WHEN 'ITEM'.
      PERFORM get_salesitemdata.
    WHEN 'VA03'.
      SET PARAMETER ID 'AUN' FIELD wa_vbak-vbeln.
      CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
  ENDCASE.
     TOP-OF-PAGE*
TOP-OF-PAGE.
  ULINE AT /1(56).
  WRITE : /1 sy-vline ,
           2(15) text-004 COLOR 1 ,
           sy-vline ,
           20(35) text-005 COLOR 1 ,
           sy-vline.
  ULINE AT /1(56).
     TOP-OF-PAGE DURING LINE-SELECTION.*
TOP-OF-PAGE DURING LINE-SELECTION.
  CASE sy-lsind.
    WHEN 1.
      PERFORM get_topofpage1.
    WHEN 2.
      PERFORM get_topofpage2.
  ENDCASE.
     FORM GET_CUSTOMERDATA*
FORM get_customerdata.
  SELECT kunnr name1
         FROM kna1
         INTO TABLE it_kna1
         UP TO p_max ROWS
       WHERE kunnr IN so_kunnr.
  IF sy-subrc EQ 0.
    LOOP AT it_kna1 INTO wa_kna1.
      WRITE : / sy-vline,
                2(15) wa_kna1-kunnr ,
                sy-vline ,
                20 wa_kna1-name1,
                sy-vline.
      HIDE : wa_kna1-kunnr , wa_kna1-name1.
      CLEAR wa_kna1.
    ENDLOOP.
    ULINE AT : /1(56).
  ELSE.
    MESSAGE w000(z50871msg).
  ENDIF.
ENDFORM.                    "GET_CUSTOMERDATA
     FORM GET_SALESHEADER*
FORM get_salesheader.
  SET PF-STATUS 'MENU2'.
  GET CURSOR FIELD v_fld VALUE v_kunnr.
  IF v_fld = 'WA_KNA1-KUNNR'.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = v_kunnr
      IMPORTING
        output = v_kunnr.
    SELECT kunnr vbeln erdat audat auart ernam augru
           FROM vbak
           INTO TABLE it_vbak
         WHERE kunnr = v_kunnr.
    IF sy-subrc EQ 0.
      LOOP AT it_vbak INTO wa_vbak.
        WRITE : / sy-vline ,
                  2(22) wa_vbak-vbeln ,
                  sy-vline,
                  27(25) wa_vbak-erdat ,
                  sy-vline ,
                  55(15) wa_vbak-audat ,
                  sy-vline ,
                  73(15) wa_vbak-auart ,
                  sy-vline,
                  91(16) wa_vbak-ernam ,
                  sy-vline,
                  109(13) wa_vbak-augru,
                  123 sy-vline.
        HIDE : wa_vbak-vbeln.
        CLEAR wa_vbak.
      ENDLOOP.
      *ULINE AT : /1(123).*
    ELSE.
      MESSAGE i015(z50871msg).
    ENDIF.
  ELSE.
    MESSAGE i013(z50871msg).
  ENDIF.
ENDFORM.                    "GET_SALESHEADER
     FORM GET_SALESITEMDATA
FORM get_salesitemdata.
  SET PF-STATUS space.
  GET CURSOR FIELD v_fld VALUE v_vbeln.
  IF v_fld = 'WA_VBAK-VBELN'.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = v_vbeln
      IMPORTING
        output = v_vbeln.
    SELECT vbeln posnr matnr charg matkl posar
           FROM vbap
           INTO TABLE it_vbap
         WHERE vbeln = v_vbeln.
    LOOP AT it_vbap INTO wa_vbap.
      WRITE : /1 sy-vline,
               2(13) wa_vbap-posnr ,
               sy-vline,
               18(18) wa_vbap-matnr ,
               sy-vline,
               40(13) wa_vbap-charg ,
               sy-vline,
               56(16) wa_vbap-matkl ,
               sy-vline,
               75 wa_vbap-posar,
               112 sy-vline.
      CLEAR wa_vbap.
    ENDLOOP.
    ULINE AT : /1(112).
  ELSE.
    MESSAGE i014(z50871msg).
  ENDIF.
ENDFORM.                    "GET_SALESITEMDATA
     FORM GET_TOPOFPAGE1
FORM get_topofpage1.
  ULINE AT : /1(123).
  WRITE : / sy-vline ,
            2 text-000 ,
            wa_kna1-kunnr ,
            75 text-001 ,
            wa_kna1-name1,
            123 sy-vline.
  ULINE AT : /1(123).
  WRITE : / sy-vline ,
              2(22) text-006 COLOR 1,
              sy-vline,
              27(25) text-007 COLOR 1 ,
              sy-vline ,
              55(15) text-008 COLOR 1 ,
              sy-vline ,
              73(15) text-009 COLOR 1 ,
              sy-vline,
              91(16) text-010 COLOR 1 ,
              sy-vline,
              109(13) text-011 COLOR 1,
              123 sy-vline.
  ULINE AT : /1(123).
ENDFORM.                    "GET_TOPOFPAGE1
     FORM GET_TOPOFPAGE2
FORM get_topofpage2.
  ULINE AT : /1(112).
  WRITE : / sy-vline ,
            2 text-000 ,
            wa_kna1-kunnr ,
            35 text-001 ,
            wa_kna1-name1 ,
            85 text-003 ,
            wa_vbak-vbeln ,
            112 sy-vline.
  ULINE AT : /1(112).
  WRITE : /1 sy-vline,
           2(13) text-012 COLOR 1,
           sy-vline,
           18(18) text-013 COLOR 1 ,
           sy-vline,
           40(13) text-014 COLOR 1  ,
           sy-vline,
           56(16) text-015 COLOR 1 ,
           sy-vline,
           75 text-016 COLOR 1 ,
           112 sy-vline.
  ULINE AT : /1(112).
ENDFORM.                    "GET_TOPOFPAGE2
Regards
Sandeep Reddy