topic Re: need your help on interactive report in Application Development and Automation Discussions

need your help on interactive report

Former Member — Wed, 31 Jan 2007 20:15:16 GMT

hi all

I have generated a report(below one) ,actually i need EKORG,EKGRP,NETWR in basic list i am not getting any value in NETWR field and also I need MAKTX field in secondary list but i am not getting any value in that field what can i do ,please suggest me any modifications to be done.

thanks and regard

kumar

INITIALIZATION----

INITIALIZATION.

TABLES: EKKO, EKPO, MAKT.

DATA: BEGIN OF I_EKKO OCCURS 0,

EBELN LIKE EKKO-EBELN,

EKORG LIKE EKKO-EKORG,

EKGRP LIKE EKKO-EKGRP,

END OF I_EKKO.

DATA: BEGIN OF I_EKPO OCCURS 0,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

NETWR LIKE EKPO-NETWR,

MENGE LIKE EKPO-MENGE,

NETPR LIKE EKPO-NETPR,

END OF I_EKPO.

DATA: BEGIN OF I_MAKT OCCURS 0,

MAKTX LIKE MAKT-MAKTX,

MATNR LIKE MAKT-MATNR,

END OF I_MAKT.

DATA: BEGIN OF I_OUT OCCURS 0,

EBELN LIKE EKKO-EBELN,

EKORG LIKE EKKO-EKORG,

EKGRP LIKE EKKO-EKGRP,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

NETWR LIKE EKPO-NETWR,

MENGE LIKE EKPO-MENGE,

NETPR LIKE EKPO-NETPR,

MAKTX LIKE MAKT-MAKTX,

END OF I_OUT.

DATA: BEGIN OF JTAB OCCURS 0,

EBELN LIKE EKKO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

MENGE LIKE EKPO-MENGE,

NETPR LIKE EKPO-NETPR,

maktx like makt-maktx,

end of jtab.

AT SELECTIONSCREEN--

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

SELECT-OPTIONS: S_EBELN FOR EKKO-EBELN OBLIGATORY.

SELECT-OPTIONS: S_EKORG FOR EKKO-EKORG OBLIGATORY.

SELECT-OPTIONS: S_EKGRP FOR EKKO-EKGRP.

SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION----

START-OF-SELECTION.

SELECT EBELN EKORG EKGRP FROM EKKO

INTO TABLE I_EKKO

WHERE EBELN IN S_EBELN.

SELECT EBELP MATNR NETWR MENGE NETPR FROM EKPO

INTO TABLE I_EKPO FOR ALL ENTRIES IN I_EKKO

WHERE EBELN = I_EKKO-EBELN.

SELECT MAKTX MATNR FROM MAKT

INTO TABLE I_MAKT FOR ALL ENTRIES IN I_EKPO

WHERE MATNR = I_EKPO-MATNR.

END-OF-SELECTION--

END-OF-SELECTION.

LOOP AT I_EKKO.

MOVE: I_EKKO-EBELN TO I_OUT-EBELN,

I_EKKO-EKORG TO I_OUT-EKORG,

I_EKKO-EKGRP TO I_OUT-EKGRP.

READ TABLE I_EKPO WITH KEY EBELP = I_EKKO-EBELN.

MOVE: I_EKPO-EBELP TO I_OUT-EBELP,

I_EKPO-MATNR TO I_OUT-MATNR,

I_EKPO-NETWR TO I_OUT-NETWR,

I_EKPO-MENGE TO I_OUT-MENGE,

I_EKPO-NETPR TO I_OUT-NETPR.

READ TABLE I_MAKT WITH KEY MATNR = I_EKKO-EBELN.

MOVE: I_MAKT-MAKTX TO I_OUT-MAKTX,

I_MAKT-MATNR TO I_OUT-MATNR.

APPEND I_OUT.

ENDLOOP.

LOOP AT I_OUT.

FORMAT HOTSPOT ON.

FORMAT COLOR 2 ON.

WRITE : / SY-VLINE,

2 I_OUT-EKORG,

9 SY-VLINE,

10 I_OUT-EKGRP,

24 SY-VLINE,

25 I_OUT-NETWR,

40 SY-VLINE.

FORMAT HOTSPOT OFF.

FORMAT COLOR 2 OFF.

HIDE: I_OUT-EBELN .

*,I_OUT-MAKTX,i_out-matnr,i_out-menge.

