regarding ALV

Former Member — Thu, 04 Feb 2010 05:37:27 GMT

can anyone please check what is the problem in the code??? it is not working properly.

REPORT YTEST_F MESSAGE-ID ZZ_9838.

TYPE-POOLS: SLIS.

TABLES: VBAK, VBAP.

*declaration for values from vbak

DATA: BEGIN OF IT_VBAK OCCURS 0,

VBELN LIKE VBAK-VBELN,

AUDAT LIKE VBAK-AUDAT,

NETWR LIKE VBAK-NETWR,

WAERK LIKE VBAK-WAERK,

END OF IT_VBAK.

*declaration for values from vbap

DATA: BEGIN OF IT_VBAP OCCURS 0,

VBELN LIKE VBAP-VBELN,

POSNR LIKE VBAP-POSNR,

MATNR LIKE VBAP-MATNR,

ARKTX LIKE VBAP-ARKTX,

ZMENG LIKE VBAP-ZMENG,

NETWR LIKE VBAP-NETWR,

WAERK LIKE VBAP-WAERK,

END OF IT_VBAP.

*variable for Report ID

DATA: V_REPID LIKE SY-REPID.

*declaration for fieldcatalog

DATA: IT_FIELDCAT_H TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT_H TYPE SLIS_FIELDCAT_ALV,

IT_FIELDCAT_I TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT_I TYPE SLIS_FIELDCAT_ALV.

DATA: IT_LISTHEADER TYPE SLIS_T_LISTHEADER.

declaration for events table where user comand or set PF status will be defined

DATA: IT_EVENT TYPE SLIS_T_EVENT,

WA_EVENT TYPE SLIS_ALV_EVENT.

declartion for layout

DATA: IT_LAYOUT TYPE SLIS_LAYOUT_ALV.

*Title displayed when the alv list is displayed

DATA: TITLE_VBAK TYPE LVC_TITLE VALUE 'HEADER VIEW'.

DATA: TITLE_VBAP TYPE LVC_TITLE VALUE 'ITEM DETAIL VIEW'.

*Input data decleration for users.

*SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

*PARAMETER: DOC_DATE LIKE VBAK-AUDAT.

*SELECTION-SCREEN: END OF BLOCK B1.

SELECT-OPTIONS : DOC_DATE FOR VBAK-AUDAT.

INITIALIZATION.

V_REPID = SY-REPID.

PERFORM BUILD_FIELDCATALOG_HEADER.

PERFORM EVENT_CALL.

PERFORM POPULATE_EVENT.

START-OF-SELECTION.

PERFORM FETCH_DATA_HEADER.

PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.

PERFORM DISPLAY_ALV_REPORT_HEADER.

&----

*& Form BUILD_FIELDCATALOG_HEADER

&----

*& Fieldcatalog has all the field details from vbak

&----

FORM BUILD_FIELDCATALOG_HEADER.

WA_FIELDCAT_H-COL_POS = 1.

WA_FIELDCAT_H-TABNAME = 'IT_VBAK'.

WA_FIELDCAT_H-FIELDNAME = 'VBELN'.

WA_FIELDCAT_H-SELTEXT_M = 'DOCUMENT NO'.

APPEND WA_FIELDCAT_H TO IT_FIELDCAT_H.

CLEAR WA_FIELDCAT_H.

WA_FIELDCAT_H-COL_POS = 2.

WA_FIELDCAT_H-TABNAME = 'IT_VBAK'.

WA_FIELDCAT_H-FIELDNAME = 'AUDAT'.

WA_FIELDCAT_H-SELTEXT_M = 'DOCUMENT DATE'.

APPEND WA_FIELDCAT_H TO IT_FIELDCAT_H.

CLEAR WA_FIELDCAT_H.

WA_FIELDCAT_H-COL_POS = 3.

WA_FIELDCAT_H-TABNAME = 'IT_VBAK'.

WA_FIELDCAT_H-FIELDNAME = 'NETWR'.

