How to supress TOP-OF-PAGE event

Hi,
I am calling Report2 using SUBMIT..and RETURN from Report1 based on the selection criteria of Report1. When I exit from Report2, I want control to come back to the selection screen of Report1 but in my case the TOP_OF_PAGE event in Report1 is getting triggered when I exit from Report2. Is there any way to suppress the call to TOP-OF-PAGE event. I tried EXIT / RETURN / STOP but nth is working.
Regards,
Deepti

Hii Deepti ,
Top of page event is triggered with first WRITE statement or whenever new page is triggered.
after submit statement
use SET SCREEN 0.
otherwsie check the selection screen number and use
SET SCREEN 'SCREEN NUMBER'.
use LEAVE PROGRAM.
or
LEAVE SCREEN.
SET SCREEN.
- by default in screen attributes you have defined what will be the next screen, but if you want to change the next screen dynamically we use the statement SET SCREEN.
for ex: SET SCREEN 100.
LEAVE SCREEN.
- if you want to quit from the current screen, you use this option. so by default the next screen from attributes will be picked but if you have defined the next screen using SET SCREEN that it will overwrite.
ex: SET SCREEN 100.
LEAVE SCREEN.
LEAVE TO SCREEN.
- Leave to screen is combination of above two statements.
OTHERWISE USE
LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN <No>.
SET PF-STATUS space.
SUPPRESS DIALOG.

Similar Messages

How to supress top of page in ALV during page breaks...

Hello Experts,
I am currently developing a report using the old ALV(REUSE_ALV_LIST_DISPLAY) since
I need to have page breaks(using the SORT event) depending on the sort criteria. But
I noticed that for every page break, the top of page automatically displays. I only
need to display it one or depending on other factors.
So how do we supress top of page event?
Thank you guys and take care!

Hi Viraylab,
Try out like this ..
1. Declare a global variable g_flag = 0.
2. if g_flag = 1.
      top-of-page.
      your heading.....
      and default g_flag = 0.
   endif.
3. *your Output
      Perform display.
4. Form display.
       Your --- Code...
        g_flag = 1.
    endform.
Regards,
sg

How to capture the current info in the top-of-page event in Reuse block dis

How to capture the current info in the top-of-page event in Reuse block dis

Hi Geetha,
     If you don't have any information to pass the Heading Block, then why you are using this event ?
     please comment/ remove that TOP_OF_PAGE code. and use subtotal code in field catalog block.
      you can use below code for subtotal.
      FORM field_catalog .
                gs_fcat-do_sum = &2.
          fcat : 'WRBTR' '15' 'X' ' ' ' ' 'WRBTR' 'Amount',
       ENDFORM.
       Regards,
       Kunjan

To display the typ, key field,info in the top-of -page event in OO ALV

Hi all,
I need to display the heading and the other select option details in the top-of-page event in ooalv.How can the key ,typ and the info of top of event in alv grid be passed in ooalv grid display.
Regards,
Arpita

Check the blog.
TOP_OF_PAGE in ALV Using CL_GUI_ALV_GRID
Now you have to use the method ADD_TEXT to populate the Select options details.
I hope you know the Function to get the selection details
RS_REFRESH_FROM_SELECTOPTIONS,. it will give into a table. so use that table and populate the TOP_OF_PAGE uisng the class CL_DD_DOCUMENT.

How to trigger top-of-page in ALV Grid

How to trigger Top-Of-Page in ALV Grid...
can any one plese send the sample code...
thanks.

here is sample code. try this. u need to build an internal table and then call function commentary write and pass that internal table.
*&      Form TOP_OF_PAGE
      Top_of_page
FORM top-of-page.                                           "#EC CALLED
*ALV Header declarations
DATA: lit_header TYPE slis_t_listheader,
        lwa_header TYPE slis_listheader.
Title
lwa_header-typ = 'H'.
lwa_header-info = text-013.
APPEND lwa_header TO lit_header.
CLEAR lwa_header.
BOM Number
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
    EXPORTING
      input = p_matnr
    IMPORTING
      output = gv_matnr.
Pass BOM number
lwa_header-typ = 'S'.
lwa_header-key = text-014.
lwa_header-info = gv_matnr .
APPEND lwa_header TO lit_header.
CLEAR: lwa_header ,
         gv_matnr .
BOM description
lwa_header-typ = 'S'.
lwa_header-key = text-015 .
lwa_header-info = gv_maktx .
APPEND lwa_header TO lit_header.
CLEAR: lwa_header.
start/end date format MM/DD/YY
lwa_header-typ = 'S'.
lwa_header-key = text-016 .
CONCATENATE s_erdat-low+4(2) '/'
              s_erdat-low+6(2) '/'
              s_erdat-low(4) ' - '
              s_erdat-high+4(2) '/'
              s_erdat-high+6(2) '/'
              s_erdat-high(4)
              INTO lwa_header-info.
APPEND lwa_header TO lit_header.
CLEAR: lwa_header.
Run Date of Report format MM/DD/YY
lwa_header-typ = 'S'.
lwa_header-key = text-017 .
CONCATENATE sy-datum+4(2) '/'
               sy-datum+6(2) '/'
               sy-datum(4) INTO lwa_header-info .
APPEND lwa_header TO lit_header.
CLEAR: lwa_header.
call function REUSE_ALV_COMMENTARY_WRITE to use TOP_OF_PAGE event.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = lit_header.
ENDFORM .                              " FORM top-of-page.

How to write top-of-page in include structure

Hi,
how write top-of-page event, perform & form routines in include program. but include is under Function & function.
when i am writing those statement get the error massage.
the error massgae is : (incorrect nesting : before the statement 'top-of-page'the structure introduced by Function must be concluded by Endfunction).
Edited by: sandhya kiran on Nov 6, 2008 5:50 PM

hi,
in program error not occured.
but same program i am use in smartforms-programline it's give error like
" Incorrect nesting: Before the statement "FORM", the structure introduced by "FUNCTION" must be concluded by "ENDFUNCTION" . . ."
Thanks In Advance.
Regards .
Sam

Issue with top of page event

Hi All,
 In my Report i am printing both interactive and alv grid display in same report.means i have one check box it is then report print as a alv format otherwise classical format.
 But here i have small problem i am trying print in alv format its automatically trigger the top of page event thatsway a blank screen is generated so please tell how to skip the Top of page event.
Regards,
Venkatesh

END-OF-SELECTION.
SORT tab1 BY ebeln ebelp.
DESCRIBE TABLE tab1 LINES tabln.
IF tabln = 0.
 MESSAGE ID 'ME' TYPE 'I' NUMBER '260'.
 EXIT.
