Report modification

[Former Member]

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

[Former Member]

Yes . It is possible.

Thanks,

Greetson

[Former Member]

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

[Former Member]

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.

[Former Member]

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

[Former Member]

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

[Former Member]

Hi

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

[Former Member]

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

[Former Member]

<REMOVED BY MODERATOR>

Greetson

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