field catalog in abap objects

Former Member · ‎10-23-2007

hi friends,

i am using factory method to display my alv. now some of the fields in my internal table i have declared them as char fields, i want certain type of headings for these fields,so where can i give heading to these fields.

where exactly do we create a field catalog for factory method.

pls advice me on this

Former Member · ‎10-23-2007

Hi

We can change some of the attributes of a specific column in the ALV grid. In this example we change the Heading Text of a column as well as the color of a column. Create the object reference variable and receive the object using the GET_COLUMNS method of the GR_TABLE object. This will pass you the object for all columns of the ALV grid. To access just one column, call the method GET_COLUMN from the GR_COLUMNS object. In this example, we are accessing the CITYTO column and the CITYFROM column.

Refer to the foloowing code:

report zalvom_demo1.

data: ispfli type table of spfli.

data: gr_table type ref to cl_salv_table.

data: gr_functions type ref to cl_salv_functions.

data: gr_display type ref to cl_salv_display_settings.

data: gr_columns type ref to cl_salv_columns_table. data: gr_column type ref to cl_salv_column_table.

data: color type lvc_s_colo.

start-of-selection.

select * into table ispfli from spfli.

cl_salv_table=>factory

( importing r_salv_table = gr_table changing t_table = ispfli ).

gr_functions = gr_table->get_functions( ).

gr_functions->set_all( abap_true ).

gr_display = gr_table->get_display_settings( ).

gr_display->set_striped_pattern( cl_salv_display_settings=>true ).

gr_display->set_list_header( 'This is the heading' ).

gr_columns = gr_table->get_columns( ).

gr_column ?= gr_columns->get_column( 'CITYTO' ).

gr_column->set_long_text( 'This is long text' ). gr_column->set_medium_text( 'This is med text' ).

gr_column->set_short_text( 'This is sh' ).

gr_column ?= gr_columns->get_column( 'CITYFROM' ).

color-col = '6'.

color-int = '1'.

color-inv = '0'.

gr_column->set_color( color ).

gr_table->display( ).

Thanks,

Vasudha L

Message was edited by:

Vasudha L

Message was edited by:

Vasudha L

Message was edited by:

Vasudha L

Message was edited by:

Vasudha L

Former Member · ‎10-23-2007

hi

good

go throgh this code

&----

*& Report Z_ALV_OOPS

*&

&----

*&

&----

REPORT Z_ALV_OOPS.

*Event class Definition "Event handler class

class event_handle definition.

public section.

methods: handle_user

for event user_command of cl_gui_alv_grid

importing e_ucomm.

endclass.

*Event class Implementation

class event_handle implementation.

method handle_user.

write:/ ''.

endmethod.

endclass.

Data: t_alv type ref to cl_gui_alv_grid, "ALV control

t_cont type ref to cl_gui_custom_container, "Cust Container

t_alv2 type ref to cl_gui_alv_grid, "ALV control

t_cont2 type ref to cl_gui_custom_container, "Cust Container

t_fieldcat type lvc_t_fcat with header line, "Field Cat

t_fieldcat2 type lvc_t_fcat with header line, "Field Cat

t_layout type lvc_s_layo, "Layout

t_event type ref to event_handle, "Event handler

t_sort type LVC_T_SORT with header line, "Sort

t_toolbar type ui_functions with header line. "Toolbar xclude

Types: begin of g_vbak, "Header Table

vbeln like vbak-vbeln,

auart like vbak-auart,

vkorg like vbak-vkorg,

vtweg like vbak-vtweg,

spart like vbak-spart,

kunnr like vbak-kunnr,

bstnk like vbak-bstnk,

seltab,

end of g_vbak.

Types: begin of g_vbap, "Item Table

vbeln like vbap-vbeln,

posnr(6) type c,

posrn like vbap-posnr,

matnr like vbap-matnr,

netwr like vbap-netwr,

waerk like vbap-waerk,

end of g_vbap.

Data: t_vbak type g_vbak occurs 0,

t_vbap type g_vbap occurs 0.

Start-Of-Selection.

*Fetch data from DB Table

select vbeln auart vkorg vtweg spart kunnr bstnk

from vbak into table t_vbak up to 20 rows.

End-Of-Selection.

*Call ALV screen

call screen 100.

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'ALV'.

SET TITLEBAR 'VBAK'.

if t_cont is initial.

create object t_cont

exporting

container_name = 'ALV'.

create object t_alv

exporting

i_parent = t_cont.

*Create event handlers

create object t_event.

set handler t_event->handle_user for t_alv.

perform build_fieldcatlog.

perform build_layout.

perform xclude_toolbar.

CALL METHOD t_alv->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

I_BUFFER_ACTIVE =
I_BYPASSING_BUFFER =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME =
IS_VARIANT =
I_SAVE =
I_DEFAULT = 'X'

IS_LAYOUT = t_layout

IS_PRINT =
IT_SPECIAL_GROUPS =

IT_TOOLBAR_EXCLUDING = t_toolbar[]

IT_HYPERLINK =
IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =

CHANGING

IT_OUTTAB = t_vbak[]

IT_FIELDCATALOG = t_fieldcat[]

IT_SORT =
IT_FILTER =
EXCEPTIONS
INVALID_PARAMETER_COMBINATION = 1
PROGRAM_ERROR = 2
TOO_MANY_LINES = 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.

endif.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

MODULE USER_COMMAND_0100 INPUT.

Data: lt_rows type lvc_t_row,

wa_rows type line of lvc_t_row,

wa_vbak type g_vbak,

l_lines type i.

refresh: t_vbap.

case sy-ucomm.

when 'DET'. "Item details

Get selected rows from ALV

call method t_alv->get_selected_rows

importing

et_index_rows = lt_rows.

Fetch corresponding Item details from VBAP

loop at lt_rows into wa_rows.

read table t_vbak into wa_vbak index wa_rows-index transporting

vbeln.

select vbeln posnr matnr netwr waerk from vbap

appending corresponding fields of table t_vbap

where vbeln = wa_vbak-vbeln.

endloop.

Prepare fieldcatlog
Display Item details in ALV

call screen 200 starting at 8 5.

when 'SHOW'. "Display order

call method t_alv->get_selected_rows

importing

et_index_rows = lt_rows.

Describe table lt_rows lines l_lines.

if l_lines > 1.

message e999(z_error).

else.

read table lt_rows into wa_rows index 1.

read table t_vbak into wa_vbak index wa_rows-index transporting

vbeln.

set parameter id 'AUN' field wa_vbak-vbeln.

call transaction 'VA03' and skip first screen.

endif.

endcase.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

*& Form build_fieldcatlog

&----

text

----

form build_fieldcatlog .

clear t_fieldcat.

t_fieldcat-col_pos = '1'.

t_fieldcat-fieldname = 'VBELN'.