topic Re: interactive alv report in Application Development and Automation Discussions

interactive alv report

Former Member — Fri, 11 May 2007 11:01:45 GMT

hi all,

how to make alv interactive report .

regards

deepak

Re: interactive alv report

Former Member — Fri, 11 May 2007 11:06:26 GMT

Check this code.

TYPE-POOLS: SLIS.

*DATA DECLARATION.

TYPES: BEGIN OF I_VBAK,

VBELN TYPE VBELN_VA,

AUGRU TYPE AUGRU,

END OF I_VBAK.

TYPES: BEGIN OF I_VBAP,

VBELN TYPE VBELN_VA,

AUGRU TYPE AUGRU,

POSNR TYPE POSNR_VA,

MATNR TYPE MATNR,

ZMENG TYPE DZMENG,

END OF I_VBAP.

TYPES: BEGIN OF I_MAKT,

MATNR TYPE MATNR,

MAKTX TYPE MAKTX,

END OF I_MAKT.

TYPES: BEGIN OF I_LIPS,

POSNR TYPE POSNR_VL,

MATNR TYPE MATNR,

LFIMG TYPE LFIMG,

END OF I_LIPS.

TYPES: BEGIN OF I_REASON,

SPRAS TYPE SPRAS,

AUGRU TYPE AUGRU,

BEZEI TYPE BEZEI40,

END OF I_REASON.

TYPES: BEGIN OF I_VBPA,

VBELN TYPE VBELN,

PARVW TYPE PARVW,

KUNNR TYPE KUNNR,

END OF I_VBPA.

TYPES: BEGIN OF I_KNA1,

KUNNR TYPE KUNNR,

NAME1 TYPE NAME1_GP,

END OF I_KNA1.

TYPES: BEGIN OF I_FINAL,

VBELN TYPE VBELN_VA,

POSNR TYPE POSNR_VA,

MATNR TYPE MATNR,

ZMENG TYPE DZMENG,

MAKTX TYPE MAKTX,

LFIMG TYPE LFIMG,

SPRAS TYPE SPRAS,

AUGRU TYPE AUGRU,

BEZEI TYPE BEZEI40,

PARVW TYPE PARVW,

KUNNR TYPE KUNNR,

NAME1 TYPE NAME1_GP,

END OF I_FINAL.

*INTERNAL TABLES

DATA: IT_VBAK TYPE STANDARD TABLE OF I_VBAK.

DATA: IT_VBAP TYPE STANDARD TABLE OF I_VBAP.

DATA: IT_MAKT TYPE STANDARD TABLE OF I_MAKT.

DATA: IT_LIPS TYPE STANDARD TABLE OF I_LIPS.

DATA: IT_VBPA TYPE STANDARD TABLE OF I_VBPA.

DATA: IT_KNA1 TYPE STANDARD TABLE OF I_KNA1.

DATA: IT_FINAL TYPE STANDARD TABLE OF I_FINAL.

DATA: IT_REASON TYPE STANDARD TABLE OF I_REASON.

DATA : V_FLAG.

*WORK AREA

DATA: WA_VBAK TYPE I_VBAK.

DATA: WA_VBAP TYPE I_VBAP.

DATA: WA_MAKT TYPE I_MAKT.

DATA: WA_LIPS TYPE I_LIPS.

DATA: WA_VBPA TYPE I_VBPA.

DATA: WA_KNA1 TYPE I_KNA1.

DATA: WA_FINAL TYPE I_FINAL.

DATA: WA_REASON TYPE I_REASON.

*DATA DECLARATION.

DATA: V_PROGNAME TYPE SY-REPID.

DATA: V_VBELN TYPE VBAK-VBELN.

DATA: V_GRIDTITLE TYPE LVC_TITLE.

**PARAMETERS: D_VARI LIKE DISVARIANT-VARIANT.

DATA: I_VARIANT LIKE DISVARIANT.

DATA: P_VARI LIKE DISVARIANT-VARIANT.

*DATA DECLARATION FOR CATALOGS LAYOUT SORT EVENTCATALOG TOPOFPAGE.

DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: I_LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA: I_SORTINFO TYPE SLIS_T_SORTINFO_ALV.

DATA: I_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA: I_EVENTCAT TYPE SLIS_T_EVENT.

*INITIALIZATION - First point of execution of program

To initialize Any variables that are to be
used in the program, even before selection screen
appears.

INITIALIZATION.

V_PROGNAME = SY-REPID.

V_FLAG = SPACE.

PERFORM Z_DEFAULT_VARIANT.

*SELECTION SCREEN

SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-002.

SELECT-OPTIONS: S_VBELN FOR V_VBELN.

SELECTION-SCREEN END OF BLOCK BLK1.

*Variable for ALV Variant

SELECTION-SCREEN BEGIN OF BLOCK B_VAR WITH FRAME TITLE TEXT-020.

PARAMETERS: D_VARI LIKE DISVARIANT-VARIANT.

SELECTION-SCREEN END OF BLOCK B_VAR.

*AT SLECTION-SCREEN.

AT SELECTION-SCREEN.

PERFORM Z_VALIDATIONS.

*AT SELECTION SCREEN.

AT SELECTION-SCREEN ON D_VARI.

CHECK FOR THE EXISTENCE OF THE VARIANT SELECTED

PERFORM ZF_CHECK_VAR_EXIST.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR D_VARI.

PROVIDE THE F4-HELP.

PERFORM ZF_VARIANT_F4.

*START OF SELECTION.

START-OF-SELECTION.

PERFORM Z_SELECT.

PERFORM CHECK_VALIDATION_FLAG.

PERFORM Z_FIELDCAT USING I_FIELDCAT.

PERFORM Z_LAYOUT.

PERFORM Z_SORTINFO USING I_SORTINFO.

PERFORM Z_EVENTCAT USING I_EVENTCAT.

PERFORM Z_GRIDTITLE.

PERFORM Z_LISTHEADER USING I_LISTHEADER.

PERFORM Z_DISPLAY.

&----

*& Form Z_VALIDATIONS

&----

text

----

--> p1 text
<-- p2 text

----

FORM Z_VALIDATIONS .

SELECT VBELN INTO V_VBELN

UP TO 1 ROWS

FROM VBAK

WHERE VBELN IN S_VBELN.

ENDSELECT.

IF SY-SUBRC <> 0.

MESSAGE I002(SY) WITH 'No Records'.

V_FLAG = 'X'.

ENDIF.

ENDFORM. " Z_VALIDATIONS

&----

*& Form Z_FIELDCAT

&----

text

----

-->P_I_FIELDCAT text

----

FORM Z_FIELDCAT USING P_I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: I_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

*VBAK-VELN

I_FIELDCAT-COL_POS = '1'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'VBELN'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.

I_FIELDCAT-JUST = 'C'. " FOR JUSTIFICATION.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'SALES ORDER'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 15. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBAK'. " FOR F1 & F4 HELP AS REFERNCED TO THE DDIC TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*VBAP-SPRAS

I_FIELDCAT-COL_POS = '2'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'SPRAS'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'LANGUAGE'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 5. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'TVAUT'. " FOR F1 & F4 HELP AS REFERNCED TO TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*VBAP-AUGRU

I_FIELDCAT-COL_POS = '3'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'AUGRU'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'REASON'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 5. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBAK'. " FOR F1 & F4 HELP AS REFERNCED TO TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*VBAP-bezei

I_FIELDCAT-COL_POS = '4'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'BEZEI'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'DESCRIPTION'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'TVAUT'. " FOR F1 & F4 HELP AS REFERNCED TO TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*VBAP-POSNR