ENDLOOP.

TOP-OF-PAGE--

TOP-OF-PAGE.

FORMAT COLOR 3 ON.

WRITE : / 'EKORG',

10 'EKGRP',

35 'NETWR'.

FORMAT COLOR 3 OFF.

--------~~-END-OF-PAGE~~------------

END-OF-PAGE.

FORMAT COLOR 6 ON.

WRITE : /100 'PAGE NUMBER:',SY-PAGNO.

FORMAT COLOR 6 OFF.

AT LINE-SELECTION--

AT LINE-SELECTION.

SELECT EBELN EBELP MATNR MENGE NETPR

FROM EKPO

INTO corresponding fields of TABLE JTAB WHERE EBELN = I_OUT-EBELN.

LOOP AT JTAB.

format color 2 on.

WRITE : / SY-VLINE,

2 jtab-EBELN,

13 SY-VLINE,

15 jtab-EBELP,

28 SY-VLINE,

30 jtab-MATNR,

43 SY-VLINE,

45 jtab-MENGE,

49 SY-VLINE,

50 jtab-NETPR,

59 SY-VLINE,

60 I_OUT-MAKTX,

68 SY-VLINE.

format color 2 off.

ENDLOOP.

TOP-OF-PAGE DURING LINE-SELECTION.

FORMAT COLOR 3 ON.

WRITE: / 'EBELN',

15 'EBELP',

30 'MATNR',

45 'MENGE',

53 'NETPR',

63 'MAKTX'.

FORMAT COLOR

Re: need your help on interactive report

Former Member — Wed, 31 Jan 2007 20:19:26 GMT

Hi,

Check the changes marked in bold..

AT LINE-SELECTION.

SELECT EBELN EBELP MATNR MENGE NETPR

FROM EKPO

INTO corresponding fields of TABLE JTAB WHERE EBELN = I_OUT-EBELN.

LOOP AT JTAB.

READ TABLE I_MAKT WITH KEY MATNR = JTAB-MATNR.

MOVE: I_MAKT-MAKTX TO I_OUT-MAKTX.

format color 2 on.

WRITE : / SY-VLINE,

2 jtab-EBELN,

13 SY-VLINE,

15 jtab-EBELP,

28 SY-VLINE,

30 jtab-MATNR,

43 SY-VLINE,

45 jtab-MENGE,

49 SY-VLINE,

50 jtab-NETPR,

59 SY-VLINE,

60 I_OUT-MAKTX,

68 SY-VLINE.

format color 2 off.

ENDLOOP.

Thanks,

Naren

Re: need your help on interactive report

Former Member — Wed, 31 Jan 2007 20:28:35 GMT

HI Satya,

check the loop at I_ekko ... endloop.

there r some mistakes... i_out-maktx is not filling out..

TABLES: EKKO, EKPO, MAKT.

DATA: BEGIN OF I_EKKO OCCURS 0,

EBELN LIKE EKKO-EBELN,

EKORG LIKE EKKO-EKORG,

EKGRP LIKE EKKO-EKGRP,

END OF I_EKKO.

DATA: BEGIN OF I_EKPO OCCURS 0,

EBELN LIKE EKPO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

NETWR LIKE EKPO-NETWR,

MENGE LIKE EKPO-MENGE,

NETPR LIKE EKPO-NETPR,

END OF I_EKPO.

DATA: BEGIN OF I_MAKT OCCURS 0,

MAKTX LIKE MAKT-MAKTX,

MATNR LIKE MAKT-MATNR,

END OF I_MAKT.

DATA: BEGIN OF I_OUT OCCURS 0,

EBELN LIKE EKKO-EBELN,

EKORG LIKE EKKO-EKORG,

EKGRP LIKE EKKO-EKGRP,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

NETWR LIKE EKPO-NETWR,

MENGE LIKE EKPO-MENGE,

NETPR LIKE EKPO-NETPR,

MAKTX LIKE MAKT-MAKTX,

END OF I_OUT.

DATA: BEGIN OF JTAB OCCURS 0,

EBELN LIKE EKKO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

MENGE LIKE EKPO-MENGE,

NETPR LIKE EKPO-NETPR,

maktx like makt-maktx,

end of jtab.

AT SELECTIONSCREEN--

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

SELECT-OPTIONS: S_EBELN FOR EKKO-EBELN OBLIGATORY.