ENDIF.
SORT tab1 BY sortkey knttp ebeln ebelp.
if P_ALV = 'X'.
LOOP AT tab1.
 IF tab1-knttp = '1'.
 gs_final-str = text-k01.
 gs_final-kont1 = tab1-kont1.
 gs_final-kont2 = tab1-kont2.
 ELSEIF tab1-knttp = '2'.
 gs_final-str = text-k02.
 gs_final-kont1 = tab1-kont1.
 gs_final-kont2 = tab1-kont2.
 ELSEIF tab1-knttp = '3'.
 gs_final-str = text-k03.
 gs_final-kont1 = tab1-kont1.
 gs_final-kont2 = tab1-kont2.
 ELSEIF tab1-knttp = '4'.
 gs_final-str = text-k04.
 gs_final-kont1 = tab1-kont1.
 gs_final-kont2 = tab1-kont2.
 ELSEIF tab1-knttp = '5'.
 gs_final-str = text-k05.
 gs_final-kont1 = tab1-kont1.
 gs_final-kont2 = tab1-kont2.
 ELSEIF tab1-knttp = '6'.
 gs_final-str = text-k04.
 gs_final-kont1 = tab1-kont1.
 ELSEIF tab1-knttp IS INITIAL.
 gs_final-str = 'Stock without Account Assignment'.
 ENDIF.
 gs_final-ebeln = tab1-ebeln.
 gs_final-lifnr = tab1-lifnr.
 gs_final-name1 = tab1-name1.
 gs_final-aedat = tab1-aedat.
 gs_final-udate = tab1-udate.
 gs_final-inco1 = tab1-inco1.
 gs_final-inco2 = tab1-inco2.
 gs_final-ebelp = tab1-ebelp.
 gs_final-matnr = tab1-matnr.
 gs_final-txz01 = tab1-txz01.
 gs_final-paedt = tab1-paedt.
 gs_final-eindt = tab1-eindt.
 gs_final-eindt1 = tab1-eindt1.
 gs_final-labnr = tab1-labnr. "NWC-29042005
 gs_final-budat = tab1-budat.
 gs_final-menge = tab1-menge.
 gs_final-wemng = tab1-wemng.
 gs_final-meins = tab1-meins.
 gs_final-vbeln = tab1-vbeln.
 gs_final-tddat = tab1-tddat.
 IF NOT tab1-vbeln IS INITIAL.
 FORMAT COLOR 4 INTENSIFIED OFF.
 WRITE:/3 wa_tab1-vbeln.
 READ TABLE lines INDEX 1.
 MOVE lines-tdline TO l_text.
 CLEAR lines.
 READ TABLE lines INDEX 2.
 CONCATENATE l_text lines-tdline INTO l_text SEPARATED BY ' '.
 FORMAT COLOR 5 INTENSIFIED OFF.
 gs_final-l_text = l_text.
 SKIP. "NWC-16092003
 ENDAT.
 APPEND gs_final to gt_final.
ENDLOOP.
PERFORM maintain_fieldcatlog.
PERFORM Display_data.
ELSE.
LOOP AT tab1.
 MOVE tab1 TO wa_tab1.
 AT NEW kont1.
 RESERVE 5 LINES.
 FORMAT COLOR 3 INTENSIFIED.
 IF tab1-knttp = '1'.
 WRITE:/(20) text-k01, 20 ': ', 22(30) tab1-kont1 NO-ZERO,
 60(74) tab1-kont2.
 ELSEIF tab1-knttp = '2'.
 WRITE:/(20) text-k02, 20 ': ', 22(30) tab1-kont1 NO-ZERO,
 60(74) tab1-kont2.
 ELSEIF tab1-knttp = '3'.
 WRITE:/(20) text-k03, 20 ': ', 22(30) tab1-kont1 NO-ZERO,
 60(74) tab1-kont2.
 ELSEIF tab1-knttp = '4'.
 WRITE:/(20) text-k04, 20 ': ', 22(30) tab1-kont1 NO-ZERO,
 60(74) tab1-kont2.
 ELSEIF tab1-knttp = '5'.
 WRITE:/(20) text-k05, 20 ': ', 22(30) tab1-kont1 NO-ZERO,
 60(74) tab1-kont2.
 ELSEIF tab1-knttp = '6'.
 WRITE:/(20) text-k04, 20 ': ', 22(30) wa_tab1-kont1 NO-ZERO,
 60 text-k02, 75 ': ', 77(57) wa_tab1-kont2 NO-ZERO.
 ELSEIF tab1-knttp IS INITIAL.
 WRITE:/ 'Stock without Account Assignment'.
 ENDIF.
 WRITE 170 ' '.
 FORMAT COLOR INTENSIFIED OFF.
 ENDAT.
 AT NEW ebeln.
 RESERVE 4 LINES.
 FORMAT COLOR 1 INTENSIFIED OFF.
 WRITE:/ wa_tab1-ebeln,
 11 ' ',
 13 wa_tab1-lifnr,
 23 wa_tab1-name1,
 60 wa_tab1-aedat NO-ZERO,
 73 wa_tab1-udate NO-ZERO,
 86 wa_tab1-inco1,
 91(37) wa_tab1-inco2,
 170 ' '.
 ENDAT.
 AT NEW ebelp.
 RESERVE 3 LINES.
 FORMAT COLOR 2 INTENSIFIED OFF.
 WRITE:/2 wa_tab1-ebelp,
 9 wa_tab1-matnr,
 30(40) wa_tab1-txz01,
 73(10) wa_tab1-paedt,
 84(10) wa_tab1-eindt,
 95(10) wa_tab1-eindt1 NO-ZERO,
 106(15) wa_tab1-labnr, "NWC-29042005
 122(10) wa_tab1-budat NO-ZERO,
 133(16) wa_tab1-menge NO-ZERO,
 150(16) wa_tab1-wemng NO-ZERO,
 167(3) wa_tab1-meins,
 170 ' '.
 ENDAT.
 HIDE: tab1-ebeln, tab1-ebelp.
 I
 READ TABLE lines INDEX 1.
 MOVE lines-tdline TO l_text.
 CLEAR lines.
 READ TABLE lines INDEX 2.
 CONCATENATE l_text lines-tdline INTO l_text SEPARATED BY ' '.
 FORMAT COLOR 5 INTENSIFIED OFF.
 WRITE: /3(132) l_text,
 170 ' '.
 SKIP. "NWC-16092003
 ENDAT.
