topic Re: ALV Display in Application Development and Automation Discussions

ALV Display

Former Member — Fri, 11 Jul 2008 09:43:20 GMT

HI Experts,

I have Types (OUTREC) and in that i have data that i fetched from DB tables.

I have defined OUTREC as

DATA: BEGIN OF OUTREC,

BUKRS LIKE BKPF-BUKRS,

BELNR LIKE BKPF-BELNR,

DMBTR(16) TYPE C,

MWSKZ LIKE BSEG-MWSKZ,

MWSTS(16) TYPE C,

END OF OUTREC.

I need to display the result in ALV Grid format. below are my fields.

WRITE: / OUTREC-BUKRS,

OUTREC-BELNR,

OUTREC-DMBTR,

OUTREC-MWSKZ,

OUTREC-MWSTS.

Ple help me. Urgent.

Thanks

Khan

Re: ALV Display

Former Member — Fri, 11 Jul 2008 09:46:38 GMT

HI,

goto SLIS package --program

there u can get demo for all types of ALV.

Hope it will helpful..

Edited by: prabhu p on Jul 11, 2008 12:01 PM

Re: ALV Display

Former Member — Fri, 11 Jul 2008 09:48:26 GMT

DATA : t_field TYPE lvc_t_fcat,

t_layout TYPE lvc_s_layo,

wa_field TYPE lvc_s_fcat.

wa_field-fieldname = 'BUKRS'.

wa_field-reptext = 'Com Code'.

wa_field-outputlen = '7'.

APPEND wa_field TO t_field.

CLEAR wa_field.

wa_field-fieldname = 'BELNR'.

wa_field-reptext = 'Doc Numbr'.

wa_field-outputlen = '12'.

APPEND wa_field TO t_field.

CLEAR wa_field.

t_layout-zbera = 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'

EXPORTING

is_layout_lvc = t_layout

it_fieldcat_lvc = t_field

i_save = 'X'

TABLES

t_outtab = OUTREC[]

EXCEPTIONS

program_error = 1

OTHERS = 2.

type : BEGIN OF OUTREC,

BUKRS LIKE BKPF-BUKRS,

BELNR LIKE BKPF-BELNR,

DMBTR(16) TYPE C,

MWSKZ LIKE BSEG-MWSKZ,

MWSTS(16) TYPE C,

END OF OUTREC.

data : itab type OUTREC occurs 0.

Just Pass the itab

data: gr_table type ref to cl_salv_table.

call method cl_salv_table=>factory

importing

r_salv_table = gr_table

changing

t_table = itab .

gr_table->display( ).

Thanks,

Durai.V

Edited by: Durai V on Jul 11, 2008 12:19 PM

Re: ALV Display

Former Member — Fri, 11 Jul 2008 10:02:40 GMT

Hi,

TABLES:

***********************************************************************

************************************************************************

DECLARATION OF TYPE-POOL

*THIS TYPE-POOL CONTAINS THE EVENTS,

************************************************************************

TYPE-POOLS : slis.

************************************************************************

DECLARATION OF EVENTS

************************************************************************

DATA: i_event TYPE slis_t_event.

DATA: t_event TYPE slis_alv_event.

************************************************************************

DECLARATION OF LIST HEADER

************************************************************************

DATA: i_listheader TYPE slis_t_listheader.

************************************************************************

DECLARATION OF FIELD CATALOG FOR SCREEN 1

************************************************************************

DATA: i_fldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.

************************************************************************

DECLARATION OF FIELD CATALOG FOR SCREEN 2

************************************************************************

DECLARATION OF FIELD LAYOUT

************************************************************************

DATA: i_layout TYPE slis_layout_alv.

************************************************************************

SORTING OF OUTPUT

************************************************************************

DATA: i_sort TYPE slis_t_sortinfo_alv.

DATA: t_list_top_of_page TYPE slis_t_listheader.

DATA: BEGIN OF OUTREC,

BUKRS LIKE BKPF-BUKRS,

BELNR LIKE BKPF-BELNR,

DMBTR(16) TYPE C,

MWSKZ LIKE BSEG-MWSKZ,

MWSTS(16) TYPE C,

END OF OUTREC.

Start-of-selection.

perform dataselect.

perform fieldcatlog.

perform display.

FORM fld_cat USING p_i_fldcat TYPE slis_t_fieldcat_alv.

CLEAR i_fldcat.

i_fldcat-fieldname = 'BUKRS'. "FIELD FOR WHICH CATALOG ID FILLED

