Interactive Report
Interactive Report :
- They are used to provide the detailed secondary list based on the current output list.
- HIDE statement is used to store line specific (SY-LINNO) information which is clicked by the user.
System stores field name, field contents and line number of the field that was clicked.
*& Report ZVB_INT_REP
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zvb_int_rep LINE-SIZE 80.
TABLES:vbak,vbap.
TYPES: BEGIN OF ty_vbak,
vbeln TYPE vbak-vbeln,
erdat TYPE vbak-erdat,
erzet TYPE vbak-erzet,
END OF ty_vbak,
BEGIN OF ty_vbap,
vbeln TYPE vbap-vbeln,
posnr TYPE vbap-posnr,
matnr TYPE vbap-matnr,
meins TYPE vbap-meins,
END OF ty_vbap.
*Data Delarations
DATA:iw_vbak TYPE ty_vbak,
it_vbak TYPE TABLE OF ty_vbak,
iw_vbap TYPE ty_vbap,
it_vbap TYPE TABLE OF ty_vbap.
*Selection screen
SELECTION-SCREEN BEGIN OF BLOCK b1.
SELECT-OPTIONS:s_vbeln FOR vbak-vbeln.
SELECTION-SCREEN END OF BLOCK b1.
*Fetch data from VBAK
SELECT vbeln
erdat
erzet
FROM vbak
INTO TABLE it_vbak
WHERE vbeln IN s_vbeln.
SORT it_vbak BY vbeln.
*Displaying Basic list(from VBAK)
ULINE.
WRITE:'|','Sales order',20 '|','Creation date',40'|','creation time',55'|'.
ULINE.
LOOP AT it_vbak INTO iw_vbak.
WRITE:/'|',iw_vbak-vbeln,20'|',iw_vbak-erdat,40'|',iw_vbak-erzet,55'|'.
HIDE: iw_vbak-vbeln.
ENDLOOP.
ULINE.
AT LINE-SELECTION.
*Fetch data from VBAP
SELECT vbeln
posnr
matnr
meins
FROM vbap
INTO TABLE it_vbap
WHERE vbeln = iw_vbak-vbeln.
*Displaying Secondary list(from VBAP)
ULINE.
WRITE:'|','Sales order',20 '|','Item Number',35'|','Material Number',60'|','Quantity',70'|'.
ULINE.
LOOP AT it_vbap INTO iw_vbap.
WRITE:/'|',iw_vbap-vbeln,20'|',iw_vbap-posnr,35'|',iw_vbap-matnr,60'|',iw_vbap-meins,70'|'.
ENDLOOP.
ULINE.
Output:
Double click on any one of the records. The corresponding secondary list will be displayed.
Comments
Post a Comment