Skip to Content
0
Former Member
Dec 01, 2008 at 09:16 AM

How to put header and how to insert logo in this report

53 Views

HI

I want a header and logo in this report.how to do this in ALV report.Also why we have to put the sy-repid.Plz tell me in this report where i have to do all this.Plz show me in detail.

REPORT ZREPORT_ALV .

TYPE-POOLS : slis.

tables:vbak,vbap.

*DATA: report_id LIKE sy-repid.

DATA: I_LAYOUT TYPE SLIS_LAYOUT_ALV.

data: ivariant(1) type c,

itvariant like disvariant,

w_variant like disvariant.

initialization.

*REPORT_ID = SY-REPID.

PERFORM F1000_LAYOUT_INIT. "using I_LAYOUT.

ivariant = 'A'.

itvariant = w_variant.

select-options:so_vbeln for vbap-vbeln.

data:itab like vbak occurs 0 with header line.

data:itab1 like vbap occurs 0 with header line.

start-of-selection.

select * from vbak into table itab where vbeln in so_vbeln.

if not itab[] is initial.

select * from vbap into table itab1

for all entries in itab

where vbeln = itab-vbeln.

endif.

data:ls_fieldcat TYPE slis_fieldcat_alv,

lt_fieldcat1 TYPE slis_t_fieldcat_alv.

****For alv display

IF NOT itab1[] IS INITIAL.

DEFINE ls_fieldcat.

add 1 to ls_fieldcat-col_pos.

ls_fieldcat-fieldname = &1.

ls_fieldcat-outputlen = &2.

ls_fieldcat-seltext_l = &3.

  • ls_fieldcat-emphasize = &4.

append ls_fieldcat to lt_fieldcat1.

clear ls_fieldcat.

END-OF-DEFINITION.

ls_fieldcat 'VBELN' '10' 'Sales Order Number'.

ls_fieldcat 'POSNR' '6' 'SO Item'.

ls_fieldcat 'MATNR' '13' 'Material No'.

  • m_fieldcat1 'NETWR' '13' 'Amount'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = 'wf_report'

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

  • I_CALLBACK_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_GRID_SETTINGS =

IS_LAYOUT = I_LAYOUT

IT_FIELDCAT = lt_fieldcat1

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

  • IT_SORT =

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

IS_VARIANT = ITVARIANT

  • IT_EVENTS =

  • 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

  • I_HTML_HEIGHT_TOP = 0

  • I_HTML_HEIGHT_END = 0

  • IT_ALV_GRAPHICS =

  • IT_HYPERLINK =

  • IT_ADD_FIELDCAT =

  • IT_EXCEPT_QINFO =

  • IR_SALV_FULLSCREEN_ADAPTER =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = itab1

  • 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.

endif.

CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'

EXPORTING

I_SAVE = ivariant

CHANGING

CS_VARIANT = itvariant

  • EXCEPTIONS

  • WRONG_INPUT = 1

  • NOT_FOUND = 2

  • PROGRAM_ERROR = 3

  • OTHERS = 4

.

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 F1000_LAYOUT_INIT. "USING I_LAYOUT TYPE SLIS_LAYOUT_ALV.

*CLEAR I_LAYOUT.

i_layout-colwidth_optimize = 'X'.

  • I_LAYOUT-key_hotspot = u2018Xu2019.

  • I_LAYOUT-hotspot_fieldname = MATNR.

ENDFORM.