ENDLOOP.
ENDIF.
AT LINE-SELECTION.
CHECK NOT tab1-ebeln IS INITIAL.
SET PARAMETER ID 'BES' FIELD tab1-ebeln.
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
CLEAR tab1.
TOP-OF-PAGE.
if P_ALV ne 'X'.
IF sy-pagno = 1.
 DETAIL.
 WRITE: /2 text-a01.
 RESERVE 1 LINES.
 SUMMARY.
 IF lifnr IS INITIAL.
 WRITE: /4 text-a02, 26 'All'.
 ELSE.
 LOOP AT lifnr WHERE sign = 'I'.
 IF lifnr-option = 'EQ'.
 WRITE : /4 text-a02, 26 lifnr-low.
 ELSE.
 WRITE: /4 text-a02, 26 'From', 32 lifnr-low,
 44 'to', 48 lifnr-high.
 ENDIF.
 ENDLOOP.
 ENDIF.
 IF matnr IS INITIAL.
 WRITE: /4 text-a14, 26 'All'.
 ELSE.
 LOOP AT matnr WHERE sign = 'I'.
 IF matnr-option = 'EQ'.
 WRITE : /4 text-a14, 26 matnr-low.
 ELSE.
 WRITE: /4 text-a14, 26 'From', 32 matnr-low,
 44 'to', 48 matnr-high.
 ENDIF.
 ENDLOOP.
 ENDIF.
 IF ebeln IS INITIAL.
 WRITE: /4 text-a03, 26 'All'.
 ELSE.
 LOOP AT ebeln WHERE sign = 'I'.
 IF ebeln-option = 'EQ'.
 WRITE : /4 text-a03, 26 ebeln-low.
 ELSE.
 WRITE: /4 text-a03, 26 'From', 32 ebeln-low,
 44 'to', 48 ebeln-high.
 ENDIF.
 ENDLOOP.
 ENDIF.
 IF aedat IS INITIAL.
 WRITE: /4 text-a04, 26 'All'.
 ELSE.
 LOOP AT aedat WHERE sign = 'I'.
 IF aedat-option = 'EQ'.
 WRITE : /4 text-a04, 26 aedat-low.
 ELSE.
 WRITE: /4 text-a04, 26 'From', 32 aedat-low,
 44 'to', 48 aedat-high.
 ENDIF.
 ENDLOOP.
 ENDIF.
 IF eindt IS INITIAL.
 WRITE: /4 text-a13, 26 'All'.
 ELSE.
 LOOP AT eindt WHERE sign = 'I'.
 IF eindt-option = 'EQ'.
 WRITE : /4 text-a13, 26 eindt-low.
 ELSE.
 WRITE: /4 text-a13, 26 'From', 32 eindt-low,
 44 'to', 48 eindt-high.
 ENDIF.
 ENDLOOP.
 ENDIF.
 IF bednr IS INITIAL.
 WRITE: /4 text-a15, 26 'All'.
 ELSE.
 LOOP AT bednr WHERE sign = 'I'.
 IF bednr-option = 'EQ'.
 WRITE : /4 text-a15, 26 bednr-low.
 ELSE.
 WRITE: /4 text-a15, 26 'From', 32 bednr-low,
 44 'to', 48 bednr-high.
 ENDIF.
 ENDLOOP.
 ENDIF.
 linno = sy-linno + 1.
 BACK.
 IF ekorg IS INITIAL.
 WRITE: /70 text-a11, 92 'All'.
 ELSE.
 LOOP AT ekorg WHERE sign = 'I'.
 IF ekorg-option = 'EQ'.
 WRITE : /70 text-a11, 92 ekorg-low.
 ELSE.
 WRITE: /70 text-a11, 92 'From', 98 ekorg-low,
 104 'to', 108 ekorg-high.
 ENDIF.
 ENDLOOP.
 ENDIF.
 IF ekgrp IS INITIAL.
 WRITE: /70 text-a12, 92 'All'.
 ELSE.
 LOOP AT ekgrp WHERE sign = 'I'.
 IF ekgrp-option = 'EQ'.
 WRITE : /70 text-a12, 92 ekgrp-low.
 ELSE.
 WRITE: /70 text-a12, 92 'From', 98 ekgrp-low,
 104 'to', 108 ekgrp-high.
 ENDIF.
 ENDLOOP.
 ENDIF.
 IF werks IS INITIAL.
 WRITE: /70 text-a05, 92 'All'.
 ELSE.
 LOOP AT werks WHERE sign = 'I'.
 IF werks-option = 'EQ'.
 WRITE : /70 text-a05, 92 werks-low.
 ELSE.
 WRITE: /70 text-a05, 92 'From', 98 werks-low,
 104 'to', 108 werks-high.
 ENDIF.
 ENDLOOP.
 ENDIF.
 IF pspid IS INITIAL.
 WRITE: /70 text-a06, 92 'All'.
 ELSE.
 LOOP AT pspid WHERE sign = 'I'.
 WRITE:/70 text-a06, 92 pspid-low.
 ENDLOOP.
 ENDIF.
 IF pspnr1 IS INITIAL.
 WRITE: /70 text-a07, 92 'All'.
 ELSE.
 LOOP AT pspnr1 WHERE sign = 'I'.
 WRITE:/70 text-a07, 92 pspnr1-low.
 ENDLOOP.
 ENDIF.
 IF elikz EQ 'X'.
 WRITE: /70 text-a08, 92 'Open PO only'.
 ELSEIF elikz IS INITIAL.
 WRITE: /70 text-a08, 92 'All PO'.
 ENDIF.
 IF stock EQ 'X'.
 WRITE: ', Common Stock Items'.
 ELSEIF pspnr IS INITIAL.
 WRITE: ', All Stock'.
 ENDIF.
 IF sy-linno >= linno.
 linno = sy-linno + 1.
 ENDIF.
 SKIP TO LINE linno.
 ULINE.
ENDIF.
FORMAT COLOR 1 INTENSIFIED OFF.
WRITE:/ 'PO',
 12 'Vendor no.',
 25 'Company',
 60 'PO Crt dt',
 73 'Approved dt',
 86 'Incoterm',
 170 ' '.
FORMAT COLOR 2 INTENSIFIED OFF.
WRITE:/2 'Item',
 9 'Material',
 30 'Description',
 73 'Chged date',
 84 'Delv date',
 95 'OA date',
 106 'OA Number', "NWC-29042005
 122 'GR date',
 138 'Order Qty',
 158 'GR Qty',
 167 'UoM',
 170 ' '.
FORMAT COLOR 4 INTENSIFIED OFF.
WRITE:/2 'Ship notf #',
 15 'ETD.',
 26 'ETA',
 44 'Shipped Qty',
 57 'UoM',
 170 ' '.
FORMAT COLOR 5 INTENSIFIED OFF.
WRITE:/2 'Remarks',
 170 ' '.
