airnowbot

• Interactive Report Program In Sap Abap

REPORT ZINTERACTIVE.TYPES: BEGIN OF TYMARA,MATNR TYPE MARA-MATNR,MTART TYPE MARA-MTART,MBRSH TYPE MARA-MBRSH,MATKL TYPE MARA-MATKL,MEINS TYPE MARA-MEINS,END OF TYMARA.TYPES: BEGIN OF TYMAKT,MATNR TYPE MAKT-MATNR,SPRAS TYPE MAKT-SPRAS,MAKTX TYPE MAKT-MAKTX,MAKTG TYPE MAKT-MAKTG,END OF TYMAKT.DATA: IMARA TYPE TABLE OF TYMARA.DATA: WAMARA TYPE TYMARA.DATA: IMAKT TYPE TABLE OF TYMAKT.DATA: WAMAKT TYPE TYMAKT.PARAMETERS PMAKTL TYPE MARA-MATKL.SELECT MATNRMTARTMBRSHMATKLMEINS FROM MARAINTO TABLE IMARA WHERE MATKL = PMAKTL. LOOP AT IMARA INTO WAMARA.WRITE:/ WAMARA-MATNR,WAMARA-MTART,WAMARA-MBRSH,WAMARA-MATKL,WAMARA-MEINS.HIDE: WAMARA-MATNR.ENDLOOP.AT LINE-SELECTION.SELECT MATNR SPRAS MAKTX MAKTGFROM MAKTINTO TABLE IMAKTWHERE MATNR = WAMARA-MATNR.

LOOP AT IMAKT INTO WAMAKT.WRITE:/ WAMAKT-MATNR,WAMAKT-SPRAS,WAMAKT-MAKTG,WAMAKT-MAKTX.ENDLOOP.

Developing simple interactive report.&-.& Report ZVikraminteractive.&.&-.& Published at.&.&-. REPORT ZVikraminteractive NO STANDARD PAGE HEADING LINE-SIZE 255. THE INITIALIZATION PART CREATING STRUCTURES. INITIALIZATION.

TYPES: BEGIN OF TYMARD,MATNR TYPE MARD-MATNR,WERKS TYPE MARD-WERKS,LGORT TYPE MARD-LGORT,END OF TYMARD, BEGIN OF TYMARA,MATNR TYPE MARA-MATNR,ERSDA TYPE MARA-ERSDA,ERNAM TYPE MARA-ERNAM,MTART TYPE MARA-MTART,MATKL TYPE MARA-MATKL,END OF TYMARA, BEGIN OF TYMAKT,MATNR TYPE MAKT-MATNR,SPRAS TYPE MAKT-SPRAS,MAKTX TYPE MAKT-MAKTX,END OF TYMAKT, BEGIN OF TYFINAL,MATNR TYPE MARA-MATNR,ERSDA TYPE MARA-ERSDA,ERNAM TYPE MARA-ERNAM,MTART TYPE MARA-MTART,MATKL TYPE MARA-MATKL,WERKS TYPE MARD-WERKS,LGORT TYPE MARD-LGORT,SPRAS TYPE MAKT-SPRAS,MAKTX TYPE MAKT-MAKTX,END OF TYFINAL. THE INITIALIZATION PART CREATING WORKAREA AND INTERNAL TABLE.DATA: WMARD TYPE TYMARD,IMARD TYPE TABLE OF TYMARD, WMARA TYPE TYMARA,IMARA TYPE TABLE OF TYMARA, WMAKT TYPE TYMAKT,IMAKT TYPE TABLE OF TYMAKT, WFINAL TYPE TYFINAL,IFINAL TYPE TABLE OF TYFINAL.START-OF-SELECTION. START-OF-SELECTION.GET INPUT FROM USER. PARAMETER: PLANT TYPE MARD-WERKS, STLOC TYPE MARD-LGORT.SELECT DATA FROM DATABASE INTO INTERNAL TABLES.SELECT FROM MARD THE REQUIRED FIELDS FOR THE GIVEN INPUT.

SELECT MATNR WERKS LGORTFROM MARDINTO TABLE IMARDWHERE WERKS = PLANT AND LGORT = STLOC.CHECK IF RECORDS ARE FETCHED IF NO EXIT OUT OF THE PROGRAM. IF SY-SUBRC 0.WRITE 'NO RECORDS'.EXIT.ELSE.IF RECORDS ARE FETCHED FROM FRIST TABLE.FETCH RELATED RECORDS FROM NEXT TABLE. SELECT MATNR ERSDA ERNAM MTART MATKLFROM MARAINTO TABLE IMARAFOR ALL ENTRIES IN IMARDWHERE MATNR = IMARD-MATNR.IF SY-SUBRC 0.WRITE 'NO MASTER DATA'.STOP.ELSE.SELECT MATNR SPRAS MAKTXFROM MAKTINTO TABLE IMAKTFOR ALL ENTRIES IN IMARAWHERE MATNR = IMARA-MATNR AND SPRAS = 'E'.ENDIF.ENDIF.READ FROM INTERNAL TABLE FOR OUTPUT.

