ALV 中根据条件设置某个cell 是否可编辑
*&---------------------------------------------------------------------**& Report Z_TEST_ZS13*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORT Z_TEST_ZS13.*&---------------------------------------------------------------------**& Report ZDEMO_ALVGRID_EDIT **& **&---------------------------------------------------------------------**& **& Example of a 易做图 ALV Grid Report **& ................................... **& **& The basic ALV grid, Enhanced to display specific fields as **& editable depending on field value **&---------------------------------------------------------------------*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 DISABLEEND OF t_ekko.DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,wa_ekko TYPE t_ekko.*ALV data declarationsDATA: 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'.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补充:综合编程 , 其他综合 ,
上一个:YARN 框架源码分析
下一个:HTTP消息