I_FIELDCAT-COL_POS = '5'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'POSNR'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'ITEM'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 8. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBAP'. " FOR F1 & F4 HELP AS REFERNCED TO TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*VBAP-MATNR.

I_FIELDCAT-COL_POS = '6'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'MATNR'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'MATERIAL'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 10. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBAP'. " FOR F1 & F4 HELP AS REFERNCED TO TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*VBAP-ZMENG

I_FIELDCAT-COL_POS = '7'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'ZMENG'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'QUANT'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 10. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBAP'. " FOR F1 & F4 HELP AS REFERNCED TO TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*MAKT-MAKTX

I_FIELDCAT-COL_POS = '8'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'MAKTX'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'DESCRIPTION'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'MAKT'. " FOR F1 & F4 HELP AS REFERNCED TO TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*LIPS-VBELN

I_FIELDCAT-COL_POS = '9'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'VBELN'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'DELIVERY'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 15. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'LIPS'. " FOR F1 & F4 HELP AS REFERNCED TO TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*LIPS-LFIMG

I_FIELDCAT-COL_POS = '10'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'LFIMG'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-DO_SUM = 'X'.

I_FIELDCAT-SELTEXT_L = 'LFIMG'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'LIPS'. " FOR F1 & F4 HELP AS REFERNCED TO TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*parvw

I_FIELDCAT-COL_POS = '11'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'PARVW'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'PARTNER FUN'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBPA'. " FOR F1 & F4 HELP AS REFERNCED TO TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*KUNNR

I_FIELDCAT-COL_POS = '12'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'KUNNR'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'SHIP'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBPA'. " FOR F1 & F4 HELP AS REFERNCED TO TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*NAME1

I_FIELDCAT-COL_POS = '13'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'NAME1'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'NAME'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'KNA1'. " FOR F1 & F4 HELP AS REFERNCED TO TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

ENDFORM. " Z_FIELDCAT

&----

*& Form Z_SELECT

&----

text

----

--> p1 text
<-- p2 text

----

FORM Z_SELECT .

SELECT VBELN

AUGRU INTO CORRESPONDING FIELDS OF TABLE IT_VBAK

FROM VBAK

WHERE VBELN IN S_VBELN.

IF SY-SUBRC = 0.

SELECT VBELN

POSNR

MATNR

ZMENG INTO CORRESPONDING FIELDS OF TABLE IT_VBAP

FROM VBAP

FOR ALL ENTRIES IN IT_VBAK

WHERE VBELN = IT_VBAK-VBELN.

IF SY-SUBRC = 0.

SELECT SPRAS

AUGRU

BEZEI INTO CORRESPONDING FIELDS OF TABLE IT_REASON

FROM TVAUT

FOR ALL ENTRIES IN IT_VBAK

WHERE AUGRU = IT_VBAK-AUGRU.

IF SY-SUBRC = 0.

SELECT VBELN

PARVW

KUNNR INTO CORRESPONDING FIELDS OF TABLE IT_VBPA

FROM VBPA

FOR ALL ENTRIES IN IT_VBAK

WHERE VBELN = IT_VBAK-VBELN.

IF SY-SUBRC = 0.

SELECT KUNNR

NAME1 INTO CORRESPONDING FIELDS OF TABLE IT_KNA1

FROM KNA1

FOR ALL ENTRIES IN IT_VBPA

WHERE KUNNR = IT_VBPA-KUNNR.

IF SY-SUBRC = 0.

SELECT POSNR

MATNR

LFIMG INTO CORRESPONDING FIELDS OF TABLE IT_LIPS

FROM LIPS

FOR ALL ENTRIES IN IT_VBAP

WHERE POSNR = IT_VBAP-POSNR.

IF SY-SUBRC = 0.

SELECT MATNR

MAKTX INTO CORRESPONDING FIELDS OF TABLE IT_MAKT

FROM MAKT

FOR ALL ENTRIES IN IT_VBAP

WHERE MATNR = IT_VBAP-MATNR.

ENDIF.

ELSE.

MESSAGE I002(SY) WITH 'No Data found'.

LEAVE LIST-PROCESSING.

ENDIF.

IF SY-SUBRC = 0.

LOOP AT IT_VBAP INTO WA_VBAP.

READ TABLE IT_VBAK INTO WA_VBAK WITH KEY VBELN = WA_VBAP-VBELN BINARY SEARCH.

IF SY-SUBRC = 0.

*MOVE DATA INTO IT_FINAL.

MOVE: WA_VBAK-VBELN TO WA_FINAL-VBELN,

WA_VBAK-AUGRU TO WA_FINAL-AUGRU,

WA_VBAP-POSNR TO WA_FINAL-POSNR,

WA_VBAP-MATNR TO WA_FINAL-MATNR,

WA_VBAP-ZMENG TO WA_FINAL-ZMENG.

ENDIF.

READ TABLE IT_LIPS INTO WA_LIPS WITH KEY POSNR = WA_FINAL-POSNR BINARY SEARCH.

IF SY-SUBRC = 0.

MOVE: WA_LIPS-LFIMG TO WA_FINAL-LFIMG.

ENDIF.

READ TABLE IT_REASON INTO WA_REASON WITH KEY AUGRU = WA_FINAL-AUGRU BINARY SEARCH.

IF SY-SUBRC = 0.

MOVE: WA_REASON-SPRAS TO WA_FINAL-SPRAS,

WA_REASON-BEZEI TO WA_FINAL-BEZEI.

ENDIF.

READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_FINAL-MATNR BINARY SEARCH.

IF SY-SUBRC = 0.

MOVE: WA_MAKT-MAKTX TO WA_FINAL-MAKTX.

ENDIF.

READ TABLE IT_VBPA INTO WA_VBPA WITH KEY VBELN = WA_FINAL-VBELN BINARY SEARCH.

IF SY-SUBRC = 0.

MOVE: WA_VBPA-PARVW TO WA_FINAL-PARVW,

WA_VBPA-KUNNR TO WA_FINAL-KUNNR.

ENDIF.

READ TABLE IT_KNA1 INTO WA_KNA1 WITH KEY KUNNR = WA_FINAL-KUNNR BINARY SEARCH.

IF SY-SUBRC = 0.

MOVE: WA_KNA1-NAME1 TO WA_FINAL-NAME1.

ENDIF.

APPEND WA_FINAL TO IT_FINAL.

CLEAR WA_FINAL.

ENDLOOP.

ENDIF.

ENDFORM. " Z_SELECT

&----

*& Form Z_LAYOUT

&----

text

----

--> p1 text
<-- p2 text

----

FORM Z_LAYOUT .

I_LAYOUT-ZEBRA = 'X'.

I_LAYOUT-TOTALS_TEXT = 'Total'(A00).

I_LAYOUT-SUBTOTALS_TEXT = 'SubTotal'(A01).

I_LAYOUT-BOX_TABNAME = 'IT_FINAL'.

ENDFORM. " Z_LAYOUT

&----

*& Form Z_SORTINFO

&----

text

----

-->P_I_SORTINFO text

----

FORM Z_SORTINFO USING P_I_SORTINFO TYPE SLIS_T_SORTINFO_ALV.

DATA: I_SORTINFO TYPE SLIS_SORTINFO_ALV.

CLEAR I_SORTINFO.

I_SORTINFO-SPOS = '1'.

I_SORTINFO-FIELDNAME = 'VBELN'.

I_SORTINFO-TABNAME = 'IT_FINAL'.

I_SORTINFO-UP = 'X'.

I_SORTINFO-GROUP = 'UL'. " I.E UNDERLINE AFTER EVERY GROUP

I_SORTINFO-SUBTOT = 'X'.

APPEND I_SORTINFO TO P_I_SORTINFO.

ENDFORM. " Z_SORTINFO

&----