i_fldcat-tabname = 'IT_BKPF'."TABLE NAME

i_fldcat-seltext_m = 'Ccod'.

i_fldcat-col_pos = 1. " POSITION OF THE COLUMN.

i_fldcat-outputlen = 5. " SET THE OUTPUT LENGTH.

i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.

i_fldcat-just(1) = 'L'.

APPEND i_fldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'BELNR'. "FIELD FOR WHICH CATALOG ID FILLED

i_fldcat-tabname = 'IT_BKPF'."TABLE NAME

i_fldcat-seltext_m = 'Doc.No'.

i_fldcat-col_pos = 2. " POSITION OF THE COLUMN.

i_fldcat-outputlen = 10. " SET THE OUTPUT LENGTH.

i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.

i_fldcat-just(1) = 'L'.

APPEND i_fldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'DMBTR'. "FIELD FOR WHICH CATALOG ID FILLED

i_fldcat-tabname = 'IT_BKPF'.

i_fldcat-seltext_m = 'Vendor'.

i_fldcat-col_pos = 3. " POSITION OF THE COLUMN.

i_fldcat-outputlen = 10. " SET THE OUTPUT LENGTH.

i_fldcat-emphasize = 'X'. read table VBRP'.
i_fldcat-just(1) = 'L'.

APPEND i_fldcat.

FORM fld_cat USING p_i_fldcat TYPE slis_t_fieldcat_alv.

CLEAR i_fldcat.

i_fldcat-fieldname = 'MWSKZ'. "FIELD FOR WHICH CATALOG ID FILLED

i_fldcat-tabname = 'IT_BKPF'."TABLE NAME

i_fldcat-seltext_m = 'Ccod'.

i_fldcat-col_pos = 1. " POSITION OF THE COLUMN.

i_fldcat-outputlen = 5. " SET THE OUTPUT LENGTH.

i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.

i_fldcat-just(1) = 'L'.

APPEND i_fldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'MWSTS'. "FIELD FOR WHICH CATALOG ID FILLED

i_fldcat-tabname = 'IT_BKPF'."TABLE NAME

i_fldcat-seltext_m = 'Doc.No'.

i_fldcat-col_pos = 2. " POSITION OF THE COLUMN.

i_fldcat-outputlen = 10. " SET THE OUTPUT LENGTH.

i_fldcat-emphasize = 'X'. " COLOR OF THIS COLUMN.
i_fldcat-key = 'X'. " SO THAT THIS FIELD IS NOT
"SCROLLABLE AND HIDDABLE.

i_fldcat-just(1) = 'L'.

APPEND i_fldcat.

FORM call_alv .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '

i_grid_title = 'TRANSACTION REPORT for Non SAP non Auto'

I_GRID_SETTINGS =

is_layout = i_layout

it_fieldcat = i_fldcat[]

IT_SORT =

it_events = i_event[]

TABLES

t_outtab = it_bkpf

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

Thanks & Regards,

Y.R.Prem Kumar

Re: ALV Display

Former Member — Fri, 11 Jul 2008 10:03:21 GMT

HI check this.

report .

type-pools:slis.

data: it_fieldcat type slis_t_fieldcat_alv,

is_layout type slis_layout_alv,

wa_fieldcat type slIS_fieldcat_alv.

DATA: BEGIN OF OUTREC1,

BUKRS LIKE BKPF-BUKRS,

BELNR LIKE BKPF-BELNR,

DMBTR(16) TYPE C,

MWSKZ LIKE BSEG-MWSKZ,

MWSTS(16) TYPE C,

END OF OUTREC1.

DATA: OUTREC LIKE OUTREC1 OCCURS 0 WITH HEADER LINE .

outrec-BUKRS = '1000'.

outrec-belnr = '00000001'.

outrec-dmbtr = 'test'.

outrec-mwskz = 'test'.

outrec-mwsts = '0032'.

append outrec.

outrec-BUKRS = '1001'.

outrec-belnr = '00000002'.

outrec-dmbtr = 'test'.

outrec-mwskz = 'test'.

outrec-mwsts = '0032'.

append outrec.

outrec-BUKRS = '1002'.

outrec-belnr = '00000003'.

outrec-dmbtr = 'test'.

outrec-mwskz = 'test'.

outrec-mwsts = '0032'.

append outrec.

wa_fieldcat-fieldname = 'BUKRS'.

wa_fieldcat-reptext_ddic = 'COMP'.