topic Re: Report modification in Application Development and Automation Discussions

Report modification

Former Member — Mon, 14 Apr 2008 14:29:50 GMT

Hi EXPERTS,

PLS HELP ME IN REPORT MODIFICATION,

iNEED TO ADD ONE MORE COLUMN WHICH CALCULATES A FIELD FROM MARM-UMREN AND S012-WMENG

IS IT POSSIBLE

Edited by: Alvaro Tejada Galindo on Apr 14, 2008 11:12 AM

Re: Report modification

Former Member — Mon, 14 Apr 2008 14:33:40 GMT

Yes . It is possible.

Thanks,

Greetson

Re: Report modification

Former Member — Mon, 14 Apr 2008 14:40:04 GMT

Hi,

This is my code..

can u tell me what i need to mofdify in this

REPORT ZTRST1.

&----

*& Report ZTRST

&----

*REPORT ZTRST no standard page heading line-size 200 line-count 200.

&&&& Tables Declaration &&&& *

Tables:S012.

type-pools: slis.

data: i_fldcat type slis_t_fieldcat_alv,

w_fldcat type slis_fieldcat_alv,

i_sort TYPE slis_t_sortinfo_alv,

wa_sort TYPE slis_sortinfo_alv,

wa_layout TYPE slis_layout_alv.

*data : ls_layout TYPE slis_layout_alv.

*ls_layout-colwidth_optimize = 'X'.

&&&&& Internal Table Declaration &&&&&

DATA:BEGIN OF GT_GOODS OCCURS 0,

EKORG LIKE S012-EKORG,

MATNR LIKE S012-MATNR,

WERKS LIKE S012-WERKS,

SPMON LIKE S012-SPMON,

SPTAG LIKE S012-SPTAG,

SPWOC LIKE S012-SPWOC,

SPBUP LIKE S012-SPBUP,

BASME LIKE S012-BASME,

WEMNG LIKE S012-WEMNG,

END OF GT_GOODS.

DATA:TOTAL LIKE VBAP-NETPR.

* &&&& SELECTION SCREEN &&&&& * *

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

SELECT-OPTIONS:S_EKORG FOR S012-EKORG,

S_MATNR FOR S012-MATNR,

S_WERKS FOR S012-WERKS,

S_SPMON FOR S012-SPMON,

S_SPTAG FOR S012-SPTAG,

S_SPWOC FOR S012-SPWOC,

S_SPBUP FOR S012-SPBUP,

S_BASME FOR S012-BASME.

SELECTION-SCREEN END OF BLOCK BLK1 .

START-OF-SELECTION.

***Performing Goods Information***

PERFORM FETCH_DATA.

PERFORM DISPLAY_DATA.

perform build_sort.

END-OF-SELECTION.

perform list_display.

&&& Fetch Data &&&**

&----

*& Form FETCH_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM FETCH_DATA .

REFRESH GT_GOODS.

CLEAR GT_GOODS.

SELECT EKORG MATNR WERKS SPMON SPTAG SPWOC SPBUP BASME WEMNG FROM S012 INTO TABLE GT_GOODS WHERE EKORG IN S_EKORG

AND MATNR IN S_MATNR

AND WERKS IN S_WERKS

AND SPMON IN S_SPMON

AND SPTAG IN S_SPTAG

AND SPWOC IN S_SPWOC

AND SPBUP IN S_SPBUP

AND BASME IN S_BASME.

ENDFORM. " FETCH_DATA

&----

*& Form DISPLAY_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM DISPLAY_DATA .

w_fldcat-fieldname = 'EKORG'.

*w_fldcat-ref_tabname = 'S012'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 1.

w_fldcat-seltext_s = 'Purchase Org'.

w_fldcat-seltext_l = 'Purchase Organisation'.

w_fldcat-OUTPUTLEN = '30'.

*w_fldcat-FIX_COLUMN = 'X' .

*w_fldcat-OUTPUTLEN = 'X' .

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'MATNR'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 2.

w_fldcat-seltext_s = 'Materail no'.

w_fldcat-seltext_l = 'Material Number'.

w_fldcat-OUTPUTLEN = '30'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'WERKS'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 3.

w_fldcat-seltext_s = 'Plant'.

w_fldcat-seltext_l = 'Plant'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'SPMON'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 4.