*& Form Z_EVENTCAT

&----

text

----

-->P_I_EVENTCAT text

----

FORM Z_EVENTCAT USING P_I_EVENTCAT TYPE SLIS_T_EVENT.

DATA: I_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = P_I_EVENTCAT

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.

CLEAR I_EVENT.

READ TABLE P_I_EVENTCAT WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO

I_EVENT.

IF SY-SUBRC = 0.

MOVE 'TOP_OF_PAGE' TO I_EVENT-FORM.

APPEND I_EVENT TO P_I_EVENTCAT.

ENDIF.

READ TABLE P_I_EVENTCAT WITH KEY NAME = SLIS_EV_PF_STATUS_SET INTO I_EVENT.

IF SY-SUBRC = 0.

MOVE 'SET_PF_STATUS' TO I_EVENT-FORM.

APPEND I_EVENT TO P_I_EVENTCAT.

ENDIF.

CLEAR I_EVENT.

READ TABLE P_I_EVENTCAT INTO I_EVENT WITH KEY NAME = SLIS_EV_USER_COMMAND .

IF SY-SUBRC = 0.

MOVE 'USER_COMMAND' TO I_EVENT-FORM.

APPEND I_EVENT TO P_I_EVENTCAT.

ENDIF.

ENDFORM. " Z_EVENTCAT

&----

*& Form Z_DISPLAY

&----

text

----

--> p1 text
<-- p2 text

----

FORM Z_DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_PROGNAME

I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_GRID_TITLE = V_GRIDTITLE

I_SAVE = 'A'

IS_LAYOUT = I_LAYOUT

IT_FIELDCAT = I_FIELDCAT[]

IT_SORT = I_SORTINFO

IT_EVENTS = I_EVENTCAT

IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_FINAL

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

&----

*& Form Z_GRIDTITLE

&----

text

----

--> p1 text
<-- p2 text

----

FORM Z_GRIDTITLE .

V_GRIDTITLE = 'ALV FOR SALES ORDER DISPLAY'.

ENDFORM. " Z_GRIDTITLE

*TOP OF PAGE.

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = I_LISTHEADER.

ENDFORM. "TOP_OF_PAGE

*MENU SETTINGS.

FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'ALV_MENU'.

ENDFORM. "SET_PF_STATUS

*USER-COMMAND

FORM USER_COMMAND USING P_UCOMM TYPE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

DATA : VBELN TYPE VBELN_VA.

CASE P_UCOMM.

WHEN 'BACK'.

LEAVE PROGRAM.

WHEN '&IC1'.

CLEAR : VBELN.

VBELN = RS_SELFIELD-VALUE.

SET PARAMETER ID: 'AUN' FIELD VBELN.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDCASE.

ENDFORM. " USER_COMMAND

&----

*& Form Z_LISTHEADER

&----

text

----

-->P_I_LISTHEADER text

----

FORM Z_LISTHEADER USING P_I_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA: L_LISTHEADER TYPE SLIS_LISTHEADER.

REFRESH P_I_LISTHEADER.

CLEAR L_LISTHEADER.

L_LISTHEADER-TYP = 'H'.

L_LISTHEADER-INFO = TEXT-001.

APPEND L_LISTHEADER TO P_I_LISTHEADER.

CLEAR L_LISTHEADER.

L_LISTHEADER-TYP = 'H'.

L_LISTHEADER-INFO = TEXT-002.

APPEND L_LISTHEADER TO P_I_LISTHEADER.

ENDFORM. " Z_LISTHEADER

&----

*& Form check_validation_flag

&----

text

----

--> p1 text
<-- p2 text

----

FORM CHECK_VALIDATION_FLAG .

IF NOT V_FLAG IS INITIAL.

LEAVE LIST-PROCESSING.

ENDIF.

ENDFORM. " check_validation_flag

&----

*& Form Z_DEFAULT_VARIANT

&----

text

----

--> p1 text
<-- p2 text

----

FORM Z_DEFAULT_VARIANT .

I_VARIANT-REPORT = V_PROGNAME.

CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'

EXPORTING

I_SAVE = 'A'

CHANGING

CS_VARIANT = I_VARIANT

EXCEPTIONS

WRONG_INPUT = 1

NOT_FOUND = 2

PROGRAM_ERROR = 3

OTHERS = 4.

IF SY-SUBRC = 0.

P_VARI = I_VARIANT-VARIANT.

D_VARI = P_VARI.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " Z_DEFAULT_VARIANT

&----

*& Form ZF_CHECK_VAR_EXIST

&----

text

----

--> p1 text
<-- p2 text

----

FORM ZF_CHECK_VAR_EXIST .

DATA: L_VARIANT LIKE DISVARIANT.

IF NOT P_VARI IS INITIAL.

CLEAR L_VARIANT.

L_VARIANT-REPORT = V_PROGNAME.

L_VARIANT-VARIANT = P_VARI.

CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'

EXPORTING

I_SAVE = 'U'

CHANGING

CS_VARIANT = L_VARIANT

EXCEPTIONS

WRONG_INPUT = 1

NOT_FOUND = 2

PROGRAM_ERROR = 3

OTHERS = 4.

IF SY-SUBRC = 0.

CLEAR I_VARIANT.

MOVE: L_VARIANT-VARIANT TO I_VARIANT-VARIANT,

L_VARIANT-REPORT TO I_VARIANT-REPORT.

ELSE.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " ZF_CHECK_VAR_EXIST

&----

*& Form ZF_VARIANT_F4

&----

text

----

--> p1 text
<-- p2 text

----

FORM ZF_VARIANT_F4 .

DATA: X_VARIANT LIKE DISVARIANT.

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

IS_VARIANT = I_VARIANT

I_TABNAME_HEADER =
I_TABNAME_ITEM =
IT_DEFAULT_FIELDCAT =

I_SAVE = 'U'

I_DISPLAY_VIA_GRID = 'X'

IMPORTING

E_EXIT =

ES_VARIANT = X_VARIANT

EXCEPTIONS

NOT_FOUND = 1

PROGRAM_ERROR = 2

OTHERS = 3

IF SY-SUBRC = 0.

P_VARI = X_VARIANT-VARIANT.

D_VARI = P_VARI.

CLEAR I_VARIANT.

MOVE: X_VARIANT-VARIANT TO I_VARIANT-VARIANT,

X_VARIANT-REPORT TO I_VARIANT-REPORT.

ELSE.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " ZF_VARIANT_F4

Thanks.

Re: interactive alv report

Former Member — Fri, 11 May 2007 11:09:47 GMT

Hi,

check this link

https://www.sdn.sap.com/irj/sdn/wiki?path=/display/snippets/interactiveALVUsingABAPObjects&

rgds,

bharat.

Re: interactive alv report

Former Member — Fri, 11 May 2007 11:11:43 GMT

Hi Deepak,

Use User-Command event of ALV.

Refer this code :

form EVENTCAT using p_i_eventcat TYPE SLIS_T_EVENT.

DATA : L_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = P_I_EVENTCAT

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.

CLEAR L_EVENT.

READ TABLE P_I_EVENTCAT WITH KEY NAME = SLIS_EV_USER_COMMAND INTO L_EVENT.

IF SY-SUBRC = 0.

MOVE 'Z8_USER_COMMAND' TO L_EVENT-FORM.

APPEND L_EVENT TO P_I_EVENTCAT.

ENDIF.

endform. " EVENTCAT

FORM Z8_USER_COMMAND USING P_UCOMM TYPE SY-UCOMM

P_SELFIELD TYPE SLIS_SELFIELD.

CASE P_UCOMM.

WHEN '&IC1'. "&IC1 IS FOCODE FOR DOUBLE CLICKING

CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'

EXPORTING

input = P_SELFIELD-VALUE

IMPORTING

OUTPUT = ACTUAL_MATNR

EXCEPTIONS

LENGTH_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.

ENDCASE

ENDFORM.

Reward points if helpful.

Regards,

Hemant

Re: interactive alv report

Former Member — Fri, 11 May 2007 11:14:03 GMT

TYPE-POOLS : SLIS.

TYPES:BEGIN OF TW_VBAK,

VBELN TYPE VBELN_VA,

ERNAM TYPE ERNAM,

ERDAT TYPE ERDAT,

VBTYP TYPE VBTYP,

END OF TW_VBAK,

TT_VBAK TYPE STANDARD TABLE OF TW_VBAK.

TYPES:BEGIN OF TW_VBAP,

VBELN TYPE VBELN_VA,

POSNR TYPE POSNR_VA,

MATNR TYPE MATNR,

ARKTX TYPE ARKTX,

END OF TW_VBAP,

TT_VBAP TYPE STANDARD TABLE OF TW_VBAP.

DATA:LW_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV,

LT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,

LW_FIELDCAT2 TYPE SLIS_FIELDCAT_ALV,

LT_FIELDCAT2 TYPE SLIS_T_FIELDCAT_ALV,

LF_VBELN TYPE VBELN_VA.

DATA:LT_VBAK TYPE TT_VBAK,

LT_VBAP TYPE TT_VBAP,

LF_REPID TYPE SYREPID.

SELECTION-SCREEN BEGIN OF block B1 with FRAME TITLE TEXT-001.

SELECT-OPTIONS:SO_VBELN FOR LF_VBELN.

SELECTION-SCREEN END OF BLOCK B1.

start-of-selection.

SELECT VBELN ERNAM ERDAT VBTYP INTO TABLE LT_VBAK

FROM VBAK

WHERE VBELN IN SO_VBELN.

LW_FIELDCAT1-COL_POS = '1'.

LW_FIELDCAT1-FIELDNAME = 'VBELN'.

LW_FIELDCAT1-TABNAME = 'LT_VBAK'.

LW_FIELDCAT1-REF_FIELDNAME = 'VBELN'.

LW_FIELDCAT1-REF_TABNAME = 'VBAK'.

LW_FIELDCAT1-SELTEXT_M = 'SALES NUMBER'.

LW_FIELDCAT1-HOTSPOT = 'X'.

APPEND LW_FIELDCAT1 TO LT_FIELDCAT1.

LW_FIELDCAT1-COL_POS = '2'.

LW_FIELDCAT1-FIELDNAME = 'ERNAM'.

LW_FIELDCAT1-TABNAME = 'LT_VBAK'.

LW_FIELDCAT1-REF_FIELDNAME = 'ERNAM'.

LW_FIELDCAT1-REF_TABNAME = 'VBAK'.

LW_FIELDCAT1-SELTEXT_M = 'NAME'.

LW_FIELDCAT1-HOTSPOT = 'X'.

APPEND LW_FIELDCAT1 TO LT_FIELDCAT1.

LW_FIELDCAT1-COL_POS = '3'.

LW_FIELDCAT1-FIELDNAME = 'ERDAT'.

LW_FIELDCAT1-TABNAME = 'LT_VBAK'.

LW_FIELDCAT1-REF_FIELDNAME = 'ERDAT'.

LW_FIELDCAT1-REF_TABNAME = 'VBAK'.

LW_FIELDCAT1-SELTEXT_M = 'DATE'.

LW_FIELDCAT1-HOTSPOT = 'X'.

APPEND LW_FIELDCAT1 TO LT_FIELDCAT1.

LW_FIELDCAT1-COL_POS = '4'.

LW_FIELDCAT1-FIELDNAME = 'VBTYP'.

LW_FIELDCAT1-TABNAME = 'LT_VBAK'.

LW_FIELDCAT1-REF_FIELDNAME = 'VBTYP'.

LW_FIELDCAT1-REF_TABNAME = 'VBAK'.

LW_FIELDCAT1-SELTEXT_M = 'TYPE'.

LW_FIELDCAT1-HOTSPOT = 'X'.

APPEND LW_FIELDCAT1 TO LT_FIELDCAT1.

LW_FIELDCAT2-COL_POS = '1'.

LW_FIELDCAT2-FIELDNAME = 'VBELN'.

LW_FIELDCAT2-TABNAME = 'LT_VBAP'.

LW_FIELDCAT2-REF_FIELDNAME = 'VBELN'.

LW_FIELDCAT2-REF_TABNAME = 'VBAP'.

LW_FIELDCAT2-SELTEXT_M = 'SALES NUMBER'.

APPEND LW_FIELDCAT2 TO LT_FIELDCAT2.

LW_FIELDCAT2-COL_POS = '2'.

LW_FIELDCAT2-FIELDNAME = 'POSNR'.

LW_FIELDCAT2-TABNAME = 'LT_VBAP'.

LW_FIELDCAT2-REF_FIELDNAME = 'POSNR'.

LW_FIELDCAT2-REF_TABNAME = 'VBAP'.

LW_FIELDCAT2-SELTEXT_M = 'ITEM NUMBER'.

APPEND LW_FIELDCAT2 TO LT_FIELDCAT2.

LW_FIELDCAT2-COL_POS = '3'.

LW_FIELDCAT2-FIELDNAME = 'MATNR'.

LW_FIELDCAT2-TABNAME = 'LT_VBAP'.

LW_FIELDCAT2-REF_FIELDNAME = 'MATNR'.

LW_FIELDCAT2-REF_TABNAME = 'VBAP'.

LW_FIELDCAT2-SELTEXT_M = 'MATERIAL NUMBER'.

APPEND LW_FIELDCAT2 TO LT_FIELDCAT2.

LW_FIELDCAT2-COL_POS = '4'.

LW_FIELDCAT2-FIELDNAME = 'ARKTX'.

LW_FIELDCAT2-TABNAME = 'LT_VBAP'.

LW_FIELDCAT2-REF_FIELDNAME = 'ARKTX'.

LW_FIELDCAT2-REF_TABNAME = 'VBAP'.

LW_FIELDCAT2-SELTEXT_M = 'SHORT TEXT FOR SALES ORDER ITEM'.

APPEND LW_FIELDCAT2 TO LT_FIELDCAT2.

LF_REPID = SY-REPID.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = LF_REPID

I_CALLBACK_USER_COMMAND = 'INTERACTIVE'

IT_FIELDCAT = LT_FIELDCAT1

TABLES

T_OUTTAB = LT_VBAK[]

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.

FORM INTERACTIVE USING LF_UCOMM TYPE SYUCOMM

LF_FIELD TYPE SLIS_SELFIELD.

DATA: LF_VBELN TYPE VBELN_VA.

CASE LF_UCOMM.

WHEN '&IC1'.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = LF_FIELD-VALUE

IMPORTING

OUTPUT = lf_vbeln

SELECT VBELN POSNR MATNR ARKTX INTO TABLE LT_VBAP

FROM VBAP

WHERE VBELN = lf_vbeln.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = LF_REPID

IT_FIELDCAT = LT_FIELDCAT2[]

TABLES

T_OUTTAB = LT_VBAP

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.

ENDCASE.

ENDFORM.

Re: interactive alv report

former_member673464 — Fri, 11 May 2007 11:17:43 GMT

hi deepak..

It depends on how you are displaying alv . You can use ABAP Objects to display and use Function modules to display in ALV .If you are using ABAP Objects you can use the methods in the class for interactive calling.If you are using function modules for ALV i_callback_program for interactive coding

i_callback_user_command for subroutines in which you are writing code for interactive reporting.

regards,

