topic Re: ALV INTERACTION REPORT DOUBT in Application Development and Automation Discussions

ALV INTERACTION REPORT DOUBT

Former Member — Fri, 22 Feb 2013 12:38:39 GMT

Hi all,

Below is my code for Interactive ALV report (sample program):

*-------Tables Used----------------------------------------------------

TABLES: SPFLI, SCARR. "SPFLI - Flight Schedule;; SCARR - Airline Detail

*-----------------------------------------------------------------------------

*-------------------Declaring Type Pool used & Structure.--------------------------------------

TYPE-POOLS: slis. .

TYPES: BEGIN OF ud_struct,

EKKO LIKE EKKO,

EKPO LIKE EKPO,

END OF ud_struct.

TYPES: BEGIN OF ebeln,

zebeln LIKE EKKO-EBELN,

END OF ebeln.

*----------------------------------------------------------------------------------------------

*------------------------------Internal Tables Declaration----------------------------------------

DATA: ITABCOMBI TYPE TABLE OF ud_struct,

GTOUTTAB TYPE SLIS_T_FIELDCAT_ALV,

WA_OUTTAB LIKE LINE OF GTOUTTAB,

T_EVENTCAT TYPE SLIS_T_EVENT,

W_EVENTCAT LIKE LINE OF T_EVENTCAT,

OUTTAB TYPE SLIS_T_FIELDCAT_ALV,

WA1_OUTTAB LIKE LINE OF GTOUTTAB,

Doc_Nm LIKE EKKO-EBELN, "Select Option Filed Decalarion

itab TYPE TABLE OF ebeln,

wa LIKE LINE OF itab,

CPROG TYPE SY-REPID.

TYPES: BEGIN OF itab_ekpo,

EBELN TYPE EBELN,

STATU TYPE STATU,

END OF itab_ekpo.

DATA: itabekpo TYPE TABLE OF itab_ekpo,

waekpo like LINE OF itabekpo.

DATA: gs_selfield TYPE slis_selfield. "Information cursor position ALV

SELECTION-SCREEN BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-000.

SELECT-OPTIONS: DOC_NUM for Doc_Nm.

SELECTION-SCREEN END OF BLOCK A1.

AT SELECTION-SCREEN.

SELECT EBELN FROM EKKO INTO TABLE itab WHERE EBELN IN DOC_NUM.

START-OF-SELECTION.

SELECT * FROM EKKO INNER JOIN EKPO ON EKKO~EBELN = EKPO~EBELN

INTO TABLE ITABCOMBI

FOR ALL ENTRIES IN ITAB

WHERE EKKO~EBELN = ITAB-ZEBELN.

WA_OUTTAB-tabname = 'ITABCOMBI'.

WA_OUTTAB-fieldname = 'EKKO-EBELN'.

WA_OUTTAB-SELTEXT_M = 'Purchasing Doc Num'.

WA_OUTTAB-COL_POS = 1.

WA_OUTTAB-OUTPUTLEN = 15.

WA_OUTTAB-HOTSPOT = 'X'.

APPEND WA_OUTTAB TO GTOUTTAB.

CLEAR WA_OUTTAB.

WA_OUTTAB-tabname = 'ITABCOMBI'.

WA_OUTTAB-fieldname = 'EKKO-BUKRS'.

WA_OUTTAB-SELTEXT_M = 'Company Code'.

WA_OUTTAB-COL_POS = 2.

WA_OUTTAB-OUTPUTLEN = 15.

APPEND WA_OUTTAB TO GTOUTTAB.

CLEAR WA_OUTTAB.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = 'SY-REPID'

I_CALLBACK_USER_COMMAND = 'PICKK'

IT_FIELDCAT = GTOUTTAB

TABLES

T_OUTTAB = ITABCOMBI

* 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 PICKK USING R_UCOMM TYPE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE r_ucomm.

*User clicks a transaction code and that tcode is called from ALV

WHEN '&IC1'. "Double Click / Hot Spot

gs_selfield = rs_selfield.

* WRITE: gs_selfield-fieldname.

IF gs_selfield-fieldname = 'EKKO-EBELN'.

SELECT EBELN STATU

FROM EKPO

INTO CORRESPONDING FIELDS OF TABLE itabekpo

WHERE EBELN = gs_selfield-value.

PERFORM second_display.

ELSE.

MESSAGE w208(001) WITH 'Select by Order only!'.

ENDIF.

ENDCASE.

ENDFORM.

FORM second_display.

WA1_OUTTAB-tabname = 'ITABCOMBI'.

WA1_OUTTAB-fieldname = 'EKKO-EBELN'.

WA1_OUTTAB-SELTEXT_M = 'Purchasing Doc Num'.

WA1_OUTTAB-COL_POS = 1.

WA1_OUTTAB-OUTPUTLEN = 15.

WA1_OUTTAB-HOTSPOT = 'X'.

APPEND WA1_OUTTAB TO OUTTAB.

CLEAR WA1_OUTTAB.

WA1_OUTTAB-tabname = 'ITABCOMBI'.

WA1_OUTTAB-fieldname = 'EKKO-BUKRS'.

WA1_OUTTAB-SELTEXT_M = 'Company Code'.

WA1_OUTTAB-COL_POS = 2.

WA1_OUTTAB-OUTPUTLEN = 15.

APPEND WA1_OUTTAB TO OUTTAB.

CLEAR WA1_OUTTAB.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = CPROG

IT_FIELDCAT = OUTTAB

IT_EVENTS = T_EVENTCAT

TABLES

T_OUTTAB = ITABEKPO

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.

FORM T_EVENTCAT.

W_EVENTCAT-NAME = 'TOP_OF_PAGE'.

W_EVENTCAT-FORM = 'TOP'.

APPEND W_EVENTCAT TO T_EVENTCAT.

ENDFORM.

FORM TOP.

READ TABLE itabekpo INTO waekpo INDEX 1.

WRITE😕 'Purchase Document Number'(001),30 waekpo-EBELN,

/ 'RFQ Statement'(002), 30 waekpo-STATU.

ENDFORM.

Im getting my 1st list, but im not able to link my 1st list field with 2nd list. (nothing happens while cliking the hotspot field - ebeln on my first screen)..

Re: ALV INTERACTION REPORT DOUBT

Former Member — Fri, 22 Feb 2013 13:20:08 GMT

Check this code.. almost similar as your one.

***********************************************************************
* TYPE-POOLS DECLARATION
***********************************************************************
TYPE-POOLS:
SLIS.

