topic Re: alv problem in Application Development and Automation Discussions

alv problem

Former Member — Tue, 02 Jan 2007 05:18:35 GMT

Hi,

I am getting one problem in hierarchical alv report.

The output is coming fine but while pressing the + button it won't show the details of item.

Plz have a look & reply me asap.

REPORT z_alv .

*TYPE POOLS

TYPE-POOLS: slis.

TABLES: kna1,

vbak,

vbap.

DATA: BEGIN OF ty_data,

kunnr LIKE kna1-kunnr,

name1 LIKE kna1-name1,

gv_netwr LIKE vbap-netwr,

vbeln LIKE vbak-vbeln,

matnr LIKE vbap-matnr,

kwmeng LIKE vbap-kwmeng,

netwr LIKE vbap-netwr,

erdat LIKE vbak-erdat,

END OF ty_data.

DATA: gt_data LIKE TABLE OF ty_data,

gs_data LIKE LINE OF gt_data.

DATA: BEGIN OF ty_header,

kunnr LIKE kna1-kunnr,

name1 LIKE kna1-name1,

gv_netwr LIKE vbak-netwr,

exp TYPE c,

END OF ty_header.

DATA: gt_header LIKE TABLE OF ty_header,

gs_header LIKE LINE OF gt_header.

DATA: BEGIN OF ty_item,

vbeln LIKE vbak-vbeln,

matnr LIKE vbap-matnr,

kwmeng LIKE vbap-kwmeng,

netwr LIKE vbap-netwr,

kunnr LIKE vbak-kunnr,

END OF ty_item.

DATA: gt_item LIKE TABLE OF ty_item,

gs_item LIKE LINE OF gt_item.

***alv data declaration

DATA: gs_fieldcat TYPE slis_fieldcat_alv,

gt_fieldcat TYPE slis_t_fieldcat_alv,

gs_layout TYPE slis_layout_alv,

gt_event TYPE slis_t_event,

gv_repid LIKE sy-repid,

gs_tab_header TYPE slis_tabname,

gs_tab_item TYPE slis_tabname,

gs_keyinfo TYPE slis_keyinfo_alv.

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

SELECT-OPTIONS: s_erdat FOR vbak-erdat,

s_kunnr FOR kna1-kunnr.

SELECTION-SCREEN END OF BLOCK b1.

INITIALIZATION.

gv_repid = sy-repid.

PERFORM layout CHANGING gs_layout.

PERFORM build_events USING gt_event.

PERFORM fieldcatalog.

PERFORM define_key.

START-OF-SELECTION.

PERFORM dataselect.

END-OF-SELECTION.

PERFORM display_output.

&----

*& Form DATASELECT

&----

text

----

--> p1 text
<-- p2 text

----

FORM dataselect .

DATA: lv_netwr LIKE vbap-netwr.

lv_netwr = 0.

SELECT a~kunnr

a~name1

b~vbeln

c~netwr

c~matnr

c~kwmeng

FROM kna1 AS a

INNER JOIN vbak AS b

ON a_{kunnr = b}kunnr

INNER JOIN vbap AS c

ON b_{vbeln = c}vbeln

INTO CORRESPONDING FIELDS OF TABLE gt_data

WHERE b~erdat IN s_erdat

AND a~kunnr IN s_kunnr.

IF sy-subrc = 0.

SORT gt_data BY kunnr.

LOOP AT gt_data INTO gs_data.

lv_netwr = lv_netwr + gs_data-netwr.

AT END OF kunnr.

gs_data-gv_netwr = lv_netwr.

MODIFY gt_data FROM gs_data TRANSPORTING gv_netwr WHERE kunnr = gs_data-kunnr.

CLEAR lv_netwr.

ENDAT.

ENDLOOP.

LOOP AT gt_data INTO gs_data.

*for header

MOVE gs_data-kunnr TO gs_header-kunnr.

MOVE gs_data-name1 TO gs_header-name1.