veeresh

Re: interactive alv report

Former Member — Fri, 11 May 2007 11:22:08 GMT

hi,

check this simple example

&----

*& Report ZSR_ALV_INTERACTIVE

&----

REPORT ZSR_ALV_INTERACTIVE.

TABLES : LFA1,EKKO,EKPO.

SELECT-OPTIONS : VENDOR FOR LFA1-LIFNR.

DATA : BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFA1-LIFNR,

NAME1 LIKE LFA1-NAME1,

END OF ITAB.

DATA : BEGIN OF JTAB OCCURS 0,

EBELN LIKE EKKO-EBELN,

AEDAT LIKE EKKO-AEDAT,

END OF JTAB.

DATA : BEGIN OF KTAB OCCURS 0,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

END OF KTAB.

TYPE-POOLS : SLIS.

DATA : REPID LIKE SY-REPID.

DATA :LFA1_B TYPE SLIS_T_FIELDCAT_ALV,

LFA1_W TYPE SLIS_FIELDCAT_ALV,

EKKO_B TYPE SLIS_T_FIELDCAT_ALV,

EKKO_W TYPE SLIS_FIELDCAT_ALV,

EKPO_B TYPE SLIS_T_FIELDCAT_ALV,

EKPO_W TYPE SLIS_FIELDCAT_ALV,

EVENTS_B TYPE SLIS_T_EVENT,

EVENTS_W TYPE SLIS_ALV_EVENT.

PERFORM GET_VAL.

REPID = SY-REPID.

SELECT LIFNR NAME1 FROM LFA1 INTO TABLE ITAB WHERE LIFNR IN VENDOR.

*perform val USING USER_COMMAND sel.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = REPID

IT_FIELDCAT = LFA1_B

IT_EVENTS = EVENTS_B

TABLES

T_OUTTAB = ITAB.

&----

*& Form GET_VAL

&----

text this is to put column headings

----

FORM GET_VAL.

LFA1_W-FIELDNAME = 'LIFNR'.

LFA1_W-REF_TABNAME = 'LFA1'.

LFA1_W-REF_FIELDNAME = 'LIFNR'.

APPEND LFA1_W TO LFA1_B.

LFA1_W-FIELDNAME = 'NAME1'.

LFA1_W-REF_TABNAME = 'LFA1'.

LFA1_W-REF_FIELDNAME = 'NAME1'.

APPEND LFA1_W TO LFA1_B.

EKKO_W-FIELDNAME = 'EBELN'.

EKKO_W-REF_TABNAME = 'EKKO'.

EKKO_W-REF_FIELDNAME = 'EBELN'.

APPEND EKKO_W TO EKKO_B.

EKKO_W-FIELDNAME = 'AEDAT'.

EKKO_W-REF_TABNAME = 'EKKO'.

EKKO_W-REF_FIELDNAME = 'AEDAT'.

APPEND EKKO_W TO EKKO_B.

EKPO_W-FIELDNAME = 'EBELP'.

EKPO_W-REF_TABNAME = 'EKPO'.

EKPO_W-REF_FIELDNAME = 'EBELP'.

APPEND EKPO_W TO EKPO_B.

EKPO_W-FIELDNAME = 'MATNR'.

EKPO_W-REF_TABNAME = 'EKPO'.

EKPO_W-REF_FIELDNAME = 'MATNR'.

APPEND EKPO_W TO EKPO_B.

EVENTS_W-NAME = 'USER_COMMAND'.

EVENTS_W-FORM = 'VAL'.

APPEND EVENTS_W TO EVENTS_B.

ENDFORM. "GET_VAL

&----

*& Form VAL

&----

text

----

-->USER_COMMANtext
-->SEL text for retrieving data

----

FORM VAL USING USER_COMMAND LIKE SY-UCOMM SEL TYPE SLIS_SELFIELD.

DATA : VEN(10) TYPE N,

PO(10) TYPE N.

DATA : MAT(10) TYPE C.

IF SEL-FIELDNAME = 'LIFNR'.

VEN = SEL-VALUE.

SELECT EBELN AEDAT FROM EKKO INTO TABLE JTAB WHERE LIFNR = VEN.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = REPID

I_STRUCTURE_NAME = EKKO_B

IT_FIELDCAT = EKKO_B

IT_EVENTS = EVENTS_B

TABLES

T_OUTTAB = JTAB.

ENDIF.

IF SEL-FIELDNAME = 'EBELN'.

PO = SEL-VALUE.

SELECT EBELP MATNR FROM EKPO INTO TABLE KTAB WHERE EBELN = PO.

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

EXPORTING

I_TITLE = 'ITEM DETAILS'

I_TABNAME = 'EKPO'

IT_FIELDCAT = EKPO_B

I_CALLBACK_PROGRAM = REPID

IMPORTING

ES_SELFIELD = SEL

TABLES

T_OUTTAB = KTAB.

ENDIF.

logic to select a record

IF SEL-FIELDNAME = 'MATNR'.

MAT = SEL-VALUE.

SET PARAMETER ID 'MAT' FIELD MAT.

CALL TRANSACTION 'MM02' AND SKIP FIRST SCREEN.

ENDIF.

ENDFORM. "VAL

Re: interactive alv report

former_member198270 — Fri, 11 May 2007 11:26:17 GMT

hi Deepak ,

this program will provide you two level drill down ALV interactive report ..

below is the code for the same .

************************************************************************

GLOBAL DECLARATIONS--

************************************************************************

THIS DEFINES GLOBAL TYPES FOR ALV.

TYPE-POOLS: slis.

TRANSPARENT TABLES USED FOR DATA FETCHING

TABLES: ekko,ekpo,eket,lfa1,ekbe.

DATA : i_fieldcat TYPE slis_t_fieldcat_alv," FOR FIELDCATALOG

i2_fieldcat TYPE slis_t_fieldcat_alv,"FOR FIELDCATALOG 2

i3_fieldcat TYPE slis_t_fieldcat_alv, "FOR FIELDCATALOG 3

i_eventcat TYPE slis_t_event, "FOR EVENTCATALOG

i_layout TYPE slis_layout_alv, "FOR LAYOUT

i_sortinfo TYPE slis_t_sortinfo_alv. "FOR SORTING

VARIABLE FOR COUNT OF PO

DATA: n TYPE i ,

i TYPE i,

po_item TYPE ebelp,

v_count(1) VALUE 'N'.

*********************************************************************

TYPES--

*********************************************************************

DATA DECLARATION FOR VENDOR MASTER--

TYPES: BEGIN OF t_lfa1,

lifnr TYPE lifnr, "VENDOR CODE

name1 TYPE name1_gp, "VENDOR NAME

END OF t_lfa1.

DATA DECLARATION FOR HEADER(EKKO)--

TYPES: BEGIN OF t_ekko,

ebeln TYPE ebeln, "PURCHASE ORDER NUMBER

lifnr TYPE elifn, "VENDOR CODE

c TYPE i, "PURCHASE ORDER COUNT

END OF t_ekko.

DATA DECLARATION FOR DETAIL(EKPO)--

TYPES: BEGIN OF t_ekpo,

ebeln TYPE ebeln, "PURCHASE ORDER NUMBER

ebelp TYPE ebelp, "PURCHASE ORDER ITEM

menge TYPE bstmg, "PURCHASE ORDER QTY

END OF t_ekpo,

DATA DECLARATION FOR EKET TABLE--

BEGIN OF t_eket,

ebeln TYPE ebeln, "PURCHASE ORDER NUMBER

ebelp TYPE ebelp, "PURCHASE ORDER ITEM

etenr TYPE eeten, "DELIVERY SCHEDULE LINE COUNTER

