Community
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
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Conditional editable fields on ALV

Former Member

‎2009 Dec 29 9:38 AM

0 Likes
9,279

Hi Experts!!!

I want to display few fields in ALV output as editable based on another field value (Material type).

Please let me know the procedure achhieve this.

Regards,

Shiva

shaik..

please use proper code elements.. and code length is also very high..

@Shiva..

take reference of BCALV_EDIT_02 program.

Reply
4 REPLIES 4
Read only

Pawan_Kesari
Active Contributor

‎2009 Dec 29 9:51 AM

3,365

Assuming you are using class CL_GUI_ALV GRID.

Add an extra field in your internal table which you are passing to ALV of type LVC_T_STYL. Field celltab is internal table in which you will specify which field you want to keep editable in a particular row

celltab   TYPE lvc_t_styl

In layout stucture specify the name of variable.

layout-stylefname = 'CELLTAB'.

Now while filling you internal table when you get right value in material type insert a row in celltab e.g.

celltab-fieldname = 'FIELD' . "field which you want to editable.

celltab-style = cl_gui_alv_grid=>mc_style_enabled .

You can also refer program BCALV_EDIT_02

Edited by: Pawan Kesari on Dec 29, 2009 3:22 PM

Edited by: Pawan Kesari on Dec 29, 2009 3:23 PM

Read only

Former Member

‎2009 Dec 29 9:53 AM

0 Likes
3,365

Hi,

Try this.

For ex: F1 has to be editable based on the values of field F2 type. If F2 = A, F1 shd be editable

1. Create an another field in the internal table of the alv display which is used to store the style

data: begin of itab occurs 0,

......,

.......,

celltab TYPE lvc_t_styl.

end of itab.

2. Set the field F1 as editable in the field catalog.

3. Set the layout as

layout-stylefname = 'CELLTAB'.

4. Then populate the style in the celltab field for each row based on the required conditions.

DATA: ls_celltab TYPE lvc_s_styl,

loop at itab.

if F2 = 'A'.

ls_celltab-fieldname = 'F1'.

l_mode = cl_gui_alv_grid=>mc_style_enabled.

else.

ls_celltab-fieldname = 'F1'.

l_mode = cl_gui_alv_grid=>mc_style_disabled.

endif.

INSERT ls_celltab INTO TABLE itab-celltab.

MODIFY itab INDEX sy-tabix TRANSPORTING celltab.

endloop.

By this way you can make the fields editable based on conditions.

Hope this may be helpful.

Regards,

Sharin

Read only

Former Member

‎2009 Dec 29 10:01 AM

0 Likes
3,365

Hi try the following code

TABLES: ekko.

TYPE-POOLS: slis. "ALV Declarations

*Data Declaration

*----

TYPES: BEGIN OF t_ekko,

ebeln TYPE ekpo-ebeln,

ebelp TYPE ekpo-ebelp,

statu TYPE ekpo-statu,

aedat TYPE ekpo-aedat,

matnr TYPE ekpo-matnr,

menge TYPE ekpo-menge,

meins TYPE ekpo-meins,

netpr TYPE ekpo-netpr,

peinh TYPE ekpo-peinh,

field_style TYPE lvc_t_styl, "FOR DISABLE

END OF t_ekko.

DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

wa_ekko TYPE t_ekko.

*ALV data declarations

DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE.

DATA: it_fieldcat TYPE lvc_t_fcat, "slis_t_fieldcat_alv WITH HEADER LINE,

wa_fieldcat TYPE lvc_s_fcat,

gd_tab_group TYPE slis_t_sp_group_alv,

gd_layout TYPE lvc_s_layo, "slis_layout_alv,

gd_repid LIKE sy-repid.

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

*Start-of-selection.

START-OF-SELECTION.

PERFORM data_retrieval.

PERFORM set_specific_field_attributes.

PERFORM build_fieldcatalog.

PERFORM build_layout.

PERFORM display_alv_report.

&----