MOVE gs_data-gv_netwr TO gs_header-gv_netwr.

APPEND gs_header TO gt_header.

CLEAR gs_header.

*for item

MOVE gs_data-vbeln TO gs_item-vbeln.

MOVE gs_data-matnr TO gs_item-matnr.

MOVE gs_data-kwmeng TO gs_item-kwmeng.

MOVE gs_data-netwr TO gs_item-netwr.

APPEND gs_item TO gt_item.

CLEAR gs_item.

ENDLOOP.

DELETE ADJACENT DUPLICATES FROM gt_header COMPARING kunnr.

ELSE.

MESSAGE e001(zmsg).

ENDIF.

ENDFORM. " DATASELECT

&----

*& Form LAYOUT

&----

text

----

<--P_GS_LAYOUT text

----

FORM layout CHANGING p_gs_layout TYPE slis_layout_alv.

CLEAR p_gs_layout.

p_gs_layout-colwidth_optimize = 'X'.

p_gs_layout-expand_fieldname = 'EXP'.

ENDFORM. " LAYOUT

&----

*& Form FIELDCATALOG

&----

text

----

--> p1 text
<-- p2 text

----

FORM fieldcatalog .

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'KUNNR'.

gs_fieldcat-tabname = 'GT_HEADER'.

gs_fieldcat-seltext_m = 'Customer No'.

APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'NAME1'.

gs_fieldcat-tabname = 'GT_HEADER'.

gs_fieldcat-seltext_m = 'Customer Name'.

APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'GV_NETWR'.

gs_fieldcat-tabname = 'GT_HEADER'.

gs_fieldcat-seltext_m = 'Total Order Value'.

APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'VBELN'.

gs_fieldcat-tabname = 'GT_ITEM'.

gs_fieldcat-seltext_m = 'Sales Order'.

APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'MATNR'.

gs_fieldcat-tabname = 'GT_ITEM'.

gs_fieldcat-seltext_m = 'Material'.

APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'KWMENG'.

gs_fieldcat-tabname = 'GT_ITEM'.

gs_fieldcat-seltext_m = 'Order Qty'.

APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'NETWR'.

gs_fieldcat-tabname = 'GT_ITEM'.

gs_fieldcat-seltext_m = 'Net Value'.

APPEND gs_fieldcat TO gt_fieldcat.

ENDFORM. " FIELDCATALOG

&----

*& Form display_output

&----

text

----

--> p1 text
<-- p2 text

----

FORM display_output .

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

i_callback_program = gv_repid

is_layout = gs_layout

it_fieldcat = gt_fieldcat

IT_EVENT_EXIT =

it_events = gt_event[]

i_tabname_header = 'GT_HEADER'

i_tabname_item = 'GT_ITEM'

is_keyinfo = gs_keyinfo

IMPORTING

TABLES

t_outtab_header = gt_header[]

t_outtab_item = gt_item[]

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. " display_output

&----

*& Form define_key

&----

text

----

--> p1 text
<-- p2 text

----

FORM define_key .

CLEAR gs_keyinfo.

gs_keyinfo-header01 = 'KUNNR'.

gs_keyinfo-item01 = 'KUNNR'.

ENDFORM. " define_key

&----

*& Form BUILD_EVENTS

&----

text

----

-->P_GT_EVENT text

----

FORM build_events USING lt_events TYPE slis_t_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = lt_events

EXCEPTIONS

list_type_wrong = 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. " BUILD_EVENTS

Re: alv problem

Former Member — Tue, 02 Jan 2007 05:24:06 GMT

Hi Neha ,

You need to define subroutines which need to be triggered each time the event is triggered.

Just debug the prorgram and see the content of the table which is outputed by the FM 'REUSE_ALV_EVENTS_GET' , the table lt_events will contain two fields one for the event and second for the subroutine that needs to be triggered when the event occurs , So you need to do two things

1. Modify the table lt_events , and assign the value for subroutines.

