topic Alv Heading in Application Development and Automation Discussions

Alv Heading

Former Member — Mon, 14 Jan 2008 04:41:41 GMT

Hi Experts,

I m creating a report in which i want heading.I m doing like this but it is coming blank.What is the right method to do this .

start-of-selection.

perform data_select.

perform set_layout.

perform display.

form top_of_page.

clear: it_list_comments[].

wk_list_comments-typ = 'H'. "H=Header, S=Selection

wk_list_comments-key = 'NOTIFICATION'.

wk_list_comments-info = 'NOTIFICATION'.

append wk_list_comments to it_list_comments.

wk_list_comments-typ = 'S'. "H=Header, S=Selection

wk_list_comments-key = 'Plant : '.

wk_list_comments-info = T001W-WERKS.

append wk_list_comments to it_list_comments.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

I_LOGO = 'MYCOMPANY'

it_list_commentary = it_list_comments.

endform. "TOP_OF_PAGE

form display.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = w_repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE = NOTIFICATION SUMMARY
I_GRID_SETTINGS =

IS_LAYOUT = w_layout

IT_FIELDCAT = fieldcat[]

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'

I_SAVE = 'X'

IS_VARIANT =
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 = IT_DISPLAY

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

Re: Alv Heading

Former Member — Mon, 14 Jan 2008 04:43:51 GMT

ALV report with heading and logo

&----

*& Report ZNAME_CR *

*& *

&----

*& *

&----

REPORT ZNAME_CR1 LINE-SIZE 300.

TABLES: ZPMC, PA0002.

DATA: BEGIN OF IT_PA0002 OCCURS 0,

PERNR TYPE PA0002-PERNR,

ENDDA TYPE PA0002-ENDDA,

BEGDA TYPE PA0002-BEGDA,

NACHN TYPE PA0002-NACHN,

VORNA TYPE PA0002-VORNA,

END OF IT_PA0002.

DATA: WA_PA0002 LIKE LINE OF IT_PA0002.

DATA: BEGIN OF IT_ZPMC OCCURS 0,

ZPERNR TYPE ZPMC-ZPERNR,

ZBEGDA TYPE ZPMC-ZBEGDA,

ZENDDA TYPE ZPMC-ZENDDA,

ZTIME TYPE ZPMC-ZTIME,

ZTYPE_REQ TYPE ZPMC-ZTYPE_REQ,

ZNACHN TYPE ZPMC-ZNACHN,

ZVORNA TYPE ZPMC-ZVORNA,

ZR_DATE TYPE ZPMC-ZR_DATE,

END OF IT_ZPMC.

DATA: WA_ZPMC LIKE LINE OF IT_ZPMC.

DATA: DATE(10).

DATA: BEGIN OF IT_FINAL OCCURS 0,

PERNR TYPE PA0002-PERNR,

ENDDA TYPE PA0002-PERNR,

BEGDA TYPE PA0002-PERNR,

NACHN(40),

VORNA(40),

ZPERNR TYPE PA0002-PERNR,

ZENDDA TYPE PA0002-PERNR,

ZBEGDA TYPE PA0002-PERNR,

ZNACHN(40),

ZVORNA(40),

ZTIME TYPE ZPMC-ZTIME,

ZTYPE_REQ TYPE ZPMC-ZTYPE_REQ,

ZR_DATE TYPE ZPMC-ZR_DATE,

END OF IT_FINAL.

DATA: WA_FINAL LIKE LINE OF IT_FINAL.

TYPE-POOLS: SLIS. "ALV Declarations

DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,

GD_LAYOUT TYPE SLIS_LAYOUT_ALV,

GD_REPID LIKE SY-REPID.

DATA: LIST_TOP TYPE SLIS_T_LISTHEADER,

LIST_LINE TYPE SLIS_LISTHEADER,

EVENTS TYPE SLIS_T_EVENT,

FORMNAME_E_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND',

PTESTRUN(1),

REPNAME LIKE SY-REPID.

DATA: LAYOUT TYPE SLIS_LAYOUT_ALV.

CONSTANTS: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.

*PARAMETERS: P_PERNR TYPE ZPMC-ZPERNR.

PERFORM DATA_RETRIEVAL.

PERFORM BUILD_FIELDCATALOG.

PERFORM BUILD_LAYOUT.

PERFORM DISPLAY_ALV_REPORT.

PERFORM TOP-OF-PAGE.

PERFORM BUILD_EVENTTAB USING EVENTS[].

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

INITIALIZATION.

REPNAME = SY-REPID.

PERFORM BUILD_EVENTTAB USING EVENTS[].

CLEAR LIST_LINE.

LIST_LINE-TYP = 'H'.

LIST_LINE-INFO = SY-TITLE.