w_fldcat-seltext_s = 'Month'.

w_fldcat-seltext_l = 'Month'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'SPTAG'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 5.

w_fldcat-seltext_s = 'Date'.

w_fldcat-seltext_l = 'Date'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'SPWOC'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 6.

w_fldcat-seltext_s = 'Week'.

w_fldcat-seltext_l = 'Week'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'SPBUP'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 7.

w_fldcat-seltext_s = 'Period'.

w_fldcat-seltext_l = 'Period'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'BASME'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 8.

w_fldcat-seltext_s = 'Unit'.

w_fldcat-seltext_l = 'Unit'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'WEMNG'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 9.

w_fldcat-do_sum = 'X'.

w_fldcat-no_zero = 'X'.

w_fldcat-seltext_s = 'Quantity of Goods Recieved'.

w_fldcat-seltext_l ='Quantity of Goods Recieved'.

w_fldcat-OUTPUTLEN = '30'.

append w_fldcat to i_fldcat.

clear w_fldcat.

wa_layout-subtotals_text = 'Sub Totals'.

wa_LAYOUT-TOTALS_TEXT = 'TOTAL'.

*SORT GT_GOODS BY EKORG..

*LOOP AT GT_GOODS.

*AT FIRST.

*WRITE:/ 'Purchasing Organisation',

*50 'Material Number',

*70 'Plant',

*90 'Month',

*100 'Current Date',

*130 'Week',

*179 'Gr Account'.

*ENDAT.

*AT NEW EKORG.

*WRITE:/ GT_GOODS-EKORG.

*ENDAT.

*WRITE:/50 GT_GOODS-MATNR,

*70 GT_GOODS-WERKS,

*90 GT_GOODS-SPMON,

*100 GT_GOODS-SPTAG,

*130 GT_GOODS-SPWOC,

*160 GT_GOODS-SPBUP,

*170 GT_GOODS-WEMNG.

**TOTAL = TOTAL + GT_GOODS-WEWRT.

*AT END OF EKORG.

*sum .

*ULINE.

*WRITE:110 'TOTAL = ', gt_goods-WEMNG no-zero.

*ULINE.

*SKIP.

*CLEAR TOTAL.

*ENDAT.

*ENDLOOP.

ENDFORM. " DISPLAY_DATA

&----

*& Form build_sort

&----

FORM build_sort .

wa_sort-fieldname = 'EKORG'.

wa_sort-up = 'X'.

wa_sort-subtot = 'X'.

append wa_sort to i_sort.

ENDFORM. " build_sort

&----

*& Form list_display

&----

FORM list_display .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = sy-repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '

I_GRID_TITLE = 'GOODS RECIEPT'

I_GRID_SETTINGS =

IS_LAYOUT = wa_layout

IT_FIELDCAT = i_fldcat

IT_EXCLUDING =
IT_SPECIAL_GROUPS =

IT_SORT = i_sort

IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = GT_GOODS

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = sy-repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =

IS_LAYOUT = wa_layout
IT_FIELDCAT = i_fldcat

IT_EXCLUDING =
IT_SPECIAL_GROUPS =

IT_SORT = i_sort

IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IR_SALV_LIST_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES
T_OUTTAB = GT_GOODS

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

*IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

*ENDIF.

ENDFORM. " list_display

Re: Report modification

Former Member — Mon, 14 Apr 2008 14:40:50 GMT

Hi,

Yes, it is possible to add a column/field to existing the report output internal table.

You need to do as below:

1. Declare new field to existing final internal table.

2. Once all the data is populated to final internal table you below code:


loop at gt_final.

   new_field = "Do your calucation.
   modify gt_final.
   clear gt_final.

endloop.

Thanks,

Sriram Ponna.

Re: Report modification

Former Member — Mon, 14 Apr 2008 14:45:35 GMT

Hi pls check this code and pls telll me

REPORT ZTRST1.

&----

*& Report ZTRST

&----

*REPORT ZTRST no standard page heading line-size 200 line-count 200.

&&&& Tables Declaration &&&& *

Tables:S012.

type-pools: slis.

data: i_fldcat type slis_t_fieldcat_alv,

w_fldcat type slis_fieldcat_alv,

i_sort TYPE slis_t_sortinfo_alv,

wa_sort TYPE slis_sortinfo_alv,