2. Define the subroutines.

Please do the above and feel free to revert back in case you still have queries

Regards

Arun

Re: alv problem

Former Member — Tue, 02 Jan 2007 05:36:50 GMT

Hi,

You didn't move the value KUNNR to GT_ITEM..

Check the changes in bold..It is working fine for me..

TYPE-POOLS: slis.

TABLES: kna1,

vbak,

vbap.

DATA: BEGIN OF ty_data,

kunnr LIKE kna1-kunnr,

name1 LIKE kna1-name1,

gv_netwr LIKE vbap-netwr,

vbeln LIKE vbak-vbeln,

matnr LIKE vbap-matnr,

kwmeng LIKE vbap-kwmeng,

netwr LIKE vbap-netwr,

erdat LIKE vbak-erdat,

END OF ty_data.

DATA: gt_data LIKE TABLE OF ty_data,

gs_data LIKE LINE OF gt_data.

DATA: BEGIN OF ty_header,

kunnr LIKE kna1-kunnr,

name1 LIKE kna1-name1,

gv_netwr LIKE vbak-netwr,

exp TYPE c,

END OF ty_header.

DATA: gt_header LIKE TABLE OF ty_header,

gs_header LIKE LINE OF gt_header.

DATA: BEGIN OF ty_item,

vbeln LIKE vbak-vbeln,

matnr LIKE vbap-matnr,

kwmeng LIKE vbap-kwmeng,

netwr LIKE vbap-netwr,

kunnr LIKE vbak-kunnr,

END OF ty_item.

DATA: gt_item LIKE TABLE OF ty_item,

gs_item LIKE LINE OF gt_item.

***alv data declaration

DATA: gs_fieldcat TYPE slis_fieldcat_alv,

gt_fieldcat TYPE slis_t_fieldcat_alv,

gs_layout TYPE slis_layout_alv,

gt_event TYPE slis_t_event,

gv_repid LIKE sy-repid,

gs_tab_header TYPE slis_tabname,

gs_tab_item TYPE slis_tabname,

gs_keyinfo TYPE slis_keyinfo_alv.

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

SELECT-OPTIONS: s_erdat FOR vbak-erdat,

s_kunnr FOR kna1-kunnr.

SELECTION-SCREEN END OF BLOCK b1.

INITIALIZATION.

gv_repid = sy-repid.

PERFORM layout CHANGING gs_layout.

PERFORM build_events USING gt_event.

PERFORM fieldcatalog.

PERFORM define_key.

START-OF-SELECTION.

PERFORM dataselect.

END-OF-SELECTION.

PERFORM display_output.

&----

*& Form DATASELECT

&----

text

----

--> p1 text
<-- p2 text

----

FORM dataselect .

DATA: lv_netwr LIKE vbap-netwr.

lv_netwr = 0.

SELECT a~kunnr

a~name1

b~vbeln

c~netwr

c~matnr

c~kwmeng

FROM kna1 AS a

INNER JOIN vbak AS b

ON a_{kunnr = b}kunnr

INNER JOIN vbap AS c

ON b_{vbeln = c}vbeln

INTO CORRESPONDING FIELDS OF TABLE gt_data

WHERE b~erdat IN s_erdat

AND a~kunnr IN s_kunnr.

IF sy-subrc = 0.

SORT gt_data BY kunnr.

LOOP AT gt_data INTO gs_data.

lv_netwr = lv_netwr + gs_data-netwr.

AT END OF kunnr.

gs_data-gv_netwr = lv_netwr.

MODIFY gt_data FROM gs_data TRANSPORTING gv_netwr WHERE kunnr =

gs_data-kunnr.

CLEAR lv_netwr.

ENDAT.

ENDLOOP.

LOOP AT gt_data INTO gs_data.

*for header

MOVE gs_data-kunnr TO gs_header-kunnr.

MOVE gs_data-name1 TO gs_header-name1.

MOVE gs_data-gv_netwr TO gs_header-gv_netwr.

