Skip to Content
author's profile photo Former Member
Former Member

hierarchial alv report

could any one send me a basic program hw to develop an hierarchial alv report..

or assist me what functions to use....

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

2 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Sep 12, 2007 at 02:13 PM

    HIERARCHY ALV

    REPORT ZALV2 NO STANDARD PAGE HEADING

    MESSAGE-ID ZMSG.

    **********************TABLES DECLARATION******************************

    TABLES : VBAK, " sales document header data

    VBAP. " sales document item data

    **********************TYPE POOL DECLARATION***************************

    TYPE-POOLS : SLIS.

    **********************TYPES DECLARATION*******************************

    *TYPES : BEGIN OF TY_VBAK,

    • VBELN TYPE VBAK-VBELN,

    • ERDAT TYPE VBAK-ERDAT,

    • ERNAM TYPE VBAK-ERNAM,

    • AUART TYPE VBAK-AUART,

    • NETWR TYPE VBAK-NETWR,

    • END OF TY_VBAK.

    *

    *TYPES : BEGIN OF TY_VBAP,

    • VBELN TYPE VBAP-VBELN,

    • POSNR TYPE VBAP-POSNR,

    • MATNR TYPE VBAP-MATNR,

    • MEINS TYPE VBAP-MEINS,

    • ZMENG TYPE VBAP-ZMENG,

    • END OF TY_VBAP.

    ***********************INTERNAL TABLES********************************

    *DATA : IT_VBAK TYPE STANDARD TABLE OF TY_VBAK,

    • IT_VBAP TYPE STANDARD TABLE OF TY_VBAP,

    DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

    " field catalog internal table

    DATA : BEGIN OF IT_VBAK OCCURS 0,

    " internal table for sales document header data

    VBELN TYPE VBAK-VBELN, " sales document

    ERDAT TYPE VBAK-ERDAT,

    " date on which document was created

    ERNAM TYPE VBAK-ERNAM,

    " name of the person who created it

    AUART TYPE VBAK-AUART, " sales document type

    NETWR TYPE VBAK-NETWR,

    " net value of the sales order in document currency

    END OF IT_VBAK.

    DATA : BEGIN OF IT_VBAP OCCURS 0,

    " internal table for sales document item data

    VBELN TYPE VBAP-VBELN, " sales document

    POSNR TYPE VBAP-POSNR, " sales document item

    MATNR TYPE VBAP-MATNR, " material number

    MEINS TYPE VBAP-MEINS, " base unit of measure

    ZMENG TYPE VBAP-ZMENG, " target quantity in sales units

    END OF IT_VBAP.

    DATA : TY_FIELDCAT TYPE SLIS_FIELDCAT_ALV, " field catalog type

    TY_KEYINFO TYPE SLIS_KEYINFO_ALV. " key information type

    ***********************VARIABLE DECLARATIONS**************************

    DATA : REPID TYPE SY-REPID, " program name

    IT_HEADER TYPE SLIS_TABNAME,

    " table to store header data

    IT_ITEM TYPE SLIS_TABNAME. " table to store item data

    ***********************SELECTION PARAMETERS***************************

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

    SELECT-OPTIONS : S_VBELN FOR VBAK-VBELN.

    " mulitple selection inputs for sales document

    SELECTION-SCREEN : END OF BLOCK B1.

    ***********************INITIALIZATION*********************************

    REPID = SY-REPID.

    " variable having the program name

    IT_HEADER = 'IT_VBAK'.

    IT_ITEM = 'IT_VBAP'.

    CLEAR TY_KEYINFO.

    TY_KEYINFO-HEADER01 = 'VBELN'.

    " comparing the keys and relating the header and item internal tables

    TY_KEYINFO-ITEM01 = 'VBELN'.

    TY_KEYINFO-HEADER02 = SPACE.

    TY_KEYINFO-ITEM02 = 'POSNR'.

    ***********************VALIDATION CHECK*******************************

    AT SELECTION-SCREEN.

    PERFORM VAL_CHK.

    " validation check for the input

    **********************PROCESSING LOGIC********************************

    START-OF-SELECTION.

    PERFORM POP_HDR.

    " populating the header data

    PERFORM POP_ITEM. " populating the item data

    PERFORM FIELD_CATALOG.

    " mapping all the fields to the field catalog

    PERFORM OUTPUT.

    " displaying ouput using the function module

    &----


    *& Form VAL_CHK

    &----


    • text VALIDATION CHECK FOR SALES DOCUMENT

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM VAL_CHK .

    SELECT VBELN

    ERDAT

    ERNAM

    AUART

    NETWR UP TO 1 ROWS

    FROM VBAK

    INTO CORRESPONDING FIELDS OF TABLE IT_VBAK

    WHERE VBELN IN S_VBELN.

    IF SY-SUBRC <> 0.

    MESSAGE I000 WITH 'NO HEADER DETAILS EXIST'.

    ELSE.

    SELECT VBELN

    POSNR

    MATNR

    MEINS

    ZMENG

    FROM VBAP

    INTO CORRESPONDING FIELDS OF TABLE IT_VBAP

    WHERE VBELN IN S_VBELN.

    IF SY-SUBRC <> 0.

    MESSAGE I000 WITH 'NO ITEM DETAILS EXIST'.

    ENDIF.

    ENDIF.

    CLEAR IT_VBAK.

    CLEAR IT_VBAP.

    ENDFORM. " VAL_CHK

    &----


    *& Form POP_HDR

    &----


    • text POPULATING THE HEADER DETAILS

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM POP_HDR .

    SELECT VBELN

    ERDAT

    ERNAM

    AUART

    NETWR

    FROM VBAK

    INTO CORRESPONDING FIELDS OF TABLE IT_VBAK

    WHERE VBELN IN S_VBELN.

    ENDFORM. " POP_HDR

    &----


    *& Form POP_ITEM

    &----


    • text POPULATING THE ITEM DETAILS

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM POP_ITEM .

    SELECT VBELN

    POSNR

    MATNR

    MEINS

    ZMENG

    FROM VBAP

    INTO CORRESPONDING FIELDS OF TABLE IT_VBAP

    WHERE VBELN IN S_VBELN.

    ENDFORM. " POP_ITEM

    &----


    *& Form FIELD_CATALOG

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM FIELD_CATALOG .

    TY_FIELDCAT-TABNAME = 'IT_VBAK'.

    TY_FIELDCAT-FIELDNAME = 'VBELN'.

    TY_FIELDCAT-SELTEXT_L = 'DOC NO'.

    TY_FIELDCAT-COL_POS = 1.

    TY_FIELDCAT-OUTPUTLEN = 10.

    APPEND TY_FIELDCAT TO IT_FIELDCAT.

    CLEAR TY_FIELDCAT.

    TY_FIELDCAT-TABNAME = 'IT_VBAK'.

    TY_FIELDCAT-FIELDNAME = 'ERDAT'.

    TY_FIELDCAT-SELTEXT_L = 'DATE'.

    TY_FIELDCAT-COL_POS = 2.

    TY_FIELDCAT-OUTPUTLEN = 8.

    TY_FIELDCAT-DATATYPE = 'DATS'.

    APPEND TY_FIELDCAT TO IT_FIELDCAT.

    CLEAR TY_FIELDCAT.

    TY_FIELDCAT-TABNAME = 'IT_VBAK'.

    TY_FIELDCAT-FIELDNAME = 'ERNAM'.

    TY_FIELDCAT-SELTEXT_L = 'NAME'.

    TY_FIELDCAT-COL_POS = 3.

    TY_FIELDCAT-OUTPUTLEN = 12.

    APPEND TY_FIELDCAT TO IT_FIELDCAT.

    CLEAR TY_FIELDCAT.

    TY_FIELDCAT-TABNAME = 'IT_VBAK'.

    TY_FIELDCAT-FIELDNAME = 'AUART'.

    TY_FIELDCAT-SELTEXT_L = 'DOC TYPE'.

    TY_FIELDCAT-COL_POS = 4.

    TY_FIELDCAT-OUTPUTLEN = 4.

    APPEND TY_FIELDCAT TO IT_FIELDCAT.

    CLEAR TY_FIELDCAT.

    TY_FIELDCAT-TABNAME = 'IT_VBAP'.

    TY_FIELDCAT-FIELDNAME = 'VBELN'.

    TY_FIELDCAT-SELTEXT_L = 'DOC NO'.

    TY_FIELDCAT-OUTPUTLEN = 10.

    APPEND TY_FIELDCAT TO IT_FIELDCAT.

    CLEAR TY_FIELDCAT.

    TY_FIELDCAT-TABNAME = 'IT_VBAP'.

    TY_FIELDCAT-FIELDNAME = 'POSNR'.

    TY_FIELDCAT-SELTEXT_L = 'ITEM'.

    TY_FIELDCAT-OUTPUTLEN = 6.

    TY_FIELDCAT-DATATYPE = 'NUMC'.

    APPEND TY_FIELDCAT TO IT_FIELDCAT.

    CLEAR TY_FIELDCAT.

    TY_FIELDCAT-TABNAME = 'IT_VBAP'.

    TY_FIELDCAT-FIELDNAME = 'MATNR'.

    TY_FIELDCAT-SELTEXT_L = 'MAT NO'.

    TY_FIELDCAT-OUTPUTLEN = 18.

    APPEND TY_FIELDCAT TO IT_FIELDCAT.

    CLEAR TY_FIELDCAT.

    TY_FIELDCAT-TABNAME = 'IT_VBAP'.

    TY_FIELDCAT-FIELDNAME = 'MEINS'.

    TY_FIELDCAT-SELTEXT_L = 'UNITS'.

    TY_FIELDCAT-OUTPUTLEN = 3.

    TY_FIELDCAT-DATATYPE = 'UNIT'.

    APPEND TY_FIELDCAT TO IT_FIELDCAT.

    CLEAR TY_FIELDCAT.

    TY_FIELDCAT-TABNAME = 'IT_VBAP'.

    TY_FIELDCAT-FIELDNAME = 'ZMENG'.

    TY_FIELDCAT-SELTEXT_L = 'QUANT'.

    TY_FIELDCAT-OUTPUTLEN = 13.

    TY_FIELDCAT-DATATYPE = 'QUAN'.

    APPEND TY_FIELDCAT TO IT_FIELDCAT.

    CLEAR TY_FIELDCAT.

    ENDFORM. " FIELD_CATALOG

    &----


    *& Form OUTPUT

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM OUTPUT .

    CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

    EXPORTING

    • I_INTERFACE_CHECK = ' '

    I_CALLBACK_PROGRAM = REPID

    • I_CALLBACK_PF_STATUS_SET = ' '

    • I_CALLBACK_USER_COMMAND = ' '

    • IS_LAYOUT =

    IT_FIELDCAT = IT_FIELDCAT

    • IT_EXCLUDING =

    • IT_SPECIAL_GROUPS =

    • IT_SORT =

    • IT_FILTER =

    • IS_SEL_HIDE =

    • I_SCREEN_START_COLUMN = 0

    • I_SCREEN_START_LINE = 0

    • I_SCREEN_END_COLUMN = 0

    • I_SCREEN_END_LINE = 0

    • I_DEFAULT = 'X'

    • I_SAVE = ' '

    • IS_VARIANT =

    • IT_EVENTS =

    • IT_EVENT_EXIT =

    I_TABNAME_HEADER = IT_HEADER

    I_TABNAME_ITEM = IT_ITEM

    • I_STRUCTURE_NAME_HEADER =

    • I_STRUCTURE_NAME_ITEM =

    IS_KEYINFO = TY_KEYINFO

    • IS_PRINT =

    • IS_REPREP_ID =

    • I_BYPASSING_BUFFER =

    • I_BUFFER_ACTIVE =

    • IMPORTING

    • E_EXIT_CAUSED_BY_CALLER =

    • ES_EXIT_CAUSED_BY_USER =

    TABLES

    T_OUTTAB_HEADER = IT_VBAK

    T_OUTTAB_ITEM = IT_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.

    ENDFORM. " OUTPUT

    <b>Reward Points if useful.</b>

    Regards

    vasu

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Sep 12, 2007 at 06:34 PM

    Hi

    Check This FM REUSE_ALV_HIERSEQ_LIST_DISPLAY

    REPORT Z_RE_ALV_JERARQUIA .

    *****

    TABLES : MARA, MAKT.

    ****

    TYPE-POOLS: SLIS.

    ****

    DATA: IT_MARA LIKE MARA OCCURS 0 WITH HEADER LINE,

    WA_MARA LIKE LINE OF IT_MARA ,

    BEGIN OF IT_HEADER OCCURS 0,

    TIPO LIKE MARA-MTART,

    END OF IT_HEADER,

    BEGIN OF IT_ITEM OCCURS 0,

    TIPO LIKE MARA-MTART,

    MATERIAL LIKE MARA-MATNR,

    MATKL LIKE MARA-MATKL,

    MEINS LIKE MARA-MEINS,

    MAKTX LIKE MAKT-MAKTX,

    END OF IT_ITEM.

    *****

    DATA: IT_KEYINFO type SLIS_KEYINFO_ALV OCCURS 0 WITH HEADER LINE,

    G_REPID LIKE SY-REPID,

    IT_LAYOUT TYPE SLIS_LAYOUT_ALV,

    IT_FIELD TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

    IT_EVENTS TYPE SLIS_T_EVENT WITH HEADER LINE,

    IT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,

    IT_LIST_END_OF_PAGE TYPE SLIS_T_LISTHEADER,

    IT_SORT TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE,

    IT_FILTER TYPE SLIS_T_FILTER_ALV WITH HEADER LINE,

    GT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV,

    ls_event type slis_alv_event,

    LS_LINE TYPE slis_listheader.

    *****

    DATA: TEXT(60).

    ****CONSTANTS:

    GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',

    GC_FORMNAME_END_OF_PAGE TYPE SLIS_FORMNAME VALUE 'END_OF_PAGE'.

    ****INITIALIZATION

    INITIALIZATION.

    G_REPID = SY-REPID.

    IT_LAYOUT-ZEBRA = 'X'.

    • IT_LAYOUT-no_hotspot = ' '.

    • IT_layout-colwidth_optimize = 'X'.

    ****START OF SELECTION

    START-OF-SELECTION.

    SELECT-OPTIONS: TIPO FOR MARA-MTART OBLIGATORY.

    *****

    SELECT *

    FROM MARA

    INTO TABLE IT_MARA

    WHERE MTART IN TIPO.

    ****

    IF NOT IT_MARA[] IS INITIAL.

    PERFORM FO_PROCESAR.

    PERFORM FO_KEY_INFO.

    PERFORM FO_IMPRIMIR_CABECERA USING IT_LIST_TOP_OF_PAGE[].

    PERFORM FO_SORT.

    PERFORM FO_FIELDCAT.

    PERFORM FO_FILTRAR.

    PERFORM FO_EVENTOS USING IT_events[].

    PERFORM FO_MOSTRAR_ALV_JER.

    *****

    ELSE.

    MESSAGE S000(SU) WITH TEXT-001.

    ENDIF.

    *& Form FO_PROCESAR

    FORM FO_PROCESAR.

    SORT IT_MARA BY MTART ASCENDING.

    *****

    LOOP AT IT_MARA.

    MOVE-CORRESPONDING IT_MARA TO WA_MARA.

    *****

    MOVE WA_MARA-MTART TO IT_HEADER-TIPO.

    APPEND IT_HEADER.

    *****

    MOVE: IT_MARA-MTART TO IT_ITEM-TIPO,

    IT_MARA-MATNR TO IT_ITEM-MATERIAL,

    IT_MARA-MATKL TO IT_ITEM-MATKL,

    IT_MARA-MEINS TO IT_ITEM-MEINS.

    ****

    SELECT SINGLE MAKTX INTO IT_ITEM-MAKTX

    FROM MAKT

    WHERE MATNR EQ IT_MARA-MATNR

    AND SPRAS EQ 'S'.

    ****

    APPEND IT_ITEM.

    CLEAR: IT_MARA, WA_MARA, IT_ITEM, IT_HEADER.

    ENDLOOP.

    *****

    SORT IT_HEADER BY TIPO ASCENDING.

    DELETE ADJACENT DUPLICATES FROM IT_HEADER COMPARING TIPO.

    ENDFORM. " FO_PROCESAR

    *& Form FO_MOSTRAR_ALV_JER

    FORM FO_MOSTRAR_ALV_JER.

    CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

    EXPORTING

    • I_INTERFACE_CHECK = ' '

    I_CALLBACK_PROGRAM = G_REPID

    • I_CALLBACK_PF_STATUS_SET = ' '

    I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

    IS_LAYOUT = IT_LAYOUT

    IT_FIELDCAT = IT_FIELD[]

    • IT_EXCLUDING =

    • IT_SPECIAL_GROUPS =

    IT_SORT = IT_SORT[]

    IT_FILTER = IT_FILTER[]

    • IS_SEL_HIDE =

    • I_SCREEN_START_COLUMN = 10

    • I_SCREEN_START_LINE = 5

    • I_SCREEN_END_COLUMN = 45

    • I_SCREEN_END_LINE = 30

    • I_DEFAULT = 'X'

    I_SAVE = 'X'

    • IS_VARIANT =

    IT_EVENTS = IT_EVENTS[]

    • IT_EVENT_EXIT =

    I_TABNAME_HEADER = 'IT_HEADER'

    I_TABNAME_ITEM = 'IT_ITEM'

    • I_STRUCTURE_NAME_HEADER =

    • I_STRUCTURE_NAME_ITEM =

    IS_KEYINFO = IT_KEYINFO

    • IS_PRINT =

    • IS_REPREP_ID =

    • I_BUFFER_ACTIVE =

    • I_BYPASSING_BUFFER =

    • IMPORTING

    • E_EXIT_CAUSED_BY_CALLER =

    • ES_EXIT_CAUSED_BY_USER =

    TABLES

    T_OUTTAB_HEADER = IT_HEADER

    T_OUTTAB_ITEM = IT_ITEM

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

    *& Form FO_KEY_INFO

    FORM FO_KEY_INFO.

    REFRESH IT_KEYINFO. CLEAR IT_KEYINFO.

    IT_KEYINFO-header01 = 'TIPO'.

    IT_KEYINFO-item01 = 'TIPO'.

    APPEND IT_KEYINFO.

    ENDFORM. " FO_KEY_INFO

    *& Form FO_IMPRIMIR_CABECERA

    FORM FO_IMPRIMIR_CABECERA USING TEXTO_REPORT TYPE SLIS_T_LISTHEADER.

    *****

    CLEAR: LS_line, text.

    LS_line-typ = 'H'.

    WRITE: sy-title TO text.

    LS_line-info = text.

    APPEND LS_line TO TEXTO_REPORT.

    *****

    CLEAR: LS_line, text.

    LS_line-typ = 'A'.

    WRITE: 'Fecha de Ejecución:' to text,

    sy-DATUM TO text+20(20).

    LS_line-info = text.

    APPEND LS_line TO TEXTO_REPORT.

    *****

    CLEAR: LS_line, text.

    LS_line-typ = 'A'.

    WRITE: 'Usuario:' to text,

    sy-uname TO text+20(20).

    LS_line-info = text.

    APPEND LS_line TO TEXTO_REPORT.

    *****

    CLEAR LS_LINE.

    APPEND LS_line TO TEXTO_REPORT.

    *****

    ENDFORM. " FO_IMPRIMIR_CABECERA

    *& Form FO_SORT

    FORM FO_SORT.

    *****

    IT_SORT-FIELDNAME = 'TIPO'.

    IT_SORT-TABNAME = 'IT_HEADER'.

    IT_SORT-GROUP = 'X'.

    IT_SORT-UP = 'X'.

    IT_SORT-DOWN = ' '.

    IT_SORT-SUBTOT = ' '.

    APPEND IT_SORT. CLEAR IT_SORT.

    *****

    ENDFORM. " FO_SORT

    *& Form FO_FIELDCAT

    FORM FO_FIELDCAT.

    ****

    CLEAR IT_FIELD.

    IT_FIELD-TABNAME = 'IT_ITEM'.

    IT_FIELD-FIELDNAME = 'TIPO'.

    IT_FIELD-COL_POS = '1'.

    IT_FIELD-JUST = 'L'.

    IT_FIELD-SELTEXT_L = 'Tipo Material'.

    IT_FIELD-KEY = 'X'.

    APPEND IT_FIELD.

    ****

    CLEAR IT_FIELD.

    IT_FIELD-TABNAME = 'IT_ITEM'.

    IT_FIELD-FIELDNAME = 'MATERIAL'.

    IT_FIELD-COL_POS = '2'.

    IT_FIELD-JUST = 'L'.

    IT_FIELD-SELTEXT_L = 'Codigo Material'.

    APPEND IT_FIELD.

    ******

    CLEAR IT_FIELD.

    IT_FIELD-TABNAME = 'IT_ITEM'.

    IT_FIELD-FIELDNAME = 'MATKL'.

    IT_FIELD-COL_POS = '3'.

    IT_FIELD-JUST = 'L'.

    IT_FIELD-SELTEXT_L = 'Grupo De Articulos'.

    APPEND IT_FIELD.

    ******

    CLEAR IT_FIELD.

    IT_FIELD-TABNAME = 'IT_ITEM'.

    IT_FIELD-FIELDNAME = 'MEINS'.

    IT_FIELD-COL_POS = '4'.

    IT_FIELD-JUST = 'L'.

    IT_FIELD-SELTEXT_L = 'Uni. Med. Base'.

    APPEND IT_FIELD.

    ******

    CLEAR IT_FIELD.

    IT_FIELD-TABNAME = 'IT_ITEM'.

    IT_FIELD-FIELDNAME = 'MAKTX'.

    IT_FIELD-COL_POS = '5'.

    IT_FIELD-JUST = 'L'.

    IT_FIELD-outputlen = '40'.

    IT_FIELD-SELTEXT_L = 'Descriptivo'.

    APPEND IT_FIELD.

    ******

    ENDFORM. " FO_FIELDCAT

    *& Form FO_EVENTOS

    FORM FO_EVENTOS USING PIT_EVENTS type slis_t_event.

    CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

    EXPORTING

    I_LIST_TYPE = 0

    IMPORTING

    ET_EVENTS = PIT_EVENTS

    EXCEPTIONS

    LIST_TYPE_WRONG = 1

    OTHERS = 2.

    read table PIT_EVENTS with key name = SLIS_EV_TOP_OF_PAGE

    into ls_event.

    if sy-subrc = 0.

    move gc_formname_top_of_page to ls_event-form.

    append ls_event to pIT_EVENTS.

    endif.

    CLEAR LS_EVENT.

    ENDFORM. " FO_EVENTOS

    top_of_page

    FORM TOP_OF_PAGE.

    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

    EXPORTING

    IT_LIST_COMMENTARY = IT_LIST_TOP_OF_PAGE.

    ENDFORM. "TOP_OF_PAGE

    *& Form FO_FILTRAR

    FORM FO_FILTRAR.

    *IT_FILTER-FIELDNAME = 'TIPO'.

    *IT_FILTER-TABNAME = 'IT_HEADER'.

    *APPEND IT_FILTER. CLEAR IT_FILTER.

    ENDFORM. " FO_FILTRAR

    Regards

    Gregory

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.