Developing simple interactive report

By Vakada Raghava, Mouri Tech Solutions

“In this scenario, we would take an example of a material and develop an interactive report. Once you click on require “material no” on the basic list, the corresponding material information on the secondary list.”

Following is a sample interactive report developed for our demo purpose:

 REPORT  zintractive                             .

TYPES : BEGIN OF str_mard,
        matnr TYPE mard-matnr,
        lgort TYPE mard-lgort,
        werks TYPE mard-werks,
        END OF str_mard.
DATA : wa_mard TYPE str_mard,
       it_mard TYPE TABLE OF str_mard.
TYPES : BEGIN OF str_makt,
        matnr TYPE makt-matnr,
        maktg TYPE makt-maktg,
        END OF str_makt.
DATA : wa_makt TYPE str_makt,
       it_makt TYPE TABLE OF str_makt.
TYPES : BEGIN OF str_mara,
        matnr TYPE mara-matnr,
        ersda TYPE mara-ersda,
        ernam TYPE mara-ernam,
        laeda TYPE mara-laeda,
        mtart TYPE mara-mtart,
        matkl TYPE mara-matkl,
        meins TYPE mara-meins,
        END OF str_mara.
DATA : wa_mara TYPE str_mara,
       it_mara TYPE TABLE OF str_mara.
TYPES : BEGIN OF str_final,
       matnr TYPE mara-matnr,
       ersda TYPE mara-ersda,
       ernam TYPE mara-ernam,
       laeda TYPE mara-laeda,
       mtart TYPE mara-mtart,
       matkl TYPE mara-matkl,
       meins TYPE mara-meins,
       lgort TYPE mard-lgort,
       werks TYPE mard-werks,
       END OF str_final.
DATA: wa_final TYPE str_final,
      it_final TYPE TABLE OF str_final.
PARAMETERS : plant TYPE mard-werks,
             stor LIKE mard-lgort.
SELECT matnr lgort werks
FROM mard
INTO TABLE  it_mard
WHERE lgort = stor AND werks = plant.
.
SELECT  matnr maktg
FROM makt
INTO TABLE  it_makt FOR ALL ENTRIES IN it_mard
WHERE matnr = it_mard-matnr AND spras = 'E'.
SELECT matnr ersda ernam  laeda mtart matkl meins
FROM mara
INTO TABLE it_mara FOR ALL ENTRIES IN it_makt
WHERE matnr = it_makt-matnr.
LOOP AT it_makt INTO wa_makt.
  WRITE : /1 wa_makt-matnr COLOR 1,
          40 wa_makt-maktg COLOR 2.
  HIDE wa_makt-matnr.
ENDLOOP.
CLEAR wa_mard-matnr.
AT LINE-SELECTION.
  REFRESH it_final.
  CLEAR wa_final.
  ULINE.
  IF sy-lsind = 1.
    WRITE :  /1 'MATERIAL NO' COLOR 2,
             20 'CREATION DATE' COLOR 3,
             32 'PERSON CREATED',
             50 'DATE OF LIST' ,
             65 'MATERIALTYPE',
             80 'MATGROUP' ,
             90 'UNITOFMEASURE',
             110 'STORLOCATION' COLOR 4,
             130   'PLANT' COLOR 5.
    ULINE.
  ENDIF.
  LOOP AT it_mara INTO wa_mara WHERE matnr = wa_makt-matnr.
    wa_final-matnr = wa_mara-matnr.
    wa_final-ersda = wa_mara-ersda.
    wa_final-ernam = wa_mara-ernam.
    wa_final-laeda = wa_mara-laeda.
    wa_final-mtart = wa_mara-mtart.
    wa_final-matkl = wa_mara-matkl.
    wa_final-meins = wa_mara-meins.
    READ TABLE it_mard INTO wa_mard WITH KEY matnr = wa_makt-matnr.
    wa_final-lgort = wa_mard-lgort.
    wa_final-werks = wa_mard-werks.
    APPEND  wa_final TO it_final.
  ENDLOOP.
  LOOP AT it_final INTO wa_final.
    WRITE :  /1  wa_final-matnr COLOR 2,
             20 wa_final-ersda COLOR 3,
             37 wa_final-ernam,
             50 wa_final-laeda ,
             70 wa_final-mtart ,
             85 wa_final-matkl ,
             95 wa_final-meins,
             115   wa_final-lgort COLOR 4,
             130   wa_final-werks COLOR 5.
  ENDLOOP.
TOP-OF-PAGE.
  WRITE : /1 'MATERIAL NO' COLOR 1,
         40  'DISCRIPTION' COLOR 2.
  ULINE .

Result 

Enter the “Plant” and “Storage Location”

Press the Execute Button. 

 

Double Click on require “Material No” which displays secondary list to corresponding material information. 

The result shown below 

Please send us your feedback/suggestions at webmaster@SAPTechnical.COM 

HomeContribute About Us Privacy Terms Of Use • Disclaimer • SafeCompanies: Advertise on SAPTechnical.COM | Post JobContact Us  

Graphic Design by Round the Bend Wizards

footer image footer image