ULINE.
ENDIF.
form MAINTAIN_FIELDCATLOG .
REFRESH gt_fieldcat.
CLEAR gs_fieldcat.
PERFORM fill_fieldcatlog USING:
 '01' '01' 'STR' 'GT_FINAL' 'Account Assignment',
 '01' '02' 'KONT1' 'GT_FINAL' 'Kont1',
 '01' '03' 'KONT2' 'GT_FINAL' 'Kont2',
 '01' '04' 'EBELN' 'GT_FINAL' 'PO',
 '01' '05' 'LIFNR' 'GT_FINAL' 'Vendor no',
 '01' '06' 'NAME1' 'GT_FINAL' 'Company',
 '01' '07' 'AEDAT' 'GT_FINAL' 'PO Crt dt',
 '01' '08' 'UDATE' 'GT_FINAL' 'Approved dt' ,
 '01' '09' 'INCO1' 'GT_FINAL' 'Incoterm Code',
 '01' '10' 'INCO2' 'GT_FINAL' 'Incoterm Text',
 '01' '11' 'EBELP' 'GT_FINAL' 'Item',
 '01' '12' 'MATNR' 'GT_FINAL' 'Material',
 '01' '13' 'TXZ01' 'GT_FINAL' 'Description',
 '01' '14' 'PAEDT' 'GT_FINAL' 'Chged date',
 '01' '15' 'EINDT' 'GT_FINAL' 'Delv date',
 '01' '16' 'EINDT1' 'GT_FINAL' 'OA date',
 '01' '17' 'LABNR' 'GT_FINAL' 'OA Number',
 '01' '18' 'BUDAT' 'GT_FINAL' 'GR date',
 '01' '19' 'MENGE' 'GT_FINAL' 'Order Qty',
 '01' '20' 'WEMNG' 'GT_FINAL' 'GR Qty',
 '01' '21' 'MEINS' 'GT_FINAL' 'UoM',
 '01' '22' 'VBELN' 'GT_FINAL' 'Ship notf #',
 '01' '23' 'TDDAT' 'GT_FINAL' 'ETD',
 '01' '24' 'LFDAT' 'GT_FINAL' 'ETA',
 '01' '25' 'LFIMG' 'GT_FINAL' 'Shipped Qty',
 '01' '26' 'VRKME' 'GT_FINAL' 'UoM',
 '01' '27' 'L_TEXT' 'GT_FINAL' 'Remarks'.
endform. " MAINTAIN_FIELDCATLOG
form FILL_FIELDCATLOG using lv_rowpos TYPE sycurow
 lv_colpos TYPE sycucol
 lv_fldnam TYPE fieldname
 lv_tabnam TYPE tabname
 lv_seltext TYPE dd03p-scrtext_l.
gs_fieldcat-row_pos = lv_rowpos.
gs_fieldcat-col_pos = lv_colpos.
gs_fieldcat-fieldname = lv_fldnam.
gs_fieldcat-tabname = lv_tabnam.
gs_fieldcat-seltext_l = lv_seltext.
APPEND gs_fieldcat TO gt_fieldcat.
CLEAR gs_fieldcat.
endform. " FILL_FIELDCATLOG
form DISPLAY_DATA .
DATA : lv_repid TYPE syrepid.
lv_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = lv_repid
 it_fieldcat = gt_fieldcat
 TABLES
 t_outtab = gt_final
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0. "#EC NEEDED
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endform. " DISPLAY_DATA

AVL report - top of page event code ?

Hi,
I want to print TOP-OF_PAGE event code in ALV reprot.
START-OF-SELECTION.
Perform ALV_REPORT.
TOP-OF-PAGE.
PERFORM top_of_page.
in the ALV function module(form alv_report) I have given like this.
but its not printing any thing in top of ALV report, but its leaving blank space.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
Can any one tell me how to write the code?
thanks.
Kavitha.

hi,
use like this..
*& Form get_event
 text
 -->P_IT_EVENT text
FORM get_event USING P_IT_EVENT TYPE slis_t_event.
 DATA : wa_event TYPE slis_alv_event.
 CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = it_event.
 READ TABLE it_event WITH KEY name = slis_ev_top_of_page INTO wa_event.
 IF SY-SUBRC = 0.
 MOVE 'TOP_OF_PAGE' to wa_event-form.
 APPEND wa_event to it_event.
 ENDIF.
ENDFORM. " get_event
*FORM FOR TOP_OF_PAGE(to assign form for the top-of-page event)
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = it_listheader.
ENDFORM. "top_of_page
*& Form fill_listheader
 text
 -->P_IT_LISTHEADER text
FORM fill_listheader USING P_IT_LISTHEADER TYPE slis_t_listheader.
DATA : wa_listheader TYPE slis_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info ='S.T.O REPORT '.
APPEND wa_listheader TO it_listheader.
ENDFORM. " fill_listheader
*& Form call_alv_function
 text
--> p1 text
<-- p2 text
FORM call_alv_function .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_INTERFACE_CHECK = ' '
 I_BYPASSING_BUFFER =
 I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = sy-repid
 I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = 'CALL_TCODE'
 I_STRUCTURE_NAME =
 IS_LAYOUT = st_layout
 IT_FIELDCAT = it_fieldcat[]
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 IT_SORT = lt_sort
 IT_FILTER =
 IS_SEL_HIDE =
 I_DEFAULT = 'X'
 I_SAVE = ' '
 IS_VARIANT =
 IT_EVENTS = it_event[]
 IT_EVENT_EXIT =
 IS_PRINT =
 IS_REPREP_ID =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB = IT_EKBE
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. " call_alv_function
Regards,

How to declare top of page in alv report

hi guru
how to declare top of page in alv report
thanks
subhasis

Hi,
check this simple program.
REPORT ZBHALV_LIST.
TABLES:MARA.
SELECT-OPTIONS: MATNR FOR MARA-MATNR.
DATA:BEGIN OF ITAB OCCURS 0,
MATNR LIKE MARA-MATNR,
ERSDA LIKE MARA-ERSDA,
MTART LIKE MARA-MTART,
MBRSH LIKE MARA-MBRSH,
END OF ITAB.
SELECT * FROM MARA INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE MATNR
IN MATNR.
TYPE-POOLS SLIS.
DATA:FCAT TYPE slis_t_fieldcat_alv.
DATA:LAYOUT TYPE slis_layout_alv.
DATA:EVE TYPE slis_t_event WITH HEADER LINE.
DATA:HEAD TYPE slis_t_listheader WITH HEADER LINE.
DATA:SORT TYPE slis_t_sortinfo_alv WITH HEADER LINE.
SORT-UP = 'X'.
SORT-SPOS = 1.
SORT-FIELDNAME = 'ERSDA'.
SORT-tabname = 'MARA'.
APPEND SORT.
SORT-SPOS = 2.
SORT-FIELDNAME = 'MTART'.
SORT-tabname = 'MARA'.
APPEND SORT.
EVE-NAME = 'TOP_OF_PAGE'.
EVE-FORM = 'TOPOFPAGE'.
APPEND EVE.
EVE-NAME = 'TOP_OF_LIST'.
EVE-FORM = 'TOPOFLIST'.
APPEND EVE.
EVE-NAME = 'END_OF_LIST'.
EVE-FORM = 'ENDOFLIST'.
APPEND EVE.
LAYOUT-ZEBRA = 'X'.
LAYOUT-no_hline = 'X'.
LAYOUT-NO_VLINE = 'X'.
LAYOUT-window_titlebar = 'MATERIAL DETAILS'.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = SY-REPID
I_INTERNAL_TABNAME = 'ITAB'
I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME = SY-REPID
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
CHANGING
CT_FIELDCAT = FCAT
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'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IS_LAYOUT = LAYOUT
IT_FIELDCAT = FCAT
IT_SORT = SORT[]
IT_EVENTS = EVE[]
TABLES
T_OUTTAB = ITAB .
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 TOPOFPAGE.
REFRESH HEAD.
HEAD-TYP = 'H'.
HEAD-INFO = 'MATERIALS'.
APPEND HEAD.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = HEAD[]
I_LOGO =
I_END_OF_LIST_GRID =
ENDFORM.
FORM TOPOFLIST.
REFRESH HEAD.
HEAD-TYP = 'H'.
HEAD-INFO = 'MATERIALS-LISTTOP'.
APPEND HEAD.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = HEAD[]
I_LOGO =
I_END_OF_LIST_GRID =
ENDFORM.
FORM ENDOFLIST.
REFRESH HEAD.
HEAD-TYP = 'H'.
HEAD-INFO = 'MATERIALS-LISTEND'.
APPEND HEAD.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = HEAD[]
I_LOGO =
I_END_OF_LIST_GRID =
ENDFORM.
Regards,
Priyanka.