SELECT-OPTIONS: S_EKORG FOR EKKO-EKORG OBLIGATORY.

SELECT-OPTIONS: S_EKGRP FOR EKKO-EKGRP.

SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION----

START-OF-SELECTION.

SELECT EBELN EKORG EKGRP FROM EKKO

INTO TABLE I_EKKO

WHERE EBELN IN S_EBELN.

SELECT EBELN EBELP MATNR NETWR MENGE NETPR FROM EKPO

INTO TABLE I_EKPO FOR ALL ENTRIES IN I_EKKO

WHERE EBELN = I_EKKO-EBELN.

SELECT MAKTX MATNR FROM MAKT

INTO TABLE I_MAKT FOR ALL ENTRIES IN I_EKPO

WHERE MATNR = I_EKPO-MATNR.

END-OF-SELECTION--

END-OF-SELECTION.

LOOP AT I_EKKO.

MOVE: I_EKKO-EBELN TO I_OUT-EBELN,

I_EKKO-EKORG TO I_OUT-EKORG,

I_EKKO-EKGRP TO I_OUT-EKGRP.

READ TABLE I_EKPO WITH KEY EBELN = I_EKKO-EBELN.

MOVE: I_EKPO-EBELP TO I_OUT-EBELP,

I_EKPO-MATNR TO I_OUT-MATNR,

I_EKPO-NETWR TO I_OUT-NETWR,

I_EKPO-MENGE TO I_OUT-MENGE,

I_EKPO-NETPR TO I_OUT-NETPR.

APPEND I_OUT.

ENDLOOP.

LOOP AT I_OUT.

READ TABLE I_MAKT WITH KEY MATNR = I_OUT-MATNR.

MOVE: I_MAKT-MAKTX TO I_OUT-MAKTX.

MODIFY I_OUT TRANSPORTING MAKTX.

ENDLOOP.

LOOP AT I_OUT.

FORMAT HOTSPOT ON.

FORMAT COLOR 2 ON.

WRITE : / SY-VLINE,

2 I_OUT-EKORG,

9 SY-VLINE,

10 I_OUT-EKGRP,

24 SY-VLINE,

25 I_OUT-NETWR,

40 SY-VLINE.

FORMAT HOTSPOT OFF.

FORMAT COLOR 2 OFF.

HIDE: I_OUT-EBELN ,I_OUT-MAKTX,i_out-matnr,i_out-menge.

ENDLOOP.

TOP-OF-PAGE--

TOP-OF-PAGE.

FORMAT COLOR 3 ON.

WRITE : / 'EKORG',

10 'EKGRP',

35 'NETWR'.

FORMAT COLOR 3 OFF.

--------~~-END-OF-PAGE~~------------

END-OF-PAGE.

FORMAT COLOR 6 ON.

WRITE : /100 'PAGE NUMBER:',SY-PAGNO.

FORMAT COLOR 6 OFF.

AT LINE-SELECTION--

AT LINE-SELECTION.

SELECT EBELN EBELP MATNR MENGE NETPR

FROM EKPO

INTO corresponding fields of TABLE JTAB WHERE EBELN = I_OUT-EBELN.

LOOP AT JTAB.

format color 2 on.

WRITE : / SY-VLINE,

2 jtab-EBELN,

13 SY-VLINE,

15 jtab-EBELP,

28 SY-VLINE,

30 jtab-MATNR,

43 SY-VLINE,

45 jtab-MENGE,

49 SY-VLINE,

50 jtab-NETPR,

59 SY-VLINE,

60 I_OUT-MAKTX,

68 SY-VLINE.

format color 2 off.

ENDLOOP.

TOP-OF-PAGE DURING LINE-SELECTION.

FORMAT COLOR 3 ON.

WRITE: / 'EBELN',

15 'EBELP',

30 'MATNR',

45 'MENGE',

53 'NETPR',

63 'MAKTX'.

FORMAT COLOR off.

Regards

SAB

Re: need your help on interactive report

Former Member — Wed, 31 Jan 2007 20:34:51 GMT

hi naren

thanks for response ,but i did not get data of MAKTX and NETWR,i have executed my report with your suggestion,can you give some more suggestion

thanks and regard

kumar

Re: need your help on interactive report

Former Member — Wed, 31 Jan 2007 20:37:29 GMT

hi sab

i could not able to rectify my report,can you give me some more suggestion for that.

thanks and regard

