Skip to Content
0
Former Member
Feb 20, 2009 at 07:25 AM

header prob. in ALV report

37 Views

Hi All,

Hope you all are doing fine!!!

In the below program am trying to print the top-of-page/header in alv report,,but am unable to do it..

Am working on 4.6c version,,,,,its working fine in ECC 6.0 but i really dont understand why its not working in 4.6c...AM JUST PASTING THE ALV PART...!!!

Pls. do the needful

REPORT yjack LINE-SIZE 132

LINE-COUNT 65

NO STANDARD PAGE HEADING.

DATA: /sie/swe_ag0_rdo TYPE /sie/swe_ag0_rdo,

wa_tvko TYPE tvko,

/sie/swe_ag0_raa TYPE /sie/swe_ag0_raa,

wa_kna1 TYPE kna1,

wa_t001 TYPE t001,

wa_tvkot TYPE tvkot,

/sie/swe_ag0_con TYPE /sie/swe_ag0_con,

/sie/swe_ag0_r02 TYPE /sie/swe_ag0_r02.

TYPES: BEGIN OF ty_itab,

bukrs TYPE /sie/swe_ag0_rdo-bukrs,

vkorg TYPE /sie/swe_ag0_rdo-vkorg,

zclpr TYPE /sie/swe_ag0_rdo-zclpr,

zcdaz TYPE /sie/swe_ag0_rdo-zcdaz,

vbeln TYPE /sie/swe_ag0_rdo-vbeln,

posnr TYPE /sie/swe_ag0_rdo-posnr,

vbtyp TYPE /sie/swe_ag0_rdo-vbtyp,

zidag TYPE /sie/swe_ag0_rdo-zidag,

zimpp TYPE /sie/swe_ag0_rdo-zimpp,

zimco TYPE /sie/swe_ag0_rdo-zimco,

zimmg TYPE /sie/swe_ag0_rdo-zimmg,

fkdat TYPE /sie/swe_ag0_rdo-fkdat,

zstre TYPE /sie/swe_ag0_rdo-zstre,

vtweg TYPE /sie/swe_ag0_rdo-vtweg,

kunrg TYPE /sie/swe_ag0_rdo-kunrg,

END OF ty_itab.

TYPES: BEGIN OF ty_itab2,

bukrs TYPE /sie/swe_ag0_rdo-bukrs,

vkorg TYPE /sie/swe_ag0_rdo-vkorg,

zcdaz TYPE /sie/swe_ag0_rdo-zcdaz,

fkdat TYPE /sie/swe_ag0_rdo-fkdat,

vbeln TYPE /sie/swe_ag0_rdo-vbeln,

zimpp TYPE /sie/swe_ag0_rdo-zimpp,

zimco(5) TYPE p DECIMALS 2,

zimmg(5) TYPE p DECIMALS 2,

resid(6) TYPE p DECIMALS 2,

kunrg TYPE /sie/swe_ag0_rdo-kunrg,

name1 TYPE kna1-name1,

END OF ty_itab2.

type-pools: slis.

types: begin of ty_final,

bukrs type char29,

vkorg type char24,

mese type char17,

gjahr type gjahr,

agent type char45,

vbeln type vbeln,

fkdat type fkdat,

zimpp type /SIE/SWE_AG0_ZIMPP,

zimco type /SIE/SWE_AG0_ZIMCO,

zimmg type /SIE/SWE_AG0_ZIMMG,

resid(5) TYPE p DECIMALS 2,

kunrg type kunrg,

name1 type NAME1_GP,

end of ty_final.

data: it_final type table of ty_final,

wa_final type ty_final,

g_bukrs(29) type c,

g_vkorg(24) type c.

data: it_fieldcat type slis_t_fieldcat_alv,

it_layout type slis_layout_alv,

it_list_top_of_page type slis_t_listheader,

it_events type slis_t_event,

wa_events type slis_alv_event,

it_headings type slis_t_listheader,

wa_headings type slis_listheader.

constants: c_h type c value 'H',

c_s type c value 'S'.

field-symbols: <fs_final> type ty_final.

DATA: it_itab TYPE TABLE OF ty_itab,

it_itab2 TYPE TABLE OF ty_itab2,

wa_itab TYPE ty_itab,

wa_itab2 TYPE ty_itab2.

DATA: wa_app TYPE ty_itab.

DATA: w_var TYPE c VALUE '1',

w_com_mese(9) TYPE c,

w_flag_st TYPE c.

$$ Selection-screen

SELECTION-SCREEN SKIP 1.

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

  • BEG MOD ESX00596 IMS:100276414 TR:SWIK9A04W7 11.04.2007

*PARAMETERS: p_bukrs LIKE /sie/swe_ag0_rdo-bukrs OBLIGATORY.

*PARAMETERS: p_vkorg LIKE /sie/swe_ag0_rdo-vkorg OBLIGATORY.

