topic Re: macro_cell_data_get in Application Development and Automation Discussions

macro_cell_data_get

Former Member — Mon, 09 Jul 2007 09:27:53 GMT

I am havin a problrm with this report so anyone who can help please do so....it displays a funny runtime error(macro_cell_data_get)

i am not sure what to do, i have seen that Thimoty has the same problem, please help me out guys....

REPORT Z_DAILY_STOCK_NEW.

TYPE-POOLS: SLIS.

----

TABLES

----

TABLES: vbrk, kna1,vbrp,vbap,vbak.

----

ALV FIELDS

----

DATA: it_fieldcat TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

wa_fieldcat TYPE slis_fieldcat_alv.

DATA w_cnt LIKE sy-tabix.

DATA: gr_layout TYPE slis_layout_alv,

gr_tab_group TYPE slis_t_sp_group_alv,

gr_repid LIKE sy-repid,

gr_events TYPE slis_t_event,

gr_print TYPE slis_print_alv,

gr_user TYPE slis_formname VALUE 'USER_COMMAND'.

----

SELECTION SCREEN

----

SELECT-OPTIONS:

s_werks FOR vbrp-werks,

s_auart FOR vbak-auart.

----

DEFINITION OF THE INTERNAL TABLE

----

DATA: begin of i_stocktab occurs 0,

kunag LIKE vbrk-kunag,

name1 LIKE kna1-name1,

ort01 LIKE kna1-ort01,

inco1 LIKE vbrk-inco1,

vkgrp LIKE vbrp-vkgrp,

fkimg LIKE vbrp-fkimg,

netwr LIKE vbrk-netwr,

end of i_stocktab.

----

START OF SELECTION

----

SELECT vbrk_{kunag kna1}name1 kna1_{ort01 vbrk}inco1 vbrp~vkgrp

vbrp_{fkimg vbrk}netwr

FROM kna1 inner join vbrk on kna1_{kunnr EQ vbrk}kunrg

inner join vbak on kna1_{kunnr EQ vbak}kunnr

inner join vbrp on vbrk_{vbeln EQ vbrp}vbeln

INTO i_stocktab

WHERE vbrp~werks IN s_werks

AND vbak~auart IN s_auart.

APPEND i_stocktab.

ENDSELECT.

&----

*& CALCULATING THE TOTAL FOR NETWR AND FKIMG

&----

*LOOP AT it_fieldcat into wa_fieldcat

WHERE fieldname EQ 'FKIMG' OR
fieldname EQ 'NETWR'.
wa_fieldcat-do_sum = 'X'.
wa_fieldcat-datatype = 'QUAT'.
modify it_fieldcat from wa_fieldcat.

*ENDLOOP.

PERFORM build_fieldcatalog.

PERFORM build_layout.

*PERFORM build_print.

PERFORM build_event.

*PERFORM alv_merge.

PERFORM display_alv_report.

FORM build_fieldcatalog.

w_cnt = 1.

it_fieldcat-fieldname = 'kunag'.

it_fieldcat-seltext_m = 'Soldtp'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

it_fieldcat-key = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'name1'.

it_fieldcat-seltext_m = 'Name'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'ort01'.

it_fieldcat-seltext_m = 'City'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'inco1'.

it_fieldcat-seltext_m = 'Incoterms'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'vkgrp'.

it_fieldcat-seltext_m = 'Sales Group'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'fkimg'.

it_fieldcat-seltext_m = 'Invoiced Qty'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'netwr'.

it_fieldcat-seltext_m = 'Invoiced Value'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

ENDFORM.

FORM build_layout.

gr_layout-no_input = 'X'.

gr_layout-colwidth_optimize = 'X'.

gr_layout-totals_text = 'Totals'(201).

gr_layout-detail_popup = 'X'.

ENDFORM.

FORM build_event.

DATA i_event TYPE slis_alv_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = gr_events[].

READ TABLE gr_events WITH KEY name = slis_ev_user_command

INTO i_event.

if sy-subrc = 0.

MOVE gr_user TO i_event-form.

APPEND i_event TO gr_events.

endif.

ENDFORM.

*FORM build_print.

gr_print-reserve_lines = '2'.
gr_print-no_coverpage = 'X'.

*ENDFORM.

&----

*& FUNCTION ALV DISPLAY

&----

FORM display_alv_report.

gr_repid = sy-repid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = gr_repid

I_CALLBACK_USER_COMMAND = slis_ev_user_command

I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE' " see FORM

IS_LAYOUT = gr_layout

IT_FIELDCAT = it_fieldcat[]

