regarding ALV

[Former Member]

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.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'VBELN'.

WA_FIELDCAT_I-SELTEXT_M = 'DOCUMENT NO'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

WA_FIELDCAT_I-COL_POS = 2.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'POSNR'.

WA_FIELDCAT_I-SELTEXT_M = 'ITEM NO'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

WA_FIELDCAT_I-COL_POS = 3.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'MATNR'.

WA_FIELDCAT_I-SELTEXT_M = 'MATERIAL'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

WA_FIELDCAT_I-COL_POS = 4.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'ARKTX'.

WA_FIELDCAT_I-SELTEXT_M = 'DESCRIPTION'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

WA_FIELDCAT_I-COL_POS = 5.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'ZMENG'.

WA_FIELDCAT_I-SELTEXT_M = 'QUANTITY'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

WA_FIELDCAT_I-COL_POS = 6.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'NETWR'.

WA_FIELDCAT_I-SELTEXT_M = 'NET AMOUNT'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

WA_FIELDCAT_I-COL_POS = 7.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'WAERK'.

WA_FIELDCAT_I-SELTEXT_M = 'CURRENCY'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

ENDFORM. "BUILD_FIELDCATALOG_ITEM

&----

---

*& Form FETCH_DATA_ITEM

&----

---

*& retreiving values from the database table vbap

&----

---

FORM FETCH_DATA_ITEM.

SELECT VBELN POSNR MATNR ARKTX ZMENG NETWR WAERK

FROM VBAP INTO TABLE IT_VBAP.

• WHERE VBELN = IT_VBAK-VBELN.

ENDFORM. "FETCH_DATA_ITEM

&----

---

*& Form DISPLAY_ALV_REPORT_ITEM

&----

---

*& display report - item part

&----

---

FORM DISPLAY_ALV_ITEM.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_GRID_TITLE = TITLE_VBAP

IT_FIELDCAT = IT_FIELDCAT_I

I_SAVE = 'A'

IT_EVENTS = IT_EVENT

TABLES

T_OUTTAB = IT_VBAP

.

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_ITEM

[Former Member]

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.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'VBELN'.

WA_FIELDCAT_I-SELTEXT_M = 'DOCUMENT NO'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

WA_FIELDCAT_I-COL_POS = 2.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'POSNR'.

WA_FIELDCAT_I-SELTEXT_M = 'ITEM NO'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

WA_FIELDCAT_I-COL_POS = 3.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'MATNR'.

WA_FIELDCAT_I-SELTEXT_M = 'MATERIAL'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

WA_FIELDCAT_I-COL_POS = 4.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'ARKTX'.

WA_FIELDCAT_I-SELTEXT_M = 'DESCRIPTION'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

WA_FIELDCAT_I-COL_POS = 5.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'ZMENG'.

WA_FIELDCAT_I-SELTEXT_M = 'QUANTITY'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

WA_FIELDCAT_I-COL_POS = 6.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'NETWR'.

WA_FIELDCAT_I-SELTEXT_M = 'NET AMOUNT'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

WA_FIELDCAT_I-COL_POS = 7.

WA_FIELDCAT_I-TABNAME = 'IT_VBAP'.

WA_FIELDCAT_I-FIELDNAME = 'WAERK'.

WA_FIELDCAT_I-SELTEXT_M = 'CURRENCY'.

APPEND WA_FIELDCAT_I TO IT_FIELDCAT_I.

CLEAR WA_FIELDCAT_I.

ENDFORM. "BUILD_FIELDCATALOG_ITEM

&----

---

*& Form FETCH_DATA_ITEM

&----

---

*& retreiving values from the database table vbap

&----

---

FORM FETCH_DATA_ITEM.

SELECT VBELN POSNR MATNR ARKTX ZMENG NETWR WAERK

FROM VBAP INTO TABLE IT_VBAP.

• WHERE VBELN = IT_VBAK-VBELN.

ENDFORM. "FETCH_DATA_ITEM

&----

---

*& Form DISPLAY_ALV_REPORT_ITEM

&----

---

*& display report - item part

&----

---

FORM DISPLAY_ALV_ITEM.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_GRID_TITLE = TITLE_VBAP

IT_FIELDCAT = IT_FIELDCAT_I

I_SAVE = 'A'

IT_EVENTS = IT_EVENT

TABLES

T_OUTTAB = IT_VBAP

.

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_ITEM

[Former Member]

can anyone please check what is the problem in the code?

- It looks like a garbled message from a different world.

- It has no mention of the actual "problem".

- It says: "Im too lazy to understand the problem and state it".

- It says: "I never heard of Debugging".

pk

[Former Member]

sorry, for the inconvenience. actually my first post was regarding the actual problem. so while posting the second one in a hurry, i completely forgot to state the problem with the code. sorry, again.

i was trying to generate a report in which i will select a sales document date in the selection screen, based on that date, the report will fetch all the document number, and net quantity within that date in an ALV grid. if i click on any document number, it will show the item details in an another ALV grid. i tried to do it, but it is not working properly.

please help me find out the bug if you can.

[Former Member]

I strongly suggest you use the Debugging tool. It is there to help you analyze the problems you face in your code.

Since you are the author of your code, you know it better, plus you also know all the scenarios. From an outsider's perspective we may or may not be able to point to a few mistakes. But by using the Debugger, you can get a complete overview of your problems and its subsequent solutions.

Also there's a 2,500 character limit for each post, as mentioned in the Rules of Engagement of this forum. Please respect that. As you can see, it looks so garbled, no one will take a second look at your code.

pk

[matt]

Moderator message: only post the RELEVANT portion of the code and abide by the 2500 character limit

[Former Member]

Hi farhnaz atleast post few comments about actual problem. and post the code in code window not like a simple text

Edited by: achalmehra on Feb 4, 2010 6:55 AM