Problem in ALV top of page event

Hi,
Have created a report in ALV and used top of page event to display the header details, where i am doing some calculations and the value is appearing in top of page, but when i take print out (or see print preview), the top of page contents are not visible, is there any way so that i can print the top of page also.
Thanks in Advance
Santosh

Hi this might help u.
*&      Form BUILD_LAYOUT
      Build layout for ALV grid report
form build_layout.
gd_layout-no_input          = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text       = 'Totals'(201).
gd_layout-totals_only        = 'X'.
gd_layout-f2code            = 'DISP'. "Sets fcode for when double
                                        "click(press f2)
gd_layout-zebra             = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text       = 'helllllo'.
endform.                    " BUILD_LAYOUT
with regards,
Hema Sundara.
pls give points if u find it helpful.

Top-of-page event is not triggered

Hi,
I have a problem with top-of-page event. I have a report that shows the results in ALV grid display. But I use "REUSE_ALV_GRID_DISPLAY" not OO alv and there is only one screen with number 1000. On the menu toolbar there is a button that prints the data of ALV in a list using "write" statement. While writing , "top of page" event is not triggered. I expect that it is triggered at the first "write" statement but isn't. Is there anyone who knows the cause of this problem?
The code is below.
Thanks.
Tables ...
TABLES : mara , makt , ekko , ekpo , zzith_yukh , lfa1 , t001w , lips ,
 eket .
global variables
DATA : BEGIN OF list OCCURS 1,
 zztahsk LIKE ekko-zztahsk ,
 zterm LIKE ekko-zterm ,
 txz01 LIKE ekpo-txz01 ,
 name1 LIKE lfa1-name1 ,
 menge LIKE ekpo-menge ,
 meins LIKE ekpo-meins ,
 fyukl LIKE zzith_yukh-zzdel_flag ,
 " Yüklenmiş miktar var göstergesi ...
 inco1 LIKE ekko-inco1 ,
 netwr LIKE ekpo-netwr ,
 waers LIKE ekko-waers ,
 bedat LIKE ekko-bedat ,
 zzontar LIKE ekko-zzontar ,
 slfdt LIKE eket-slfdt ,
 tname1 LIKE t001w-name1 ,
 banfn LIKE ekpo-banfn ,
 ebeln LIKE ekko-ebeln ,
 ebelp LIKE ekpo-ebelp ,
 lifnr LIKE ekko-lifnr ,
 mtart LIKE mara-mtart ,
 matkl LIKE mara-matkl ,
 ekgrp LIKE ekko-ekgrp ,
 matnr LIKE mara-matnr ,
 eknam LIKE t024-eknam,
 bukrs LIKE ekko-bukrs,
 zzbltur LIKE ekko-zzbltur,
 END OF list .
DATA temp LIKE list OCCURS 1 WITH HEADER LINE .
DATA total LIKE list OCCURS 1 WITH HEADER LINE .
ALV fields
TYPE-POOLS : slis.
DATA : gt_fields TYPE slis_fieldcat_alv OCCURS 1 WITH HEADER LINE .
DATA : gt_events TYPE slis_t_event.
DATA : gs_layout TYPE slis_layout_alv.
DATA : gv_title TYPE lvc_title VALUE 'Günlük Depo Sayım Miktarları'.
DATA : gt_top_of_page TYPE slis_t_listheader.
selection screen
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001 .
*Satınalma organizasyonu
*Satınalma grubu
*Satıcı
*Tarih
*SAS no
*Dosya no
SELECT-OPTIONS:
s_bukrs FOR ekko-bukrs .
SELECTION-SCREEN SKIP .
SELECT-OPTIONS:
s_ekorg FOR ekko-ekorg OBLIGATORY MEMORY ID eko ,
s_ekgrp FOR ekko-ekgrp ,
s_lifnr FOR ekko-lifnr ,
s_ebeln FOR ekko-ebeln .
SELECTION-SCREEN END OF BLOCK a .
Define Katalog
DEFINE fill_catalog .
gt_fields-fieldname = &1.
gt_fields-tabname = &2.
gt_fields-seltext_l = &3.
gt_fields-seltext_m = &3.
gt_fields-seltext_s = &3.
gt_fields-checkbox = &4.
gt_fields-cfieldname = &5.
gt_fields-ref_tabname = &6.
gt_fields-ref_fieldname = &7.
gt_fields-edit = &8.
append gt_fields .
clear gt_fields .
END-OF-DEFINITION.
Modify Catalog
DEFINE modify_catalog .
gt_fields-seltext_m = &1 .
modify gt_fields transporting seltext_m where fieldname = &2 .
END-OF-DEFINITION .
TOP-OF-PAGE.
write 'top of page'.
PERFORM top-of-page.
start-of-selection
START-OF-SELECTION .
PERFORM get_data.
PERFORM listele .
*& Form listele .
FORM listele .
PERFORM get_events .
PERFORM alv_list_header.
PERFORM get_field_catalog USING 'LIST' .
PERFORM display_alv .
ENDFORM. " listele.
*& Form getfield_Catalog
FORM get_field_catalog USING p_tabname .
fill_catalog :
'EBELN' 'LIST' '' '' '' 'EKPO' 'EBELN' '' ,
'ZZTAHSK' 'LIST' '' '' '' 'EKKO' 'ZZTAHSK' '' ,
'ZZBLTUR' 'LIST' '' '' '' 'EKKO' 'ZZBLTUR' '' ,
'MATNR' 'LIST' '' '' '' 'MARA' 'MATNR' '' ,
'MATKL' 'LIST' '' '' '' 'MARA' 'MATKL' '' ,
'TXZ01' 'LIST' '' '' '' 'EKPO' 'TXZ01' '' ,
'NAME1' 'LIST' '' '' '' 'LFA1' 'NAME1' '' ,
'MENGE' 'LIST' '' '' '' 'EKPO' 'MENGE' '' ,
'MEINS' 'LIST' '' '' '' 'EKPO' 'MENGE' '' ,
'FYUKL' 'LIST' '' '' '' 'ZZITH_YUKH' 'ZZDEL_FLAG' '' ,
'INCO1' 'LIST' '' '' '' 'EKKO' 'INCO1' '' ,
'NETWR' 'LIST' '' '' '' 'EKPO' 'NETWR' '' ,
'WAERS' 'LIST' '' '' '' 'EKKO' 'WAERS' '' ,
'BEDAT' 'LIST' '' '' '' 'EKKO' 'BEDAT' '' ,
'ZZONTAR' 'LIST' '' '' '' 'EKKO' 'ZZONTAR' '' ,
'SLFDT' 'LIST' '' '' '' 'EKET' 'SLFDT' '' ,
'TNAME1' 'LIST' '' '' '' 'T001W' 'NAME1' '' ,
'BANFN' 'LIST' '' '' '' 'EKPO' 'BANFN' '' ,
'EKNAM' 'LIST' '' '' '' 'T024' 'EKNAM' '' .
gt_fields-ddictxt = 'M' .
MODIFY gt_fields TRANSPORTING ddictxt WHERE fieldname NE space.
modify_catalog 'Yükleme No' 'VBELN' .
modify_catalog 'Malzeme Türü' 'ZZBLTUR' .
modify_catalog 'Malzeme Tanımı' 'TXZ01' .
modify_catalog 'Satıcı' 'NAME1' .
modify_catalog 'Teslim Şekli' 'INCO1' .
modify_catalog 'Döviz Tutarı' 'ZZTOPLAM'.
modify_catalog 'Döviz Kodu' 'WAERS' .
modify_catalog 'Siparişi Veren' 'TNAME1' .
modify_catalog 'Tahmini İthalat Trh.' 'SLFDT' .
modify_catalog 'İthalata İntikal Trh.' 'BEDAT' .
modify_catalog 'Dosya Onay Tarihi' 'ZZONTAR' .
modify_catalog 'Talep No' 'BANFN' .
modify_catalog 'Dosya Sorumlusu' 'EKNAM' .
modify_catalog 'Yük.Göstergesi' 'FYUKL' .
ENDFORM. " getfield_Catalog
*& Form display_alv
 text