wa_layout TYPE slis_layout_alv.

*data : ls_layout TYPE slis_layout_alv.

*ls_layout-colwidth_optimize = 'X'.

&&&&& Internal Table Declaration &&&&&

DATA:BEGIN OF GT_GOODS OCCURS 0,

EKORG LIKE S012-EKORG,

MATNR LIKE S012-MATNR,

WERKS LIKE S012-WERKS,

SPMON LIKE S012-SPMON,

SPTAG LIKE S012-SPTAG,

SPWOC LIKE S012-SPWOC,

SPBUP LIKE S012-SPBUP,

BASME LIKE S012-BASME,

WEMNG LIKE S012-WEMNG,

END OF GT_GOODS.

DATA:TOTAL LIKE VBAP-NETPR.

* &&&& SELECTION SCREEN &&&&& * *

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

SELECT-OPTIONS:S_EKORG FOR S012-EKORG,

S_MATNR FOR S012-MATNR,

S_WERKS FOR S012-WERKS,

S_SPMON FOR S012-SPMON,

S_SPTAG FOR S012-SPTAG,

S_SPWOC FOR S012-SPWOC,

S_SPBUP FOR S012-SPBUP,

S_BASME FOR S012-BASME.

SELECTION-SCREEN END OF BLOCK BLK1 .

START-OF-SELECTION.

***Performing Goods Information***

PERFORM FETCH_DATA.

PERFORM DISPLAY_DATA.

perform build_sort.

END-OF-SELECTION.

perform list_display.

&&& Fetch Data &&&**

&----

*& Form FETCH_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM FETCH_DATA .

REFRESH GT_GOODS.

CLEAR GT_GOODS.

SELECT EKORG MATNR WERKS SPMON SPTAG SPWOC SPBUP BASME WEMNG FROM S012 INTO TABLE GT_GOODS WHERE EKORG IN S_EKORG

AND MATNR IN S_MATNR

AND WERKS IN S_WERKS

AND SPMON IN S_SPMON

AND SPTAG IN S_SPTAG

AND SPWOC IN S_SPWOC

AND SPBUP IN S_SPBUP

AND BASME IN S_BASME.

ENDFORM. " FETCH_DATA

&----

*& Form DISPLAY_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM DISPLAY_DATA .

w_fldcat-fieldname = 'EKORG'.

*w_fldcat-ref_tabname = 'S012'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 1.

w_fldcat-seltext_s = 'Purchase Org'.

w_fldcat-seltext_l = 'Purchase Organisation'.

w_fldcat-OUTPUTLEN = '30'.

*w_fldcat-FIX_COLUMN = 'X' .

*w_fldcat-OUTPUTLEN = 'X' .

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'MATNR'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 2.

w_fldcat-seltext_s = 'Materail no'.

w_fldcat-seltext_l = 'Material Number'.

w_fldcat-OUTPUTLEN = '30'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'WERKS'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 3.

w_fldcat-seltext_s = 'Plant'.

w_fldcat-seltext_l = 'Plant'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'SPMON'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 4.

w_fldcat-seltext_s = 'Month'.

w_fldcat-seltext_l = 'Month'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'SPTAG'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 5.

w_fldcat-seltext_s = 'Date'.

w_fldcat-seltext_l = 'Date'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'SPWOC'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 6.

w_fldcat-seltext_s = 'Week'.

w_fldcat-seltext_l = 'Week'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'SPBUP'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 7.

w_fldcat-seltext_s = 'Period'.

w_fldcat-seltext_l = 'Period'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'BASME'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 8.

w_fldcat-seltext_s = 'Unit'.

w_fldcat-seltext_l = 'Unit'.

append w_fldcat to i_fldcat.

clear w_fldcat.

w_fldcat-fieldname = 'WEMNG'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 9.

w_fldcat-do_sum = 'X'.

w_fldcat-no_zero = 'X'.

w_fldcat-seltext_s = 'Quantity of Goods Recieved'.

w_fldcat-seltext_l ='Quantity of Goods Recieved'.

w_fldcat-OUTPUTLEN = '30'.

append w_fldcat to i_fldcat.

clear w_fldcat.

wa_layout-subtotals_text = 'Sub Totals'.

wa_LAYOUT-TOTALS_TEXT = 'TOTAL'.

