topic Re: Re: classical report in Application Development and Automation Discussions

Re: classical report

Former Member — Thu, 17 Jan 2008 16:05:10 GMT

Hi ,

I want the exmpale of classical report.

I give u full points.

regards,

Sashi

Re: Re: classical report

former_member156446 — Thu, 17 Jan 2008 16:13:03 GMT

check this... cut & paste and run..

REPORT ztest00 NO STANDARD PAGE HEADING.

TABLES : eban, makt.

DATA : BEGIN OF itab OCCURS 0,

matnr LIKE eban-matnr, "Material

maktx LIKE makt-maktx, "Material description

menge LIKE eban-menge, "Quantity

END OF itab.

SELECT-OPTIONS : s_matnr FOR eban-matnr.

PARAMETERS : no_rec TYPE i.

PARAMETERS : dis_tot RADIOBUTTON GROUP g,

dis_mat RADIOBUTTON GROUP g.

parameters : only_tot as checkbox.

PERFORM get_material.

IF dis_mat EQ 'X'.

PERFORM display_material.

ELSEIF dis_tot EQ 'X'.

PERFORM display_totals.

ENDIF.

&----

*& Form get_material

&----

FORM get_material.

SELECT eban_{matnr eban}menge makt~maktx INTO CORRESPONDING FIELDS OF

itab FROM eban INNER JOIN makt ON eban_{matnr EQ makt}matnr

WHERE eban~matnr IN s_matnr.

IF sy-dbcnt EQ no_rec.

EXIT.

ENDIF.

APPEND itab.

ENDSELECT.

ENDFORM. "get_material

&----

*& Form display_material

&----

FORM display_material.

PERFORM write_header.

LOOP AT itab.

WRITE :/1 sy-vline,

(20) itab-matnr ,

21 sy-vline,

(20) itab-maktx ,

62 sy-vline,

(13) itab-menge DECIMALS 0 ,

76 sy-vline.

ENDLOOP.

ULINE /(76).

ENDFORM. "display_material

&----

*& Form display_totals

&----

FORM display_totals.

DATA : total LIKE eban-menge.

PERFORM write_header.

LOOP AT itab.

AT NEW matnr.

IF sy-tabix NE 1.

ULINE /(76).

WRITE :/1 sy-vline,

(20) 'Total ' COLOR 3, itab-matnr COLOR 3,

62 sy-vline,

(13) total DECIMALS 0 COLOR 3,

76 sy-vline.

CLEAR total.

ULINE /(76).

ENDIF.

ENDAT.

IF only_tot NE 'X'.

WRITE :/1 sy-vline,

(20) itab-matnr ,

21 sy-vline,

(20) itab-maktx ,

62 sy-vline,

(13) itab-menge DECIMALS 0 ,

76 sy-vline.

ENDIF.

total = total + itab-menge.

ENDLOOP.

ULINE /(76).

WRITE :/1 sy-vline,

(20) 'Total ' COLOR 3, itab-matnr COLOR 3,

62 sy-vline,

(13) total DECIMALS 0 COLOR 3,

76 sy-vline.

CLEAR total.

ULINE /(76).

ENDFORM. "display_totals

&----

*& Form write_header

&----

FORM write_header.

ULINE /(76).

FORMAT COLOR 4 INTENSIFIED ON.

WRITE :/1 sy-vline,

(20) 'Material' CENTERED ,

21 sy-vline,

(20) 'Material Description' CENTERED,

62 sy-vline,

(13) 'Quantity' CENTERED,

76 sy-vline.

ULINE /(76).

FORMAT COLOR OFF.

ENDFORM. "write_header

Re: Re: classical report

Former Member — Thu, 17 Jan 2008 16:50:47 GMT

Hi Check out dis Classical report with interactive Fuctionlity..

REPORT Z_DEMO_CLASSICAL_REPORT no STANDARD PAGE HEADING

LINE-SIZE 100

LINE-COUNT 25(3)

MESSAGE-ID (Z_MSG) .

TABLES: KNA1,VBAK,VBAP.

DATA: BEGIN OF I_KNA1 OCCURS 0,

KUNNR LIKE KNA1-KUNNR,

LAND1 LIKE KNA1-LAND1,

NAME1 LIKE KNA1-NAME1,

ORT01 LIKE KNA1-ORT01,

END OF I_KNA1.

DATA: BEGIN OF I_VBAK OCCURS 0,

VBELN LIKE VBAK-VBELN,

ERDAT LIKE VBAK-ERDAT,

NETWR LIKE VBAK-NETWR,

TELEF1 LIKE vbak-telf1,

END OF I_VBAK.

DATA: BEGIN OF I_VBAP OCCURS 0,

VBELN LIKE VBAP-VBELN,

POSNR LIKE VBAP-POSNR,

MATNR LIKE VBAP-MATNR,

MATWA LIKE VBAP-MATWA,

END OF i_vbap.

DATA: DATE1 TYPE SY-DATUM,

DATE2 TYPE SY-DATUM.

DATA: LV_KUNNR TYPE KNA1-KUNNR.

*PARAMETERS : T LIKE KNA1-KUNNR.

SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS: S_ERDAT FOR KNA1-ERDAT.

SELECTION-SCREEN: END OF BLOCK B1.

*ERDAT

*INITIALIZATION.

INITIALIZATION.

