Purchase Orders report

*Purpose of the report is to display the list of Purchase Organization
*, Document Type and Account Group according to the Purchase Order
*Creation Date according to the user inputs and also downloads the file
*with the aboveDetails and stored that file in Text Mode.
*MODULE: MM

REPORT Z_MM_PUR_ORD_ITM MESSAGE-ID ZMHZMSG LINE-SIZE 57 NO STANDARD PAGE
HEADING.
TABLES: EKKO, LFA1, T024E, T077K, T161 .


DATA: BEGIN OF IT_PUR OCCURS 1,
EBELN LIKE EKKO-EBELN, "Document No.
EKORG LIKE EKKO-EKORG, "Purchase Organisation
KTOKK LIKE LFA1-KTOKK, "Account Group
BSART LIKE EKKO-BSART, "Document Type
END OF IT_PUR.


SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
selection-screen skip 1.
SELECT-OPTIONS: PURCDATE FOR EKKO-BEDAT,
PURORG FOR T024E-EKORG,
ACCGRP FOR T077K-KTOKK,
DOCTYPE FOR T161-BSART.
SELECTION-SCREEN: END OF BLOCK B1.

SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-004.
PARAMETERS: R1 RADIOBUTTON GROUP RAD1 DEFAULT 'X',
R2 RADIOBUTTON GROUP RAD1.
SELECTION-SCREEN: END OF BLOCK B2.


AT SELECTION-SCREEN OUTPUT.
CLEAR: PURCDATE, PURORG, ACCGRP, DOCTYPE.
REFRESH: PURCDATE, PURORG, ACCGRP, DOCTYPE.

TOP-OF-PAGE.
FORMAT COLOR 1.
ULINE.
WRITE : / SY-VLINE, TEXT-001, SY-VLINE, TEXT-002, SY-VLINE, TEXT-003,
SY-VLINE.
ULINE.

END-OF-SELECTION.
SELECT EKKO~EBELN EKKO~BEDAT EKKO~EKORG EKKO~BSART LFA1~KTOKK INTO
CORRESPONDING FIELDS OF TABLE IT_PUR FROM ( EKKO
INNER JOIN LFA1 ON EKKO~LIFNR = LFA1~LIFNR ) WHERE EKKO~BEDAT IN
PURCDATE AND EKKO~EKORG IN PURORG AND EKKO~BSART IN DOCTYPE AND
LFA1~KTOKK IN ACCGRP ORDER BY EKKO~EBELN EKKO~BSART.


IF R1 = 'X'.
SORT IT_PUR BY EKORG KTOKK BSART.
DELETE ADJACENT DUPLICATES FROM IT_PUR COMPARING EKORG KTOKK BSART.
ENDIF.

LOOP AT IT_PUR.

FORMAT RESET.
FORMAT COLOR 6.
WRITE : / SY-VLINE,
(21) IT_PUR-EKORG UNDER TEXT-001 COLOR 2,
SY-VLINE,
(13) IT_PUR-KTOKK UNDER TEXT-002 COLOR 2,
SY-VLINE,
(13) IT_PUR-BSART UNDER TEXT-003 COLOR 2,
SY-VLINE.
ENDLOOP.
ULINE.