对于ALV LVC 单元格的控制

需求是：当数据不符合条件时，不可编辑，反之，可编辑

主要实现的技术： CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'

代码如下：

" 数据声明显示ALV数据 data: begin of i_data OCCURS 0, ... bdmng LIKE resb-bdmng, field_style TYPE lvc_t_styl, "FORDISABLE “ALV LVC END OF i_data. "ALV设置声明 DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE. DATA: it_fieldcat1 TYPE lvc_t_fcat, wa_fieldcat1 TYPE lvc_s_fcat, gd_layout TYPE lvc_s_layo, gd_repid LIKE sy-repid, it_sort TYPE lvc_t_sort, wa_sort TYPE lvc_s_sort. DATA: it_events TYPE slis_t_event, wa_events IKE LINE OF it_events. START-OF-SELECTION. "获取数据 ... loop at i_data. if i_data-bdmng < 0. ls_stylerow-fieldname = 'BDMNG' . ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled. "不可编辑状态 APPEND ls_stylerow TO i_data-field_style. endif. modify i_data. endloop. PERFORM sub_build_fieldcatalog. "字段定义 PERFORM SUB_LAYOUT. "布局定义 PERFORM SUB_SORT. "排序 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = gd_repid i_callback_pf_status_set = 'SUB_STATUS_SET' i_callback_user_command = 'SUB_USER_COMMAND' i_callback_html_top_of_page = 'TOP_OF_HTML_PAGE' is_layout_lvc = gd_layout it_fieldcat_lvc = it_fieldcat1 it_sort_lvc = it_sort " it_events = it_events i_html_height_top = 28 i_save = 'X' TABLES t_outtab = i_data EXCEPTIONS program_error = 1 OTHERS = 2. FORM sub_build_fieldcatalog . "字段定义 REFRESH it_fieldcat1 . CLEAR wa_fieldcat1 . wa_fieldcat1-fieldname = 'BDMNG'. wa_fieldcat1-scrtext_m = ''. wa_fieldcat1-edit = 'X'. wa_fieldcat1-col_pos = 5. wa_fieldcat1-outputlen = 15. wa_fieldcat1-just = 'C'. wa_fieldcat1-ref_table = 'RESG'. APPEND wa_fieldcat1 TO it_fieldcat1. ... ENDFORM. FORM SUB_LAYOUT. "布局设置 gd_layout-stylefname = 'FIELD_STYLE'. gd_layout-zebra = 'X'. gd_layout-box_fname = 'SEL'. gd_layout-info_fname = 'COLOR'. gd_repid = sy-repid. ENDFORM. FORM SUB_SORT. "排序 CLEAR wa_sort. wa_sort-spos = '8'. wa_sort-fieldname = 'LGOBE'. wa_sort-up = 'X'. wa_sort-group = ''. wa_sort-subtot = 'X'. APPEND wa_sort TO it_sort. CLEAR wa_sort. ENDFORM. FORM sub_status_set USING p_extab TYPE slis_t_extab. "按钮 SET PF-STATUS ''. ENDFORM. FORM sub_user_command USING ucomm TYPE sy-ucomm selfield TYPE slis_selfield. "按钮出发事件 CASE ucomm . WHEN ''. ENDCASE. CLEAR ucomm. ENDFORM. FORM top_of_html_page USING p_cl_dd TYPE REF TO cl_dd_document. "html 标题 * 定义缓冲区变量 DATA: m_p TYPE i , m_buffer TYPE string , l_name1 LIKE t001w-name1, text1(255) TYPE c. * 开始输出表头标题 CONCATENATE '<HTML><CENTER><H2>' '' '</H2></CENTER></HTML>' INTO m_buffer. CALL METHOD p_cl_dd->html_insert EXPORTING contents = m_buffer CHANGING position = m_p. LOOP AT XXX. CONCATENATE 'XXX' INTO text1 SEPARATED BY space. CALL METHOD p_cl_dd->add_text( text = text1 ). CALL METHOD p_cl_dd->add_gap( width = 20 ). CALL METHOD p_cl_dd->new_line. ... ENDLOOP. ENDFORM.

对于ALV LVC 单元格的控制相关推荐

ALV LVC 单元格 F4帮助
声明: CLASS lcl_event_receiver DEFINITION DEFERRED. DATA event_receiver TYPE REF TO lcl_event_receiver ...
ABAP ALV检查单元格更新数据
ABAP ALV检查单元格更新数据将ALV单元格设置为可输入后,通常我们需要对单元格输入的值做一个检查,一般来说用循环内表的方法可以实现上述操作,不过如果ALV中有大量数据,而我们只更新了少量的单元 ...
如何通过报表单元格右键控制报表跳转到不同链接地址
需求说明: 润乾报表的单元格中支持超链接属性,用户可以通过设置该属性,实现在浏览器端用鼠标点击某个单元格跳转到指定页面,并且还能够传递所需要的参数,从而实现数据的钻取(详见<玩转报表超链接> ...
SAP ALV合并单元格示例（合并单元格为表头）
前言实现参考Enno Wulff的文章(德文):Zellen verbinden 在原有基础上新增了部分功能(支持输入合并单元格的显示值) 效果代码主程序 *&------------- ...
SAP 标准ALV实现单元格可编辑,插入可编辑的新行,敲下回车后更新数据
实现单元格可编辑: 假定将要显示在ALV屏幕上的内表名为:it_alv. 通过slis_fieldcat_alv-edit = 'X',将单元格所在列设为可编辑状态. 在it_alv的data定义里添 ...
asp单元格合并后宽度没有合并_ElementUI Table组件如何使用合并行或列功能深入解析...
需求,对指定的列表展示进行合并单元格,循环展示指定行和指定列. 1.官方文档通过给table传入span-method方法可以实现合并行或列,方法的参数是一个对象,里面包含当前行row.当前列col ...
合并单元格后打字换行_excel中合并了单元格以后往里面打字如果打两行字,怎么换行...
点击查看excel中合并了单元格以后往里面打字如果打两行字,怎么换行具体信息答:1.演示使用的软件为Excel电子表格,软件版本为office家庭和学生版2016. 2.为了演示如何在合并的单元格中 ...
ABAP ALV 颜色设置（行，列，单元格）
关于ALV表格颜色,这种需求在项目中会经常用到. 列颜色列的颜色很简单,在构成ALV字段的FIELDCAT内表中有一个字段是EMPHASIZE,将一个char型4位的颜色代码分配到FIELDCAT内 ...
abap 单元格级别的操作ALV.
单元格级别的操作ALV. 带表头的ALV使用结构如下: CALL FUNCTION 'REUSE_ALV_EVENTS_GET' EXPORTING I_LIST_TYPE = 0 ...

对于ALV LVC 单元格的控制

对于ALV LVC 单元格的控制相关推荐

最新文章

热门文章