*& Form BUILD_FIELDCATALOG

&----

  • Build Fieldcatalog for ALV Report

----

FORM build_fieldcatalog.

wa_fieldcat-fieldname = 'EBELN'.

wa_fieldcat-scrtext_m = 'Purchase Order'.

wa_fieldcat-col_pos = 0.

wa_fieldcat-outputlen = 10.

wa_fieldcat-emphasize = 'X'.

wa_fieldcat-key = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'EBELP'.

wa_fieldcat-scrtext_m = 'PO Item'.

wa_fieldcat-col_pos = 1.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'STATU'.

wa_fieldcat-scrtext_m = 'Status'.

wa_fieldcat-col_pos = 2.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'AEDAT'.

wa_fieldcat-scrtext_m = 'Item change date'.

wa_fieldcat-col_pos = 3.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MATNR'.

wa_fieldcat-scrtext_m = 'Material Number'.

wa_fieldcat-col_pos = 4.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MENGE'.

wa_fieldcat-scrtext_m = 'PO quantity'.

wa_fieldcat-col_pos = 5.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MEINS'.

wa_fieldcat-scrtext_m = 'Order Unit'.

wa_fieldcat-col_pos = 6.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'NETPR'.

wa_fieldcat-scrtext_m = 'Net Price'.

wa_fieldcat-edit = 'X'. "sets whole column to be editable

wa_fieldcat-col_pos = 7.

wa_fieldcat-outputlen = 15.

wa_fieldcat-datatype = 'CURR'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'PEINH'.

wa_fieldcat-scrtext_m = 'Price Unit'.

wa_fieldcat-col_pos = 8.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " BUILD_FIELDCATALOG

&----

*& Form BUILD_LAYOUT

&----

  • Build layout for ALV grid report

----

FORM build_layout.

  • Set layout field for field attributes(i.e. input/output)

gd_layout-stylefname = 'FIELD_STYLE'.

gd_layout-zebra = 'X'.

ENDFORM. " BUILD_LAYOUT

&----

*& Form DISPLAY_ALV_REPORT

&----

  • Display report using ALV grid

----

FORM display_alv_report.

gd_repid = sy-repid.

  • call function 'REUSE_ALV_GRID_DISPLAY'

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'

EXPORTING

i_callback_program = gd_repid

  • i_callback_user_command = 'USER_COMMAND'

is_layout_lvc = gd_layout

it_fieldcat_lvc = it_fieldcat

i_save = 'X'

TABLES

t_outtab = it_ekko

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

&----

*& Form DATA_RETRIEVAL

&----

  • Retrieve data form EKPO table and populate itab it_ekko

----

FORM data_retrieval.

SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh

UP TO 10 ROWS

FROM ekpo

INTO CORRESPONDING FIELDS OF TABLE it_ekko.

ENDFORM. " DATA_RETRIEVAL

&----

*& Form set_specific_field_attributes

&----

  • populate FIELD_STYLE table with specific field attributes

----

form set_specific_field_attributes .

DATA ls_stylerow TYPE lvc_s_styl .

DATA lt_styletab TYPE lvc_t_styl .

  • Populate style variable (FIELD_STYLE) with style properties

*

  • The NETPR field/column has been set to editable in the fieldcatalog...

  • The following code sets it to be disabled(display only) if 'NETPR'

  • is gt than 10.

LOOP AT it_ekko INTO wa_ekko.

IF wa_ekko-netpr GT 10.

ls_stylerow-fieldname = 'NETPR' .

ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.

"set field to disabled

APPEND ls_stylerow TO wa_ekko-field_style.

MODIFY it_ekko FROM wa_ekko.

ENDIF.

ENDLOOP.

endform. " set_specific_field_attributes

Read only

Former Member
In response to Former Member

‎2009 Dec 29 10:10 AM

0 Likes
3,365

shaik..

please use proper code elements.. and code length is also very high..

@Shiva..

take reference of BCALV_EDIT_02 program.