--> p1 text
<-- p2 text
FORM display_alv .
DATA lv_repid LIKE sy-repid .
lv_repid = sy-repid .
CLEAR gs_layout.
gs_layout-zebra = 'X'.
gs_layout-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = lv_repid
 i_callback_pf_status_set = 'SET_PF_STATUS'
 i_callback_user_command = 'USER_COMMAND'
 is_layout = gs_layout
 it_fieldcat = gt_fields[]
 it_events = gt_events[]
 TABLES
 t_outtab = list[].
ENDFORM. " display_alv
FORM set_pf_status USING iv_nodisplay TYPE slis_t_extab.
SET PF-STATUS 'STANDARD' ."excluding iv_nodisplay.
ENDFORM. " SET_PF_STATUS
FORM user_command USING iv_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
CASE iv_ucomm .
 WHEN 'PRINT' . PERFORM print_data .
ENDCASE .
ENDFORM. "USER_COMMAND
FORM get_events .
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = gt_events.
READ TABLE gt_events WITH KEY name = slis_ev_top_of_page
 INTO ls_event.
IF sy-subrc = 0.
 MOVE 'ALV_TOP_OF_PAGE' TO ls_event-form.
 APPEND ls_event TO gt_events.
ENDIF.
ENDFORM. " getevents
FORM alv_list_header .
DATA: ls_line TYPE slis_listheader.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-key = 'Satınalma Org.:'.
CONCATENATE s_ekorg-low s_ekorg-high
INTO ls_line-info SEPARATED BY '/'.
APPEND ls_line TO gt_top_of_page.
ls_line-key = 'Satınalma Grubu.:'.
CONCATENATE s_ekgrp-low s_ekgrp-high
INTO ls_line-info SEPARATED BY '/'.
APPEND ls_line TO gt_top_of_page.
ls_line-key = 'Satıcı.:'.
CONCATENATE s_lifnr-low s_lifnr-high
INTO ls_line-info SEPARATED BY '/'.
APPEND ls_line TO gt_top_of_page.
ls_line-key = 'SAS No.:'.
CONCATENATE s_ebeln-low s_ebeln-high
INTO ls_line-info SEPARATED BY '/'.
APPEND ls_line TO gt_top_of_page.
ENDFORM. " alv_list_header
FORM alv_top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = gt_top_of_page.
ENDFORM. "TOP_OF_PAGE
FORM get_data .
DATA : BEGIN OF tr ,
 menge LIKE eket-menge ,
 dabmg LIKE eket-dabmg ,
 END OF tr ,
 zzfiilytar LIKE zzith_yukh-zzfiilytar .
*- Get data ...
SELECT *
 INTO CORRESPONDING FIELDS OF TABLE list
 FROM ekpo AS a
 INNER JOIN ekko AS b ON bebeln = aebeln
WHERE b~ebeln IN s_ebeln AND
 b~bukrs IN s_bukrs AND
 b~loekz EQ space AND
 b~lifnr IN s_lifnr AND
 b~ekorg IN s_ekorg AND
 b~ekgrp IN s_ekgrp AND
 a~loekz EQ space AND
 a~elikz EQ space .
LOOP AT list .
 CLEAR tr .
 SELECT menge dabmg
 INTO tr
 FROM eket
 WHERE ebeln = list-ebeln AND
 ebelp = list-ebelp.
 tr-menge = tr-menge - tr-dabmg .
 ENDSELECT.
 IF tr-menge LE 0 .
 DELETE list .
 ELSE .
 list-menge = tr-menge .
 IF tr-dabmg GT 0 .
 list-fyukl = '*' .
 ENDIF .
 SELECT SINGLE butxt INTO list-tname1 FROM t001
 WHERE bukrs = list-bukrs .
 SELECT SINGLE slfdt INTO list-slfdt FROM eket
 WHERE ebeln = list-ebeln AND
 ebelp = list-ebelp .
 SELECT SINGLE name1 INTO list-name1 FROM lfa1 WHERE lifnr = list-lifnr.
 SELECT SINGLE mtart matkl INTO (list-mtart,list-matkl)
 FROM mara WHERE matnr = list-matnr .
 SELECT SINGLE eknam INTO list-eknam FROM t024 WHERE ekgrp = list-ekgrp .
 MODIFY list .
 ENDIF .
