interactive report for Purchase order

[Former Member]

Hi,

Please help me out in coding of beloew mentioned report:

a interactive report to display all the purchase orders for every purchasing organization and purchase groups and further it will displays the total and individual values of all the purchase orders.

You can send your view to '[email protected]'

Regards,

Bhupesh G

[Former Member]

Hi,

Please help me out in coding of beloew mentioned report:

a interactive report to display all the purchase orders for every purchasing organization and purchase groups and further it will displays the total and individual values of all the purchase orders.

You can send your view to '[email protected]'

Regards,

Bhupesh G

[Former Member]

HI,

see this example program for interactive reports.

REPORT ZBHREP3 LINE-COUNT 15(1) LINE-SIZE 75.

TABLES: SFLIGHT.

DATA VAR LIKE SFLIGHT-CONNID.

DATA ITAB LIKE SFLIGHT OCCURS 0 WITH HEADER LINE.

SELECT-OPTIONS CARRID1 FOR SFLIGHT-CARRID.

SET PF-STATUS 'MENU'.

SET TITLEBAR 'TIT'.

FORMAT HOTSPOT ON.

WRITE:/10 'AIRLINE CODE',25 'CONNECTION ID',40 'FLIGHT DATE'.

*END-OF-PAGE.

END-OF-PAGE.

WRITE:/64 'P.NO:',SY-PAGNO.

*TOP-OF-PAGE.

TOP-OF-PAGE.

WRITE:/ 'THIS IS MY FIRST REPORTS PROGRAM.'.

*START-OF-SELECTION.

START-OF-SELECTION.

SELECT * FROM SFLIGHT WHERE CARRID IN CARRID1.

WRITE:/10 SFLIGHT-CARRID,25 SFLIGHT-CONNID,40 SFLIGHT-FLDATE.

HIDE SFLIGHT-CONNID.

ENDSELECT.

*AT LINE-SELECTION.

AT LINE-SELECTION.

CASE SY-LSIND.

WHEN '1'.

• READ LINE SY-LILLI FIELD VALUE SFLIGHT-CONNID INTO VAR.

• SELECT * FROM SFLIGHT INTO CORRESPONDING FIELDS OF ITAB WHERE

• CONNID = VAR.

• WRITE:/ ITAB-CARRID,ITAB-PLANETYPE,ITAB-PAYMENTSUM.

• ENDSELECT.

• WRITE:/ VAR.

SELECT * FROM SFLIGHT INTO CORRESPONDING FIELDS OF ITAB WHERE

CONNID = SY-LISEL+24(4).

WRITE:/ ITAB-CARRID,ITAB-PLANETYPE,ITAB-PAYMENTSUM.

ENDSELECT.

SKIP 1.

WRITE:/ SY-LISEL+24(4).

• SELECT * FROM SFLIGHT INTO CORRESPONDING FIELDS OF ITAB WHERE

• CONNID = SFLIGHT-CONNID.

• WRITE:/ ITAB-CARRID,ITAB-PLANETYPE,ITAB-PAYMENTSUM.

• ENDSELECT.

• WRITE:/ SFLIGHT-CONNID.

WHEN '2'.

WRITE:/ SY-LILLI.

WHEN '3'.

WRITE 😕 'BHARAT'.

ENDCASE.

rgds,

bharat.