Add header in alv
hallow i use alv grid from se83 and i wont to add a header . how can i do that ?. my alv is basic. did i need to change all the alv code or just to add some code to my code? thankes
HALLOW ANVER I DO LIKE U TELL AND IS NOT WORKING IT BRING ME A TABLE empty and heder empty
*& Form create_field_cat
text
--> p1 text
<-- p2 text
FORM create_field_cat .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'YHR_Q4_STR' "STRUCTRE NAME
CHANGING
ct_fieldcat = ct_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
ENDIF.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = gd_repid
i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM
is_layout = gd_layout
it_fieldcat = ct_fieldcat
i_save = 'X'
TABLES
t_outtab = itab
EXCEPTIONS
program_error = 1
OTHERS = 2.
LOOP AT ct_fieldcat INTO wa_fieldcat.
MOVE-CORRESPONDING wa_fieldcat TO wa_fcat.
CASE wa_fieldcat-fieldname.
WHEN 'OBJID'.
wa_fcat-coltext = text-001.
wa_fcat-outputlen = 9.
WHEN 'STEXT'.
wa_fcat-coltext = text-002.
wa_fcat-outputlen = 15.
WHEN 'YYOBJID_TXT'.
wa_fcat-coltext = text-004.
wa_fcat-outputlen = 30.
WHEN 'STEXT2'.
wa_fcat-coltext = text-003.
wa_fcat-outputlen = 11.
ENDCASE.
APPEND wa_fcat TO fcat.
CLEAR wa_fcat.
ENDLOOP.
*PERFORM top-of-page.
ENDFORM. " create_field_cat
*& Form top-of-page
text
--> p1 text
<-- p2 text
form top-of-page .
*ALV Header declarations
data: t_header type slis_t_listheader,
wa_header type slis_listheader,
t_line like wa_header-info,
ld_lines type i,
ld_linesc(10) type c.
Title
wa_header-typ = 'H'.
wa_header-info = 'EKKO Table Report'.
append wa_header to t_header.
clear wa_header.
endform.
Similar Messages
-
Hi Friends,
How to add a header in ALV, Can you please tell me.
Regards,
Venu.hi,
chk this sample code.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = gd_repid
<b>i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM</b>
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
i_save = 'X'
tables
t_outtab = it_ekko
exceptions
program_error = 1
others = 2.
Form TOP-OF-PAGE *
ALV Report Header *
Form top-of-page.
*ALV Header declarations
data: t_header type slis_t_listheader,
wa_header type slis_listheader,
t_line like wa_header-info,
ld_lines type i,
ld_linesc(10) type c.
Title
wa_header-typ = 'H'.
wa_header-info = 'EKKO Table Report'.
append wa_header to t_header.
clear wa_header.
Date
wa_header-typ = 'S'.
wa_header-key = 'Date: '.
CONCATENATE sy-datum+6(2) '.'
sy-datum+4(2) '.'
sy-datum(4) INTO wa_header-info. "todays date
append wa_header to t_header.
clear: wa_header.
Total No. of Records Selected
describe table it_ekko lines ld_lines.
ld_linesc = ld_lines.
concatenate 'Total No. of Records Selected: ' ld_linesc
into t_line separated by space.
wa_header-typ = 'A'.
wa_header-info = t_line.
append wa_header to t_header.
clear: wa_header, t_line.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = t_header.
i_logo = 'Z_LOGO'.
endform.
rgds
anver
if hlped mark points -
Hi Friends
I need to add header to ALV grid, pls tell me how to do it.
Thanx in advance,
Regards,
Venu.*& Report Y_TOP_PAGE *
REPORT y_top_page .
TABLES : mara.
TYPE-POOLS: slis.
DATA : w_repid LIKE sy-repid.
w_repid = sy-repid.
DATA : BEGIN OF it_mara OCCURS 0,
matnr LIKE mara-matnr,
END OF it_mara.
*layout
DATA: wa_layout TYPE SLIS_LAYOUT_ALV.
*field catalog
DATA: it_fieldcat_wrt_off TYPE slis_t_fieldcat_alv,
wa_fieldcat_wrt_off TYPE slis_fieldcat_alv.
START-OF-SELECTION.
SELECT matnr FROM mara INTO CORRESPONDING FIELDS OF TABLE it_mara.
END-OF-SELECTION.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = w_repid
I_INTERNAL_TABNAME = 'IT_MARA'
* i_structure_name = 'IT_MARA'
* I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME = w_repid
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE =
CHANGING
ct_fieldcat = it_fieldcat_wrt_off[]
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_GRID_DISPLAY'
EXPORTING
i_callback_program = w_repid
i_callback_top_of_page = 'TOP-OF-PAGE'
is_layout = wa_layout
it_fieldcat = it_fieldcat_wrt_off
TABLES
t_outtab = it_mara
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.
* Form TOP-OF-PAGE *
* ALV Report Header *
FORM top-of-page.
*ALV Header declarations
DATA: t_header TYPE slis_t_listheader,
wa_header TYPE slis_listheader,
t_line LIKE wa_header-info,
ld_lines TYPE i,
ld_linesc(10) TYPE c.
* Title
wa_header-typ = 'H'.
wa_header-info = 'CHANDU REPORT'.
APPEND wa_header TO t_header.
CLEAR wa_header.
* Date
wa_header-typ = 'S'.
wa_header-key = 'Date: '.
CONCATENATE sy-datum+6(2) '.'
sy-datum+4(2) '.'
sy-datum(4) INTO wa_header-info. "todays date
APPEND wa_header TO t_header.
CLEAR: wa_header.
* Total No. of Records Selected
* describe table it_ekko lines ld_lines.
* ld_linesc = ld_lines.
* concatenate 'Total No. of Records Selected: ' ld_linesc
* into t_line separated by space.
* wa_header-typ = 'A'.
* wa_header-info = t_line.
* append wa_header to t_header.
* clear: wa_header, t_line.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = t_header.
* i_logo = 'Z_LOGO'.
ENDFORM. "top-of-page -
Need to add Header and footer in an alv grid display output.
How can I add header and footer in an alv grid dispay output.
For the grid display, I am using the function module "REUSE_ALV_GRID_DISPLAY".HI,
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = gd_repid
i_callback_top_of_page = 'TOP-OF-PAGE'
i_callback_html_end_of_list = 'END_OF_LIST_HTML'
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
i_save = 'X'
tables
t_outtab = it_ekko
exceptions
program_error = 1
others = 2.
FORM end_of_list_html USING end TYPE REF TO cl_dd_document.
DATA: ls_text TYPE sdydo_text_element,
l_grid TYPE REF TO cl_gui_alv_grid,
f(14) TYPE c VALUE 'SET_ROW_HEIGHT'.
ls_text = 'Footer title'.
adds and icon (red triangle)
CALL METHOD end->add_icon
EXPORTING
sap_icon = 'IL'.
adds test (via variable)
CALL METHOD end->add_text
EXPORTING
text = ls_text
sap_emphasis = 'strong'.
adds new line (start new line)
CALL METHOD end->new_line.
display text(bold)
CALL METHOD end->add_text
EXPORTING
text = 'Bold text'
sap_emphasis = 'strong'.
adds new line (start new line)
CALL METHOD end->new_line.
display text(normal)
CALL METHOD end->add_text
EXPORTING
text = 'Nor'.
adds new line (start new line)
CALL METHOD end->new_line.
display text(bold)
CALL METHOD end->add_text
EXPORTING
text = 'Yellow '
sap_emphasis = 'str'.
adds and icon (yellow triangle)
CALL METHOD end->add_icon
EXPORTING
sap_icon = 'IC''.
display text(normal)
CALL METHOD end->add_text
EXPORTING
text = 'Mor'.
*set height of this section
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
e_grid = l_grid.
CALL METHOD l_grid->parent->parent->(f)
EXPORTING
id = 3
height = 14.
ENDFORM. "end_of_list_html.
This will solve it. Post if you need more help in this.
Regards,
Madhu. -
i want to add header to my ALV report
i am using cl_salv_table method
i want to write a few sentences.
in addition i want to add a button to my report,
which will display the values the user put in the selection screen.
please give me detailed explenation
thanksDisplay header:--steps
1. call the factory method and it reruns the ref variable..
try.
call method cl_salv_table=>factory
exporting
list_display = list_display
importing
r_salv_table = vref_alv
changing
t_table = i_sflight.
catch cx_salv_msg into oref_error.
l_text_alv_e = oref_error->get_text( ).
message i000 with l_text_alv_e.
leave list-processing.
endtry.
2. Create header object and attached it with ALV
data: lr_grid type ref to cl_salv_form_layout_grid.
1st step: create the grid object
create object lr_grid.
2nd step: add some text items
lr_grid->create_header_information( row = 1 column = 1
text = 'Flight List Grp ##'(fll) ).
lr_grid->create_text( row = 2 column = 1
text = 'Please check utilization'(uti) ).
3rd step: declare grid as header of list
vref_alv->set_top_of_list( value = lr_grid ).
Display - button steps:
1. Create pf status and Set pf status:
Create pf-status and add ur custom button with a fcode then set this status with alv.
vref_alv->set_screen_status( pfstatus = 'SALV_TABLE_STANDARD'
report = sy-repid
set_functions = p_alv->c_functions_all ).
2. Get all the events and set the event handler for this added button.
data: lr_event type ref to cl_salv_events_table.
get the EVENT object
lr_event = p_alv->get_event( ).
set handler :
lcl_handler=>on_added_function for lr_event,
2. Create the local class to handle this event:
class lcl_handler definition.
public section.
class-methods:
on_added_function for event added_function of cl_salv_events_table
importing e_salv_function, " type salv_de_function
endclass. "lcl_handler definition
CLASS lcl_handler IMPLEMENTATION
class lcl_handler implementation.
method on_added_function.
data: l_oref_columns type ref to cl_salv_columns_table,
l_oref_column type ref to cl_salv_column_table,
l_oref_column1 type ref to cl_salv_column,
l_except1 type ref to cx_salv_not_found, "Exception
l_text1 type string, "Exception msg
l_lvc_s_colo type lvc_s_colo.
case e_salv_function.
when '<fcode of ur button>'.
write ur logic here.
endcase.
endmethod.
endclass. "lcl_handler IMPLEMENTATION
Regards,
Joy.
Edited by: Joyjit Ghosh on Jul 13, 2008 12:16 PM -
Hi,
I am trying to add header to my ALV grid report using the FM REUSE_ALV_COMMENTARY_WRITE'
It is displaying a blank window.
My code is
*& Report YGTSPRODUCT
*& Author : Krishna Chaitanya Nandimandalam
*& Desc : Display Products by Product Characteristics
REPORT YGTSPRODUCT.
*& Structure declarations
type-pools : slis.
TYPES : BEGIN OF TY_CTSNUMC,
GUID_CTSNUMC TYPE /SAPSLL/CTSNUMC-GUID_CTSNUMC, "Primary Key as GUID in "RAW" Format
GUID_MOBJ TYPE /SAPSLL/CTSNUMC-GUID_MOBJ, "Primary Key as GUID in "RAW" Format
STCTS TYPE /SAPSLL/CTSNUMC-STCTS, "Numbering Scheme for Customs Tariff System
CCNGN TYPE /SAPSLL/CTSNUMC-CCNGN, "Number (Generic/Structured)
CRTSP TYPE /SAPSLL/PRGEN-CRTSP, "UTC Time Stamp When Object Was Added
CHTSP TYPE /SAPSLL/PRGEN-CHTSP, "UTC Time Stamp When Object Was Changed
END OF TY_CTSNUMC.
TEST --CREATING ANOTHER STUCTURE TO GET THE COMMON FIELD FOR GUID_PR
TYPES : BEGIN OF TY_PRCTSC,
GUID_PRCTSC TYPE /SAPSLL/PRCTSC-GUID_PRCTSC, "Primary Key as GUID in "RAW" Format
GUID_PR TYPE /SAPSLL/PRCTSC-GUID_PR, "Primary Key as GUID in "RAW" Format
STCTS TYPE /SAPSLL/PRCTSC-STCTS, "Numbering Scheme for Customs Tariff System
GUID_CTSNUMC TYPE /SAPSLL/PRCTSC-GUID_CTSNUMC, "Primary Key as GUID in "RAW" Format
END OF TY_PRCTSC.
TYPES : BEGIN OF TY_PRGEN,
GUID_PRGEN TYPE /SAPSLL/PRGEN-GUID_PRGEN, "Primary Key as GUID in "RAW" Format
GUID_PR TYPE /SAPSLL/PR-GUID_PR, "Primary Key as GUID in "RAW" Format
ATTR20A TYPE /SAPSLL/PRGEN-ATTR20A, "Substance ID
ATTR05A TYPE /SAPSLL/PRGEN-ATTR05A, "Materail Type
ATTR10A TYPE /SAPSLL/PRGEN-ATTR10A, "Materail Group
ATTR05B TYPE /SAPSLL/PRGEN-ATTR05B, "Sub-Family
END OF TY_PRGEN.
TYPES : BEGIN OF TY_PNTPR,
GUID_PR TYPE /SAPSLL/PR-GUID_PR,
PRVSY TYPE /SAPSLL/PNTPR-PRVSY, "R3 MATERIAL NUMBER
GRVSY TYPE /SAPSLL/PNTPR-GRVSY, "LOGICAL SYSTEM GROUP
END OF TY_PNTPR.
*TYPES : D_PSUI TYPE /SAPSLL/PRODUCT_SELECT_UI_S-QUAL_STA. "PRODUCT STATUS
*TYPES : BEGIN OF D_CORSTA,
GUID_MOBJ TYPE /SAPSLL/CORSTA-GUID_MOBJ,
QUAL_STA TYPE /SAPSLL/CORSTA-QUAL_STA,
CHTSP TYPE /SAPSLL/CORSTA-CHTSP,
END OF D_CORSTA.
>PRODUCT STAUS
*DATA : BEGIN OF T_CORSTA OCCURS 0,
GUID_MOBJ TYPE /SAPSLL/CORSTA-GUID_MOBJ,
QUAL_STA TYPE /SAPSLL/CORSTA-QUAL_STA,
END OF T_CORSTA.
TYPES : BEGIN OF TY_PR,
GUID_PR TYPE /SAPSLL/PR-GUID_PR, "Primary Key as GUID in "RAW" Format
CRTSP TYPE /SAPSLL/PR-CRTSP, "PRODUCT CREATED ON
CHTSP TYPE /SAPSLL/PR-CHTSP, "PRODUCT CHANGED ON
END OF TY_PR.
TYPES : BEGIN OF TY_PRT,
GUID_PR TYPE /SAPSLL/PRT-GUID_PR, "Primary Key as GUID in "RAW" Format
PRTXT TYPE /SAPSLL/PRT-PRTXT, "Materail description
END OF TY_PRT.
TYPES : BEGIN OF TY_FINAL,
*T_PRCTSC
GUID_PRCTSC TYPE /SAPSLL/PRCTSC-GUID_PRCTSC, "Primary Key as GUID in "RAW" Format
GUID_PR TYPE /SAPSLL/PRCTSC-GUID_PR, "Primary Key as GUID in "RAW" Format
STCTS TYPE /SAPSLL/PRCTSC-STCTS, "Numbering Scheme for Customs Tariff System
GUID_CTSNUMC TYPE /SAPSLL/PRCTSC-GUID_CTSNUMC, "Primary Key as GUID in "RAW" Format
*T_CTSNUMC
GUID_CTSNUMC TYPE /SAPSLL/CTSNUMC-GUID_CTSNUMC, "Primary Key as GUID in "RAW" Format
GUID_MOBJ TYPE /SAPSLL/CTSNUMC-GUID_MOBJ, "Primary Key as GUID in "RAW" Format
STCTS TYPE /SAPSLL/CTSNUMC-STCTS, "Numbering Scheme for Customs Tariff System
CCNGN TYPE /SAPSLL/CTSNUMC-CCNGN, "Number (Generic/Structured)
CRTSP TYPE /SAPSLL/PRGEN-CRTSP, "UTC Time Stamp When Object Was Added
CHTSP TYPE /SAPSLL/PRGEN-CHTSP, "UTC Time Stamp When Object Was Changed
*T_PRGEN
GUID_PRGEN TYPE /SAPSLL/PRGEN-GUID_PRGEN, "Primary Key as GUID in "RAW" Format
GUID_PR TYPE /SAPSLL/PR-GUID_PR, "Primary Key as GUID in "RAW" Format
ATTR20A TYPE /SAPSLL/PRGEN-ATTR20A, "Substance ID
ATTR05A TYPE /SAPSLL/PRGEN-ATTR05A, "Materail Type
ATTR10A TYPE /SAPSLL/PRGEN-ATTR10A, "Materail Group
ATTR05B TYPE /SAPSLL/PRGEN-ATTR05B, "Sub-Family
*T_PNTPR
GUID_PR TYPE /SAPSLL/PR-GUID_PR, "Primary Key as GUID in "RAW" Format
PRVSY TYPE /SAPSLL/PNTPR-PRVSY, "R3 MATERIAL NUMBER
GRVSY TYPE /SAPSLL/PNTPR-GRVSY, "LOGICAL SYSTEM GROUP
T_PR
GUID_PR TYPE /SAPSLL/PR-GUID_PR, "Primary Key as GUID in "RAW" Format
CRTSP TYPE /SAPSLL/PR-CRTSP, "PRODUCT CREATED ON
CHTSP TYPE /SAPSLL/PR-CHTSP, "PRODUCT CHANGED ON
*T_PRT
GUID_PR TYPE /SAPSLL/PRT-GUID_PR, "Primary Key as GUID in "RAW" Format
PRTXT TYPE /SAPSLL/PRT-PRTXT, "Materail description
END OF TY_FINAL.
*& INTERNAL TABLE AND WORK AREA DECLARATIONS
DATA :
T_CTSNUMC TYPE STANDARD TABLE OF TY_CTSNUMC INITIAL SIZE 0,
T_PRCTSC TYPE STANDARD TABLE OF TY_PRCTSC INITIAL SIZE 0, "TEST INCLUDED NEW STRUCTURE TO GET GUID_PR
T_PRGEN TYPE STANDARD TABLE OF TY_PRGEN INITIAL SIZE 0,
T_PNTPR TYPE STANDARD TABLE OF TY_PNTPR INITIAL SIZE 0,
T_PR TYPE STANDARD TABLE OF TY_PR INITIAL SIZE 0,
T_PRT TYPE STANDARD TABLE OF TY_PRT INITIAL SIZE 0,
T_CORSTA TYPE STANDARD TABLE OF D_CORSTA INITIAL SIZE 0,
T_FINAL TYPE STANDARD TABLE OF TY_FINAL INITIAL SIZE 0.
DATA :
WA_CTSNUMC TYPE TY_CTSNUMC,
WA_PRCTSC TYPE TY_PRCTSC, "TEST INCLUDED NEW STRUCTURE TO GET GUID_PR
WA_PRGEN TYPE TY_PRGEN,
WA_PNTPR TYPE TY_PNTPR,
WA_PR TYPE TY_PR,
WA_PRT TYPE TY_PRT,
WA_CORSTA TYPE D_CORSTA,
WA_FINAL TYPE TY_FINAL.
*& ALV DATA DECLARATIONS
DATA : lt_fieldcat TYPE slis_t_fieldcat_alv,
lw_fieldcat LIKE LINE OF lt_fieldcat,
lt_fieldcat1 TYPE slis_t_fieldcat_alv,
lw_fieldcat1 LIKE LINE OF lt_fieldcat,
lt_listheader TYPE slis_t_listheader,
lw_listheader LIKE LINE OF lt_listheader, lt_events TYPE slis_t_event,
lw_events LIKE LINE OF lt_events.
*& DATA DECLARATIONS FOR SELECTION SCREEN
DATA : G_STCTS TYPE /SAPSLL/CTSNUMC-STCTS, "NUMBER SCHEME
G_ATTR20A TYPE /SAPSLL/PRGEN-ATTR20A, "SUBSTANCE ID
G_PRVSY TYPE /SAPSLL/PNTPR-PRVSY, "R3 MATERIAL NUMBER
G_GRVSY TYPE /SAPSLL/PNTPR-GRVSY, "LOGICAL SYS GROUP
G_QSTA TYPE /SAPSLL/PRODUCT_SELECT_UI_S-QUAL_STA, "PRODUCT STATUS
G_CORSTA TYPE /SAPSLL/CORSTA-QUAL_STA, "PRODUCT STATUS
G_CRTSP TYPE /SAPSLL/PR-CRTSP, "PRODUCT CREATED ON
G_CHSTP TYPE /SAPSLL/PR-CHTSP. "PRODUCT CHANGED ON
*& SELECTION-SCREEN DECLARATIONS
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_STCTS FOR G_STCTS OBLIGATORY, "NUMBER SCHEME
S_AT20A FOR G_ATTR20A, "SUBSTANCE ID
S_PRVSY FOR G_PRVSY, "R3 MATERIAL NUMBER
S_GRVSY FOR G_GRVSY, "LOGICAL SYS GROUP
S_QSTA FOR G_QSTA, "PRODUCT STATUS
S_CORSTA FOR G_CORSTA, "PRODUCT STATUS
S_CRTSP FOR G_CRTSP, "PRODUCT CREATED ON
S_CHSTP FOR G_CHSTP. "PRODUCT CHANGED ON
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME. " TITLE. " TEXT-002.
PARAMETERS : BOTH RADIOBUTTON GROUP RG1,
EXICLASS RADIOBUTTON GROUP RG1.
SELECTION-SCREEN END OF BLOCK B2.
*& INITIALIZATION
INITIALIZATION .
CLEAR : WA_CTSNUMC,
WA_PRCTSC,
WA_PRGEN,
WA_PNTPR,
WA_PR,
WA_PRT,
WA_FINAL.
REFRESH : T_CTSNUMC,
T_PRCTSC,
T_PRGEN,
T_PNTPR,
T_PR,
T_PRT,
T_FINAL.
*& START OF SELECTION
START-OF-SELECTION.
LW_EVENTS-NAME = 'TOP_OF_PAGE' .
LW_EVENTS-FORM = 'SUB' .
APPEND LW_EVENTS TO LT_EVENTS . PERFORM LIST_HEADER.
IF BOTH EQ 'X'.
PERFORM VALIDATE_NSCHEME.
PERFORM GET_DATA.
PERFORM BUILD_FIELDCAT.
PERFORM LIST_HEADER.
PERFORM f_events CHANGING lt_events.
PERFORM DISP_ALV_DATA.
ENDIF.
*& Form VALIDATE_NSCHEME
*& VALIDATE NUMBER SCHEME
FORM VALIDATE_NSCHEME .
DATA : L_STCTS TYPE /SAPSLL/CTSNUMC-STCTS.
SELECT SINGLE STCTS FROM /SAPSLL/CTSNUMC INTO L_STCTS
WHERE STCTS IN S_STCTS .
IF SY-SUBRC <> 0.
MESSAGE 'Invalid Numbering Scheme for Customs Tariff System'
TYPE 'E'.
ENDIF .
ENDFORM. " VALIDATE_NSCHEME
*& Form GET_DATA
GET DATA INTO FINAL TABLE
FORM GET_DATA .
SELECT GUID_CTSNUMC "Primary Key as GUID in "RAW" Format
GUID_MOBJ "Primary Key of Main Object
STCTS "Numbering Scheme for Customs Tariff System
CCNGN "Number (Generic/Structured)
CRTSP "UTC Time Stamp When Object Was Added
CHTSP "UTC Time Stamp When Object Was Changed
FROM /SAPSLL/CTSNUMC
INTO TABLE T_CTSNUMC
WHERE STCTS IN S_STCTS.
*DELETE ADJACENT DUPLICATES FROM T_CTSNUMC COMPARING GUID_CTSNUMC.
IF T_CTSNUMC IS NOT INITIAL.
GET GUID_PR FOR THE CORRESPONDING GUID_CTSNUMC
SELECT GUID_PRCTSC "Primary Key as GUID in "RAW" Format
GUID_PR "Primary Key as GUID in "RAW" Format
STCTS "Numbering Scheme for Customs Tariff System
GUID_CTSNUMC "Primary Key as GUID in "RAW" Format
FROM /SAPSLL/PRCTSC
INTO TABLE T_PRCTSC
for all entries in t_ctsnumc
WHERE GUID_CTSNUMC EQ T_CTSNUMC-GUID_CTSNUMC.
IF T_PRCTSC IS NOT INITIAL.
GET FIELDS FROM PRGEN BASED ON THE GUID_PR
SELECT GUID_PRGEN "Primary Key as GUID in "RAW" Format
GUID_PR "Primary Key as GUID in "RAW" Format
ATTR20A "SUBSTANCE ID
ATTR05A "Materail Type
ATTR10A "Materail Group
ATTR05B "Sub-Family
FROM /SAPSLL/PRGEN
INTO TABLE T_PRGEN
FOR ALL ENTRIES IN T_PRCTSC
WHERE GUID_PR EQ T_PRCTSC-GUID_PR.
DELETE ADJACENT DUPLICATES FROM T_PRGEN COMPARING GUID_PR.
GET FIELDS FROM PNTPR BASED ON THE GUID_PR
SELECT GUID_PR "Primary Key as GUID in "RAW" Format
PRVSY "R3 MATERIAL NUMBER
GRVSY "LOGICAL SYSTEM GROUP
FROM /SAPSLL/PNTPR
INTO TABLE T_PNTPR
FOR ALL ENTRIES IN T_PRCTSC
WHERE GUID_PR EQ T_PRCTSC-GUID_PR.
*DELETE ADJACENT DUPLICATES FROM T_PRGEN COMPARING GUID_PR.
GET CORSTA-QUAL_STA FOR STATUS CATEGORY BESED ON THE T_CTSNUMC-GUID_MOBJ
*SELECT GUID_MOBJ
QUAL_STA
FROM /SAPSLL/CORSTA
INTO TABLE T_CORSTA
FOR ALL ENTRIES IN T_CTSNUMC
WHERE GUID_MOBJ EQ T_CTSNUMC-GUID_MOBJ.
MISSING FIELD >>>>>>>PRODUCT STATUS
GET CRSTP CHSTP FROM PR BASED ON GUID_PR
SELECT GUID_PR "Primary Key as GUID in "RAW" Format
CRTSP "PRODUCT CREATED ON
CHTSP "PRODUCT CHANGED ON
FROM /SAPSLL/PR
INTO TABLE T_PR
FOR ALL ENTRIES IN T_PRCTSC
WHERE GUID_PR EQ T_PRCTSC-GUID_PR.
*DELETE ADJACENT DUPLICATES FROM T_PR COMPARING GUID_PR.
GET PRTXT FROM PRT BASED ON GUID_PR
SELECT GUID_PR "Primary Key as GUID in "RAW" Format
PRTXT "MATERIAL DESCRIPTION
FROM /SAPSLL/PRT
INTO TABLE T_PRT
FOR ALL ENTRIES IN T_PRCTSC
WHERE GUID_PR EQ T_PRCTSC-GUID_PR.
*DELETE ADJACENT DUPLICATES FROM T_PRT COMPARING GUID_PR.
ENDIF.
ENDIF.
FILLING DATA INTO T_FINAL
REFRESH T_FINAL.
LOOP AT T_PRCTSC INTO WA_PRCTSC.
WA_FINAL-GUID_PRCTSC = WA_PRCTSC-GUID_PRCTSC.
WA_FINAL-GUID_PR = WA_PRCTSC-GUID_PR.
WA_FINAL-STCTS = WA_PRCTSC-STCTS.
WA_FINAL-GUID_CTSNUMC = WA_PRCTSC-GUID_CTSNUMC.
READ TABLE T_CTSNUMC INTO WA_CTSNUMC WITH KEY GUID_CTSNUMC = WA_PRCTSC-GUID_CTSNUMC.
IF SY-SUBRC = 0.
WA_FINAL-GUID_CTSNUMC = WA_CTSNUMC-GUID_CTSNUMC.
WA_FINAL-GUID_MOBJ = WA_CTSNUMC-GUID_MOBJ.
WA_FINAL-STCTS = WA_CTSNUMC-STCTS.
WA_FINAL-CCNGN = WA_CTSNUMC-CCNGN.
WA_FINAL-CRTSP = WA_CTSNUMC-CRTSP.
WA_FINAL-CHTSP = WA_CTSNUMC-CHTSP.
ENDIF.
READ TABLE T_PRGEN INTO WA_PRGEN WITH KEY GUID_PR = WA_PRCTSC-GUID_PR.
IF SY-SUBRC = 0.
WA_FINAL-GUID_PRGEN = WA_PRGEN-GUID_PRGEN.
WA_FINAL-GUID_PR = WA_PRGEN-GUID_PR.
WA_FINAL-ATTR20A = WA_PRGEN-ATTR20A.
WA_FINAL-ATTR05A = WA_PRGEN-ATTR05A.
WA_FINAL-ATTR10A = WA_PRGEN-ATTR10A.
WA_FINAL-ATTR05B = WA_PRGEN-ATTR05B.
ENDIF.
READ TABLE T_PNTPR INTO WA_PNTPR WITH KEY GUID_PR = WA_PRCTSC-GUID_PR.
IF SY-SUBRC = 0.
WA_FINAL-GUID_PR = WA_PNTPR-GUID_PR.
WA_FINAL-PRVSY = WA_PNTPR-PRVSY.
WA_FINAL-GRVSY = WA_PNTPR-GRVSY.
ENDIF.
READ TABLE T_PR INTO WA_PR WITH KEY GUID_PR = WA_PRCTSC-GUID_PR.
IF SY-SUBRC = 0.
WA_FINAL-GUID_PR = WA_PR-GUID_PR.
WA_FINAL-CRTSP = WA_PR-CRTSP.
WA_FINAL-CHTSP = WA_PR-CHTSP.
ENDIF.
READ TABLE T_PRT INTO WA_PRT WITH KEY GUID_PR = WA_PRCTSC-GUID_PR.
IF SY-SUBRC = 0.
WA_FINAL-GUID_PR = WA_PRT-GUID_PR.
WA_FINAL-PRTXT = WA_PRT-PRTXT.
ENDIF.
APPEND WA_FINAL TO T_FINAL.
DELETE ADJACENT DUPLICATES FROM T_FINAL COMPARING ATTR20A.
CLEAR WA_FINAL.
ENDLOOP.
ENDFORM. " GET_D
*& Form BUILD_FIELDCAT
text
--> p1 text
<-- p2 text
FORM BUILD_FIELDCAT .
REFRESH LT_FIELDCAT.
lw_fieldcat-col_pos = 1.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'ATTR20A'.
lw_fieldcat-seltext_m = 'SUBSTANCE ID'.
lw_fieldcat-outputlen = '15'.
lw_fieldcat-FIX_COLUMN = 'X'.
lw_fieldcat-KEY = 'X'.
APPEND lw_fieldcat TO lt_fieldcat.
lw_fieldcat-col_pos = 2.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'PRVSY'.
lw_fieldcat-seltext_m = 'R3 MAT NBR'.
lw_fieldcat-outputlen = '14'.
lw_fieldcat-FIX_COLUMN = 'X'.
APPEND lw_fieldcat TO lt_fieldcat.
lw_fieldcat-col_pos = 3.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'PRTXT'.
lw_fieldcat-seltext_m = 'MAT DESCRIPTION'.
lw_fieldcat-outputlen = '19'.
APPEND lw_fieldcat TO lt_fieldcat.
lw_fieldcat-col_pos = 4.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'GRVSY'.
lw_fieldcat-seltext_m = 'LOGICAL SYS GRP'.
lw_fieldcat-outputlen = '21'.
APPEND lw_fieldcat TO lt_fieldcat.
lw_fieldcat-col_pos = 5.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'QUAL_STA'.
lw_fieldcat-seltext_m = 'PRODUCT STATUS'.
lw_fieldcat-outputlen = 'x'.
APPEND lw_fieldcat TO lt_fieldcat.
lw_fieldcat-col_pos = 6.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'CRTSP'.
lw_fieldcat-seltext_m = 'PRODUCT CREATED ON'.
lw_fieldcat-outputlen = '21'.
APPEND lw_fieldcat TO lt_fieldcat.
lw_fieldcat-col_pos = 7.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'CHTSP'.
lw_fieldcat-seltext_m = 'PRODUCT CHANGED ON'.
lw_fieldcat-outputlen = '21'.
APPEND lw_fieldcat TO lt_fieldcat.
lw_fieldcat-col_pos = 8.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'ATTR05A'.
lw_fieldcat-seltext_m = 'MATERIAL TYPE'.
lw_fieldcat-outputlen = '18'.
APPEND lw_fieldcat TO lt_fieldcat.
lw_fieldcat-col_pos = 9.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'ATTR10A'.
lw_fieldcat-seltext_m = 'MATERIAL GRP'.
lw_fieldcat-outputlen = '18'.
APPEND lw_fieldcat TO lt_fieldcat.
lw_fieldcat-col_pos = 10.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'ATTR05B'.
lw_fieldcat-seltext_m = 'SUB-FAMILY'.
lw_fieldcat-outputlen = '18'.
APPEND lw_fieldcat TO lt_fieldcat.
lw_fieldcat-col_pos = 11.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'CCNGN'.
lw_fieldcat-seltext_m = 'SUBID CLASSIFICATION'.
APPEND lw_fieldcat TO lt_fieldcat.
lw_fieldcat-col_pos = 12.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'CCNGN'.
lw_fieldcat-seltext_m = 'SUBID CLASSIFICATION'.
APPEND lw_fieldcat TO lt_fieldcat.
lw_fieldcat-col_pos = 13.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'CCNGN'.
lw_fieldcat-seltext_m = 'SUBID CLASSIFICATION'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR LW_FIELDCAT.
ENDFORM. " BUILD_FIELDCAT
*& Form LIST_HEADER
text
--> p1 text
<-- p2 text
FORM LIST_HEADER .
DATA : LT_LISTHEADER TYPE slis_t_listheader,
LW_LISTHEADER LIKE LINE OF lt_listheader.
LW_LISTHEADER-TYP = 'H'.
LW_LISTHEADER-INFO = 'DISPLAY PRODUCTS BY PRODUCT CHARACTERISTIC'.
APPEND LW_LISTHEADER TO LT_LISTHEADER.
LW_LISTHEADER-TYP = 'S' .
LW_LISTHEADER-KEY = 'TIME' .
LW_LISTHEADER-INFO = SY-UZEIT .
APPEND LW_LISTHEADER TO LT_LISTHEADER.
LW_LISTHEADER-TYP = 'S' .
LW_LISTHEADER-KEY = 'DATE' .
LW_LISTHEADER-INFO = SY-DATUM .
APPEND LW_LISTHEADER TO LT_LISTHEADER.
LW_LISTHEADER-TYP = 'S' .
LW_LISTHEADER-KEY = 'CLIENT' .
LW_LISTHEADER-INFO = SY-MANDT .
APPEND LW_LISTHEADER TO LT_LISTHEADER.
ENDFORM. " LIST_HEADER
*& Form DISP_ALV_DATA
text
--> p1 text
<-- p2 text
FORM DISP_ALV_DATA .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = 'I_REPID'
I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE1'
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE = 'GTS Substance- Product Classification Report'.
I_GRID_SETTINGS =
IS_LAYOUT =
IT_FIELDCAT = LT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS = LT_EVENTS
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = T_FINAL
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. " DISP_ALV_DATA
FORM SUB.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = LT_LISTHEADER.
I_LOGO =*
I_END_OF_LIST_GRID =*
I_ALV_FORM =*
ENDFORM.
Any suggestions and help will be appreciated!
Regards,
KittuHi Ram,
When I had put a Break point on the FM Reuse_alv_grid_display
The parameter IT_EVENTS is not getting populated and it is not calling the FORM SUB.
But LT_EVENTS is holding the data 'TOP_OF_PAGE' and the form name as SUB.
FORM DISP_ALV_DATA .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = 'I_REPID'
I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE1'
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE = 'GTS Substance- Product Classification Report'.
I_GRID_SETTINGS =
IS_LAYOUT =
IT_FIELDCAT = LT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS = LT_EVENTS
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = T_FINAL
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. " DISP_ALV_DATA
FORM SUB.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = LT_LISTHEADER.
I_LOGO =
I_END_OF_LIST_GRID =
I_ALV_FORM =
ENDFORM.
Any suggestions will be apprectiated.
Regards,
Kittu -
Hi All,
I want to print a report in the following manner:
DATE:
CLASS GROUP :
MATNR CLASS ADSIZE
123 c col1
124 c col2
156 c col2
DATE:
CLASS GROUP :
MATNR CLASS ADSIZE
125 a col3
128 a col4
150 a col5
How do i do it...I am planning to do it with REUSE_ALV_LIST _DISPLAY...but i dont know how to print the header..plz help<b>Note : In the below i am passing my purchase order Ebeln with internal table to the Form header so that all purchase order are passed to Header by this way you can also pass it .</b>
<b>Add Title(heading) to ALV Grid</b>
In order to insert a report heading in to the ALV grid you need to perform the following steps:
1. Update 'REUSE_ALV_GRID_DISPLAY' FM call to include 'top-of-page' FORM
2. Create 'top-of-page' FORM
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = gd_repid
i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
i_save = 'X'
tables
t_outtab = it_ekko
exceptions
program_error = 1
others = 2.
Form top-of-page.
*ALV Header declarations
data: t_header type slis_t_listheader,
wa_header type slis_listheader,
t_line like wa_header-info,
ld_lines type i,
ld_linesc(10) type c.
* Title
wa_header-typ = 'H'.
wa_header-info = EKKO-ebeln.
append wa_header to t_header.
clear wa_header.
endform.
reward points if it is usefull .....
Girish -
Hi,
I want to display header of alv grid in table format with rows and columns. Please suggest on the same. Points will be rewarded.hi,
see the below code .this may help u .
*Table declaration.
TABLES:ZEMP_MST,ZDEPT_MST,ZDESG_MST,ZSL_TXN.
*Varriable declaration.
TYPE-POOLS SLIS.
DATA : POS TYPE I.
DATA REPID LIKE SY-REPID.
DATA : F1 TYPE SLIS_T_FIELDCAT_ALV,
F2 TYPE SLIS_FIELDCAT_ALV,
L_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA L_POS TYPE I VALUE 1. "position of the column
DATA GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
*DATA GT_SORT TYPE SLIS_T_SORTINFO_ALV.
data: GT_EVENTS TYPE SLIS_T_EVENT,
FS_EVENTCAT LIKE LINE OF GT_EVENTs.
*Internal table declaration.
*DATA BEGIN OF IT_SORT OCCURS 5.
INCLUDE TYPE SLIS_SORTINFO_ALV.
*DATA END OF IT_SORT.
DATA:BEGIN OF ITAB OCCURS 0,
ZEMPNO LIKE ZEMP_MST-ZEMPNO,
ZEMPNAME LIKE ZEMP_MST-ZEMPNAME,
ZDEPTCD LIKE ZEMP_MST-ZDEPTCD,
ZDEPTNAME LIKE ZDEPT_MST-ZDEPTNAME,
ZDESGCD LIKE ZEMP_MST-ZDESGCD,
ZDESGNAME LIKE ZDESG_MST-ZDESGNAME,
END OF ITAB.
REFRESH ITAB.CLEAR ITAB.
START-OF-SELECTION.
SELECT AZEMPNO AZEMPNAME AZDEPTCD BZDEPTNAME AZDESGCD CZDESGNAME
FROM ZEMP_MST AS A
INNER JOIN ZDEPT_MST AS B
ON AZDEPTCD EQ BZDEPTCD
INNER JOIN ZDESG_MST AS C
ON AZDESGCD EQ CZDESGCD
INTO CORRESPONDING FIELDS OF TABLE ITAB.
IF SY-SUBRC <> 0.
MESSAGE E899(M3) WITH 'No records'.
ENDIF.
perform f_build_eventcat.
PERFORM LAYOUT.
END-OF-SELECTION.
*& Form LAYOUT
FORM LAYOUT .
PERFORM FCAT USING 'ZEMPNO' 'ITAB' '' 'Emp.No.' 'ZEMPNO' 'ZEMP_MST' ''.
PERFORM FCAT USING 'ZEMPNAME' 'ITAB' '' 'Emp. Name' 'ZEMPNAME' 'ZEMP_MST' ''.
PERFORM FCAT USING 'ZDEPTCD' 'ITAB' '' 'Dept.Code' 'ZDEPTCD' 'ZEMP_MST' ''.
PERFORM FCAT USING 'ZDEPTNAME' 'ITAB' '' 'Dept.Name' 'ZDEPTNAME' 'ZDEPT_MST' ''.
PERFORM FCAT USING 'ZDESGCD' 'ITAB' '' 'Desg.Code' 'ZDESGCD' 'ZEMP_MST' ''.
PERFORM FCAT USING 'ZDESGNAME' 'ITAB' '' 'Desg.Name' 'ZDESGNAME' 'ZDESG_MST' ''.
PERFORM LSORT USING 'ZEMPNO' 'IDATA' ''.
PERFORM LSORT USING 'ZEMPNAME' 'IDATA' ''.
MOVE IT_SORT[] TO GT_SORT[].
REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = REPID
IT_FIELDCAT = F1
IT_SORT = GT_SORT
I_SAVE = 'X'
IT_EVENTS = GT_EVENTS[]
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.
ENDFORM. " LAYOUT
*& Form FCAT
FORM FCAT USING P_FIELD P_TABLE P_SUM P_TEXT P_RFIELD P_RTABLE P_DISP.
ADD 1 TO POS.
F2-COL_POS = POS.
F2-FIELDNAME = P_FIELD.
F2-TABNAME = P_TABLE.
F2-SELTEXT_L = P_TEXT.
F2-REF_FIELDNAME = P_RFIELD.
F2-REF_TABNAME = P_RTABLE.
F2-DO_SUM = P_SUM.
F2-NO_OUT = P_DISP.
APPEND F2 TO F1.
CLEAR F2.
ENDFORM. " FCAT
*& Form LSORT
*FORM LSORT USING P_FIELD P_TABLE P_UP.
ADD 1 TO L_POS.
IT_SORT-SPOS = L_POS.
IT_SORT-FIELDNAME = P_FIELD.
IT_SORT-TABNAME = P_TABLE.
IT_SORT-UP = P_UP.
APPEND IT_SORT.
*ENDFORM. " LSORT
FORM F_BUILD_EVENTCAT .
CLEAR: GT_EVENTS. REFRESH: GT_EVENTS.
CLEAR: FS_EVENTCAT.
FS_EVENTCAT-NAME = 'TOP_OF_PAGE'.
FS_EVENTCAT-FORM = 'F_REPORT_HEADER_ALV'.
APPEND FS_EVENTCAT TO GT_EVENTS.
CLEAR: FS_EVENTCAT.
FS_EVENTCAT-NAME = 'END_OF_LIST'.
FS_EVENTCAT-FORM = 'F_WRITE_SUMMARY'.
APPEND FS_EVENTCAT TO GT_EVENTS.
ENDFORM. " F_BUILD_EVENTCAT
FORM F_REPORT_HEADER_ALV.
CALL FUNCTION 'Z_YHEAD_PRINT'
EXPORTING
TITLE1 = 'XYZ Limited'
TITLE2 = 'Employee Master'
TITLE3 = 'Created on '
COLOR = 'X'
ENDFORM.
*& Form F_WRITE_SUMMARY
Write summary before exit
FORM F_WRITE_SUMMARY .
write:/ 'Welcome to XYZ Limited'.
write:/ 'This is a test program to display Report in ALV Format'.
ENDFORM. -
Display selection screen details in the header of ALV
hi..
can someone please help me on how to display the data in the selection screen in the header in ALV?
i hope someone can help me..thanks very much..Simple ALV report
http://www.sapgenie.com/abap/controls/alvgrid.htm
http://wiki.ittoolbox.com/index.php/Code:Ultimate_ALV_table_toolbox
ALV
1. Please give me general info on ALV.
http://www.sapfans.com/forums/viewtopic.php?t=58286
http://www.sapfans.com/forums/viewtopic.php?t=76490
http://www.sapfans.com/forums/viewtopic.php?t=20591
http://www.sapfans.com/forums/viewtopic.php?t=66305 - this one discusses which way should you use - ABAP Objects calls or simple function modules.
2. How do I program double click in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=11601
http://www.sapfans.com/forums/viewtopic.php?t=23010
3. How do I add subtotals (I have problem to add them)...
http://www.sapfans.com/forums/viewtopic.php?t=20386
http://www.sapfans.com/forums/viewtopic.php?t=85191
http://www.sapfans.com/forums/viewtopic.php?t=88401
http://www.sapfans.com/forums/viewtopic.php?t=17335
4. How to add list heading like top-of-page in ABAP lists?
http://www.sapfans.com/forums/viewtopic.php?t=58775
http://www.sapfans.com/forums/viewtopic.php?t=60550
http://www.sapfans.com/forums/viewtopic.php?t=16629
5. How to print page number / total number of pages X/XX in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=29597 (no direct solution)
6. ALV printing problems. The favourite is: The first page shows the number of records selected but I don't need this.
http://www.sapfans.com/forums/viewtopic.php?t=64320
http://www.sapfans.com/forums/viewtopic.php?t=44477
7. How can I set the cell color in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=52107
8. How do I print a logo/graphics in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=81149
http://www.sapfans.com/forums/viewtopic.php?t=35498
http://www.sapfans.com/forums/viewtopic.php?t=5013
9. How do I create and use input-enabled fields in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=84933
http://www.sapfans.com/forums/viewtopic.php?t=69878
10. How can I use ALV for reports that are going to be run in background?
http://www.sapfans.com/forums/viewtopic.php?t=83243
http://www.sapfans.com/forums/viewtopic.php?t=19224
11. How can I display an icon in ALV? (Common requirement is traffic light icon).
http://www.sapfans.com/forums/viewtopic.php?t=79424
http://www.sapfans.com/forums/viewtopic.php?t=24512
12. How can I display a checkbox in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=88376
http://www.sapfans.com/forums/viewtopic.php?t=40968
http://www.sapfans.com/forums/viewtopic.php?t=6919
Go thru these programs they may help u to try on some hands on
ALV Demo program
BCALV_DEMO_HTML
BCALV_FULLSCREEN_DEMO ALV Demo: Fullscreen Mode
BCALV_FULLSCREEN_DEMO_CLASSIC ALV demo: Fullscreen mode
BCALV_GRID_DEMO Simple ALV Control Call Demo Program
BCALV_TREE_DEMO Demo for ALV tree control
BCALV_TREE_SIMPLE_DEMO
BC_ALV_DEMO_HTML_D0100 -
Displaying a header on alv list
hi there,
i want to display a header on alv list.
i have already used
call method alvgrid->set_table_for_first_display
regradsHi,
use the TOP_OF_PAGE event and add the event to the IT_EVENTS internal table..
In the subroutine that is assigned to the event..
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = heading.
ENDFORM.
Thanks,
Naren -
Hi all,
-I want to show text on the right side of the header of ALV grid.
-Secondly i have limit of around 60 characters in a line...i want to add more words in the same line.....
<b>see the code...here..</b>
wa_listheader-typ = 'S'.
wa_listheader-info = 'THE FUNCTIONAL LOCATION WISE PERCENTAGE IMPLEMENTAION'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
<b>Thanx in advance..</b>
Have ur points.
Regards,
pradeep phogatTry this
WA_LINE-TYP = 'S'..----
><b>'H' to print in header</b>
CONCATENATE 'THE FUNCTIONAL LOCATION WISE PERCENTAGE IMPLEMENTAION'.
V_RYEAR INTO WA_LINE-INFO
SEPARATED BY SPACE.
APPEND WA_LINE TO IT_LIST_TOP_OF_PAGE.
Thanks -
Adding header to alv(factory) in container
Hi frends!
How can I add a header to alv in container using factory method?You can use splitter. For example :
REPORT ZCE_TEST2.
DATA: IT_FLIGHT TYPE TABLE OF SFLIGHT.
DATA: OK_CODE LIKE SY-UCOMM,
SAVE_OK LIKE SY-UCOMM.
DATA: G_CONTAINER TYPE SCRFNAME VALUE 'CONTROL',
O_DYNDOC_ID TYPE REF TO CL_DD_DOCUMENT,
O_SPLITTER TYPE REF TO CL_GUI_SPLITTER_CONTAINER,
O_PARENT_GRID TYPE REF TO CL_GUI_CONTAINER,
O_PARENT_TOP TYPE REF TO CL_GUI_CONTAINER,
O_HTML_CNTRL TYPE REF TO CL_GUI_HTML_VIEWER.
CLASS LCL_EVENT_HANDLER DEFINITION .
PUBLIC SECTION .
METHODS:
TOP_OF_PAGE FOR EVENT TOP_OF_PAGE
OF CL_GUI_ALV_GRID
IMPORTING E_DYNDOC_ID.
ENDCLASS. "lcl_event_handler DEFINITION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
METHOD TOP_OF_PAGE.
PERFORM EVENT_TOP_OF_PAGE USING O_DYNDOC_ID.
ENDMETHOD. "top_of_page
ENDCLASS. "LCL_EVENT_HANDLER IMPLEMENTATION
DATA: G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
G_HANDLER TYPE REF TO LCL_EVENT_HANDLER. "handler
START-OF-SELECTION.
SELECT *
FROM SFLIGHT
UP TO 20 ROWS
INTO TABLE IT_FLIGHT.
END-OF-SELECTION.
IF NOT IT_FLIGHT[] IS INITIAL.
CALL SCREEN 100.
ELSE.
MESSAGE 'NO DATA FOR THE SELECTION' TYPE 'I'.
ENDIF.
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'STATUS'.
SET TITLEBAR 'TITLE'.
IF G_CUSTOM_CONTAINER IS INITIAL.
PERFORM CREATE_AND_INIT_ALV.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
FORM CREATE_AND_INIT_ALV .
DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID.
CREATE OBJECT G_CUSTOM_CONTAINER
EXPORTING CONTAINER_NAME = G_CONTAINER.
Create TOP-Document
CREATE OBJECT O_DYNDOC_ID
EXPORTING STYLE = 'ALV_GRID'.
Create Splitter for custom_container
CREATE OBJECT O_SPLITTER
EXPORTING PARENT = G_CUSTOM_CONTAINER
ROWS = 2
COLUMNS = 1.
CALL METHOD O_SPLITTER->GET_CONTAINER
EXPORTING
ROW = 1
COLUMN = 1
RECEIVING
CONTAINER = O_PARENT_TOP.
CALL METHOD O_SPLITTER->GET_CONTAINER
EXPORTING
ROW = 2
COLUMN = 1
RECEIVING
CONTAINER = O_PARENT_GRID.
Set height for g_parent_html
CALL METHOD O_SPLITTER->SET_ROW_HEIGHT
EXPORTING
ID = 1
HEIGHT = 5.
CREATE OBJECT G_GRID
EXPORTING I_PARENT = O_PARENT_GRID.
CREATE OBJECT G_HANDLER.
SET HANDLER G_HANDLER->TOP_OF_PAGE FOR G_GRID.
*Calling the Method for ALV output
CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_STRUCTURE_NAME = 'SFLIGHT'
CHANGING
IT_OUTTAB = IT_FLIGHT[].
CALL METHOD O_DYNDOC_ID->INITIALIZE_DOCUMENT
EXPORTING
BACKGROUND_COLOR = CL_DD_AREA=>COL_TEXTAREA.
Processing events
CALL METHOD G_GRID->LIST_PROCESSING_EVENTS
EXPORTING
I_EVENT_NAME = 'TOP_OF_PAGE'
I_DYNDOC_ID = O_DYNDOC_ID.
ENDFORM. "CREATE_AND_INIT_ALV
FORM EVENT_TOP_OF_PAGE USING DG_DYNDOC_ID TYPE REF TO CL_DD_DOCUMENT.
DATA : DL_TEXT(255) TYPE C. "Text
CALL METHOD DG_DYNDOC_ID->ADD_TEXT
EXPORTING
TEXT = 'Flight Details'
SAP_STYLE = CL_DD_AREA=>HEADING
SAP_FONTSIZE = CL_DD_AREA=>LARGE
SAP_COLOR = CL_DD_AREA=>LIST_HEADING_INT.
CALL METHOD DG_DYNDOC_ID->ADD_GAP
EXPORTING
WIDTH = 200.
CALL METHOD O_DYNDOC_ID->ADD_PICTURE
EXPORTING
PICTURE_ID = 'ENJOYSAP_LOGO'.
Add new-line
CALL METHOD DG_DYNDOC_ID->NEW_LINE.
CALL METHOD DG_DYNDOC_ID->NEW_LINE.
CLEAR : DL_TEXT.
program ID
DL_TEXT = 'Program Name :'.
CALL METHOD DG_DYNDOC_ID->ADD_GAP.
CALL METHOD O_DYNDOC_ID->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_HEADING_INT.
CLEAR DL_TEXT.
DL_TEXT = SY-REPID.
CALL METHOD O_DYNDOC_ID->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.
Add new-line
CALL METHOD DG_DYNDOC_ID->NEW_LINE.
CLEAR : DL_TEXT.
CLEAR : DL_TEXT.
program ID
DL_TEXT = 'User Name :'.
CALL METHOD DG_DYNDOC_ID->ADD_GAP.
CALL METHOD O_DYNDOC_ID->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_HEADING_INT.
CLEAR DL_TEXT.
DL_TEXT = SY-UNAME.
CALL METHOD O_DYNDOC_ID->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.
Add new-line
CALL METHOD DG_DYNDOC_ID->NEW_LINE.
CLEAR : DL_TEXT.
Run Date
DL_TEXT = 'Run Date :'.
CALL METHOD DG_DYNDOC_ID->ADD_GAP.
CALL METHOD O_DYNDOC_ID->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_HEADING_INT.
CLEAR DL_TEXT.
Move date
WRITE SY-DATUM TO DL_TEXT.
CALL METHOD O_DYNDOC_ID->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.
Add new-line
CALL METHOD DG_DYNDOC_ID->NEW_LINE.
CLEAR : DL_TEXT.
*Time
DL_TEXT = 'Time :'.
CALL METHOD DG_DYNDOC_ID->ADD_GAP.
CALL METHOD O_DYNDOC_ID->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_HEADING_INT.
CLEAR DL_TEXT.
Move time
WRITE SY-UZEIT TO DL_TEXT.
CALL METHOD O_DYNDOC_ID->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.
Add new-line
CALL METHOD DG_DYNDOC_ID->NEW_LINE.
PERFORM DISPLAY.
ENDFORM. " EVENT_TOP_OF_PAGE
FORM DISPLAY.
Creating html control
IF O_HTML_CNTRL IS INITIAL.
CREATE OBJECT O_HTML_CNTRL
EXPORTING
PARENT = O_PARENT_TOP.
ENDIF.
CALL METHOD O_DYNDOC_ID->MERGE_DOCUMENT.
O_DYNDOC_ID->HTML_CONTROL = O_HTML_CNTRL.
Display document
CALL METHOD O_DYNDOC_ID->DISPLAY_DOCUMENT
EXPORTING
REUSE_CONTROL = 'X'
PARENT = O_PARENT_TOP
EXCEPTIONS
HTML_DISPLAY_ERROR = 1.
IF SY-SUBRC NE 0.
MESSAGE 'Error in displaying top-of-page' TYPE 'I'.
ENDIF.
ENDFORM. " display -
How to add header and fooder in text file
Hi,
i have created simple application for generate report from database into text file.
But i need to add header and fooder in text file. I dont know is there any API for adding these.
Can anyone help me to create header and fooder in text file.
the below text are needs to be print in the header
name of the table :
Recorder type :
file creation time:
the below text are needs to be print in the footer
Recorder Number:
Record Type;
the actual code is
pst = con.prepareStatement("select REQUEST, DOMAIN_NAME, TRUNC(DATE_OF_CONFIGURATION) AS dateofConfig FROM employee where id=300");
rs = pst.executeQuery();
while (rs.next()) {
request = rs.getString("REQUEST");
domain_name = rs.getString("DOMAIN_NAME");
dateofconfig = rs.getString("dateofConfig");
System.out.println(request + " " + domain_name + " " + dateofconfig);
data.add(request + " " + domain_name + " " + dateofconfig);
System.out.println("before calling method");
writeToFile(data, "c:/Employee.txt");
System.out.println("file created successfull");
rs.close();
pst.close();
private static void writeToFile(List list, String path) {
BufferedWriter out = null;
try {
File file = new File(path);
out = new BufferedWriter(new FileWriter(file, true));
for (Object obj : list) {
String s= obj.toString();
out.write(s);
out.newLine();
out.close();
} catch (IOException e) {
}Thanks
Jasmin
Edited by: user13836688 on Mar 21, 2011 4:06 AM
Edited by: user13836688 on Mar 21, 2011 4:07 AM
Edited by: user13836688 on Mar 21, 2011 4:08 AMuser13836688 wrote:
i have created simple application for generate report from database into text file.First off, when posting code, use [code]...[/code]. or '' tags, not '<code>'.
But i need to add header and fooder in text file. I dont know is there any API for adding these.
Can anyone help me to create header and fooder in text file.Well you plainly have the code to write the file contents; and furthermore your report seems to be contained in a List called 'data'. Why not just add the header and footer lines to it? I'd also suggest making 'data' a LinkedList. That way you can add the header afterwards with no performance hit, just in case the information it contains isn't available at the start of your report loop.
Winston -
How to Add Header and Footer in Flat file
HI All,
I am using ODI 11g.
MY interface is populating data from joining to 2 tables through sql query and Loads in to Flat file.
But i need to add Header and Footer in the Flat file.
In the below 3 lines
The 1st line is header ....2nd line is Data ....3rd line is Footer.
Any ideas how to work on this.
HSB9KT.KTPRTO.EBSDATA.D0000000 20120626020636
CFFE00263 SOLGSR014991340000527894536058173880207SOLNE06242012072420120000009048382650000247MRS
T00000000000000000000
Thanks,
LonyHi Drieux,
i am able to add Header and Footer in this.
But i want the header like Its like HSB9KT.KTPRTO.EBSDATA.D0000000 || SYSDATE (YYYYMMDDHHMMSS)
In my Out put i only see header as HSB9KT.KTPRTO.EBSDATA.D0000000 .
I have added a Variable where i am using SELECT to_char(sysdate,'YYYYMMDDHHMMSS') FROM DUAL query.
create header (HSB9KT.KTPRTO.EBSDATA.D0000000 #v_DATE)
/*$$SNPS_START_KEYSNP$CRDWG_TABLESNP$CRTABLE_NAME=FFT_SOLSNP$CRLOAD_FILE=/home/tarak/FFT_SOL.datSNP$CRFILE_FORMAT=FSNP$CRFILE_SEP_FIELD=0x0009SNP$CRFILE_SEP_LINE=0x000ASNP$CRFILE_FIRST_ROW=0SNP$CRFILE_ENC_FIELD=SNP$CRFILE_DEC_SEP=SNP$CRSNP$CRDWG_COLSNP$CRCOL_NAME=descrSNP$CRTYPE_NAME=STRINGSNP$CRLINE_OFFSET=1SNP$CRLENGTH=994SNP$CRPRECISION=994SNP$CR$$SNPS_END_KEY*/
Any idea why this sysdate part is not showing in Header. -
Add Header and Footer in Live Cycle ES2
Hi,
We are quite new to the use of live cycle pdf generation. Can anyone help us with information as to how we can add header and footers to our pdf files using livecycle ES2.
And further, we would like to know whether header and footer adding is available in the trial version of Livecycle ES2?Hi,
Thanks for the reply.
We have another newly raised problem in the header and footer adding from Livecycle ES2. According to the PDF that you referred in the previous reply, we can add graphics to the PDF header, but we are unable to find a DDX tag that would enable us to add a image URL.
Can you please help us again on the above?
Purnima
Maybe you are looking for
-
Adobe Photoshop CS6 Extended - 3D Disabled
Hello folks how do you do? Well, I'm experiencing a problem using the 'Adobe Photoshop CS6 Extended'. In general the 3D feature doesn't really show up in my screen. What can I do? Please some one? Here's my System info: Adobe Photoshop Version: 13.0
-
How do i transfer photos from photoshop 3.0 to 10?
How do I transfer photos from Photoshop 3.0 to 10.0?
-
Populair Podcast doesn't work since the latest update
Mine populair podcast does not work anymore since the latest update. Every-time I try to access this menu-item I get an error in French that this isn't available from the iTunes Store. The error message is very strange because that's the only item di
-
HT4623 how to change payment method?
I want to change credit card information in App store. How can I change it?
-
Oracle Guru's, I am new to this subject and I need your help as my manager is expecting lot of things. Well Let me tell you my configuration first, I have Oracle 10gR2(10.2.0.3) RAC on sun solaris 10. I need to install OID for which I have to create