Skip to Content
0
Former Member
May 14, 2008 at 08:21 AM

CHECK THE REPORT

22 Views

REPORT YCLASSICALREPORT2 NO STANDARD PAGE HEADING LINE-COUNT 30(3).

TABLES : LFA1,VBAK,MARA,SSCRFIELDS.

DATA : BEGIN OF ITAB1 OCCURS 0,

KUNNR LIKE KNA1-KUNNR,

NAME1 LIKE KNA1-NAME1,

LAND1 LIKE KNA1-LAND1,

END OF ITAB1.

DATA : BEGIN OF ITAB2 OCCURS 0,

VBELN LIKE VBAK-VBELN,

NETWR LIKE VBAK-NETWR,

END OF ITAB2.

DATA : BEGIN OF KTAB OCCURS 0,

MATNR LIKE MARA-MATNR,

MEINS LIKE MARA-MEINS,

END OF KTAB.

**************SELECTION SCREEN****************

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

PARAMETER : CUSTOMER RADIOBUTTON GROUP RG1,

SALES RADIOBUTTON GROUP RG1,

MATERIAL RADIOBUTTON GROUP RG1.

SELECT-OPTIONS : VENDOR FOR LFA1-LIFNR.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN FUNCTION KEY 1.

SELECTION-SCREEN FUNCTION KEY 2.

*****************INITIALIZATION********

INITIALIZATION.

SSCRFIELDS-FUNCTXT_01 = 'REPORT'.

SSCRFIELDS-FUNCTXT_01 = 'EXIT'.

*****************AT SELECTION-SCREEN***********************

AT SELECTION-SCREEN .

IF SSCRFIELDS-UCOMM = 'FCO1'.

SSCRFIELDS-UCOMM = 'ONLI'.

ELSEIF.

SSCRFIELDS-UCOMM = 'FCO2'.

LEAVE.

ENDIF.

***************START-OF-SELECTION*************************

START-OF-SELECTION.

IF CUSTOMER = 'X'.

SELECT KUNNR

NAME1

LAND1

INTO TABLE ITAB.

LOOP AT ITAB.

WRITE : / ITAB-KUNNR,ITAB-LAND1,ITAB-NAME1.

ENDLOOP.

ELSEIF SALES = 'X'.

SELECT VBELN

NETWR

FROM VBAK

INTO TABLE JTAB.

LOOP AT JTAB.

WRITE : / JTAB-VBELN,JTAB-NETWR.

ENDLOOP.

ELSE.

SELECT MATNR

MEINS

FROM MARA

INTO TABLE KTAB.

LOOP AT KTAB.

WRITE : / KTAB-MATNR,KTAB-MEINS.

ENDLOOP.