DATE1 = '19990203'.

DATE2 = '20040204'.

S_ERDAT-LOW = DATE1.

S_ERDAT-HIGH = DATE2

APPEND S_ERDAT.

*AT SELECTION-SCREEN.

AT SELECTION-SCREEN.

SELECT SINGLE KUNNR FROM KNA1 INTO LV_KUNNR WHERE ERDAT IN S_ERDAT.

IF NOT LV_KUNNR IS INITIAL.

MESSAGE I001(Z_MSG) WITH 'DATA FOUND'.

ELSE.

MESSAGE A002(Z_MSG) WITH 'ENTER VALID INPUT'.

ENDIF.

*START-OF-SELECTION.

START-OF-SELECTION.

SELECT KUNNR LAND1 NAME1 ORT01 FROM KNA1 INTO TABLE I_KNA1 WHERE ERDAT IN S_ERDAT.

*END-OF-SELECTION.

END-OF-SELECTION.

*FORMAT HOTSPOT ON.

FORMAT HOTSPOT ON.

LOOP AT I_KNA1.

WRITE:/ I_KNA1-KUNNR,I_KNA1-LAND1,I_KNA1-NAME1,I_KNA1-ORT01.

HIDE I_KNA1-KUNNR.

ENDLOOP.

FORMAT HOTSPOT OFF.

SKIP SY-LINCT.

*TOP-OF-PAGE.

TOP-OF-PAGE.

WRITE:/ 'SAT INFOTECH PVT LTD'.

ULINE.

*END-OF-PAGE.

END-OF-PAGE.

ULINE.

WRITE:/ 'CURRENT PAGE NO IS', SY-PAGNO COLOR 4.

ULINE.

AT LINE-SELECTION.

CASE SY-LSIND.

WHEN 1.

SELECT VBELN ERDAT NETWR TELF1 FROM VBAK INTO TABLE I_VBAK WHERE KUNNR = I_KNA1-KUNNR.

IF SY-SUBRC = 0.

FORMAT HOTSPOT ON.

LOOP AT I_VBAK.

WRITE:/ I_VBAK-VBELN,

I_VBAK-ERDAT,

I_VBAK-NETWR.

HIDE I_VBAK-VBELN.

ENDLOOP.

FORMAT HOTSPOT OFF.

ENDIF.

WHEN 2.

SELECT VBELN POSNR MATNR MATWA FROM VBAP INTO TABLE I_VBAP WHERE VBELN = I_VBAK-VBELN.

IF SY-SUBRC EQ 0.

LOOP AT I_VBAP.

WRITE:/ I_VBAP-VBELN,I_VBAP-POSNR,I_VBAP-MATNR,I_VBAP-MATWA.

HIDE I_VBAP-VBELN.

ENDLOOP.

ENDIF.

WHEN 3.

SET PARAMETER ID 'KUNNR' FIELD I_KNA1-KUNNR.

CALL TRANSACTION 'XK01'." AND SKIP FIRST SCREEN.

ENDCASE.

Regards

Santosh L

Re: Re: classical report

Former Member — Thu, 17 Jan 2008 16:58:41 GMT

Hi Bushan,

Recently I've given solution to some other user by writing some sample code and exlplanation ..But unfortunately someother user posted same code...any way please check this link.

Re: Re: classical report

Former Member — Tue, 08 Apr 2008 05:30:13 GMT

REPORT ZMATERIAL.

TABLES : MARA.

DATA: NUM TYPE I, t type i.

DATA : BEGIN OF ITAB OCCURS 10,

MTART LIKE MARA-MTART,

BRGEW LIKE MARA-BRGEW,

MATNR LIKE MARA-MATNR,

MEINS LIKE MARA-MEINS,

END OF ITAB.

SELECT MTART BRGEW MATNR MEINS FROM MARA INTO TABLE ITAB.

SORT ITAB BY MTART BRGEW DESCENDING.

LOOP AT ITAB.

ON CHANGE OF ITAB-MTART.

NUM = 0.

WRITE 😕 ITAB-MTART COLOR 4.

ENDON.

WHILE NUM <= 5.

WRITE 😕 ITAB-BRGEW,ITAB-MATNR,ITAB-MEINS.

NUM = NUM + 1.

ENDWHILE.

ENDLOOP.

Re: Re: classical report

Former Member — Tue, 08 Apr 2008 05:31:18 GMT

Please see below:

REPORT ZMATERIAL.

TABLES : MARA.

DATA: NUM TYPE I, t type i.

DATA : BEGIN OF ITAB OCCURS 10,

MTART LIKE MARA-MTART,

BRGEW LIKE MARA-BRGEW,

MATNR LIKE MARA-MATNR,

MEINS LIKE MARA-MEINS,

END OF ITAB.

SELECT MTART BRGEW MATNR MEINS FROM MARA INTO TABLE ITAB.

SORT ITAB BY MTART BRGEW DESCENDING.

LOOP AT ITAB.

ON CHANGE OF ITAB-MTART.

NUM = 0.

WRITE 😕 ITAB-MTART COLOR 4.

ENDON.

WHILE NUM <= 5.

WRITE 😕 ITAB-BRGEW,ITAB-MATNR,ITAB-MEINS.

NUM = NUM + 1.

ENDWHILE.

ENDLOOP.

Thanks

Ekta Shah