LOOP AT IMARA INTO WMARA.AT FIRST. WRITE: SY-ULINE(100),/1 SY-VLINE,25 'EXAMPLE INTERACTIVE REPORT',100 SY-VLINE,/ SY-ULINE(100), /1 SY-VLINE,2 'MATERIAL NUMBER',20 SY-VLINE,22 'CREATION DATE',40 SY-VLINE,42 'USER NAME',60 SY-VLINE,62 'MATERIAL TYPE',80 SY-VLINE,82 'MATERIAL GROUP',100 SY-VLINE,/ SY-ULINE(100).ENDAT. ON CHANGE OF WMARA-MATNR.READ TABLE IMARD INTO WMARD WITH KEY MATNR = WMARA-MATNR.ENDON.

WRITE:/1 SY-VLINE,2 WMARA-MATNR,20 SY-VLINE,22 WMARA-ERSDA,40 SY-VLINE,42 WMARA-ERNAM,60 SY-VLINE,62 WMARA-MTART,80 SY-VLINE,82 WMARA-MATKL,100 SY-VLINE.HIDE WMARA-MATNR.CLEAR WMARA-MATNR. WRITE: / SY-ULINE(100).END-OF-SELECTION. END-OF-SELECTION.MOVING VALUES IN TO FINAL INTERNAL TABLE. LOOP AT IMARA INTO WMARA.ON CHANGE OF WMARA-MATNR.READ TABLE IMAKT INTO WMAKT WITH KEY MATNR = WMARA-MATNR.READ TABLE IMARD INTO WMARD WITH KEY MATNR = WMARA-MATNR.ENDON.WFINAL-MATNR = WMARA-MATNR.WFINAL-ERSDA = WMARA-ERSDA.WFINAL-ERNAM = WMARA-ERNAM.WFINAL-MTART = WMARA-MTART.WFINAL-MATKL = WMARA-MATKL.WFINAL-WERKS = WMARD-WERKS.WFINAL-LGORT = WMARD-LGORT.WFINAL-SPRAS = WMAKT-SPRAS.WFINAL-MAKTX = WMAKT-MAKTX. APPEND WFINAL TO IFINAL.AT LINE-SELECTION EVENT TRIGERING INTERACTIVE REPORTING. AT LINE-SELECTION. CASE SY-LSIND.DISPLAY OUTPUT IN NEW SCREEN AT LINE SELECTION BY USER MOUSE CLICK.WRITE: / WMARA-MATNR COLOR 2.

Interactive Report Program In Sap Abap

READ TABLE IFINAL INTO WFINAL WITH KEY MATNR = WMARA-MATNR SPRAS = 'EN'. ULINE 1(200).WRITE: /1 SY-VLINE,75 'EXAMPLE INTERACTIVE REPORT',200 SY-VLINE,SY-ULINE(200),/1 SY-VLINE,2 'MATERIAL NUMBER',20 SY-VLINE,22 'CREATION DATE',40 SY-VLINE,42 'USER NAME',60 SY-VLINE,62 'MATERIAL TYPE',80 SY-VLINE,82 'MATERIAL GROUP',100 SY-VLINE,102 'PLANT NUMBER',120 SY-VLINE,122 'STORAG LOCATION',140 SY-VLINE,142 'LANGUAGE',160 SY-VLINE,162 'DESCRIPTION',200 SY-VLINE,/ SY-ULINE(200). WRITE:/1 SY-VLINE,2 WFINAL-MATNR,20 SY-VLINE,22 WFINAL-ERSDA,40 SY-VLINE,42 WFINAL-ERNAM,60 SY-VLINE,62 WFINAL-MTART,80 SY-VLINE,82 WFINAL-MATKL,100 SY-VLINE,102 WFINAL-WERKS,120 SY-VLINE,122 WFINAL-LGORT,140 SY-VLINE,142 WFINAL-SPRAS,160 SY-VLINE,162 WFINAL-MAKTX,200 SY-VLINE,/ SY-ULINE(200). CLEAR WMARA-MATNR. Please send us your feedback/suggestionsat.© 2006-2007SAPTechnical.COM. All rights reserved.Allproduct names are trademarks of their respective companies. SAPTechnical.COMis in no way affiliated with SAP AG.SAP, SAP R/3, R/3 software,mySAP, ABAP, BAPI, xApps, SAP NetWeaver, and and any other SAP trademarks areregistered trademarks of SAP AG in Germany and in several other countries.Everyeffort is made to ensure content integrity. Use information on this site at yourown risk.Graphic Design.