IT_SPECIAL_GROUPS = gr_tab_group

I_SAVE = 'X'

IT_EVENTS = gr_events

IS_PRINT = gr_print

TABLES

t_outtab = i_stocktab[]

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

IF sy-subrc <> 0.

ENDIF.

ENDFORM.

FORM top-of-page.

*ALV Header deaclarations

DATA: t_header TYPE slis_t_listheader,

wa_header TYPE slis_listheader,

t_line LIKE wa_header-info,

ld_lines TYPE i,

ld_linesc TYPE c.

*Title

wa_header-typ = 'H'.

wa_header-info = 'Daily Stock: Report'.

APPEND wa_header TO t_header.

CLEAR wa_header.

*Total No. Records Selected

DESCRIBE TABLE t_alv LINES ld_lines.

ld_linesc = ld_lines.

CONCATENATE 'Total No. of Records Selected:' ld_linesc

INTO t_line SEPARATED BY space.

wa_header-typ = 'A'.

wa_header-info = t_line.

APPEND wa_header TO t_header.

CLEAR: wa_header, t_line.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = t_header.

ENDFORM.

Re: macro_cell_data_get

Former Member — Mon, 09 Jul 2007 10:27:53 GMT

Hi Fred... Ur problem is solved..

when u r appending data to it_fieldcat.

then give

it_fieldcat-fieldname = 'KUNAG'. not it_fieldcat-fieldname = 'kunag'.

It should be in capital...

Reward me full points if problem solved...

all fieldname should be in capital

Re: macro_cell_data_get

Former Member — Mon, 09 Jul 2007 10:31:10 GMT

Hi,

Check that fields defined in the field catalog routine are in the same order as defined in the structure/internal table being used to pass the ALV function module.

They need to be in the same sequence

<b>Reward points</b>

Regards

Re: macro_cell_data_get

Former Member — Mon, 09 Jul 2007 10:44:25 GMT

This is corrected one.

Alwyas define field name in capital letter while appending to fieldcatalog.

TYPE-POOLS: SLIS.

----

TABLES

----

TABLES: vbrk, kna1,vbrp,vbap,vbak.

*----

ALV FIELDS

*----

DATA: it_fieldcat TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

wa_fieldcat TYPE slis_fieldcat_alv.

DATA w_cnt LIKE sy-tabix.

DATA: gr_layout TYPE slis_layout_alv,

gr_tab_group TYPE slis_t_sp_group_alv,

gr_repid LIKE sy-repid,

gr_events TYPE slis_t_event,

gr_print TYPE slis_print_alv,

gr_user TYPE slis_formname VALUE 'USER_COMMAND'.

*----

SELECTION SCREEN

*----

SELECT-OPTIONS:

s_werks FOR vbrp-werks,

s_auart FOR vbak-auart.

*----

DEFINITION OF THE INTERNAL TABLE

*----

DATA: begin of i_stocktab occurs 0,

kunag LIKE vbrk-kunag,

name1 LIKE kna1-name1,

ort01 LIKE kna1-ort01,

inco1 LIKE vbrk-inco1,

vkgrp LIKE vbrp-vkgrp,

fkimg LIKE vbrp-fkimg,

netwr LIKE vbrk-netwr,

end of i_stocktab.

*----

START OF SELECTION

*----

SELECT vbrk_{kunag kna1}name1 kna1_{ort01 vbrk}inco1 vbrp~vkgrp

vbrp_{fkimg vbrk}netwr

FROM kna1 inner join vbrk on kna1_{kunnr EQ vbrk}kunrg

inner join vbak on kna1_{kunnr EQ vbak}kunnr

inner join vbrp on vbrk_{vbeln EQ vbrp}vbeln

INTO i_stocktab

WHERE vbrp~werks IN s_werks

AND vbak~auart IN s_auart.

APPEND i_stocktab.

ENDSELECT.

*&----

**& CALCULATING THE TOTAL FOR NETWR AND FKIMG

**&----

---

*LOOP AT it_fieldcat into wa_fieldcat

WHERE fieldname EQ 'FKIMG' OR
fieldname EQ 'NETWR'.
wa_fieldcat-do_sum = 'X'.
wa_fieldcat-datatype = 'QUAT'.
modify it_fieldcat from wa_fieldcat.

*ENDLOOP.

PERFORM build_fieldcatalog.

PERFORM build_layout.

*PERFORM build_print.

PERFORM build_event.

*PERFORM alv_merge.

PERFORM display_alv_report.

FORM build_fieldcatalog.

w_cnt = 1.

