classical report

[Former Member]

Hi ,

I want the exmpale of classical report.

I give u full points.

regards,

Sashi

[former_member156446]

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

[Former Member]

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

[Former Member]

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.

[Former Member]

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.

[Former Member]

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