***********************************************************************
* DATA DECLARATIONS
***********************************************************************

DATA:
W_EBELN TYPE EKKO-EBELN,
W_PROG TYPE SY-REPID,
T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
FS_FIELDCAT LIKE LINE OF T_FIELDCAT,
T_EVENTCAT TYPE SLIS_T_EVENT,
W_EVENTCAT LIKE LINE OF T_EVENTCAT.

***********************************************************************
* SELECT-OPTIONS DECLARATION
***********************************************************************
SELECT-OPTIONS:
S_EBELN FOR W_EBELN.

***********************************************************************
* INTERNAL TABLE AND FIELD-STRING DECLARATIONS
***********************************************************************

DATA:
T_EKKO LIKE
STANDARD TABLE
OF EKKO,
FS_EKKO LIKE LINE OF T_EKKO.

DATA:
T_EKPO LIKE
STANDARD TABLE
OF EKPO,
FS_EKPO LIKE LINE OF T_EKPO.

***********************************************************************
* START-OF-SELECTION
***********************************************************************
START-OF-SELECTION.
SELECT *
FROM EKKO
INTO TABLE T_EKKO
WHERE EBELN IN S_EBELN.

W_PROG = SY-REPID.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = W_PROG
I_CALLBACK_USER_COMMAND = 'PICK'
I_STRUCTURE_NAME = 'EKKO'
TABLES
T_OUTTAB = T_EKKO
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 pick
*&--------------------------------------------------------------------*
* -->UCOMM text
* -->SELFIELD text
*---------------------------------------------------------------------*
FORM PICK USING COMMAND LIKE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.
READ TABLE T_EKKO INTO FS_EKKO INDEX SELFIELD-TABINDEX.

CASE COMMAND.
WHEN '&IC1'.
SELECT *
FROM EKPO
INTO TABLE T_EKPO
WHERE EBELN EQ FS_EKKO-EBELN.

W_PROG = SY-REPID.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_STRUCTURE_NAME = 'EKPO'
CHANGING
CT_FIELDCAT = T_FIELDCAT
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

DELETE T_FIELDCAT WHERE FIELDNAME EQ 'EBELN'.
DELETE T_FIELDCAT WHERE FIELDNAME EQ 'BUKRS'.
DELETE T_FIELDCAT WHERE FIELDNAME EQ 'LGORT'.
DELETE T_FIELDCAT WHERE FIELDNAME EQ 'WERKS'.

Perform t_eventcat.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = W_PROG
IT_FIELDCAT = T_FIELDCAT
IT_EVENTS = T_EVENTCAT
TABLES
T_OUTTAB = T_EKPO
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. " CASE COMMAND
ENDFORM. " FORM PICK

FORM T_EVENTCAT.
W_EVENTCAT-NAME = 'TOP_OF_PAGE'.
W_EVENTCAT-FORM = 'TOP'.
APPEND W_EVENTCAT TO T_EVENTCAT.
ENDFORM.

FORM TOP.
READ TABLE T_EKPO INTO FS_EKPO INDEX 1.
WRITE:/ 'Purchase Document Number'(001),30 FS_EKPO-EBELN,
/ 'Company Code'(002), 30 FS_EKPO-BUKRS,
/ 'Plant'(003), 30 FS_EKPO-WERKS,
/ 'Storage Location'(004),30 FS_EKPO-LGORT.
ENDFORM.

Re: ALV INTERACTION REPORT DOUBT

Former Member — Sat, 23 Feb 2013 05:31:49 GMT

Hi Soumyasanto,

Thankyou for reviewing the code and coming back with n executable code...

Apparently my doubt is, while calling function ''REUSE_ALV_LIST_DISPLAY'', you exported structure name and in my original program i exported the field catalog which i had filled. can we not export a field catalog? Because in your program i have all the field displayed and in mine im trying to display only 2 fields.. How will i achieve that?

Re: ALV INTERACTION REPORT DOUBT

Former Member — Sat, 23 Feb 2013 10:23:27 GMT

Hi Khushboo,

it's because of the use of FM 'REUSE_ALV_FIELDCATALOG_MERGE' that the structure is passed which is present in the dictionary. You can pass any Z table also. That's exactly the functionality of this FM which helps you to prepare the fieldcatalog without putting much effort.

Now, u need to pass only 2 fields in the fieldcatalog. Hence, its not a good idea to make a Z table with 2 fields, So u can make the fieldcatalog manually and pass it in FM

''REUSE_ALV_LIST_DISPLAY''

Regarding user click linking, plz debug and check if " gs_selfield " is not initial.

Thanks

Vivek

Re: ALV INTERACTION REPORT DOUBT

Former Member — Sat, 23 Feb 2013 11:02:58 GMT

Hai,

Try this code you might get some idea,

TYPE-POOLS: SLIS.
*type declaration for values from ekko
TYPES: BEGIN OF I_EKKO,
        EBELN LIKE EKKO-EBELN,
        AEDAT LIKE EKKO-AEDAT,
        BUKRS LIKE EKKO-BUKRS,
        BSART LIKE EKKO-BSART,
        LIFNR LIKE EKKO-LIFNR,
        END OF I_EKKO.

DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,
       WA_EKKO TYPE I_EKKO.

*type declaration for values from ekpo
TYPES: BEGIN OF I_EKPO,
        EBELN LIKE EKPO-EBELN,
        EBELP LIKE EKPO-EBELP,
        MATNR LIKE EKPO-MATNR,
        MENGE LIKE EKPO-MENGE,
        MEINS LIKE EKPO-MEINS,
        NETPR LIKE EKPO-NETPR,
        END OF I_EKPO.

DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,
       WA_EKPO TYPE I_EKPO .

*variable for Report ID
DATA: V_REPID LIKE SY-REPID .

*declaration for fieldcatalog
DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       WA_FIELDCAT 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: V_EVENTS TYPE SLIS_T_EVENT,
       WA_EVENT TYPE SLIS_ALV_EVENT.

* declartion for layout
DATA: ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.

* declaration for variant(type of display we want)
DATA: I_VARIANT TYPE DISVARIANT,
       I_VARIANT1 TYPE DISVARIANT,
       I_SAVE(1) TYPE C.

*PARAMETERS : p_var TYPE disvariant-variant.

*Title displayed when the alv list is displayed
DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.
DATA: I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED'.

INITIALIZATION.
   V_REPID = SY-REPID.
   PERFORM BUILD_FIELDCATLOG.
   PERFORM EVENT_CALL.
   PERFORM POPULATE_EVENT.