PARAMETERS: p_bukrs TYPE /sie/swe_ag0_rdo-bukrs OBLIGATORY.

PARAMETERS: p_vkorg TYPE /sie/swe_ag0_rdo-vkorg OBLIGATORY.

SELECT-OPTIONS: s_zcdaz FOR /sie/swe_ag0_rdo-zcdaz OBLIGATORY

MATCHCODE OBJECT /sie/swe_ag0_zaa.

PARAMETERS: mese(2) TYPE n OBLIGATORY,

anno TYPE /sie/swe_ag0_rdo-gjahr OBLIGATORY.

SELECTION-SCREEN END OF BLOCK parametri.

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: c1 AS CHECKBOX.

SELECTION-SCREEN COMMENT 8(31) text-006 FOR FIELD c1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN: END OF BLOCK b1.

DATA: w_cd_a TYPE /sie/swe_ag0_rdo-vtweg,

w_cd_gen TYPE /sie/swe_ag0_rdo-vtweg,

w_cd_di TYPE /sie/swe_ag0_rdo-vtweg,

w_cd_re TYPE /sie/swe_ag0_rdo-vtweg,

w_cd_te TYPE /sie/swe_ag0_rdo-vtweg,

w_cd_ca TYPE /sie/swe_ag0_rdo-vtweg.

INITIALIZATION.

PERFORM selezione_hard_coding.

$$ At selection-screen

AT SELECTION-SCREEN.

PERFORM controlli.

$$ Top-of-page

TOP-OF-PAGE.

PERFORM top_of_page.

$$ Start-of-selection

START-OF-SELECTION.

perform build_events.

PERFORM carica_itab.

PERFORM carica_itab2.

PERFORM stampa.

END-OF-SELECTION.

IF C1 EQ 'X'.

perform fill-fieldcatalog.

perform display_alv.

ENDIF.

&----


*& Form fill-fieldcatalog

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form fill-fieldcatalog.

data: l_fieldcat TYPE slis_fieldcat_alv.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'BUKRS'.

l_fieldcat-col_pos = 1.

l_fieldcat-seltext_l = 'Company'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'VKORG'.

l_fieldcat-col_pos = 2.

l_fieldcat-seltext_l = 'Comm. Organization'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'MESE'.

l_fieldcat-col_pos = 3.

l_fieldcat-seltext_l = 'Month'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'GJAHR'.

l_fieldcat-col_pos = 4.

l_fieldcat-seltext_l = 'Year'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'AGENT'.

l_fieldcat-col_pos = 5.

l_fieldcat-seltext_l = 'AGENT'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'VBELN'.

l_fieldcat-col_pos = 6.

l_fieldcat-seltext_l = 'Invoice'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'FKDAT'.

l_fieldcat-col_pos = 7.

l_fieldcat-seltext_l = 'Date'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'ZIMPP'.

l_fieldcat-col_pos = 8.

l_fieldcat-seltext_l = 'Taxable'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'ZIMCO'.

l_fieldcat-col_pos = 9.

l_fieldcat-seltext_l = 'Tot.Comm.'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'ZIMMG'.

l_fieldcat-col_pos = 10.

l_fieldcat-seltext_l = 'Settle'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'RESID'.

l_fieldcat-col_pos = 11.

l_fieldcat-seltext_l = 'Accruing'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'KUNRG'.

l_fieldcat-col_pos = 12.

l_fieldcat-seltext_l = 'Cust.Code'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

l_fieldcat-tabname = 'IT_FINAL'.

l_fieldcat-fieldname = 'NAME1'.

l_fieldcat-col_pos = 13.

l_fieldcat-seltext_l = 'Company Name'.

APPEND l_fieldcat TO it_fieldcat.

clear l_fieldcat.

endform. " fill-fieldcatalog

&----


*& Form display_alv

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form display_alv.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = sy-repid

I_CALLBACK_TOP_OF_PAGE = 'PRINT_HEADING'

IS_LAYOUT = it_layout

IT_FIELDCAT = it_fieldcat

IT_EVENTS = it_events

TABLES

t_outtab = it_final

.

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

&----


*& Form build_events

&----


  • text

----


  • -->P_IT_EVENTS[] text

----


form build_events.

clear wa_events.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = it_events.

read table it_events into wa_events with key name = 'TOP_OF_PAGE'.

if sy-subrc eq 0.

wa_events-form = 'PRINT_HEADING'.

modify it_events from wa_events transporting form

where name = 'TOP_OF_PAGE'.

endif.

endform. " build_events

form PRINT_HEADING.

clear wa_headings.

wa_headings-typ = 'H'.

wa_headings-info = 'DEMO FOR ALV!!!'.

append wa_headings to it_headings.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_headings.

endform.

Thanks n Regards

Jack