kumar

Re: need your help on interactive report

Former Member — Wed, 31 Jan 2007 20:39:32 GMT

Hi,

Check this..I am able to see the material description and netwr..

INITIALIZATION----

INITIALIZATION.

TABLES: ekko, ekpo, makt.

DATA: BEGIN OF i_ekko OCCURS 0,

ebeln LIKE ekko-ebeln,

ekorg LIKE ekko-ekorg,

ekgrp LIKE ekko-ekgrp,

END OF i_ekko.

DATA: BEGIN OF i_ekpo OCCURS 0,

ebeln LIKE ekpo-ebeln,

ebelp LIKE ekpo-ebelp,

matnr LIKE ekpo-matnr,

netwr LIKE ekpo-netwr,

menge LIKE ekpo-menge,

netpr LIKE ekpo-netpr,

END OF i_ekpo.

DATA: BEGIN OF i_makt OCCURS 0,

maktx LIKE makt-maktx,

matnr LIKE makt-matnr,

END OF i_makt.

DATA: BEGIN OF i_out OCCURS 0,

ebeln LIKE ekko-ebeln,

ekorg LIKE ekko-ekorg,

ekgrp LIKE ekko-ekgrp,

ebelp LIKE ekpo-ebelp,

matnr LIKE ekpo-matnr,

netwr LIKE ekpo-netwr,

menge LIKE ekpo-menge,

netpr LIKE ekpo-netpr,

maktx LIKE makt-maktx,

END OF i_out.

DATA: BEGIN OF jtab OCCURS 0,

ebeln LIKE ekko-ebeln,

ebelp LIKE ekpo-ebelp,

matnr LIKE ekpo-matnr,

menge LIKE ekpo-menge,

netpr LIKE ekpo-netpr,

maktx LIKE makt-maktx,

END OF jtab.

AT SELECTIONSCREEN--

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_ebeln FOR ekko-ebeln OBLIGATORY.

SELECT-OPTIONS: s_ekorg FOR ekko-ekorg OBLIGATORY.

SELECT-OPTIONS: s_ekgrp FOR ekko-ekgrp.

SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION----

START-OF-SELECTION.

SELECT ebeln ekorg ekgrp FROM ekko

INTO TABLE i_ekko

WHERE ebeln IN s_ebeln.

IF NOT i_ekko[] IS INITIAL.

SELECT ebeln ebelp matnr netwr menge netpr FROM ekpo

INTO TABLE i_ekpo FOR ALL ENTRIES IN i_ekko

WHERE ebeln = i_ekko-ebeln.

ENDIF.

IF NOT i_ekpo[] IS INITIAL.

SELECT maktx matnr FROM makt

INTO TABLE i_makt FOR ALL ENTRIES IN i_ekpo

WHERE matnr = i_ekpo-matnr.

ENDIF.

END-OF-SELECTION--

END-OF-SELECTION.

LOOP AT i_ekko.

MOVE: i_ekko-ebeln TO i_out-ebeln,

i_ekko-ekorg TO i_out-ekorg,

i_ekko-ekgrp TO i_out-ekgrp.

READ TABLE i_ekpo WITH KEY ebeln = i_ekko-ebeln.

MOVE: i_ekpo-ebelp TO i_out-ebelp,

i_ekpo-matnr TO i_out-matnr,

i_ekpo-netwr TO i_out-netwr,

i_ekpo-menge TO i_out-menge,

i_ekpo-netpr TO i_out-netpr.

READ TABLE i_makt WITH KEY matnr = i_ekpo-matnr.

MOVE: i_makt-maktx TO i_out-maktx,

i_makt-matnr TO i_out-matnr.

APPEND i_out.

ENDLOOP.

LOOP AT i_out.

FORMAT HOTSPOT ON.

FORMAT COLOR 2 ON.

WRITE : / sy-vline,

2 i_out-ekorg,

9 sy-vline,

10 i_out-ekgrp,

24 sy-vline,

25 i_out-netwr,

40 sy-vline.

FORMAT HOTSPOT OFF.

FORMAT COLOR 2 OFF.

HIDE: i_out-ebeln .

*,I_OUT-MAKTX,i_out-matnr,i_out-menge.

ENDLOOP.

TOP-OF-PAGE--

TOP-OF-PAGE.

FORMAT COLOR 3 ON.

WRITE : / 'EKORG',

10 'EKGRP',