APPEND LIST_LINE TO LIST_TOP.

CLEAR LIST_LINE.

*LIST_LINE-TYP = 'S'.

*LIST_LINE-KEY = 'PROGRAM NAME'.

*LIST_LINE-INFO = SY-REPID.

*APPEND LIST_LINE TO LIST_TOP.

*CLEAR LIST_LINE.

LIST_LINE-TYP = 'S'.

LIST_LINE-KEY = 'USER'.

LIST_LINE-INFO = SY-UNAME.

APPEND LIST_LINE TO LIST_TOP.

CLEAR LIST_LINE.

CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'

EXPORTING

DATE_INTERNAL = SY-DATUM

IMPORTING

DATE_EXTERNAL = DATE

EXCEPTIONS

DATE_INTERNAL_IS_INVALID = 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.

LIST_LINE-TYP = 'S'.

LIST_LINE-KEY = 'DATE'.

LIST_LINE-INFO = DATE.

APPEND LIST_LINE TO LIST_TOP.

CLEAR LIST_LINE.

LIST_LINE-TYP = 'S'.

LIST_LINE-KEY = 'TIME'.

LIST_LINE-INFO = SY-UZEIT.

APPEND LIST_LINE TO LIST_TOP.

&----

*& Form DATA_RETRIEVAL

&----

text

----

--> p1 text
<-- p2 text

----

FORM DATA_RETRIEVAL .

*SELECT PERNR

ENDDA
BEGDA
NACHN
VORNA FROM PA0002 INTO TABLE IT_PA0002
WHERE PERNR = P_PERNR
AND BEGDA LE SY-DATUM
AND ENDDA GE SY-DATUM.

*LOOP AT IT_PA0002 INTO WA_PA0002.

WA_FINAL-PERNR = WA_PA0002-PERNR.
WA_FINAL-ENDDA = WA_PA0002-ENDDA.
WA_FINAL-BEGDA = WA_PA0002-BEGDA.
WA_FINAL-NACHN = WA_PA0002-NACHN.
WA_FINAL-VORNA = WA_PA0002-VORNA.

APPEND WA_FINAL TO IT_FINAL.

*ENDLOOP.

SELECT ZPERNR

ZBEGDA

ZENDDA

ZTIME

ZTYPE_REQ

ZNACHN

ZVORNA

ZR_DATE FROM ZPMC INTO TABLE IT_ZPMC

WHERE ZPERNR = P_PERNR

WHERE ZSTATUS = 'WAITING'.

LOOP AT IT_ZPMC INTO WA_ZPMC.

WA_FINAL-ZPERNR = WA_ZPMC-ZPERNR.

WA_FINAL-ZENDDA = WA_ZPMC-ZENDDA.

WA_FINAL-ZBEGDA = WA_ZPMC-ZBEGDA.

WA_FINAL-ZNACHN = WA_ZPMC-ZNACHN.

WA_FINAL-ZVORNA = WA_ZPMC-ZVORNA.

WA_FINAL-ZTIME = WA_ZPMC-ZTIME.

WA_FINAL-ZTYPE_REQ = WA_ZPMC-ZTYPE_REQ.

WA_FINAL-ZR_DATE = WA_ZPMC-ZR_DATE.

APPEND WA_FINAL TO IT_FINAL.

MODIFY IT_FINAL FROM WA_FINAL.

ENDLOOP.

SELECT PERNR

ENDDA

BEGDA

NACHN

VORNA FROM PA0002 INTO TABLE IT_PA0002

FOR ALL ENTRIES IN IT_ZPMC WHERE PERNR = IT_ZPMC-ZPERNR

AND BEGDA LE SY-DATUM

AND ENDDA GE SY-DATUM.

LOOP AT IT_FINAL INTO WA_FINAL.

READ TABLE IT_PA0002 INTO WA_PA0002 WITH KEY PERNR = WA_FINAL-ZPERNR.

WA_FINAL-PERNR = WA_PA0002-PERNR.

WA_FINAL-ENDDA = WA_PA0002-ENDDA.

WA_FINAL-BEGDA = WA_PA0002-BEGDA.

WA_FINAL-NACHN = WA_PA0002-NACHN.

WA_FINAL-VORNA = WA_PA0002-VORNA.

APPEND WA_FINAL TO IT_FINAL.

MODIFY IT_FINAL FROM WA_FINAL.

ENDLOOP.

ENDFORM. " DATA_RETRIEVAL

&----

*& Form BUILD_FIELDCATALOG

&----

text

----

--> p1 text
<-- p2 text

----

FORM BUILD_FIELDCATALOG .

FIELDCATALOG-FIELDNAME = 'PERNR'.

FIELDCATALOG-SELTEXT_M = 'Personal No'.

FIELDCATALOG-COL_POS = 0.