ENDLOOP .
ENDFORM. " get_data
FORM print_data .
LEAVE TO LIST-PROCESSING .
NEW-PAGE NO-HEADING NO-TITLE LINE-SIZE 229 .
SET PF-STATUS SPACE .
PERFORM top-of-page .
malzeme türü 1005 ler yazdırılır
PERFORM yazdir_1005 .
malzeme türü 1005 olmayanlar yazdırılır
PERFORM yazdir_ne_1005 .
Satınalama grupları bilgisi yazdırılır
PERFORM yazdir_ekgrp .
ENDFORM. " print_data
FORM top-of-page .
WRITE : 'ÜLKER GRUBU KONSOLİDE' .
WRITE AT 40 'Sevkiyat Bekleyen Malzemeler' COLOR COL_HEADING .
WRITE : 180 sy-uname , sy-datum , sy-uzeit.
NEW-LINE .
ULINE 0(229) .
WRITE :/2 'Rapor Kodu..............:' , (10) sy-tcode .
WRITE :/2 'Satınalma Organizasyonu.:' , (10) s_ekorg-low, '/', (10) s_ekorg-high .
WRITE :/2 'Satınalma Grubu.........:' , (10) s_ekgrp-low, '/', (10) s_ekgrp-high .
WRITE :/2 'Satıcı..................:' , (10) s_lifnr-low, '/', (10) s_lifnr-high .
WRITE :/2 'Satınalma Sipariş No....:' , (10) s_ebeln-low, '/', (10) s_ebeln-high .
NEW-LINE .
ULINE 0(229) .
Başlıklar yazılır
FORMAT COLOR COL_HEADING .
WRITE :
/(10) 'SAS NO.' CENTERED,
(6) 'TAHSİS' CENTERED,
(5) 'ÖDEME' CENTERED,
(5) 'Bel.T' CENTERED,
(25) 'MALZEME' CENTERED,
(25) 'SATICI' CENTERED,
(12) 'MİKTAR' CENTERED,
(3) 'BRM' CENTERED,
(3) 'G' ,
(7) 'TES.ŞK.' CENTERED,
(16) 'DÖVİZ TUTARI' CENTERED,
(3) 'DB.' CENTERED,
(13) 'İTH.İNTK.TRH.' CENTERED,
(13) 'DOSYA ON.TRH.' CENTERED,
(10) 'TAHMİN.İTH.TRH.' CENTERED,
(20) 'SİPARİŞ VEREN' CENTERED,
(10) 'TALEP NO.' CENTERED,
(18) 'DOSYA SORUMLUSU' CENTERED.
ULINE 0(229) .
FORMAT RESET .
ENDFORM. " top-of-page
FORM yazdir_1005 .
DATA ebeln LIKE list-ebeln .
SORT list BY zzbltur matnr .
temp[] = list[] .
DELETE temp WHERE mtart <> '1005' .
LOOP AT list WHERE mtart = '1005' .
 CLEAR list-netwr .
 IF ebeln NE list-ebeln OR ebeln EQ space .
 REFRESH total . CLEAR total .
 ebeln = list-ebeln .
 LOOP AT temp WHERE ebeln = list-ebeln .
 list-netwr = list-netwr + temp-netwr .
 CLEAR total .
 total-txz01 = '*** TKNK.MLZ. TOPLAMI ****' .
 total-meins = temp-meins .
 total-menge = temp-menge .
 COLLECT total .
 ENDLOOP .
 PERFORM write_list USING '1' .
 LOOP AT total .
 PERFORM write_list USING '2' .
 ENDLOOP .
 AT END OF zzbltur .
 ULINE 0(229) .
 ENDAT .
 ENDIF .
ENDLOOP .
ENDFORM. " yazdir_1005
FORM write_list USING flag .
flag 1 1005 için yazdırma
flag 2 ise ara toplam
IF flag = '1' .
 FORMAT COLOR COL_NORMAL .
 WRITE :
 /(10) list-ebeln ,
 (6) list-zztahsk,
 (5) list-zterm,
 (5) list-zzbltur ,
 (25) list-txz01,
 (25) list-name1,
 (12) list-menge,
 (3) list-meins,
 (3) list-fyukl,
 (7) list-inco1,
 (16) list-netwr,
 (3) list-waers,
 (13) list-bedat,
 (13) list-zzontar,
 (10) list-slfdt ,
 (20) list-tname1,
 (10) list-banfn ,
 (18) list-eknam .
 FORMAT RESET .
ELSEIF flag = '2' .
 FORMAT COLOR COL_TOTAL .
 WRITE :
 /(10) '' ,
 (6) '' ,
 (5) '' ,
 (5) '' ,
 (25) total-txz01,
 (25) '' ,
 (12) total-menge,
 (3) total-meins,
 (3) '' ,
 (7) '' ,
 (16) '' ,
 (3) '' ,
 (13) '' ,
 (13) '' ,
 (10) '' ,
 (20) '' ,
 (10) '' ,
 (18) '' .
 FORMAT RESET .
ELSEIF flag = '3' .
 FORMAT COLOR COL_TOTAL .
 WRITE :
 /(10) '' ,
 (6) '' ,
 (5) '' ,
 (5) '' ,
 (25) total-txz01,
 (25) '' ,
 (12) total-menge,
 (3) '' ,
 (3) '' ,
 (7) '' ,
 (16) total-netwr ,
 (3) '' ,
 (13) '' ,
 (13) '' ,
 (10) '' ,
 (20) '' ,
 (10) '' ,
 (18) '' .
 FORMAT RESET .
ENDIF .
ENDFORM. " write_list
FORM yazdir_ne_1005 .
DATA matnr LIKE list-matnr .
SORT list BY zzbltur matkl matnr .
temp[] = list[] .
DELETE temp WHERE mtart = '1005' .
LOOP AT list WHERE mtart <> '1005' .
Her yeni Malzeme için ara toplam yazılır
 IF matnr NE list-matnr AND matnr NE space .
 REFRESH total . CLEAR total .
Toplamlar alınır
 LOOP AT temp WHERE matnr = matnr .
 CLEAR total .
 total-netwr = temp-netwr .
 total-menge = temp-menge .
 total-txz01 = '*** TOPLAM ****' .
 COLLECT total .
 ENDLOOP .
 LOOP AT total . .
 PERFORM write_list USING '3' .
 ENDLOOP .
 ULINE 0(229) .
 ENDIF .
 PERFORM write_list USING '1' .
 matnr = list-matnr .
ENDLOOP .
Toplamlar alınır
LOOP AT temp WHERE matnr = matnr .
 REFRESH total . CLEAR total .
 total-netwr = temp-netwr .
 total-menge = temp-menge .
 total-txz01 = '*** TOPLAM ****' .
 COLLECT total .
ENDLOOP .
LOOP AT total .
 PERFORM write_list USING '3' .