35 'NETWR'.

FORMAT COLOR 3 OFF.

--------~~-END-OF-PAGE~~------------

END-OF-PAGE.

FORMAT COLOR 6 ON.

WRITE : /100 'PAGE NUMBER:',sy-pagno.

FORMAT COLOR 6 OFF.

AT LINE-SELECTION--

AT LINE-SELECTION.

SELECT ebeln ebelp matnr menge netpr

FROM ekpo

INTO CORRESPONDING FIELDS OF TABLE jtab WHERE ebeln = i_out-ebeln.

LOOP AT jtab.

READ TABLE i_makt WITH KEY matnr = jtab-matnr.

MOVE: i_makt-maktx TO i_out-maktx.

FORMAT COLOR 2 ON.

WRITE : / sy-vline,

2 jtab-ebeln,

13 sy-vline,

15 jtab-ebelp,

28 sy-vline,

30 jtab-matnr,

43 sy-vline,

45 jtab-menge,

49 sy-vline,

50 jtab-netpr,

59 sy-vline,

60 i_out-maktx,

68 sy-vline.

FORMAT COLOR 2 OFF.

ENDLOOP.

TOP-OF-PAGE DURING LINE-SELECTION.

FORMAT COLOR 3 ON.

WRITE: / 'EBELN',

15 'EBELP',

30 'MATNR',

45 'MENGE',

53 'NETPR',

63 'MAKTX'.

Thanks,

Naren

Re: need your help on interactive report

Former Member — Wed, 31 Jan 2007 20:43:30 GMT

hi,

i had made cheanges to ur code...

check it its working fine...

&----

*& Module pool ZTEST14

&----

PROGRAM ZTEST14.

TABLES: EKKO, EKPO, MAKT.

DATA: BEGIN OF I_EKKO OCCURS 0,

EBELN LIKE EKKO-EBELN,

EKORG LIKE EKKO-EKORG,

EKGRP LIKE EKKO-EKGRP,

END OF I_EKKO.

DATA: BEGIN OF I_EKPO OCCURS 0,

ebeln like ekpo-ebeln,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

NETWR LIKE EKPO-NETWR,

MENGE LIKE EKPO-MENGE,

NETPR LIKE EKPO-NETPR,

END OF I_EKPO.

DATA: BEGIN OF I_MAKT OCCURS 0,

MAKTX LIKE MAKT-MAKTX,

MATNR LIKE MAKT-MATNR,

END OF I_MAKT.

DATA: BEGIN OF I_OUT OCCURS 0,

EBELN LIKE EKKO-EBELN,

EKORG LIKE EKKO-EKORG,

EKGRP LIKE EKKO-EKGRP,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

NETWR LIKE EKPO-NETWR,

MENGE LIKE EKPO-MENGE,

NETPR LIKE EKPO-NETPR,

MAKTX LIKE MAKT-MAKTX,

END OF I_OUT.

DATA: BEGIN OF JTAB OCCURS 0,

EBELN LIKE EKKO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

MENGE LIKE EKPO-MENGE,

NETPR LIKE EKPO-NETPR,

maktx like makt-maktx,

end of jtab.

AT SELECTIONSCREEN--

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

SELECT-OPTIONS: S_EBELN FOR EKKO-EBELN OBLIGATORY.

SELECT-OPTIONS: S_EKORG FOR EKKO-EKORG OBLIGATORY.

SELECT-OPTIONS: S_EKGRP FOR EKKO-EKGRP.

SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION----

START-OF-SELECTION.

SELECT EBELN EKORG EKGRP FROM EKKO

INTO TABLE I_EKKO

WHERE EBELN IN S_EBELN.

SELECT ebeln EBELP MATNR NETWR MENGE NETPR FROM EKPO

INTO TABLE I_EKPO FOR ALL ENTRIES IN I_EKKO

WHERE EBELN = I_EKKO-EBELN.

SELECT MAKTX MATNR FROM MAKT

INTO TABLE I_MAKT FOR ALL ENTRIES IN I_EKPO

WHERE MATNR = I_EKPO-MATNR.

END-OF-SELECTION--

END-OF-SELECTION.

LOOP AT I_EKKO.

MOVE: I_EKKO-EBELN TO I_OUT-EBELN,

I_EKKO-EKORG TO I_OUT-EKORG,

I_EKKO-EKGRP TO I_OUT-EKGRP.