START-OF-SELECTION.
   PERFORM DATA_RETRIEVAL.
   PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.
   PERFORM DISPLAY_ALV_REPORT.

*&--------------------------------------------------------------------*
*&      Form BUILD_FIELDCATLOG
*&--------------------------------------------------------------------*
*       Fieldcatalog has all the field details from ekko
*---------------------------------------------------------------------*
FORM BUILD_FIELDCATLOG.
   WA_FIELDCAT-TABNAME = 'IT_EKKO'.
   WA_FIELDCAT-FIELDNAME = 'EBELN'.
   WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
   APPEND WA_FIELDCAT TO I_FIELDCAT.
   CLEAR WA_FIELDCAT.

   WA_FIELDCAT-TABNAME = 'IT_EKKO'.
   WA_FIELDCAT-FIELDNAME = 'AEDAT'.
   WA_FIELDCAT-SELTEXT_M = 'DATE.'.
   APPEND WA_FIELDCAT TO I_FIELDCAT.
   CLEAR WA_FIELDCAT.

   WA_FIELDCAT-TABNAME = 'IT_EKKO'.
   WA_FIELDCAT-FIELDNAME = 'BUKRS'.
   WA_FIELDCAT-SELTEXT_M = 'COMPANY CODE'.
   APPEND WA_FIELDCAT TO I_FIELDCAT.
   CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.
   WA_FIELDCAT-FIELDNAME = 'BUKRS'.
   WA_FIELDCAT-SELTEXT_M = 'DOCMENT TYPE'.
   APPEND WA_FIELDCAT TO I_FIELDCAT.
   CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.
   WA_FIELDCAT-FIELDNAME = 'LIFNR'.
   WA_FIELDCAT-NO_OUT    = 'X'.
   WA_FIELDCAT-SELTEXT_M = 'VENDOR CODE'.
   APPEND WA_FIELDCAT TO I_FIELDCAT.
   CLEAR WA_FIELDCAT.

ENDFORM.                    "BUILD_FIELDCATLOG

*&--------------------------------------------------------------------*
*&      Form EVENT_CALL
*&--------------------------------------------------------------------*
*   we get all events - TOP OF PAGE or USER COMMAND in table v_events
*---------------------------------------------------------------------*
FORM EVENT_CALL.
   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE           = 0
    IMPORTING
      ET_EVENTS             = V_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.                    "EVENT_CALL

*&--------------------------------------------------------------------*
*&      Form POPULATE_EVENT
*&--------------------------------------------------------------------*
*      Events populated for TOP OF PAGE & USER COMAND
*---------------------------------------------------------------------*
FORM POPULATE_EVENT.
   READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
   IF SY-SUBRC EQ 0.
     WA_EVENT-FORM = 'TOP_OF_PAGE'.
     MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
   ENDIF.

   READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
   IF SY-SUBRC EQ 0.
     WA_EVENT-FORM = 'USER_COMMAND'.
     MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-NAME.
   ENDIF.
ENDFORM.                    "POPULATE_EVENT

*&--------------------------------------------------------------------*
*&      Form data_retrieval
*&--------------------------------------------------------------------*
*   retreiving values from the database table ekko
*---------------------------------------------------------------------*
FORM DATA_RETRIEVAL.
   SELECT EBELN AEDAT BUKRS BSART LIFNR FROM EKKO INTO TABLE IT_EKKO.

ENDFORM.                    "data_retrieval
*&--------------------------------------------------------------------*
*&      Form bUild_listheader
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
*      -->I_LISTHEADEtext
*---------------------------------------------------------------------*
FORM BUILD_LISTHEADER USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
   DATA HLINE TYPE SLIS_LISTHEADER.
   HLINE-INFO = 'this is my first alv pgm'.
   HLINE-TYP = 'H'.
ENDFORM.                    "build_listheader

*&--------------------------------------------------------------------*
*&      Form display_alv_report
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM DISPLAY_ALV_REPORT.
   V_REPID = SY-REPID.
   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM                = V_REPID
*   I_CALLBACK_PF_STATUS_SET          = ' '
      I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
      I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE'
      I_GRID_TITLE                      = I_TITLE_EKKO
*   I_GRID_SETTINGS                   =
*   IS_LAYOUT                         = ALV_LAYOUT
      IT_FIELDCAT                       = I_FIELDCAT[]
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*     i_default                         = 'ZLAY1'
      I_SAVE                            = 'A'
*     is_variant                        = i_variant
      IT_EVENTS                         = V_EVENTS
     TABLES
       T_OUTTAB                          = IT_EKKO
* 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_alv_report

*&--------------------------------------------------------------------*
*&      Form TOP_OF_PAGE
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM TOP_OF_PAGE.
   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
     EXPORTING
       IT_LIST_COMMENTARY       = IT_LISTHEADER
*    i_logo                   =
*    I_END_OF_LIST_GRID       =
             .

ENDFORM.                    "TOP_OF_PAGE

*&--------------------------------------------------------------------*
*&      Form USER_COMMAND
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
*      -->R_UCOMM    text
*      -->,          text
*      -->RS_SLEFIELDtext
*---------------------------------------------------------------------*
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
   CASE R_UCOMM.
     WHEN '&IC1'.
       READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.
       PERFORM BUILD_FIELDCATLOG_EKPO.
       PERFORM EVENT_CALL_EKPO.
       PERFORM POPULATE_EVENT_EKPO.
       PERFORM DATA_RETRIEVAL_EKPO.
       PERFORM BUILD_LISTHEADER_EKPO USING IT_LISTHEADER.
       PERFORM DISPLAY_ALV_EKPO.
   ENDCASE.
