topic Re: alv grid in Application Development and Automation Discussions

alv grid

Former Member — Wed, 18 Apr 2007 10:06:57 GMT

i need code for alv grid control with out using field catalog for all the fields, i need to pass it by subroutines (actual and formal) parameters as many fields i required.

Re: alv grid

Former Member — Wed, 18 Apr 2007 10:19:33 GMT

Hi,

In ur case instead of using the Function Module for building Fieldcatalog, u can do the following coding :

DATA: T_WFIELD TYPE SLIS_FIELDCAT_ALV.

T_WFIELD-TABNAME = 'T_STATFIN'.

T_WFIELD-COL_POS = W-COUNT.

T_WFIELD-FIELDNAME = 'ERROR'.

T_WFIELD-REF_TABNAME = 'ZMATSTAT'.

T_WFIELD-REPTEXT_DDIC = TEXT-004.

APPEND T_WFIELD .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

IT_FIELDCAT = T_WFIELD.

Hope it helps.

U can also create subroutines for defining the fieldcatalog where in u can pass the parameters and define fieldcatalog.

e.g. in the code below :

======================================================================

This report was initially created by ALVRobot.com.ar
Please, read terms and conditions on the site.

======================================================================

Author: Himanshu Aggarwal
04.04.07 - TEST ALV Report
Trial of ALV Robot

======================================================================

report ZTESTER.

========================== Global definitions =======================

Data Types

type-pools: slis.

types: begin of tp_data,

matnr like mara-matnr,

ersda like mara-ersda,

mtart like mara-mtart,

werks like marc-werks,

end of tp_data,

tp_tbl_data type standard table of tp_data.

Constants

Data objects (variable declarations and definitions)

Report data to be shown.

data: it_data type standard table of tp_data.

Heading of the report.

data: t_heading type slis_t_listheader.

========================== Selection Screen ==========================

selection-screen: begin of block b1 with frame title text-t01.

DATA: w_aux_matnr like mara-matnr.

SELECT-OPTIONS s_matnr for w_aux_matnr OBLIGATORY .

PARAMETER p_mtart like mara-mtart .

DATA: w_aux_ersda like mara-ersda.

SELECT-OPTIONS s_ersda for w_aux_ersda .

DATA: w_aux_werks like marc-werks.

SELECT-OPTIONS s_werks for w_aux_werks .

DATA: w_aux_pstat like marc-pstat.

SELECT-OPTIONS s_pstat for w_aux_pstat .

selection-screen: end of block b1.

=========================== Event Blocks =============================

at selection-screen.

start-of-selection.

perform get_data using it_data.

end-of-selection.

perform build_alv using it_data t_heading.

=========================== Subroutines ==============================

&----

*& Form get_data

&----

Gets the information to be shown in the report.

----

form get_data using t_data type tp_tbl_data.

SELECT a~matnr

a~ersda

a~mtart

b~werks

INTO CORRESPONDING FIELDS OF TABLE t_data

FROM mara as a

inner join marc as b on a_{matnr = b}matnr

WHERE a~matnr in s_matnr

AND a~mtart = p_mtart

AND a~ersda in s_ersda

AND b~werks in s_werks

AND b~pstat in s_pstat

endform. " get_data

&----

*& Form build_alv

&----

Builds and display the ALV Grid.

----

form build_alv using t_data type tp_tbl_data

t_heading type slis_t_listheader.

ALV required data objects.

data: w_title type lvc_title,

w_comm type slis_formname,

w_status type slis_formname,

x_layout type slis_layout_alv,

t_event type slis_t_event,

t_fieldcat type slis_t_fieldcat_alv,

t_sort type slis_t_sortinfo_alv.

refresh t_fieldcat.

refresh t_event.

refresh t_sort.

clear x_layout.

clear w_title.

Field Catalog

perform set_fieldcat2 using:

1 'MATNR' 'MATNR' 'MARA' space space space space space space space space space space space space t_fieldcat ,

2 'ERSDA' 'ERSDA' 'MARA' space space space space space space space space space space space space t_fieldcat ,

3 'MTART' 'MTART' 'MARA' space space space space space space space space space space space space t_fieldcat ,

4 'WERKS' 'WERKS' 'MARC' space space space space space space space space space space space space t_fieldcat .

Layout

x_layout-zebra = 'X'.

Top of page heading

perform set_top_page_heading using t_heading t_event.

Events

perform set_events using t_event.

GUI Status

w_status = ''.

User commands

w_comm = 'USER_COMMAND'.

Order
Example
PERFORM set_order USING '<field>' 'IT_DATA' 'X' space space t_sort.

Displays the ALV grid

call function 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

it_fieldcat = t_fieldcat

is_layout = x_layout

it_sort = t_sort

i_callback_pf_status_set = w_status

i_callback_user_command = w_comm

i_save = 'X'

it_events = t_event

i_grid_title = w_title

TABLES

t_outtab = t_data

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

&----

*& Form set_top_page_heading

&----

Creates the report headings.

----

form set_top_page_heading using t_heading type slis_t_listheader

t_events type slis_t_event.

data: x_heading type slis_listheader,

x_event type line of slis_t_event.

Report title

clear t_heading[].

clear x_heading.

x_heading-typ = 'H'.

x_heading-info = 'TEST ALV Report'(001).