READ TABLE I_EKPO WITH KEY EBELN = I_EKKO-EBELN.

MOVE: I_EKPO-EBELP TO I_OUT-EBELP,

I_EKPO-MATNR TO I_OUT-MATNR,

I_EKPO-NETWR TO I_OUT-NETWR,

I_EKPO-MENGE TO I_OUT-MENGE,

I_EKPO-NETPR TO I_OUT-NETPR.

READ TABLE I_MAKT WITH KEY MATNR = I_ekpo-matnr.

MOVE: I_MAKT-MAKTX TO I_OUT-MAKTX,

I_MAKT-MATNR TO I_OUT-MATNR.

APPEND I_OUT.

ENDLOOP.

LOOP AT I_OUT.

FORMAT HOTSPOT ON.

FORMAT COLOR 2 ON.

WRITE : / SY-VLINE,

2 I_OUT-EKORG,

9 SY-VLINE,

10 I_OUT-EKGRP,

24 SY-VLINE,

25 I_OUT-NETWR,

40 SY-VLINE.

FORMAT HOTSPOT OFF.

FORMAT COLOR 2 OFF.

HIDE: I_OUT-EBELN .

*,I_OUT-MAKTX,i_out-matnr,i_out-menge.

ENDLOOP.

TOP-OF-PAGE--

TOP-OF-PAGE.

FORMAT COLOR 3 ON.

WRITE : / 'EKORG',

10 'EKGRP',

35 'NETWR'.

FORMAT COLOR 3 OFF.

--------~~-END-OF-PAGE~~------------

END-OF-PAGE.

FORMAT COLOR 6 ON.

WRITE : /100 'PAGE NUMBER:',SY-PAGNO.

FORMAT COLOR 6 OFF.

AT LINE-SELECTION--

AT LINE-SELECTION.

SELECT EBELN EBELP MATNR MENGE NETPR

FROM EKPO

INTO corresponding fields of TABLE JTAB WHERE EBELN = I_OUT-EBELN.

LOOP AT JTAB.

format color 2 on.

WRITE : / SY-VLINE,

2 jtab-EBELN,

13 SY-VLINE,

15 jtab-EBELP,

28 SY-VLINE,

30 jtab-MATNR,

43 SY-VLINE,

45 jtab-MENGE,

49 SY-VLINE,

50 jtab-NETPR,

59 SY-VLINE,

60 I_OUT-MAKTX,

68 SY-VLINE.

format color 2 off.

ENDLOOP.

TOP-OF-PAGE DURING LINE-SELECTION.

FORMAT COLOR 3 ON.

WRITE: / 'EBELN',

15 'EBELP',

30 'MATNR',

45 'MENGE',

53 'NETPR',

63 'MAKTX'.

FORMAT COLOR off.

Re: need your help on interactive report

Former Member — Wed, 31 Jan 2007 20:49:21 GMT

hi Satya,

modify the report as it shows in bold text.

in loop at i_ekko... u r reading i_ekpo with key ebelp = i_ekko -ebeln...

sy-subrc = 4.... so u cant append values in i_out with ebelp, matnr and all...

i modified the report.. pls check and run the report..

*****************************************************************************

TABLES: EKKO, EKPO, MAKT.

DATA: BEGIN OF I_EKKO OCCURS 0,

EBELN LIKE EKKO-EBELN,

EKORG LIKE EKKO-EKORG,

EKGRP LIKE EKKO-EKGRP,

END OF I_EKKO.

DATA: BEGIN OF I_EKPO OCCURS 0,

EBELN LIKE EKPO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

NETWR LIKE EKPO-NETWR,

MENGE LIKE EKPO-MENGE,

NETPR LIKE EKPO-NETPR,

END OF I_EKPO.

DATA: BEGIN OF I_MAKT OCCURS 0,

MAKTX LIKE MAKT-MAKTX,

MATNR LIKE MAKT-MATNR,

END OF I_MAKT.

DATA: BEGIN OF I_OUT OCCURS 0,

EBELN LIKE EKKO-EBELN,

EKORG LIKE EKKO-EKORG,

EKGRP LIKE EKKO-EKGRP,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

NETWR LIKE EKPO-NETWR,

MENGE LIKE EKPO-MENGE,

NETPR LIKE EKPO-NETPR,

MAKTX LIKE MAKT-MAKTX,

END OF I_OUT.