ENDFORM.                    "user_command
*&--------------------------------------------------------------------*
*&      Form BUILD_FIELDCATLOG_EKPO
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM BUILD_FIELDCATLOG_EKPO.

   WA_FIELDCAT-TABNAME = 'IT_EKPO'.
   WA_FIELDCAT-FIELDNAME = 'EBELN'.
   WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
   APPEND WA_FIELDCAT TO I_FIELDCAT.
   CLEAR WA_FIELDCAT.
   WA_FIELDCAT-TABNAME = 'IT_EKPO'.
   WA_FIELDCAT-FIELDNAME = 'EBELP'.
   WA_FIELDCAT-SELTEXT_M = 'LINE NO'.
   APPEND WA_FIELDCAT TO I_FIELDCAT.
   CLEAR WA_FIELDCAT.
   WA_FIELDCAT-TABNAME = 'I_EKPO'.
   WA_FIELDCAT-FIELDNAME = 'MATNR'.
   WA_FIELDCAT-SELTEXT_M = 'MATERIAL NO.'.
   APPEND WA_FIELDCAT TO I_FIELDCAT.
   CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
   WA_FIELDCAT-FIELDNAME = 'MENGE'.
   WA_FIELDCAT-SELTEXT_M = 'QUANTITY'.
   APPEND WA_FIELDCAT TO I_FIELDCAT.
   CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.
   WA_FIELDCAT-FIELDNAME = 'MEINS'.
   WA_FIELDCAT-SELTEXT_M = 'UOM'.
   APPEND WA_FIELDCAT TO I_FIELDCAT.
   CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.
   WA_FIELDCAT-FIELDNAME = 'NETPR'.
   WA_FIELDCAT-SELTEXT_M = 'PRICE'.
   APPEND WA_FIELDCAT TO I_FIELDCAT.
   CLEAR WA_FIELDCAT.

ENDFORM.                    "BUILD_FIELDCATLOG_EKPO

*&--------------------------------------------------------------------*
*&      Form event_call_ekpo
*&--------------------------------------------------------------------*
*   we get all events - TOP OF PAGE or USER COMMAND in table v_events
*---------------------------------------------------------------------*
FORM EVENT_CALL_EKPO.
   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE           = 0
    IMPORTING
      ET_EVENTS             = V_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.                    "event_call_ekpo

*&--------------------------------------------------------------------*
*&      Form POPULATE_EVENT
*&--------------------------------------------------------------------*
*        Events populated for TOP OF PAGE & USER COMAND
*---------------------------------------------------------------------*
FORM POPULATE_EVENT_EKPO.
   READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
   IF SY-SUBRC EQ 0.
     WA_EVENT-FORM = 'TOP_OF_PAGE'.
     MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
   ENDIF.

   ENDFORM.                    "POPULATE_EVENT

*&--------------------------------------------------------------------*
*&      Form TOP_OF_PAGE
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM F_TOP_OF_PAGE.
   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
     EXPORTING
       IT_LIST_COMMENTARY       = IT_LISTHEADER
*    i_logo                   =
*    I_END_OF_LIST_GRID       =
             .

ENDFORM.                    "TOP_OF_PAGE

*&--------------------------------------------------------------------*
*&      Form USER_COMMAND
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
*      -->R_UCOMM    text
*      -->,          text
*      -->RS_SLEFIELDtext
*---------------------------------------------------------------------*

*retreiving values from the database table ekko
FORM DATA_RETRIEVAL_EKPO.
SELECT EBELN EBELP MATNR MENGE MEINS NETPR FROM EKPO INTO TABLE IT_EKPO.
ENDFORM.

FORM BUILD_LISTHEADER_EKPO USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA: HLINE1 TYPE SLIS_LISTHEADER.
HLINE1-TYP = 'H'.
HLINE1-INFO = 'CHECKING PGM'.
ENDFORM.

FORM DISPLAY_ALV_EKPO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
    I_CALLBACK_PROGRAM                = V_REPID
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = 'F_USER_COMMAND'
    I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE'
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
    I_GRID_TITLE                      = I_TITLE_EKPO
*   I_GRID_SETTINGS                   =
*   IS_LAYOUT                         =
    IT_FIELDCAT                       = I_FIELDCAT[]
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         =
    I_SAVE                            = 'A'
*   IS_VARIANT                        =
    IT_EVENTS                         = V_EVENTS
   TABLES
     T_OUTTAB                          = IT_EKPO
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.

Thanks & Regards,

Ramu Velaga.

Re: ALV INTERACTION REPORT DOUBT

Former Member — Mon, 25 Feb 2013 06:52:17 GMT

Hi Friends,

1st and foremost - thankyou for all your replies.

Now,

I have jotted down a simple most INTERACTIVE ALV program (with minimum events to create a simple intercative report), and its working fine except for my 1st list display, i have to create a layout for my field cataliog manually ( REUSE_ALV_FIELDCATALOG_MERGE is not working - i have created an internal table to be passed a sa stucture whose framework has to be copied.. refer line 21 - type: FIRST_EKKO_LIST)...

