Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

alv grid

Former Member
0 Likes
1,047

HI

how to add a alv grid and assign a database table.

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
1,018

Hi Harikishore,

Try this sample code :

REPORT yalv .

TABLES : mara.

TYPE-POOLS : slis.

DATA: gs_layout TYPE slis_layout_alv,

ct_fieldcat TYPE slis_t_fieldcat_alv,

g_repid LIKE sy-repid,

temp_cat TYPE slis_fieldcat_alv,

header_alv TYPE slis_t_listheader,

header_alv_wa TYPE slis_listheader.

DATA : BEGIN OF it OCCURS 0,

matnr LIKE mara-matnr,

mtart LIKE mara-mtart,

maktx LIKE makt-maktx,

mbrsh LIKE mara-mbrsh,

matkl LIKE mara-matkl,

END OF it.

SELECT-OPTIONS: p_matnr FOR mara-matnr.

INITIALIZATION.

g_repid = sy-repid.

START-OF-SELECTION.

SELECT

amatnr amtart ambrsh amatkl b~maktx

FROM mara AS a

JOIN makt AS b ON amatnr = bmatnr

INTO CORRESPONDING FIELDS OF TABLE it

WHERE a~matnr IN p_matnr.

END-OF-SELECTION.

PERFORM field_catalog.

PERFORM change_catalog.

PERFORM alv_display.

*&----


*& Form field_catalog

*&----


FORM field_catalog .

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = g_repid

i_internal_tabname = 'IT'

i_inclname = g_repid

CHANGING

ct_fieldcat = ct_fieldcat

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

ENDFORM. " field_catalog

*&----


*& Form change_catalog

*&----


FORM change_catalog .

LOOP AT ct_fieldcat INTO temp_cat.

temp_cat-key = ' '.

CASE temp_cat-fieldname.

WHEN 'MATNR'.

temp_cat-seltext_m = 'Material #'.

temp_cat-ddictxt = 'M'.

temp_cat-outputlen = 10.

WHEN 'MAKTX'.

temp_cat-seltext_m = 'Material Desc'.

temp_cat-ddictxt = 'M'.

temp_cat-outputlen = 40.

WHEN OTHERS.

CONTINUE.

ENDCASE.

MODIFY ct_fieldcat FROM temp_cat.

ENDLOOP.

gs_layout-zebra = 'X'.

ENDFORM. " change_catalog

*&----


*& Form alv_display

*&----


FORM alv_display .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = g_repid

is_layout = gs_layout

it_fieldcat = ct_fieldcat

i_save = 'A'

TABLES

t_outtab = it

EXCEPTIONS

program_error = 1

OTHERS = 2.

ENDFORM. " alv_display

Regards,

Digesh Panchal

Note : Please Reward points, if it solve ur problem

HI

how to add a alv grid and assign a database table.

8 REPLIES 8
Read only

hymavathi_oruganti
Active Contributor
0 Likes
1,018

use reuse_alv_grid_display

pass i_structure = structure of dbtab

Read only

Former Member
0 Likes
1,018

Hi,

can you make it clear.

you want to add alv functionality to dbtable created by you.

regards

vijay

Message was edited by: Vijay Babu Dudla

Read only

0 Likes
1,018

select * from vbap into it_vbap where vbeln = p_vbeln.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = sy-repid

I_STRUCTURE_NAME = vbap

TABLES

T_OUTTAB = it_vbap.

Read only

Former Member
0 Likes
1,018

Hi vijay

i want to show the vbap table for the selected vbeln in the alv.

give me sample code

Read only

0 Likes
1,018

<deleted>

check this link

http://www.sap-img.com/abap-function.htm

Message was edited by: chandrasekhar jagarlamudi

Read only

0 Likes
1,018
REPORT ZTEST.

type-pools:slis.

tables: vbak,vbap.

select-options : s_vbeln for VBAK-VBELN.

data: it_vbap like vbap occurs 0 with header line.


select *
       from vbap
       into table it_vbap
       where vbeln in s_vbeln.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
   I_CALLBACK_PROGRAM                = sy-repid
   I_STRUCTURE_NAME                  = 'VBAP'
  TABLES
    T_OUTTAB                          = it_vbap[]
 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.
Read only

0 Likes
1,018

Hi,

Check this link.Kindly reward points by clicking the star on the left of reply,if it helps.

http://www.geocities.com/mpioud/Abap_programs.html

Read only

Former Member
0 Likes
1,019

Hi Harikishore,

Try this sample code :

REPORT yalv .

TABLES : mara.

TYPE-POOLS : slis.

DATA: gs_layout TYPE slis_layout_alv,

ct_fieldcat TYPE slis_t_fieldcat_alv,

g_repid LIKE sy-repid,

temp_cat TYPE slis_fieldcat_alv,

header_alv TYPE slis_t_listheader,

header_alv_wa TYPE slis_listheader.

DATA : BEGIN OF it OCCURS 0,

matnr LIKE mara-matnr,

mtart LIKE mara-mtart,

maktx LIKE makt-maktx,

mbrsh LIKE mara-mbrsh,

matkl LIKE mara-matkl,

END OF it.

SELECT-OPTIONS: p_matnr FOR mara-matnr.

INITIALIZATION.

g_repid = sy-repid.

START-OF-SELECTION.

SELECT

amatnr amtart ambrsh amatkl b~maktx

FROM mara AS a

JOIN makt AS b ON amatnr = bmatnr

INTO CORRESPONDING FIELDS OF TABLE it

WHERE a~matnr IN p_matnr.

END-OF-SELECTION.

PERFORM field_catalog.

PERFORM change_catalog.

PERFORM alv_display.

*&----


*& Form field_catalog

*&----


FORM field_catalog .

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = g_repid

i_internal_tabname = 'IT'

i_inclname = g_repid

CHANGING

ct_fieldcat = ct_fieldcat

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

ENDFORM. " field_catalog

*&----


*& Form change_catalog

*&----


FORM change_catalog .

LOOP AT ct_fieldcat INTO temp_cat.

temp_cat-key = ' '.

CASE temp_cat-fieldname.

WHEN 'MATNR'.

temp_cat-seltext_m = 'Material #'.

temp_cat-ddictxt = 'M'.

temp_cat-outputlen = 10.

WHEN 'MAKTX'.

temp_cat-seltext_m = 'Material Desc'.

temp_cat-ddictxt = 'M'.

temp_cat-outputlen = 40.

WHEN OTHERS.

CONTINUE.

ENDCASE.

MODIFY ct_fieldcat FROM temp_cat.

ENDLOOP.

gs_layout-zebra = 'X'.

ENDFORM. " change_catalog

*&----


*& Form alv_display

*&----


FORM alv_display .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = g_repid

is_layout = gs_layout

it_fieldcat = ct_fieldcat

i_save = 'A'

TABLES

t_outtab = it

EXCEPTIONS

program_error = 1

OTHERS = 2.

ENDFORM. " alv_display

Regards,

Digesh Panchal

Note : Please Reward points, if it solve ur problem