ENDLOOP .
ULINE 0(229) .
ENDFORM. " yazdir_ne_1005
FORM yazdir_ekgrp .
DATA: BEGIN OF total OCCURS 1 ,
 eknam LIKE list-eknam ,
 zzbltur LIKE list-zzbltur ,
 sayi TYPE i ,
 END OF total .
DATA: BEGIN OF gtotal OCCURS 1 ,
 eknam LIKE list-eknam ,
 zzbltur LIKE list-zzbltur ,
 sayi TYPE i ,
 END OF gtotal .
DATA: bltur LIKE zzith_bltur OCCURS 1 WITH HEADER LINE .
DATA: len TYPE i .
DATA: wa LIKE total.
REFRESH temp .
SELECT * INTO TABLE bltur FROM zzith_bltur .
CLEAR bltur .
MOVE : 'ZZZZ' TO bltur-zzbltur , " Satır toplamı için ...
 text-002 TO bltur-zztanim .
APPEND bltur .
CLEAR list .
SORT list BY eknam ebeln .
DELETE ADJACENT DUPLICATES FROM list COMPARING eknam ebeln .
LOOP AT list .
 CLEAR : total, gtotal .
 total-eknam = list-eknam .
 total-zzbltur = list-zzbltur .
 total-sayi = 1 .
 COLLECT total .
 total-eknam = list-eknam .
 total-zzbltur = 'ZZZZ' .
 total-sayi = 1 .
 COLLECT total .
 gtotal-eknam = text-001 .
 gtotal-zzbltur = list-zzbltur .
 gtotal-sayi = 1 .
 COLLECT gtotal .
 gtotal-eknam = text-001 .
 gtotal-zzbltur = 'ZZZZ' .
 gtotal-sayi = 1 .
 COLLECT gtotal .
ENDLOOP .
FORMAT COLOR COL_HEADING.
ULINE AT /1(145).
WRITE :/
sy-vline , (15) 'Dosya Sorumlusu' , sy-vline .
LOOP AT bltur .
 WRITE :(15) bltur-zztanim , sy-vline .
ENDLOOP .
ULINE AT /1(145).
FORMAT RESET .
total-zzbltur = '0001' .
MODIFY total TRANSPORTING zzbltur WHERE zzbltur = space .
gtotal-zzbltur = '0001' .
MODIFY gtotal TRANSPORTING zzbltur WHERE zzbltur = space .
SORT total BY eknam .
LOOP AT total .
 AT NEW eknam .
 WRITE :/
 sy-vline , (15) total-eknam COLOR COL_HEADING ,
 sy-vline .
 LOOP AT bltur .
 len = sy-tabix * 18 .
 len = len + 3 .
 CLEAR wa .
 READ TABLE total INTO wa WITH KEY zzbltur = bltur-zzbltur
 eknam = total-eknam .
 WRITE AT len(15) wa-sayi NO-ZERO.
 WRITE sy-vline .
 ENDLOOP .
 ENDAT .
ENDLOOP .
LOOP AT gtotal .
 AT NEW eknam .
 FORMAT COLOR COL_TOTAL .
 WRITE :/
 sy-vline , (15) gtotal-eknam ,
 sy-vline .
 LOOP AT bltur .
 len = sy-tabix * 18 .
 len = len + 3 .
 CLEAR wa .
 READ TABLE gtotal INTO wa WITH KEY zzbltur = bltur-zzbltur
 eknam = text-001 .
 WRITE AT len(15) wa-sayi NO-ZERO.
 WRITE sy-vline .
 ENDLOOP .
 ENDAT .
ENDLOOP .
ULINE AT /1(145).
FORMAT RESET .
ENDFORM. " yazdir_ekgrp

Hi,
In the function use the top-of-page event as follows:
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_BYPASSING_BUFFER =
 I_BUFFER_ACTIVE =
 I_INTERFACE_CHECK = ' '
 I_CALLBACK_PROGRAM = 'ZRPMSLM'
 I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = ' '
 I_CALLBACK_TOP_OF_PAGE = 'TOP'
Define whatever to appear in top-of page in a subroutine named TOP.
Hope this helps.
Reward if helpful.
Regards,
Sipra

How to supress a blank page in smart forms

Hi,
I am using a command in Smartforms to trigger a new page whenever a new BELNR(Accounting document). My problem is in the output i am getting a first page is blank and remaining pages are ok.
What i did Is In conditions tab i written as temp NE belnr. So first time temp is nothing so blank page is coming. and in the following text elements i am passing a belnr value to the temp.
Temp = belnr and in general attributes go to new page check box has been activated. Then how to supress a blnk page.
Regards
Ramakrishna .P

Hi,
I am not using loop.
In main window i have the contents as
Header---- Headers for table
Main Area---- text elements ( i have fileds slno, belnr,glaccount,cost center,gtext,description,dmbtr,wrbtr)
In belnr field i have created the command there i am comparing the condition temp ne Belnr and go to new page on conditions tab
wrbtr text element i am passing the g_temp =belnr
My requirement is whenever new belnr comes new page has to trigger and corresponding gl accounts need to be displayed and end of the belnr i want to display the footer.
For your information passing the belnr values from the print program (select options) to smart form
Footer---footer

Top Of Page event in RS_TREE_LIST_DISPLAY

Hi ,
   I am using the FM "RS_TREE_LIST_DISPLAY" and i am passing the form routine name in the importing parameter CALLBACK_TOP_OF_PAGE . But the Sub routine is not triggered.
Can anyone help me how to display top of page for a tree display.

Hi Mohan
I wrote a dummy and tried why TOP_OF_PAGE is not working.
Form top_of_page.
*put your code here
Endform.
See in my case :
CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
EXPORTING
CALLBACK_TOP_OF_PAGE   = 'top_of_page' .
It`s not calling the subroutine top_of_page.
now i changed it:
CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
EXPORTING
CALLBACK_TOP_OF_PAGE   = 'TOP_OF_PAGE' .
Now it is calling the subroutine.
See although while writing in code i am using the small letters but while passing the parameter I am using capital letters.
Hope it is helpful.
Regards
Neha

Can you please tell me how to find top 10 wait events

Hi
Can you please tell me how to find top 10 wait events and what actions need to be taken when there is a wait?
Thanks
Regards,
RJ.

hi,
suggest you to use statspack !!!!!!! for the all tuning..else use the views
* v$session_event
* v$session_wait
* v$system_event
go through this for tuning tips
http://www.dba-oracle.com/art_dbazine_waits.htm
Thanks
--Raman

HOW MANY TIMES TOP OF PAGE WILL BE EXECUTED ?

HOW MANY TIMES TOP OF PAGE WILL BE EXECUTED IF THERE ARE MULTIPLE PAGES AND MULTIPLE WRITE COMMANDS IN A REPORT, SAY THERE ARE 10 PAGES TO BE PRINTED.
BEST REGARDS,
RYAN.

if you process n times then n times the top of page will be executed.

How to supress TOP-OF-PAGE event

Similar Messages

Maybe you are looking for