I have mentioned my doubt in program itself at line 64, 65 ( CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE') - which i have commented..

Anyways, this is what i call the most simple interactive report ( with no extra events jazz for us newbees 😞

*&---------------------------------------------------------------------*

*& Report ZSCENARIO_DUPLICATE *

*& *

*&---------------------------------------------------------------------*

*& *

*&---------------------------------------------------------------------*

REPORT ZSCENARIO_DUPLICATE NO STANDARD PAGE HEADING.

TYPE-POOLS: SLIS.

*-----Structure Definition for 1st list ( which will hold fields Ebeln and bukrs from table ekko )-------

TYPES: BEGIN OF FIRST_EKKO_LIST,

EBELN LIKE EKKO-EBELN,

BUKRS LIKE EKKO-BUKRS,

END OF FIRST_EKKO_LIST.

*---------------------Internal Table and Work Area creation for structure 'FIRST_EKKO_LIST'-------------

DATA: ITAB_FIRST_EKKO_LIST TYPE STANDARD TABLE OF FIRST_EKKO_LIST,

WA_FIRST_EKKO_LIST TYPE FIRST_EKKO_LIST.

* ----------------------Field Catalog Declaration for 1st list of table ITAB_FIRST_EKKO_LIST-----------

DATA: FC_FIRST_EKKO_LIST TYPE SLIS_T_FIELDCAT_ALV,

WAFC_FIRST_EKKO_LIST LIKE LINE OF FC_FIRST_EKKO_LIST.

*--------------------------Internal Table and workarea for 2nd list - (All fields of EKPO)------------------

DATA: ITAB_EKPO LIKE TABLE OF EKPO,

WA_EKPO LIKE LINE OF ITAB_EKPO.

* ----------------------Field Catalog Declaration for 2ND list of table ITAB_EKPO-----------

DATA: FC_EKPO TYPE SLIS_T_FIELDCAT_ALV,

WAFC_EKPO LIKE LINE OF FC_EKPO.

*------------------------------------------------------------------------------------------

DATA: f_ebeln TYPE EKKO-EBELN, "Used in Select Options

F_PROG TYPE SY-REPID. "Used while ceating field catalog

**---------------Mandatory events for Interactive ALV Reports.--------------------------

*DATA: T_EVENTCAT TYPE SLIS_T_EVENT,

*W_EVENTCAT LIKE LINE OF T_EVENTCAT.

*--------------------Accepting User Range for EKKO-BELN into DOC_NUM-------------------------------------

SELECT-OPTIONS: DOC_NUM FOR f_ebeln.

*--------Filtering fields EBELN and BUKRS based on innerjoin of field ebeln from

*table EKKO and EKPO and within the ebeln range specified in DOC_NUM------------------------

START-OF-SELECTION.

SELECT EKKO~EBELN EKKO~BUKRS

FROM EKKO INNER JOIN EKPO ON EKKO~EBELN = EKPO~EBELN

INTO CORRESPONDING FIELDS OF TABLE ITAB_FIRST_EKKO_LIST

WHERE EKKO~EBELN IN DOC_NUM.

*--------------------Merging a Field Catalog for 1st klist dispaly using table contents

*and table structure of ITAB_FIRST_EKKO_LIST ---------------------------------------------------------

F_PROG = SY-REPID.

*---------------------Doubt - Why merge is not working for the defined structure at line 14-----------------------------------

* CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

* EXPORTING

* I_PROGRAM_NAME = F_PROG

* I_INTERNAL_TABNAME = 'ITAB_FIRST_EKKO_LIST'

* I_STRUCTURE_NAME = 'FIRST_EKKO_LIST'

** I_CLIENT_NEVER_DISPLAY = 'X'

** I_INCLNAME =

** I_BYPASSING_BUFFER =

** I_BUFFER_ACTIVE =

* CHANGING

* CT_FIELDCAT = FC_FIRST_EKKO_LIST

* EXCEPTIONS

* INCONSISTENT_INTERFACE = 1

* PROGRAM_ERROR = 2

* OTHERS = 3

* .

* IF SY-SUBRC <> 0.

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

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

* ENDIF.

* IF FC_FIRST_EKKO_LIST IS INITIAL.

* WRITE: 'FIELD-CATALOG NOT FORMED.'.

* ENDIF.

*-------------------Doubt Ends-----------------------------------------------------------------

*------------Manually Creating Field Structure for my 1st list dispaly where i intend to display

*fields Purchase Doc (ebeln) Number And Company Code (bukrs) only.---------------------------------

WAFC_FIRST_EKKO_LIST-tabname = 'ITAB_FIRST_EKKO_LIST'.

WAFC_FIRST_EKKO_LIST-fieldname = 'EBELN'.

WAFC_FIRST_EKKO_LIST-SELTEXT_M = 'Purchasing Doc Num'.

WAFC_FIRST_EKKO_LIST-COL_POS = 1.

WAFC_FIRST_EKKO_LIST-OUTPUTLEN = 15.

WAFC_FIRST_EKKO_LIST-HOTSPOT = 'X'.

APPEND WAFC_FIRST_EKKO_LIST TO FC_FIRST_EKKO_LIST.

WAFC_FIRST_EKKO_LIST-tabname = 'ITAB_FIRST_EKKO_LIST'.

WAFC_FIRST_EKKO_LIST-fieldname = 'BUKRS '.

WAFC_FIRST_EKKO_LIST-SELTEXT_M = 'Company Code'.

WAFC_FIRST_EKKO_LIST-COL_POS = 2.

WAFC_FIRST_EKKO_LIST-OUTPUTLEN = 15.

APPEND WAFC_FIRST_EKKO_LIST TO FC_FIRST_EKKO_LIST.

*--------------------Displaying 1st list-------------------------------------

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = F_PROG

I_CALLBACK_USER_COMMAND = 'PICK' "At double click (user-command) perform 'PICK' function.

* I_STRUCTURE_NAME =

IT_FIELDCAT = FC_FIRST_EKKO_LIST "Field catalog prepared

* IT_EVENTS =

* IT_EVENT_EXIT =

* IMPORTING

* E_EXIT_CAUSED_BY_CALLER =

* ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = ITAB_FIRST_EKKO_LIST "Contains Content displayed in field Catalog

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.

*---------------------Defining Form PICK to perform instruction at user command double click'-----

FORM PICK USING COMMAND LIKE SY-UCOMM

SELFIELD TYPE SLIS_SELFIELD. " Function 'PICK; with parameters of type 'User Command' and Capturing details of line on which user command is performed using 'SLIS_SELFIELD' type.

READ TABLE ITAB_FIRST_EKKO_LIST INTO WA_FIRST_EKKO_LIST INDEX SELFIELD-TABINDEX. "ITAB_FIRST_EKKO_LIST holds 1st list data and WA_FIRST_EKKO_LIST is its workarea..Capturing double clicked line from ITAB_FIRST_EKKO_LIST into WA_FIRST_EKKO_LIST.

CASE COMMAND.

WHEN '&IC1'. "Double Click

SELECT * "Filtering data based on requirement - here all the fields from ekpo where ebeln = captured lines ebeln.

FROM EKPO

INTO TABLE ITAB_EKPO "Filtered data in internal table ITAB_EKPO

WHERE EBELN EQ WA_FIRST_EKKO_LIST-EBELN.

F_PROG = SY-REPID. "Assigning Program name to F_PROG

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_STRUCTURE_NAME = 'EKPO' "Since we want all the fields from ekpo, we directly pass table ekpo

CHANGING

CT_FIELDCAT = FC_EKPO "Field catalog prepared for list 2. (decalsred at line34)

EXCEPTIONS

INCONSISTENT_INTERFACE = 1

PROGRAM_ERROR = 2

OTHERS = 3

IF SY-SUBRC <> 0.

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

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

ENDIF.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' "Displaying 2nd list

EXPORTING

I_CALLBACK_PROGRAM = F_PROG

IT_FIELDCAT = FC_EKPO

*IT_EVENTS = T_EVENTCAT

TABLES

T_OUTTAB = ITAB_EKPO

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. " CASE COMMAND

ENDFORM. " FORM PICK

*FORM T_EVENTCAT. "Event mandatory for intercative ALV report.

*W_EVENTCAT-NAME = 'TOP_OF_PAGE'.

*W_EVENTCAT-FORM = 'TOP'.

*APPEND W_EVENTCAT TO T_EVENTCAT.

*ENDFORM.

*FORM TOP.

*READ TABLE T_EKPO INTO FS_EKPO INDEX 1.

*WRITE:/ 'Purchase Document Number'(001),30 FS_EKPO-EBELN,

*/ 'Company Code'(002), 30 FS_EKPO-BUKRS,

*/ 'Plant'(003), 30 FS_EKPO-WERKS,

*/ 'Storage Location'(004),30 FS_EKPO-LGORT.

*ENDFORM.

Thankyou, and ill be thankful if anyone can tell me why REUSE_ALV_FIELDCATALOG_MERGE is not working for my 1st list dispaly ( and as a result a result i had to manually create the catalog ) .. But the requireemnt is only those 2 columns (fields) for 1st listdipaly, i dont want the full ekko table.

Thankyou tons,

Khushboo Singh

Re: ALV INTERACTION REPORT DOUBT

Former Member — Mon, 25 Feb 2013 07:10:39 GMT

Hi Khushboo,

Try using the parameters given below for FM REUSE_ALV_FIELDCATALOG_MERGE,

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = F_PROG

I_INTERNAL_TABNAME = 'ITAB_FIRST_EKKO_LIST'

I_INCLNAME = F_PROG

CHANGING

CT_FIELDCAT = FC_FIRST_EKKO_LIST

EXCEPTIONS

INCONSISTENT_INTERFACE = 1

PROGRAM_ERROR = 2

OTHERS = 3.

Thanks & Regards,

Tushar

Re: ALV INTERACTION REPORT DOUBT

Former Member — Mon, 25 Feb 2013 07:25:02 GMT

Hey Tushar,

Thankyou for coming back with a reply

I tried it without passing include program (since i did not create any include for this), and no list is getting generated after giving range for

SELECT-OPTIONS: 'DOC_NUM' . after the execute click, nothing happens.. and just to test, i added a write statement after calling this FM, as this:

IF FC_FIRST_EKKO_LIST IS INITIAL.

WRITE: 'No field catalog created!'.

ENDIF.

And the o/p is : No field catalog created!

Thankyou

Re: ALV INTERACTION REPORT DOUBT

Former Member — Tue, 26 Feb 2013 08:45:14 GMT

Hi Khushboo,

Try passing the report name(sy-repid)(in your case it will be F_PROG) to both the parameters given below(even if you have not created a new include),

1. I_PROGRAM_NAME

2. I_INCLNAME

Thanks & Regards,

Tushar

Re: ALV INTERACTION REPORT DOUBT

Former Member — Tue, 26 Feb 2013 09:48:02 GMT

ok.. ill try that currently stuck with something different. how do i derive CST tax value, base price of a material in PO... in short how do i relate KOMP, KOMV and PO?? i cant find any relations.. please help.

Re: ALV INTERACTION REPORT DOUBT

Former Member — Tue, 26 Feb 2013 10:05:19 GMT

Hi khushboo,

Use FM CALCULATE_TAX_ITEM.

Hope this helps you.

Thanks & Regards

Tushar.

Re: ALV INTERACTION REPORT DOUBT

Former Member — Tue, 26 Feb 2013 10:09:23 GMT

Hi Khushboo,

The relationship is as below if you see from the tables as is -

EKKO-KNUMV ( Condition Record Number of PO) = KOMV-KNUMV , you get KOMV-KPOSN here.

KOMV-KPOSN = KOMP-KPOSN

EKKO - Purchase Order Table

KOMV - Pricing Communications-Condition Record

KOMP - Pricing Communication Item

But what exactly is your requirment as KOMV and KOMP are structures and they won't store any data like database tables.

Re: ALV INTERACTION REPORT DOUBT

Former Member — Tue, 26 Feb 2013 10:24:13 GMT

heyi,

i have a report in which material number and some other PO level details are generated (item wise)..now, i need to find the base price of this material and CST and display in report.. How will i derive these values for those materials for that specific PO?

Re: ALV INTERACTION REPORT DOUBT

Former Member — Tue, 26 Feb 2013 10:25:11 GMT

and i wish i can make that smily a little more confuse looking, coz thats how confused im , so ill multiply the number of smileys plz get back as soon as possible,, please.

Re: ALV INTERACTION REPORT DOUBT

Former Member — Tue, 26 Feb 2013 10:31:29 GMT

meanwhile im trying what our expert friend Tushar has suggested.

Re: ALV INTERACTION REPORT DOUBT

Former Member — Tue, 26 Feb 2013 10:55:29 GMT

Hi Khushboo,

Try using BAPIs such as BAPI_PO_GETDETAIL or BAPI_PO_GETDETAIL1 whichever suits your requirement. Enter PO number and pass X to all the tables that you would require. Hope this helps!

Re: ALV INTERACTION REPORT DOUBT

Former Member — Tue, 26 Feb 2013 11:09:51 GMT

Hi kushboo,

look at below code .......let me know if u hav any doubts.........

*&---------------------------------------------------------------------*

*& Report ZP_ALVINT

*&---------------------------------------------------------------------*

REPORT ZP_ALVINT.

TABLES: LFA1, EKKO, EKPO.

SELECT-OPTIONS: S_LIFNR FOR LFA1-LIFNR.

DATA: BEGIN OF ITAB OCCURS 0,

LIFNR TYPE KNA1-LIFNR,

NAME1 TYPE KNA1-NAME1,

END OF ITAB.

DATA: BEGIN OF JTAB OCCURS 0,

EBELN TYPE EKKO-EBELN,

AEDAT TYPE EKKO-AEDAT,

END OF JTAB.

DATA: BEGIN OF KTAB OCCURS 0,

EBELP TYPE EKPO-EBELP,

MATNR TYPE EKPO-MATNR,

END OF KTAB.

TYPE-POOLS: SLIS.

DATA: REPID LIKE SY-REPID,

F_LFA11 TYPE SLIS_T_FIELDCAT_ALV,

F_LFA1 TYPE SLIS_FIELDCAT_ALV,

F_EKKO1 TYPE SLIS_T_FIELDCAT_ALV,

F_EKKO TYPE SLIS_FIELDCAT_ALV,

F_EKPO1 TYPE SLIS_T_FIELDCAT_ALV,

F_EKPO TYPE SLIS_FIELDCAT_ALV,

I_EVENTS TYPE SLIS_T_EVENT,

S_EVENTS TYPE SLIS_ALV_EVENT.

START-OF-SELECTION.

PERFORM COL_HEAD.

REPID = SY-REPID.

SELECT LIFNR NAME1

FROM LFA1

INTO TABLE ITAB

WHERE LIFNR IN S_LIFNR.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = REPID

IT_FIELDCAT = F_LFA11

IT_EVENTS = I_EVENTS

TABLES

T_OUTTAB = ITAB

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 COL_HEAD

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM COL_HEAD .

F_LFA1-FIELDNAME = 'LIFNR'.

F_LFA1-REF_TABNAME = 'LFA1'.

F_LFA1-FIELDNAME = 'LIFNR'.

APPEND F_LFA1 TO F_LFA11.

CLEAR F_LFA1.

F_LFA1-FIELDNAME = 'NAME1'.

F_LFA1-REF_TABNAME = 'LFA1'.

F_LFA1-FIELDNAME = 'NAME1'.

APPEND F_LFA1 TO F_LFA11.

CLEAR F_LFA1.

*-------------------

F_EKKO-FIELDNAME = 'EBELN'.

F_EKKO-REF_TABNAME = 'EKKO'.

F_EKKO-FIELDNAME = 'EBELN'.

APPEND F_EKKO TO F_EKKO1.

CLEAR F_LFA1.

F_EKKO-FIELDNAME = 'AEDAT'.

F_EKKO-REF_TABNAME = 'EKKO'.

F_EKKO-FIELDNAME = 'AEDAT'.

APPEND F_EKKO TO F_EKKO1.

CLEAR F_EKKO.

*---------------------------------

F_EKPO-FIELDNAME = 'EBELP'.

F_EKPO-REF_TABNAME = 'EKPO'.

F_EKPO-FIELDNAME = 'EBELP'.

APPEND F_EKPO TO F_EKPO1.

CLEAR F_EKPO.

F_EKPO-FIELDNAME = 'MATNR'.

F_EKPO-REF_TABNAME = 'EKPO'.

F_EKPO-FIELDNAME = 'MATNR'.

APPEND F_EKPO TO F_EKPO1.

CLEAR F_EKPO.

S_EVENTS-NAME = 'USER_COMMAND'.

S_EVENTS-FORM = 'VAL'.

APPEND S_EVENTS TO I_EVENTS.

ENDFORM. " COL_HEAD

*&---------------------------------------------------------------------*

*& Form VAL

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->USER_COMMAND text

* -->SEL text

*----------------------------------------------------------------------*

FORM VAL USING USER_COMMAND LIKE SY-UCOMM

SEL TYPE SLIS_SELFIELD.

DATA: V_LIFNR(10) TYPE N,

V_EBELN(10) TYPE N,

V_MATNR(10) TYPE C.

IF SEL-FIELDNAME = 'LIFNR'.

V_LIFNR = SEL-VALUE.

SELECT EBELN AEDAT

FROM EKKO

INTO TABLE JTAB

WHERE LIFNR = V_LIFNR.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = REPID

IT_FIELDCAT = F_EKKO1

IT_EVENTS = I_EVENTS

TABLES

T_OUTTAB = JTAB

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.

IF SEL-FIELDNAME = 'EBELN'.

V_EBELN = SEL-VALUE.

SELECT EBELP MATNR

FROM EKPO

INTO TABLE KTAB

WHERE EBELN = V_EBELN.

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

EXPORTING

I_TITLE = 'ITEM DETAILS'

I_SCREEN_START_COLUMN = 10

I_SCREEN_START_LINE = 10

I_SCREEN_END_COLUMN = 30

I_SCREEN_END_LINE = 30

I_TABNAME = 'EKPO'

IT_FIELDCAT = F_EKPO1

I_CALLBACK_PROGRAM = REPID

IMPORTING

ES_SELFIELD = SEL

TABLES

T_OUTTAB = KTAB

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.

IF SEL-FIELDNAME = 'MATNR'.

V_MATNR = SEL-VALUE.

SET PARAMETER ID 'MAT' FIELD V_MATNR.

CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

ENDIF.

ENDFORM. "VAL

---

Regards

Jack

Re: ALV INTERACTION REPORT DOUBT

Former Member — Wed, 27 Feb 2013 09:49:43 GMT

Hi Jack,

im trying to print basic amount and CST amount of a material from a report.

elow is my piece of code relevant for this operation...

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

SELECTION-SCREEN : SKIP 1.

SELECT-OPTIONS : S_BUDAT FOR RBKP-BUDAT OBLIGATORY.

SELECTION-SCREEN : SKIP 1.

SELECTION-SCREEN : END OF BLOCK B1.

TYPES : BEGIN OF TS_RSEG,

KSCHL TYPE KONV-KSCHL,

KWERT TYPE KONV-KWERT,

KWERT_BASIC TYPE KONV-KWERT,

J_1ICSTNO TYPE J_1IMOVEND-J_1ICSTNO,

AEDAT TYPE EKKO-AEDAT,

BELNR TYPE RSEG-BELNR, "Document Number

GJAHR TYPE RSEG-GJAHR, "Fiscal Year

BUZEI TYPE RSEG-BUZEI, "Item

EBELN TYPE RSEG-EBELN, "Purchasing Doc.

EBELP TYPE RSEG-EBELP, "Item

MATNR TYPE RSEG-MATNR, "Material

LFBNR TYPE RSEG-LFBNR, "Reference Doc.

BUKRS TYPE RSEG-BUKRS, "Company Code

WERKS TYPE RSEG-WERKS, "Plant

WRBTR TYPE RSEG-WRBTR, "Amount

MENGE TYPE RSEG-MENGE, "Quantity

LFPOS TYPE RSEG-LFPOS, "Ref. Doc. Item

LIFNR TYPE RSEG-LIFNR, "Vendor

STBLG TYPE RBKP-STBLG, "Reversed by

BLDAT TYPE RBKP-BLDAT, "Document Date

MWSKZ TYPE RSEG-MWSKZ, " ADDED FOR TEST

KNUMV TYPE EKKO-KNUMV,

END OF TS_RSEG.

TYPES:BEGIN OF TS_RBKP,

BELNR TYPE RBKP-BELNR, "Inv. Doc. No.

GJAHR TYPE RBKP-GJAHR, "Fiscal Year

BLDAT TYPE RBKP-BLDAT, "Document Date

BUDAT TYPE RBKP-BUDAT, "Posting Date

STBLG TYPE RBKP-STBLG, "Document Date

BUZEI TYPE RSEG-BUZEI,

END OF TS_RBKP.

DATA : IT_RSEG TYPE STANDARD TABLE OF TS_RSEG.

DATA : IT_RBKP TYPE STANDARD TABLE OF TS_RBKP.

TYPES: BEGIN OF IIT_SEG,

EBELN TYPE EKKO-EBELN,

KNUMV TYPE EKKO-KNUMV,

END OF IIT_SEG.

DATA: IT_SEG TYPE STANDARD TABLE OF IIT_SEG,

WA_SEG TYPE IIT_SEG.

TYPES: BEGIN OF IIT_SEG1,

KWERT1 TYPE KONV-KWERT,

END OF IIT_SEG1.

DATA: IIT_SEG2 TYPE STANDARD TABLE OF IIT_SEG1,

WA_IIT_SEG2 TYPE IIT_SEG1.

TYPES: BEGIN OF IIT_SEG2,

KWERT TYPE KONV-KWERT,

END OF IIT_SEG2.

DATA: IIT_SEG3 TYPE STANDARD TABLE OF IIT_SEG2,

WA_IIT_SEG3 TYPE IIT_SEG2.

SELECT

RBKP~BELNR

RBKP~GJAHR

RBKP~BLDAT

RBKP~BUDAT

RBKP~STBLG

FROM RBKP INTO TABLE IT_RBKP

WHERE BUDAT IN S_BUDAT.

SELECT RSEG~BELNR

RSEG~GJAHR

RSEG~BUZEI

RSEG~EBELN

RSEG~EBELP

RSEG~MATNR

RSEG~LFBNR

RSEG~BUKRS

RSEG~WRBTR

RSEG~MENGE

RSEG~LFPOS

RSEG~MWSKZ

EKKO~AEDAT

J_1IMOVEND~J_1ICSTNO " ADDED THIS FOR TEST

FROM RSEG INNER JOIN EKKO ON RSEG~EBELN = EKKO~EBELN LEFT OUTER JOIN J_1IMOVEND

ON EKKO~LIFNR = J_1IMOVEND~LIFNR

INTO CORRESPONDING FIELDS OF TABLE IT_RSEG

FOR ALL ENTRIES IN IT_RBKP WHERE BELNR = IT_RBKP-BELNR

AND GJAHR = IT_RBKP-GJAHR.

SELECT RSEG~BELNR

RSEG~GJAHR

RSEG~BUZEI

RSEG~EBELN

RSEG~EBELP

RSEG~MATNR

RSEG~LFBNR

RSEG~BUKRS

RSEG~WRBTR

RSEG~MENGE

RSEG~LFPOS

RSEG~MWSKZ

EKKO~AEDAT

J_1IMOVEND~J_1ICSTNO " ADDED THIS FOR TEST

FROM RSEG INNER JOIN EKKO ON RSEG~EBELN = EKKO~EBELN LEFT OUTER JOIN J_1IMOVEND

ON EKKO~LIFNR = J_1IMOVEND~LIFNR

INTO CORRESPONDING FIELDS OF TABLE IT_RSEG

FOR ALL ENTRIES IN IT_RBKP WHERE BELNR = IT_RBKP-BELNR

AND GJAHR = IT_RBKP-GJAHR.

SELECT EBELN KNUMV FROM EKKO INTO CORRESPONDING FIELDS OF TABLE IT_SEG

FOR ALL ENTRIES IN IT_RSEG

WHERE EKKO~EBELN = IT_RSEG-EBELN.

SELECT

KWERT

FROM KONV INTO CORRESPONDING FIELDS OF TABLE IIT_SEG2

FOR ALL ENTRIES IN IT_SEG

WHERE KNUMV = IT_SEG-KNUMV AND KSCHL = 'JIPC'.

SELECT

KWERT

FROM KONV INTO CORRESPONDING FIELDS OF TABLE IT_RSEG

FOR ALL ENTRIES IN IT_SEG

WHERE KNUMV = IT_SEG-KNUMV AND KSCHL ='BASB'.

*----below im passing the extracted fields to the workaraea of the internal table *-----for which ill create field catalg:

WA_FINAL-KWERT = WA_IIT_SEG2-KWERT1.

WA_FINAL-KWERT_BASIC = WA_IIT_SEG3-KWERT.

APPEND WA_FINAL TO IT_FINAL.

-----And then ill print field in my field catalog passing table IT_FINAL

is my logic fine,, because its not working for me

Re: ALV INTERACTION REPORT DOUBT

Former Member — Wed, 27 Feb 2013 10:37:30 GMT

i modified a little: ( so that doc condition number is extracted based on item number as well):

SELECT RSEG~BELNR

RSEG~GJAHR

RSEG~BUZEI

RSEG~EBELN

RSEG~EBELP

RSEG~MATNR

RSEG~LFBNR

RSEG~BUKRS

RSEG~WERKS

RSEG~WRBTR

RSEG~LFPOS

RSEG~LIFNR

RSEG~MWSKZ " ADDED THIS FOR TEST

RSEG~MATNR

EKKO~AEDAT

J_1IMOVEND~J_1ICSTNO " ADDED THIS FOR TEST

FROM RSEG INNER JOIN EKKO ON RSEG~EBELN = EKKO~EBELN LEFT OUTER JOIN J_1IMOVEND

ON EKKO~LIFNR = J_1IMOVEND~LIFNR

INTO CORRESPONDING FIELDS OF TABLE IT_RSEG

FOR ALL ENTRIES IN IT_RBKP WHERE BELNR = IT_RBKP-BELNR

AND GJAHR = IT_RBKP-GJAHR

AND WERKS IN S_WERKS.

SELECT EKKO~EBELN EKKO~KNUMV RSEG~BUZEI

FROM RSEG INNER JOIN EKKO ON RSEG~EBELN = EKKO~EBELN

INTO CORRESPONDING FIELDS OF TABLE IT_SEG

FOR ALL ENTRIES IN IT_RSEG

WHERE EKKO~EBELN = IT_RSEG-EBELN.

SELECT

KWERT

FROM KONV INTO CORRESPONDING FIELDS OF TABLE IIT_SEG2

FOR ALL ENTRIES IN IT_SEG

WHERE KNUMV = IT_SEG-KNUMV AND KPOSN = IT_SEG-BUZEI AND KSCHL = 'JIPC'.

SELECT

KWERT

FROM KONV INTO CORRESPONDING FIELDS OF TABLE IT_RSEG

FOR ALL ENTRIES IN IT_SEG

WHERE KNUMV = IT_SEG-KNUMV AND KPOSN = IT_SEG-BUZEI AND KSCHL ='BASB'.

Rest all is same.

Re: ALV INTERACTION REPORT DOUBT

Former Member — Wed, 27 Feb 2013 11:47:46 GMT

Hi Khushboo,

I am not sure what exactly you are trying to do here, can u copy the whole code in the notepad and upload here so i will try myself n get back to you...........