it_fieldcat-fieldname = 'KUNAG'.

it_fieldcat-seltext_m = 'Soldtp'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

it_fieldcat-key = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'NAME1'.

it_fieldcat-seltext_m = 'Name'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'ORT01'.

it_fieldcat-seltext_m = 'City'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'INCO1'.

it_fieldcat-seltext_m = 'Incoterms'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'VKGRP'.

it_fieldcat-seltext_m = 'Sales Group'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'FKIMG'.

it_fieldcat-seltext_m = 'Invoiced Qty'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'NETWR'.

it_fieldcat-seltext_m = 'Invoiced Value'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

ENDFORM.

FORM build_layout.

gr_layout-no_input = 'X'.

gr_layout-colwidth_optimize = 'X'.

gr_layout-totals_text = 'Totals'(201).

gr_layout-detail_popup = 'X'.

ENDFORM.

FORM build_event.

DATA i_event TYPE slis_alv_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = gr_events[].

READ TABLE gr_events WITH KEY name = slis_ev_user_command

INTO i_event.

if sy-subrc = 0.

MOVE gr_user TO i_event-form.

APPEND i_event TO gr_events.

endif.

ENDFORM.

*FORM build_print.

gr_print-reserve_lines = '2'.
gr_print-no_coverpage = 'X'.

*ENDFORM.

*&----

---

**& FUNCTION ALV DISPLAY

**&----

----

FORM display_alv_report.

gr_repid = sy-repid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = gr_repid

I_CALLBACK_USER_COMMAND = slis_ev_user_command

I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE' " see FORM

IS_LAYOUT = gr_layout

IT_FIELDCAT = it_fieldcat[]

IT_SPECIAL_GROUPS = gr_tab_group

I_SAVE = 'X'

IT_EVENTS = gr_events

IS_PRINT = gr_print

TABLES

t_outtab = i_stocktab[]

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

IF sy-subrc <> 0.

ENDIF.

ENDFORM.

FORM top-of-page.

*ALV Header deaclarations

DATA: t_header TYPE slis_t_listheader,

wa_header TYPE slis_listheader,

t_line LIKE wa_header-info,

ld_lines TYPE i,

ld_linesc TYPE c.

*Title

wa_header-typ = 'H'.

wa_header-info = 'Daily Stock: Report'.

APPEND wa_header TO t_header.

CLEAR wa_header.

*Total No. Records Selected

DESCRIBE TABLE t_alv LINES ld_lines.

ld_linesc = ld_lines.

CONCATENATE 'Total No. of Records Selected:' ld_linesc

INTO t_line SEPARATED BY space.

wa_header-typ = 'A'.

wa_header-info = t_line.

APPEND wa_header TO t_header.

CLEAR: wa_header, t_line.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = t_header.

ENDFORM.

Re: macro_cell_data_get

Former Member — Mon, 09 Jul 2007 12:20:19 GMT

now i need help on how to calculate the totals for netwr and fkimg........and the number of hits does not display......so please help me out! Thank your for the input..here is the coding of my program:

REPORT Z_DAILY_STOCK_NEW.

TYPE-POOLS: SLIS.

----

TABLES

----

TABLES: vbrk, kna1,vbrp,vbap,vbak.

----

ALV FIELDS

----

DATA: it_fieldcat TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

wa_fieldcat TYPE slis_fieldcat_alv.

DATA: w_cnt LIKE sy-tabix.

total ref to data.
t_alv LIKE TABLE OF s_error WITH HEADER LINE.

DATA: gr_layout TYPE slis_layout_alv,

gr_tab_group TYPE slis_t_sp_group_alv,

gr_repid LIKE sy-repid,

gr_events TYPE slis_t_event,

gr_print TYPE slis_print_alv,

gr_user TYPE slis_formname VALUE 'USER_COMMAND'.

----

SELECTION SCREEN

----

SELECT-OPTIONS:

s_werks FOR vbrp-werks,

s_auart FOR vbak-auart.

----

DEFINITION OF THE INTERNAL TABLE

----

DATA: begin of i_stocktab occurs 0,

kunag LIKE vbrk-kunag,

name1 LIKE kna1-name1,

ort01 LIKE kna1-ort01,

inco1 LIKE vbrk-inco1,

vkgrp LIKE vbrp-vkgrp,

fkimg LIKE vbrp-fkimg,

netwr LIKE vbrk-netwr,

end of i_stocktab.

----

START OF SELECTION

----

SELECT vbrk_{kunag kna1}name1 kna1_{ort01 vbrk}inco1 vbrp~vkgrp

