GoodleAds

DISPLAY HEADER AND FOOTER INFORMATION IN ALV USING 'REUSE_ALV_COMMENTARY_WRITE' FUNCTION MODULE

REUSE_ALV_COMMENTARY_WRITE: -

It’s the function module which is used to display the text in top or bottom events.

The input for the above function module is an IT which contains two fields.



Note: - In slis we have one type i.e. SLIS_T_LISTHEADER which contains the above two fields. So,             we simply declare our internal table by reffering SLIS_T_LISTHEADER.

PROGRAM:

*&---------------------------------------------------------------------*
*& Report  ZR_COMMENTARY_WRITE_FM
*&
*&---------------------------------------------------------------------*

REPORT ZR_COMMENTARY_WRITE_FM.
TYPE-POOLS SLIS.
TABLES EKKO.

SELECT-OPTIONS S_EBELN FOR EKKO-EBELN.
TYPESBEGIN OF TY_EKKO,
       EBELN 
TYPE EKKO-EBELN,
       BEDAT 
TYPE EKKO-BEDAT,
       KUNNR 
TYPE EKKO-KUNNR,
       
END OF TY_EKKO.

DATAWA_EKKO TYPE TY_EKKO,
      IT_EKKO TYPE TABLE OF TY_EKKO.


* Declaring the field catalog.
DATAIT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
      WA_FCAT 
LIKE LINE OF IT_FCAT.

* Filling the data internal table.
SELECT EBELN BEDAT KUNNR
  
FROM EKKO
  
INTO TABLE IT_EKKO
  
WHERE EBELN IN S_EBELN.

* Filling the field catalog
WA_FCAT
-FIELDNAME 'EBELN'.
WA_FCAT
-COL_POS '1'.
WA_FCAT
-SELTEXT_M 'PUR DOC'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

WA_FCAT
-FIELDNAME  =  'BEDAT'.
WA_FCAT
-COL_POS  =  '2'.
WA_FCAT
-SELTEXT_M  =  'DOC DATE'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

WA_FCAT
-FIELDNAME  =  'KUNNR'.
WA_FCAT
-COL_POS  =  '3'.
WA_FCAT
-SELTEXT_M  =  'CUSTOMER'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

*  Declare two event internal tables.
DATAIT_EVENT TYPE SLIS_T_EVENT,
WA_EVENT 
LIKE LINE OF IT_EVENT.

*  Filling the event IT.
WA_EVENT
-NAME  =  'TOP_OF_PAGE'.
WA_EVENT
-FORM  =  'TOP'.

PERFORM TOP.
PERFORM END.
APPEND WA_EVENT TO IT_EVENT.

WA_EVENT
-NAME  =  'END_OF_LIST'.
WA_EVENT
-FORM  =  'END'.
APPEND WA_EVENT TO IT_EVENT.

* Display output
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        I_CALLBACK_PROGRAM 
SY-CPROG
        IT_FIELDCAT  =
 IT_FCAT
        IT_EVENTS  
IT_EVENT      
      TABLES
        T_OUTTAB  
IT_EKKO.

*&---------------------------------------------------------------------*
*& FORM TOP
*&
*&---------------------------------------------------------------------*
FORM TOP.
DATAIT_LIST TYPE SLIS_T_LISTHEADER,
WA_LIST 
LIKE LINE OF IT_LIST.
WA_LIST
-INFO  = 'THESE ARE PO DETAILS'.

WA_LIST
-TYP  =  'H'.
APPEND WA_LIST TO IT_LIST.
WA_LIST
-INFO  = 'SP RAO TECHNOLOGIES'.

WA_LIST
-TYP  =  'S'.
APPEND WA_LIST TO IT_LIST.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY 
IT_LIST
I_LOGO  =
 'VA'.

ENDFORM.

*&---------------------------------------------------------------------*
*& FORM END
*&
*&---------------------------------------------------------------------*
FORM END.
DATAIT_LIST1 TYPE SLIS_T_LISTHEADER,
      WA_LIST1 
LIKE LINE OF IT_LIST1.

WA_LIST1
-INFO  =  'SR NAGAR'.
WA_LIST1
-TYP  = 'A'.
APPEND WA_LIST1 TO IT_LIST1.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
     EXPORTING
       IT_LIST_COMMENTARY 
IT_LIST1.
ENDFORM.

OUTPUT:

No comments:

Post a Comment