APPEND gs_header TO gt_header.

CLEAR gs_header.

*for item

MOVE gs_data-vbeln TO gs_item-vbeln.

MOVE gs_data-matnr TO gs_item-matnr.

MOVE gs_data-kwmeng TO gs_item-kwmeng.

MOVE gs_data-netwr TO gs_item-netwr.

<b>MOVE gs_data-kunnr TO gs_item-kunnr. "Naren changed</b>

APPEND gs_item TO gt_item.

CLEAR gs_item.

ENDLOOP.

DELETE ADJACENT DUPLICATES FROM gt_header COMPARING kunnr.

ELSE.

MESSAGE e001(zmsg).

ENDIF.

ENDFORM. " DATASELECT

&----

*& Form LAYOUT

&----

text

----

<--P_GS_LAYOUT text

----

FORM layout CHANGING p_gs_layout TYPE slis_layout_alv.

CLEAR p_gs_layout.

p_gs_layout-colwidth_optimize = 'X'.

p_gs_layout-expand_fieldname = 'EXP'.

ENDFORM. " LAYOUT

&----

*& Form FIELDCATALOG

&----

text

----

--> p1 text
<-- p2 text

----

FORM fieldcatalog .

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'KUNNR'.

gs_fieldcat-tabname = 'GT_HEADER'.

gs_fieldcat-seltext_m = 'Customer No'.

APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'NAME1'.

gs_fieldcat-tabname = 'GT_HEADER'.

gs_fieldcat-seltext_m = 'Customer Name'.

APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'GV_NETWR'.

gs_fieldcat-tabname = 'GT_HEADER'.

gs_fieldcat-seltext_m = 'Total Order Value'.

APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'VBELN'.

gs_fieldcat-tabname = 'GT_ITEM'.

gs_fieldcat-seltext_m = 'Sales Order'.

APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'MATNR'.

gs_fieldcat-tabname = 'GT_ITEM'.

gs_fieldcat-seltext_m = 'Material'.

APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'KWMENG'.

gs_fieldcat-tabname = 'GT_ITEM'.

gs_fieldcat-seltext_m = 'Order Qty'.

APPEND gs_fieldcat TO gt_fieldcat.

CLEAR gs_fieldcat.

gs_fieldcat-fieldname = 'NETWR'.

gs_fieldcat-tabname = 'GT_ITEM'.

gs_fieldcat-seltext_m = 'Net Value'.

APPEND gs_fieldcat TO gt_fieldcat.

ENDFORM. " FIELDCATALOG

&----

*& Form display_output

&----

text

----

--> p1 text
<-- p2 text

----

FORM display_output .

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

i_callback_program = gv_repid

is_layout = gs_layout

it_fieldcat = gt_fieldcat

IT_EVENT_EXIT =

it_events = gt_event[]

i_tabname_header = 'GT_HEADER'

i_tabname_item = 'GT_ITEM'

is_keyinfo = gs_keyinfo

IMPORTING

TABLES

t_outtab_header = gt_header[]

t_outtab_item = gt_item[]

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. " display_output

&----

*& Form define_key

&----

text

----

--> p1 text
<-- p2 text

----

FORM define_key .

CLEAR gs_keyinfo.

gs_keyinfo-header01 = 'KUNNR'.

gs_keyinfo-item01 = 'KUNNR'.

ENDFORM. " define_key

&----

*& Form BUILD_EVENTS

&----

text

----

-->P_GT_EVENT text

----

FORM build_events USING lt_events TYPE slis_t_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = lt_events

EXCEPTIONS

list_type_wrong = 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. " BUILD_EVENTS

<b>Please reward points for helpful answers and close the thread if the problem is solved.</b>

Thanks,

Naren

Re: alv problem

Former Member — Tue, 02 Jan 2007 05:50:33 GMT

Hi Naren,

Thank u very much for your kind reply.

I am very much thankful for u.

Regards,

Neha