vbrp_{fkimg vbrk}netwr

FROM kna1 inner join vbrk on kna1_{kunnr EQ vbrk}kunrg

inner join vbak on kna1_{kunnr EQ vbak}kunnr

inner join vbrp on vbrk_{vbeln EQ vbrp}vbeln

INTO i_stocktab

WHERE vbrp~werks IN s_werks

AND vbak~auart IN s_auart.

APPEND i_stocktab.

ENDSELECT.

PERFORM build_fieldcatalog.

PERFORM build_layout.

PERFORM build_event.

PERFORM display_alv_report.

&----

FORM build_fieldcatalog.

&----

w_cnt = 1.

it_fieldcat-fieldname = 'KUNAG'.

it_fieldcat-seltext_m = 'Soldtp'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

it_fieldcat-key = 'x'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'NAME1'.

it_fieldcat-seltext_m = 'Name'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'ORT01'.

it_fieldcat-seltext_m = 'City'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'INC01'.

it_fieldcat-seltext_m = 'Incoterms'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'VKGRP'.

it_fieldcat-seltext_m = 'Sales Group'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'FKIMG'.

it_fieldcat-seltext_m = 'Invoiced Qty'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

it_fieldcat-do_sum = 'FKIMG' .

"to calculate the sum

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

w_cnt = w_cnt + 1.

it_fieldcat-fieldname = 'NETWR'.

it_fieldcat-seltext_m = 'Invoiced Value'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

ENDFORM.

&----

FORM build_layout.

&----

gr_layout-no_input = 'X'.

gr_layout-colwidth_optimize = 'X'.

gr_layout-totals_text = 'Totals: '(201).

gr_layout-detail_popup = 'X'.

ENDFORM.

&----

FORM build_event.

&----

DATA i_event TYPE slis_alv_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = gr_events[].

READ TABLE gr_events WITH KEY name = slis_ev_user_command

INTO i_event.

if sy-subrc = 0.

MOVE gr_user TO i_event-form.

APPEND i_event TO gr_events.

endif.

ENDFORM.

&----

FORM calc_total.

&----

LOOP AT it_fieldcat into wa_fieldcat

WHERE fieldname EQ 'FKIMG' OR

fieldname EQ 'NETWR'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-datatype = 'QUAT'.

modify it_fieldcat from wa_fieldcat.

ENDLOOP.

ENDFORM.

&----

*& FUNCTION ALV DISPLAY

&----

FORM display_alv_report.

gr_repid = sy-repid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = gr_repid

I_CALLBACK_USER_COMMAND = slis_ev_user_command

I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE' " see FORM

IS_LAYOUT = gr_layout

IT_FIELDCAT = it_fieldcat[]

IT_SPECIAL_GROUPS = gr_tab_group

I_SAVE = 'X'

IT_EVENTS = gr_events

IS_PRINT = gr_print

TABLES

t_outtab = i_stocktab

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

IF sy-subrc <> 0.

ENDIF.

ENDFORM.

&----

FORM top-of-page.

&----

*ALV Header deaclarations

DATA: t_header TYPE slis_t_listheader,

wa_header TYPE slis_listheader,

t_line LIKE wa_header-info,

ld_lines TYPE i,

ld_linesc TYPE c.

*Title

wa_header-typ = 'H'.

wa_header-info = 'Report for daily Stock Returns'.

APPEND wa_header TO t_header.

CLEAR wa_header.

*Total No. Records Selected

ld_linesc = ld_lines.

CONCATENATE 'Total No. of Records Selected:' ld_linesc

INTO t_line SEPARATED BY space.

wa_header-typ = 'A'.

wa_header-info = t_line.

APPEND wa_header TO t_header.

CLEAR: wa_header, t_line.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = t_header.

ENDFORM.

Message was edited by:

Fred Mogaadile

Re: macro_cell_data_get

Former Member — Mon, 09 Jul 2007 12:43:22 GMT

Do like this

it_fieldcat-fieldname = 'NETWR'.

it_fieldcat-seltext_m = 'Invoiced Value'.

it_fieldcat-col_pos = w_cnt.

it_fieldcat-emphasize = 'X'.

it_fieldcat-do_sum = 'x' . "to calculate the sum

APPEND it_fieldcat TO it_fieldcat.

CLEAR it_fieldcat.

Re: macro_cell_data_get

Former Member — Mon, 09 Jul 2007 13:08:35 GMT

Hi Mohit,

After making the changes you suggested it gave me a runtime error:

if sy-subrc ne 0.

message x000(0k).

endif.

I'm still not sure what to do.....