wemng TYPE weemg, "QUANTITY OF GOODS RECIEVED

END OF t_eket ,

*----

DATA DECLARATION FOR FINAL TABLE(FIRST

SCREEN)----

BEGIN OF t_tab,

lifnr TYPE elifn,

ebeln TYPE ebeln,

name1 TYPE name1_gp,

ebelp TYPE ebelp,

menge TYPE bstmg,

etenr TYPE eeten,

wemng TYPE weemg,

c TYPE i,

END OF t_tab.

DATA DECLARATION FOR FINAL TABLE (SECOND SCREEN)---

TYPES: BEGIN OF t_vendor,

lifnr TYPE elifn,

ebeln TYPE ebeln,

ebelp TYPE ebelp,

menge TYPE bstmg,

wemng TYPE p,

END OF t_vendor,

DATA DECLARATION FOR EKBE--

BEGIN OF t_ekbe,

ebeln TYPE ebeln,

ebelp TYPE ebelp,

bwart TYPE bwart,

menge TYPE menge_d,

END OF t_ekbe.

*********************************************************************

WORK AREA--

*********************************************************************

DATA : wa_lfa1 TYPE t_lfa1,

wa_ekko TYPE t_ekko,

wa_ekpo TYPE t_ekpo,

wa_eket TYPE t_eket,

wa_tab TYPE t_tab,

wa_vendor TYPE t_vendor,

wa_ekbe TYPE t_ekbe,

wa_grn TYPE t_ekbe,

wa_full TYPE t_vendor.

*********************************************************************

INTERNAL TABLES--

*********************************************************************

DATA: it_lfa1 TYPE STANDARD TABLE OF t_lfa1 WITH HEADER LINE ,

it_ekko TYPE STANDARD TABLE OF t_ekko WITH HEADER LINE ,

it_ekpo TYPE STANDARD TABLE OF t_ekpo WITH HEADER LINE,

it_eket TYPE STANDARD TABLE OF t_eket WITH HEADER LINE,

it_tab TYPE STANDARD TABLE OF t_tab WITH HEADER LINE,

it_vendor TYPE STANDARD TABLE OF t_vendor WITH HEADER LINE,

it_ekbe TYPE STANDARD TABLE OF t_ekbe WITH HEADER LINE,

it_grn TYPE STANDARD TABLE OF t_ekbe WITH HEADER LINE,

it_full TYPE STANDARD TABLE OF t_vendor WITH HEADER LINE.

DATA: vendor TYPE elifn.

DATA: qty TYPE p,

c TYPE i.

*********************************************************************

SELECTION SCREEN--

**********************************************************************

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

SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr OBLIGATORY.

SELECTION-SCREEN END OF BLOCK main.

*********************************************************************

AT SELECTION-SCREEN--

*********************************************************************

AT SELECTION-SCREEN.

SELECT lifnr INTO (it_lfa1-lifnr) FROM lfa1 WHERE lifnr IN

s_lifnr.

ENDSELECT.

IF sy-subrc <> 0.

MESSAGE e001.

ENDIF.

*********************************************************************

START-OF-SELECTION--

*********************************************************************

START-OF-SELECTION.

FETCH RECORDS FROM THE DATABASE INTO THE INTERNAL TABLE.

PERFORM zf_select_it_tab.

PREPARE FIELDCATALOG FOR THE MAIN (1ST LIST) REPORT.

PERFORM zf_build_fieldcat USING i_fieldcat.

DEFINE EVENT TABLE

PERFORM build_eventcat USING i_eventcat.

DETERMINE THE SORTING SEQUENCE.

PERFORM build_sort USING i_sortinfo.

DISPLAY ALV GRID.

PERFORM zf_display_alv_list.

&----

*& Form ZF_SELECT_IT_TAB

&----

text

----

--> p1 text
<-- p2 text

----

*SELECTING DATA FROM IT_LFA1 TABLE

FORM zf_select_it_tab .

SELECT lifnr

name1

INTO TABLE it_lfa1

FROM lfa1

WHERE lifnr IN s_lifnr.

IF sy-subrc = 0.

SORT it_lfa1 BY lifnr.

ENDIF.

*SELECTING DATA FROM EKKO TABLE

IF NOT it_lfa1[] IS INITIAL.

SELECT

ebeln

lifnr

FROM ekko

INTO TABLE it_ekko

FOR ALL ENTRIES IN it_lfa1

WHERE lifnr = it_lfa1-lifnr.

IF sy-subrc = 0.

SORT it_ekko BY ebeln.

ENDIF.

*SELECTING DATA FROM EKPO TABLE

IF NOT it_ekko[] IS INITIAL.

SELECT

ebeln

ebelp

menge

FROM ekpo

INTO TABLE it_ekpo

FOR ALL ENTRIES IN it_ekko

WHERE ebeln = it_ekko-ebeln.

IF sy-subrc = 0.

SORT it_ekpo BY ebeln ebelp.

ENDIF.

*SELECTING DATA FROM EKET TABLE

IF NOT it_ekpo[] IS INITIAL.

SELECT

ebeln

ebelp

etenr

wemng

FROM eket

INTO TABLE it_eket

FOR ALL ENTRIES IN it_ekpo

WHERE ebeln = it_ekpo-ebeln

AND ebelp = it_ekpo-ebelp.

SORT it_eket BY ebeln ebelp etenr.

ENDIF.

*SELECTING DATA FROM EKBE TABLE

IF NOT it_eket[] IS INITIAL.

SELECT

ebeln

ebelp

bwart

menge

FROM ekbe

INTO TABLE it_ekbe

FOR ALL ENTRIES IN it_eket

WHERE ebelp = it_eket-ebelp

AND ebeln = it_eket-ebeln

AND bwart = '101'.

ENDIF.

*********************************************************

THIS BLOCK MOVES THE FIELDS FROM DIFFERENT *
TABLES(EKKO,LFA1,EKPO,EKET) INTO A FINAL TABLE IT_TAB *
*

*********************************************************

CLEAR wa_tab.

CLEAR it_tab.

LOOP AT it_lfa1 INTO wa_lfa1.

READ TABLE it_ekko INTO wa_ekko WITH KEY lifnr = wa_lfa1-lifnr

BINARY SEARCH.

READ TABLE it_lfa1 INTO wa_lfa1

WITH KEY lifnr = wa_lfa1-lifnr

BINARY SEARCH.

IF sy-subrc = 0.

MOVE: wa_lfa1-name1 TO wa_tab-name1.

MOVE: wa_lfa1-lifnr TO wa_tab-lifnr.

ENDIF.

APPEND wa_tab TO it_tab.

CLEAR : wa_tab,wa_lfa1.

ENDLOOP.

**READ FOR SECOND SCREEN

REFRESH it_full.

CLEAR : wa_full,

wa_eket,

wa_ekpo.

LOOP AT it_eket INTO wa_eket.

READ TABLE it_ekpo INTO wa_ekpo WITH KEY ebeln = wa_eket-ebeln

ebelp = wa_eket-ebelp

BINARY SEARCH.

IF sy-subrc = 0.

READ TABLE it_ekko INTO wa_ekko WITH KEY ebeln =

wa_ekpo-ebeln

BINARY SEARCH.

IF sy-subrc = 0.

READ TABLE it_lfa1 INTO wa_lfa1 WITH KEY lifnr = wa_ekko-lifnr

BINARY SEARCH.

IF sy-subrc = 0.

wa_full-ebelp = wa_ekpo-ebelp.

wa_full-menge = wa_ekpo-menge.

wa_full-lifnr = wa_lfa1-lifnr.

wa_full-ebeln = wa_ekko-ebeln.

wa_full-wemng = wa_eket-wemng.

ENDIF.

