Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

need your help on interactive report

Go to solution
Former Member

‎2007 Jan 31 8:15 PM

0 Likes
751

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

1 ACCEPTED SOLUTION
Read only

Go to solution
Former Member

‎2007 Jan 31 8:28 PM

0 Likes
727

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,

<b>EBELN LIKE EKPO-EBELN,</b>

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.

<b>READ TABLE I_EKPO WITH KEY EBELN = I_EKKO-EBELN.</b>

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.

<b>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.</b>

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.

<b>HIDE: I_OUT-EBELN ,I_OUT-MAKTX,i_out-matnr,i_out-menge.</b>

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

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

Reply
7 REPLIES 7
Read only

Go to solution
Former Member

‎2007 Jan 31 8:19 PM

0 Likes
727

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.

<b>READ TABLE I_MAKT WITH KEY MATNR = JTAB-MATNR.

MOVE: I_MAKT-MAKTX TO I_OUT-MAKTX.</b>

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

Read only

Go to solution
Former Member
In response to Former Member

‎2007 Jan 31 8:34 PM

0 Likes
727

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

Read only

Go to solution
Former Member

‎2007 Jan 31 8:28 PM

0 Likes
728

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,

<b>EBELN LIKE EKPO-EBELN,</b>

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.

<b>READ TABLE I_EKPO WITH KEY EBELN = I_EKKO-EBELN.</b>

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.

<b>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.</b>

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.

<b>HIDE: I_OUT-EBELN ,I_OUT-MAKTX,i_out-matnr,i_out-menge.</b>

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

Read only

Go to solution
Former Member
In response to Former Member

‎2007 Jan 31 8:37 PM

0 Likes
727

hi sab

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

thanks and regard

kumar

Read only

Go to solution
Former Member
In response to Former Member

‎2007 Jan 31 8:43 PM

0 Likes
727

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,

<b>ebeln like ekpo-ebeln,</b>

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 <b>ebeln</b> 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.

<b>READ TABLE I_EKPO WITH KEY EBELN = I_EKKO-EBELN.</b>

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.

<b>READ TABLE I_MAKT WITH KEY MATNR = I_ekpo-matnr.</b>

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.

Read only

Go to solution
Former Member
In response to Former Member

‎2007 Jan 31 8:49 PM

0 Likes
727

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,

<b>EBELN LIKE EKPO-EBELN,</b>

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<b> EBELN</b> 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.

<b>READ TABLE I_EKPO WITH KEY EBELN = I_EKKO-EBELN.</b>

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.

<b>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.</b>

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.

<b>HIDE: I_OUT-EBELN ,I_OUT-MAKTX,i_out-matnr,i_out-menge.</b>

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,

<b>80 i_out-netwr.</b>

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',

<b>80 'NETWR'.</b>

FORMAT COLOR off.

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

Regards

SAB

Read only

Go to solution
Former Member

‎2007 Jan 31 8:39 PM

0 Likes
727

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