WA_FIELDCAT_H-SELTEXT_M = 'NET AMOUNT'.

APPEND WA_FIELDCAT_H TO IT_FIELDCAT_H.

CLEAR WA_FIELDCAT_H.

WA_FIELDCAT_H-COL_POS = 4.

WA_FIELDCAT_H-TABNAME = 'IT_VBAK'.

WA_FIELDCAT_H-FIELDNAME = 'WAERK'.

WA_FIELDCAT_H-SELTEXT_M = 'CURRENCY'.

APPEND WA_FIELDCAT_H TO IT_FIELDCAT_H.

CLEAR WA_FIELDCAT_H.

ENDFORM. "BUILD_FIELDCATALOG_HEADER

&----

*& Form EVENT_CALL

&----

*& we get all events - TOP OF PAGE OR USER COMMAND

&----

FORM EVENT_CALL.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = IT_EVENT

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

&----

*& Form POPULATE_EVENT

&----

*& Events populated for TOP OF PAGE & USER COMAND

&----

FORM POPULATE_EVENT.

READ TABLE IT_EVENT INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.

IF SY-SUBRC EQ 0.

WA_EVENT-FORM = 'TOP_OF_PAGE'.

MODIFY IT_EVENT FROM WA_EVENT TRANSPORTING FORM WHERE NAME = WA_EVENT-FORM.

ENDIF.

READ TABLE IT_EVENT INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.

IF SY-SUBRC EQ 0.

WA_EVENT-FORM = 'USER_COMMAND'.

MODIFY IT_EVENT FROM WA_EVENT TRANSPORTING FORM WHERE NAME = WA_EVENT-FORM.

ENDIF.

ENDFORM. "POPULATE_EVENT

&----

*& Form FETCH_DATA_HEADER

&----

*& retreiving values from the database table vbak

&----

FORM FETCH_DATA_HEADER.

SELECT VBELN AUDAT NETWR WAERK

FROM VBAK INTO TABLE IT_VBAK.

WHERE AUDAT = DOC_DATE-LOW.

ENDFORM. "FETCH_DATA_HEADER

&----

*& Form BUILD_LISTHEADER

&----

*& building the header of the list

&----

FORM BUILD_LISTHEADER USING IT_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA: HLINE TYPE SLIS_LISTHEADER.

HLINE-INFO = 'Sales Order Summery'.

HLINE-TYP = 'H'.

ENDFORM. "BUILD_LISTHEADER

&----

*& Form DISPLAY_ALV_REPORT_HEADER

&----

*& display report - header part

&----

FORM DISPLAY_ALV_REPORT_HEADER.

V_REPID = SY-REPID.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_GRID_TITLE = TITLE_VBAK

IT_FIELDCAT = IT_FIELDCAT_H

I_SAVE = 'A'

IT_EVENTS = IT_EVENT

TABLES

T_OUTTAB = IT_VBAK

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_ALV_REPORT_HEADER

&----

*& Form TOP_OF_PAGE

&----

*& header display

&----

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_LISTHEADER

ENDFORM. "TOP_OF_PAGE

&----

*& Form USER_COMMAND

&----

*& text

&----

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD.

CLEAR IT_VBAK.

CASE R_UCOMM.

WHEN '&IC1'.

READ TABLE IT_VBAK INDEX RS_SELFIELD-TABINDEX.

PERFORM BUILD_FIELDCATALOG_ITEM.

PERFORM EVENT_CALL.

PERFORM POPULATE_EVENT.

PERFORM FETCH_DATA_ITEM.

PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.

PERFORM DISPLAY_ALV_ITEM.

ENDCASE.

ENDFORM. "USER_COMMAND

&----

*& Form BUILD_FIELDCATALOG_ITEM

&----

*& Fieldcatalog has all the field details from vbap

&----

FORM BUILD_FIELDCATALOG_ITEM.

WA_FIELDCAT_I-COL_POS = 1.