APPEND wa_full TO it_full.

CLEAR : wa_ekko,wa_ekpo,wa_eket,wa_full.

ENDLOOP.

COUNT OF PO

LOOP AT it_tab.

LOOP AT it_ekko WHERE lifnr = it_tab-lifnr.

c = c + 1.

ENDLOOP.

it_tab-c = c.

MODIFY it_tab TRANSPORTING c.

CLEAR c.

ENDLOOP.

ENDFORM. " ZF_SELECT_IT_TAB

&----

*& Form ZF_BUILD_FIELDCAT

&----

FIELD CATALOG FOR FIRST SCREEN

----

-->P_I_FIELDCAT text

----

FORM zf_build_fieldcat USING p_i_fieldcat TYPE slis_t_fieldcat_alv.

REFRESH p_i_fieldcat.

DATA: l_fieldcat TYPE slis_fieldcat_alv.

CLEAR l_fieldcat.

l_fieldcat-col_pos = '1'.

l_fieldcat-fieldname = 'LIFNR'.

l_fieldcat-tabname = 'IT_TAB'.

l_fieldcat-key = 'X'.

l_fieldcat-emphasize = 'C410'.

l_fieldcat-seltext_l = 'VENDOR CODE'.

l_fieldcat-outputlen = 20.

APPEND l_fieldcat TO p_i_fieldcat.

CLEAR l_fieldcat.

l_fieldcat-col_pos = '2'.

l_fieldcat-fieldname = 'NAME1'.

l_fieldcat-tabname = 'IT_TAB'.

l_fieldcat-emphasize = 'C410'.

l_fieldcat-seltext_l = 'VENDOR NAME'.

l_fieldcat-outputlen = 20.

APPEND l_fieldcat TO p_i_fieldcat.

CLEAR l_fieldcat.

l_fieldcat-col_pos = '3'.

l_fieldcat-fieldname = 'C'.

l_fieldcat-tabname = 'IT_TAB'.

l_fieldcat-emphasize = 'C410'.

l_fieldcat-seltext_l = 'PO COUNT'.

l_fieldcat-outputlen = 10.

APPEND l_fieldcat TO p_i_fieldcat.

ENDFORM. " ZF_BUILD_FIELDCAT

&----

*& Form ZF_DISPLAY_ALV_LIST

&----

CALLING FUNCTION FOR ALV GRID DISPLAY

----

--> p1 text
<-- p2 text

----

FORM zf_display_alv_list .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = 'Z8AS_SHADOW_ALV_INTERACTIVE'

i_callback_user_command = 'USER_COMMAND'

is_layout = i_layout

it_fieldcat = i_fieldcat

it_events = i_eventcat

TABLES

t_outtab = it_tab

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

&----

*& Form BUILD_SORT

&----

SORTING OUTPUT BY PURCHASE ORDER AND LINE ITEM

----

-->P_I_SORTINFO text

----

FORM build_sort USING p_i_sortinfo TYPE slis_t_sortinfo_alv.

REFRESH p_i_sortinfo.

DATA: l_sortinfo TYPE slis_sortinfo_alv.

CLEAR l_sortinfo.

l_sortinfo-spos = '1'.

l_sortinfo-fieldname = 'LIFNR'.

l_sortinfo-tabname = 'IT_VENDOR'.

l_sortinfo-up = 'X'.

l_sortinfo-group = 'UL'.

APPEND l_sortinfo TO p_i_sortinfo.

CLEAR l_sortinfo.

l_sortinfo-spos = '2'.

l_sortinfo-fieldname = 'EBELN'.

l_sortinfo-tabname = 'IT_VENDOR'.

l_sortinfo-up = 'X'.

l_sortinfo-group = 'UL'.

APPEND l_sortinfo TO p_i_sortinfo.

ENDFORM. " BUILD_SORT

&----

*& Form BUILD_EVENTCAT

&----

----

-->P_I_EVENTCAT text

----

FORM build_eventcat USING p_i_eventcat TYPE slis_t_event.

REFRESH p_i_eventcat.

DATA: i_event TYPE slis_alv_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = p_i_eventcat

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.

CLEAR i_event.

READ TABLE p_i_eventcat WITH KEY name = slis_ev_user_command INTO

i_event.

IF sy-subrc = 0.

MOVE 'USER_COMMAND' TO i_event-form.

APPEND i_event TO p_i_eventcat.

ENDIF.

ENDFORM. " BUILD_EVENTCAT

&----

*& FORM USER_COMMAND

&----

FORM user_command USING p_ucomm TYPE sy-ucomm

p_selfield TYPE slis_selfield.

CASE p_ucomm.

WHEN '&IC1'.

READ TABLE it_tab INTO wa_tab INDEX p_selfield-tabindex.

IF p_selfield-fieldname = 'LIFNR'.

vendor = p_selfield-value.

PERFORM zf_vendor_details.

PERFORM zf2_build_fieldcat USING i2_fieldcat.

PERFORM zf_display_grid.

ENDIF.

CLEAR p_selfield.

ENDCASE.

ENDFORM. " ZF_USER_COMMAND

&----

*& Form ZF_VENDOR_DETAILS

&----

THIS FORM IS USED FOR MOVING DATA FROM IT_TAB TO IT_VENDOR

----

--> p1 text
<-- p2 text

----

FORM zf_vendor_details .

CLEAR wa_ekko.

CLEAR it_ekko.

REFRESH it_vendor.

LOOP AT it_full INTO wa_full WHERE lifnr = vendor.

MOVE :

wa_full-lifnr TO wa_vendor-lifnr,

wa_full-ebeln TO wa_vendor-ebeln,

wa_full-ebelp TO wa_vendor-ebelp,

wa_full-menge TO wa_vendor-menge,

wa_full-wemng TO wa_vendor-wemng.

APPEND wa_vendor TO it_vendor.

CLEAR : wa_vendor.

ENDLOOP.

ENDFORM. " ZF_VENDOR_DETAILS

&----

*& Form ZF2_BUILD_FIELDCAT

&----

THIS FORM IS USED FOR CATALOG SCREEN 2

----

-->P_I_FIELDCAT text

----

FORM zf2_build_fieldcat USING p_i_fieldcat TYPE slis_t_fieldcat_alv.

REFRESH p_i_fieldcat.

DATA: l2_fieldcat TYPE slis_fieldcat_alv.

CLEAR l2_fieldcat.

l2_fieldcat-col_pos = '1'.

l2_fieldcat-fieldname = 'LIFNR'.

l2_fieldcat-tabname = 'IT_VENDOR'.

l2_fieldcat-key = 'X'.

l2_fieldcat-emphasize = 'C410'.

l2_fieldcat-seltext_l = 'VENDOR CODE'.

l2_fieldcat-outputlen = 20.

APPEND l2_fieldcat TO p_i_fieldcat.

CLEAR l2_fieldcat.

l2_fieldcat-col_pos = '2'.

l2_fieldcat-fieldname = 'EBELN'.

l2_fieldcat-tabname = 'IT_VENDOR'.

l2_fieldcat-key = 'X'.

l2_fieldcat-emphasize = 'C410'.

l2_fieldcat-seltext_l = 'PURCHASE ORDER NUMBER'.

l2_fieldcat-outputlen = 20.

APPEND l2_fieldcat TO p_i_fieldcat.

CLEAR l2_fieldcat.

l2_fieldcat-col_pos = '3'.

l2_fieldcat-fieldname = 'EBELP'.

l2_fieldcat-tabname = 'IT_VENDOR'.

l2_fieldcat-key = 'X'.

l2_fieldcat-emphasize = 'C710'.

l2_fieldcat-seltext_l = 'PO ITEM'.