DATA: BEGIN OF JTAB OCCURS 0,

EBELN LIKE EKKO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

MENGE LIKE EKPO-MENGE,

NETPR LIKE EKPO-NETPR,

maktx like makt-maktx,

end of jtab.

AT SELECTIONSCREEN--

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

SELECT-OPTIONS: S_EBELN FOR EKKO-EBELN OBLIGATORY.

SELECT-OPTIONS: S_EKORG FOR EKKO-EKORG OBLIGATORY.

SELECT-OPTIONS: S_EKGRP FOR EKKO-EKGRP.

SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION----

START-OF-SELECTION.

SELECT EBELN EKORG EKGRP FROM EKKO

INTO TABLE I_EKKO

WHERE EBELN IN S_EBELN.

SELECT EBELN EBELP MATNR NETWR MENGE NETPR FROM EKPO

INTO TABLE I_EKPO FOR ALL ENTRIES IN I_EKKO

WHERE EBELN = I_EKKO-EBELN.

SELECT MAKTX MATNR FROM MAKT

INTO TABLE I_MAKT FOR ALL ENTRIES IN I_EKPO

WHERE MATNR = I_EKPO-MATNR.

END-OF-SELECTION--

END-OF-SELECTION.

LOOP AT I_EKKO.

MOVE: I_EKKO-EBELN TO I_OUT-EBELN,

I_EKKO-EKORG TO I_OUT-EKORG,

I_EKKO-EKGRP TO I_OUT-EKGRP.

READ TABLE I_EKPO WITH KEY EBELN = I_EKKO-EBELN.

MOVE: I_EKPO-EBELP TO I_OUT-EBELP,

I_EKPO-MATNR TO I_OUT-MATNR,

I_EKPO-NETWR TO I_OUT-NETWR,

I_EKPO-MENGE TO I_OUT-MENGE,

I_EKPO-NETPR TO I_OUT-NETPR.

APPEND I_OUT.

ENDLOOP.

LOOP AT I_OUT.

READ TABLE I_MAKT WITH KEY MATNR = I_OUT-MATNR.

MOVE: I_MAKT-MAKTX TO I_OUT-MAKTX.

MODIFY I_OUT TRANSPORTING MAKTX.

ENDLOOP.

LOOP AT I_OUT.

FORMAT HOTSPOT ON.

FORMAT COLOR 2 ON.

WRITE : / SY-VLINE,

2 I_OUT-EKORG,

9 SY-VLINE,

10 I_OUT-EKGRP,

24 SY-VLINE,

25 I_OUT-NETWR,

40 SY-VLINE.

FORMAT HOTSPOT OFF.

FORMAT COLOR 2 OFF.

HIDE: I_OUT-EBELN ,I_OUT-MAKTX,i_out-matnr,i_out-menge.

ENDLOOP.

TOP-OF-PAGE--

TOP-OF-PAGE.

FORMAT COLOR 3 ON.

WRITE : / 'EKORG',

10 'EKGRP',

35 'NETWR'.

FORMAT COLOR 3 OFF.

--------~~-END-OF-PAGE~~------------

END-OF-PAGE.

FORMAT COLOR 6 ON.

WRITE : /100 'PAGE NUMBER:',SY-PAGNO.

FORMAT COLOR 6 OFF.

AT LINE-SELECTION--

AT LINE-SELECTION.

SELECT EBELN EBELP MATNR MENGE NETPR

FROM EKPO

INTO corresponding fields of TABLE JTAB WHERE EBELN = I_OUT-EBELN.

LOOP AT JTAB.

format color 2 on.

WRITE : / SY-VLINE,

2 jtab-EBELN,

13 SY-VLINE,

15 jtab-EBELP,

28 SY-VLINE,

30 jtab-MATNR,

43 SY-VLINE,

45 jtab-MENGE,

49 SY-VLINE,

50 jtab-NETPR,

59 SY-VLINE,

60 I_OUT-MAKTX,

68 SY-VLINE,

80 i_out-netwr.

format color 2 off.

ENDLOOP.

TOP-OF-PAGE DURING LINE-SELECTION.

FORMAT COLOR 3 ON.

WRITE: / 'EBELN',

15 'EBELP',

30 'MATNR',

45 'MENGE',

53 'NETPR',

63 'MAKTX',

80 'NETWR'.

FORMAT COLOR off.

**********************************************************

Regards

SAB