ALV Grid display

[Former Member]

Hi,

I need to display the Status of a process with in an ALV grid. I have these values stored in a Domain. I am able to populate the key values to the grid, where as i want to display the description of the key in the grid. I am able to display the drop down list box in the gird, but i am unable to assign the correct discription to be displayed based on the key value.

let me know the solution

Thanks in advance

[Former Member]

First get the domain values through VRM_GET_VALUES function module or based on domain GET_DOMAIN_VALUES .There you will get the Domanin key .Use the same key an dvalue to populate the drop down for the field as

DATA lt_ddval TYPE lvc_t_drop .

DATA ls_ddval TYPE lvc_s_drop .

ls_ddval-handle = '1' . this key should be the domain key.

ls_ddval-value = 'JFK-12' .

APPEND ls_ddval TO lt_ddval .

ls_ddval-handle = '1' .

ls_ddval-value = 'JSF-44' .

APPEND ls_ddval TO lt_ddval .

ls_ddval-handle = '1' .

ls_ddval-value = 'KMDA-53' .

APPEND ls_ddval TO lt_ddval .

ls_ddval-handle = '1' .

ls_ddval-value = 'SS3O/N' .

APPEND ls_ddval TO lt_ddval .

CALL METHOD gr_alvgrid->set_drop_down_table

EXPORTING

it_drop_down = lt_ddval .

Please reward if useful.

[Former Member]

Refer this

w_drop_alias-handle = '3'.
w_drop_alias-value = 'SIMPLE'.
w_drop_alias-int_value = 'SIM'.
APPEND w_drop_alias TO i_drop_alias.

w_drop_alias-handle = '3'.
w_drop_alias-value = 'MEDIUM'.
w_drop_alias-int_value = 'MED'.
APPEND w_drop_alias TO i_drop_alias.

w_drop_alias-handle = '3'.
w_drop_alias-value = 'HIGH'.
w_drop_alias-int_value = 'HIG'.
APPEND w_drop_alias TO i_drop_alias.

w_drop_alias-handle = '3'.
w_drop_alias-value = 'EXTREMELY HIGH'.
w_drop_alias-int_value = 'EXT'.
APPEND w_drop_alias TO i_drop_alias.

CALL METHOD o_alvgrid->set_drop_down_table
EXPORTING
* it_drop_down = i_drop[].
it_drop_down_alias = i_drop_alias[].

U have to fetch the value like this: Here i_effest is an output table in an alv grid.
loop at i_effest.
READ TABLE i_drop_alias WITH KEY handle = '3'
value = i_effest-complex
INTO w_drop_alias.
IF sy-subrc EQ 0.
complex = w_drop_alias-int_value.
ENDIF.
endloop.

[p291102]

Hi,

Check the sample coding of the ALV GRID DISPLAY report.

REPORT YMS_COLOURALV NO STANDARD PAGE HEADING.

TYPE-POOLS: SLIS, ICON.

DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: BEGIN OF IMARA OCCURS 0,

LIGHT(4) TYPE C,

MATNR TYPE MARA-MATNR,

MTART TYPE MARA-MTART,

MAKTX TYPE MAKT-MAKTX,

COLOR_LINE(4) TYPE C,

TCOLOR TYPE SLIS_T_SPECIALCOL_ALV, "cell

END OF IMARA.

DATA: XCOLOR TYPE SLIS_SPECIALCOL_ALV.

START-OF-SELECTION.

PERFORM GET_DATA.

PERFORM WRITE_REPORT.

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

• Get_Data

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

FORM GET_DATA.

WRITE ICON_GREEN_LIGHT AS ICON TO IMARA-LIGHT.

IMARA-MATNR = 'ABC'.

IMARA-MTART = 'ZCFG'.

IMARA-MAKTX = 'This is description for ABC'.

APPEND IMARA.

WRITE ICON_YELLOW_LIGHT AS ICON TO IMARA-LIGHT.

IMARA-MATNR = 'DEF'.

IMARA-MTART = 'ZCFG'.

IMARA-MAKTX = 'This is description for DEF'.

APPEND IMARA.

WRITE ICON_RED_LIGHT AS ICON TO IMARA-LIGHT.

IMARA-MATNR = 'GHI'.

IMARA-MTART = 'ZCFG'.

IMARA-MAKTX = 'This is description for GHI'.

APPEND IMARA.

LOOP AT IMARA.

IF SY-TABIX = 1.

IMARA-COLOR_LINE = 'C410'. " color line

ENDIF.

IF SY-TABIX = 2. " color CELL

CLEAR XCOLOR.

XCOLOR-FIELDNAME = 'MTART'.

XCOLOR-COLOR-COL = '3'.

XCOLOR-COLOR-INT = '1'. " Intensified on/off

XCOLOR-COLOR-INV = '0'.

APPEND XCOLOR TO IMARA-TCOLOR.

ENDIF.

MODIFY IMARA.

ENDLOOP.

ENDFORM. "get_data

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

• WRITE_REPORT

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

FORM WRITE_REPORT.

DATA: LAYOUT TYPE SLIS_LAYOUT_ALV.

LAYOUT-COLTAB_FIELDNAME = 'TCOLOR'.

LAYOUT-INFO_FIELDNAME = 'COLOR_LINE'.

PERFORM BUILD_FIELD_CATALOG.

• CALL ABAP LIST VIEWER (ALV)

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

IS_LAYOUT = LAYOUT

IT_FIELDCAT = FIELDCAT

TABLES

T_OUTTAB = IMARA.

ENDFORM. "write_report

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

• BUILD_FIELD_CATALOG

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

FORM BUILD_FIELD_CATALOG.

DATA: FC_TMP TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

CLEAR: FIELDCAT. REFRESH: FIELDCAT.

CLEAR: FC_TMP.

FC_TMP-REPTEXT_DDIC = 'Status'.

FC_TMP-FIELDNAME = 'LIGHT'.

FC_TMP-TABNAME = 'IMARA'.

FC_TMP-OUTPUTLEN = '4'.

FC_TMP-ICON = 'X'.

APPEND FC_TMP TO FIELDCAT.

CLEAR: FC_TMP.

FC_TMP-REPTEXT_DDIC = 'Material Number'.

FC_TMP-FIELDNAME = 'MATNR'.

FC_TMP-TABNAME = 'IMARA'.

FC_TMP-OUTPUTLEN = '18'.

APPEND FC_TMP TO FIELDCAT.

CLEAR: FC_TMP.

FC_TMP-REPTEXT_DDIC = 'Material Type'.

FC_TMP-FIELDNAME = 'MTART'.

FC_TMP-TABNAME = 'IMARA'.

FC_TMP-OUTPUTLEN = '10'.

APPEND FC_TMP TO FIELDCAT.

CLEAR: FC_TMP.

FC_TMP-REPTEXT_DDIC = 'Material'.

FC_TMP-FIELDNAME = 'MAKTX'.

FC_TMP-TABNAME = 'IMARA'.

FC_TMP-OUTPUTLEN = '40'.

FC_TMP-EMPHASIZE = 'C610'. " color column

APPEND FC_TMP TO FIELDCAT.

ENDFORM. "build_field_catalog

Thanks,

Shankar