l2_fieldcat-outputlen = 20.

APPEND l2_fieldcat TO p_i_fieldcat.

CLEAR l2_fieldcat.

l2_fieldcat-col_pos = '4'.

l2_fieldcat-fieldname = 'MENGE'.

l2_fieldcat-tabname = 'IT_VENDOR'.

l2_fieldcat-key = 'X'.

l2_fieldcat-emphasize = 'C410'.

l2_fieldcat-seltext_l = 'PO QTY'.

l2_fieldcat-outputlen = 20.

APPEND l2_fieldcat TO p_i_fieldcat.

CLEAR l2_fieldcat.

l2_fieldcat-col_pos = '5'.

l2_fieldcat-fieldname = 'WEMNG'.

l2_fieldcat-tabname = 'IT_VENDOR'.

l2_fieldcat-key = 'X'.

l2_fieldcat-emphasize = 'C450'.

l2_fieldcat-seltext_l = 'QTY RECIEVED'.

l2_fieldcat-outputlen = 20.

APPEND l2_fieldcat TO p_i_fieldcat.

CLEAR l2_fieldcat.

ENDFORM. "ZF2_BUILD_FIELDCAT

&----

*& Form ZF_DISPLAY_ALV_LIST

&----

text

----

--> p1 text
<-- p2 text

----

FORM zf_display_grid .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = 'Z8AS_SHADOW_ALV_INTERACTIVE'

I_CALLBACK_PF_STATUS_SET = ' '

i_callback_user_command = 'USER_COMMAND1'

it_fieldcat = i2_fieldcat

it_sort = i_sortinfo

IMPORTING

TABLES

t_outtab = it_vendor

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

&----

*& FORM USER_COMMAND1

&----

FORM user_command1 USING p_ucomm TYPE sy-ucomm

p_selfield TYPE slis_selfield.

CASE p_ucomm.

WHEN '&IC1'.

READ TABLE it_vendor INTO wa_vendor INDEX p_selfield-tabindex.

IF p_selfield-fieldname = 'WEMNG'.

po_item = wa_vendor-ebelp.

PERFORM zf_grn.

PERFORM zf3_build_fieldcat USING i3_fieldcat.

PERFORM zf1_display_grid.

ENDIF.

ENDCASE.

ENDFORM. " ZF_USER_COMMAND

&----

*& Form ZF3_BUILD_FIELDCAT

&----

FIELD CATALOG FOR THIRD SCREEN

----

-->P_I3_FIELDCAT text

----

FORM zf3_build_fieldcat USING p_i_fieldcat TYPE slis_t_fieldcat_alv

REFRESH p_i_fieldcat.

DATA: l3_fieldcat TYPE slis_fieldcat_alv.

CLEAR l3_fieldcat.

l3_fieldcat-col_pos = '1'.

l3_fieldcat-fieldname = 'EBELN'.

l3_fieldcat-tabname = 'IT_GRN'.

l3_fieldcat-key = 'X'.

l3_fieldcat-emphasize = 'C410'.

l3_fieldcat-seltext_l = 'P.O. NO'.

l3_fieldcat-outputlen = 20.

APPEND l3_fieldcat TO p_i_fieldcat.

CLEAR l3_fieldcat.

l3_fieldcat-col_pos = '2'.

l3_fieldcat-fieldname = 'EBELP'.

l3_fieldcat-tabname = 'IT_GRN'.

l3_fieldcat-key = 'X'.

l3_fieldcat-emphasize = 'C410'.

l3_fieldcat-seltext_l = 'P.O.ITEM'.

l3_fieldcat-outputlen = 20.

APPEND l3_fieldcat TO p_i_fieldcat.

CLEAR l3_fieldcat.

l3_fieldcat-col_pos = '3'.

l3_fieldcat-fieldname = 'BWART'.

l3_fieldcat-tabname = 'IT_GRN'.

l3_fieldcat-key = 'X'.

l3_fieldcat-emphasize = 'C410'.

l3_fieldcat-seltext_l = 'MOVEMENT TYPE'.

l3_fieldcat-outputlen = 20.

APPEND l3_fieldcat TO p_i_fieldcat.

CLEAR l3_fieldcat.

l3_fieldcat-col_pos = '4'.

l3_fieldcat-fieldname = 'MENGE'.

l3_fieldcat-tabname = 'IT_GRN'.

l3_fieldcat-key = 'X'.

l3_fieldcat-emphasize = 'C410'.

l3_fieldcat-seltext_l = 'GR QUANTITY'.

l3_fieldcat-outputlen = 20.

APPEND l3_fieldcat TO p_i_fieldcat.

CLEAR l3_fieldcat.

ENDFORM. " ZF3_BUILD_FIELDCAT

&----

*& Form ZF1_DISPLAY_GRID

&----

text

----

--> p1 text
<-- p2 text

----

FORM zf1_display_grid .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = 'Z8AS_SHADOW_ALV_INTERACTIVE'

it_fieldcat = i3_fieldcat

IMPORTING

TABLES

t_outtab = it_grn

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

&----

*& Form ZF_GRN

&----

text

----

--> p1 text
<-- p2 text

----

FORM zf_grn .

CLEAR wa_eket .

CLEAR it_eket.

REFRESH it_grn.

LOOP AT it_vendor INTO wa_vendor WHERE ebelp = po_item.

IF sy-subrc = 0.

READ TABLE it_ekbe INTO wa_ekbe WITH KEY

ebeln = wa_vendor-ebeln

ebelp = wa_vendor-ebelp.

IF sy-subrc = 0.

IF wa_ekbe-bwart = '101'.

MOVE: wa_ekbe-ebeln TO wa_grn-ebeln,

wa_ekbe-ebelp TO wa_grn-ebelp,

wa_ekbe-bwart TO wa_grn-bwart,

wa_ekbe-menge TO wa_grn-menge.

APPEND wa_grn TO it_grn.

CLEAR wa_ekbe.

CLEAR wa_grn.

ELSE.

MESSAGE e001.

ENDIF.

ENDLOOP.

ENDFORM. " ZF_GRN

<i>Reward Points if it helps you .</i>

Regards,

Amber S

Re: interactive alv report

Former Member — Fri, 11 May 2007 11:29:48 GMT

hi,

internal table with header line.

data : begin of itab_mara,

matnr like mara-matnr,

enum like mara-enum,

end of itab_mara.

data : begin of itab_marc,

matnr like marc-matnr,

werks like marc-werks,

end of itab_marc.

data : begin of itab_final,

matnr like mara-matnr,

enum like mara-enum,

werks like marc-werks.

data : d_fieldcat type slis_t_fieldcat_alv,

d_fieldcat_wa type slis_fieldcat_alv.

selection-screen : begin of block blk1 with frame title text-001.

select-options : s_matnr for mara-matnr,

s_werks for marc-werks.

selection-screen : end of block blk1.

select matnr erdat from table itab_mara where matnr in s_matnr.

if not itab_mara is initial.

select matnr werks from table itab_marc where werks in s_werks.

endif.

d_fieldcat_wa-fieldname = 'MATNR'.

d_fieldcat_seltext_l = 'material number'.

d_fieldcat_wa-col_pos = 1.

append d_fieldcat_wa to t_fieldcat.

clear d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'WERKS'.

d_fieldcat_seltext_l = 'plants'.

d_fieldcat_wa-col_pos = 2.

append d_fieldcat_wa to t_fieldcat.

clear d_fieldcat_wa.

data :gd_repid like sy-repid.

gd_repid = sy-repid.

call function module reuse_grid_display_alv.

exporting.

proramname = gd_repid.

fieldcat = d_fieldcat.

importing.

t_outtab = itab_final.

exceptions.

Reward with points if helpful.