*SORT GT_GOODS BY EKORG..

*LOOP AT GT_GOODS.

*AT FIRST.

*WRITE:/ 'Purchasing Organisation',

*50 'Material Number',

*70 'Plant',

*90 'Month',

*100 'Current Date',

*130 'Week',

*179 'Gr Account'.

*ENDAT.

*AT NEW EKORG.

*WRITE:/ GT_GOODS-EKORG.

*ENDAT.

*WRITE:/50 GT_GOODS-MATNR,

*70 GT_GOODS-WERKS,

*90 GT_GOODS-SPMON,

*100 GT_GOODS-SPTAG,

*130 GT_GOODS-SPWOC,

*160 GT_GOODS-SPBUP,

*170 GT_GOODS-WEMNG.

**TOTAL = TOTAL + GT_GOODS-WEWRT.

*AT END OF EKORG.

*sum .

*ULINE.

*WRITE:110 'TOTAL = ', gt_goods-WEMNG no-zero.

*ULINE.

*SKIP.

*CLEAR TOTAL.

*ENDAT.

*ENDLOOP.

ENDFORM. " DISPLAY_DATA

&----

*& Form build_sort

&----

FORM build_sort .

wa_sort-fieldname = 'EKORG'.

wa_sort-up = 'X'.

wa_sort-subtot = 'X'.

append wa_sort to i_sort.

ENDFORM. " build_sort

&----

*& Form list_display

&----

FORM list_display .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = sy-repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '

I_GRID_TITLE = 'GOODS RECIEPT'

I_GRID_SETTINGS =

IS_LAYOUT = wa_layout

IT_FIELDCAT = i_fldcat

IT_EXCLUDING =
IT_SPECIAL_GROUPS =

IT_SORT = i_sort

IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = GT_GOODS

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = sy-repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =

IS_LAYOUT = wa_layout
IT_FIELDCAT = i_fldcat

IT_EXCLUDING =
IT_SPECIAL_GROUPS =

IT_SORT = i_sort

IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IR_SALV_LIST_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES
T_OUTTAB = GT_GOODS

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

*IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

*ENDIF.

ENDFORM. " list_display

Re: Report modification

Former Member — Mon, 14 Apr 2008 14:51:53 GMT

Hi,

next to this statement in your code :

w_fldcat-fieldname = 'WEMNG'.

w_fldcat-tabname = 'GT_GOODS'.

w_fldcat-col_pos = 9.

w_fldcat-do_sum = 'X'.

w_fldcat-no_zero = 'X'.

w_fldcat-seltext_s = 'Quantity of Goods Recieved'.

w_fldcat-seltext_l ='Quantity of Goods Recieved'.

w_fldcat-OUTPUTLEN = '30'.

append w_fldcat to i_fldcat.

you need to add your two new column's field name .

Before you do that you ahve to create two columns in your internal table and need to populate the value for those two fields.

Thanks,

Greetson

Re: Report modification

Former Member — Mon, 14 Apr 2008 14:56:27 GMT

i NEED TO MULTIPLY FILEDS FROM TABLE S012 AND MARM.

MARM-UMREN * S012-WMENG.

and i need to add this resullt to a new column

Pls help me

Sincerely

JAYALAKSSHMY

Re: Report modification

Former Member — Mon, 14 Apr 2008 15:11:29 GMT

Hi,

In your current selection query :

SELECT EKORG MATNR WERKS SPMON SPTAG SPWOC SPBUP BASME WEMNG FROM S012 INTO TABLE GT_GOODS WHERE EKORG IN S_EKORG

AND MATNR IN S_MATNR

AND WERKS IN S_WERKS

AND SPMON IN S_SPMON

AND SPTAG IN S_SPTAG

AND SPWOC IN S_SPWOC

AND SPBUP IN S_SPBUP

AND BASME IN S_BASME.

You need to add the inner join statement and add the where clause to MARM table and get the field value for the field MARM-UMREN also then do the calculation for MARM-UMREN * S012-WMENG.

Hope this helps.

Thanks,

Greetson

Re: Report modification

Former Member — Mon, 14 Apr 2008 15:13:03 GMT

<REMOVED BY MODERATOR>

Greetson

Edited by: Alvaro Tejada Galindo on Apr 14, 2008 11:14 AM