ABAP ALV单个单元格状态编辑-简单版本

Posted 衣斜川

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了ABAP ALV单个单元格状态编辑-简单版本相关的知识,希望对你有一定的参考价值。

*&---------------------------------------------------------------------*
*& Report  ZPPR0024
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zppr0024.

TYPE-POOLS: slis.

*- Fieldcatalog

DATA: it_fieldcat TYPE lvc_t_fcat.

DATA: x_fieldcat TYPE lvc_s_fcat.

DATA: x_layout TYPE lvc_s_layo.



"第1步:用操作具体单元的是否可编辑的内表和工作区



DATA: ls_edit TYPE lvc_s_styl,

      lt_edit TYPE lvc_t_styl,

    gr_alvgrid TYPE REF TO cl_gui_alv_grid .

"第2步:在内表定义添加字段,用于控制具体行的具体单元是否可编辑

DATABEGIN OF it_vbap OCCURS 0,

  vbeln LIKE vbap-vbeln,

  posnr LIKE vbap-posnr,

  style TYPE lvc_t_styl"FOR DISABLE

END OF it_vbap.

DATA: ls_outtab LIKE LINE OF it_vbap.

SELECT vbeln  posnr

  UP TO 100 ROWS

  INTO CORRESPONDING FIELDS OF TABLE it_vbap

FROM vbap.



DATA:l_pos TYPE VALUE 1.

CLEAR: l_pos.

l_pos = l_pos + 1.

x_fieldcat-seltext ‘VBELN‘.

x_fieldcat-fieldname ‘VBELN‘.

x_fieldcat-tabname ‘ITAB‘.

x_fieldcat-col_pos = l_pos.

x_fieldcat-edit ‘X‘.

x_fieldcat-outputlen ‘10‘.

x_fieldcat-ref_field ‘VBELN‘.

x_fieldcat-ref_table ‘VBAK‘.

APPEND x_fieldcat TO it_fieldcat.



CLEAR x_fieldcat.

l_pos = l_pos + 1.

x_fieldcat-seltext ‘POSNR‘.

x_fieldcat-fieldname ‘POSNR‘.

x_fieldcat-tabname ‘ITAB‘.

x_fieldcat-col_pos = l_pos.

x_fieldcat-edit ‘X‘.

x_fieldcat-outputlen ‘5‘.

APPEND x_fieldcat TO it_fieldcat.

CLEAR x_fieldcat.

l_pos = l_pos + 1.

********************************************************
PERFORM set_status USING ‘VBELN‘.
PERFORM set_status USING ‘POSNR‘.

INSERT LINES OF lt_edit INTO TABLE ls_outtab-style.

MODIFY it_vbap INDEX FROM ls_outtab TRANSPORTING style .
********************************************************
x_layout-stylefname ‘STYLE‘.



CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY_LVC‘
  EXPORTING
    i_callback_program = sy-repid
    is_layout_lvc      = x_layout
    it_fieldcat_lvc    = it_fieldcat
  TABLES
    t_outtab           = it_vbap[]
  EXCEPTIONS
    program_error      1
    OTHERS             2.

IF sy-subrc NE 0.

  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.


FORM SET_STATUS_DISABLED USING index TYPE sy-tabix  fieldname TYPE lvc_s_styl-fieldname .

  sy-tabix index.

ls_edit-fieldname = fieldname.

ls_edit-style = cl_gui_alv_grid=>mc_style_disabled.

ls_edit-style2 = space.

ls_edit-style3 = space.

ls_edit-style4 = space.

ls_edit-maxlen 10.

INSERT ls_edit INTO TABLE lt_edit.



ENDFORM.

以上是关于ABAP ALV单个单元格状态编辑-简单版本的主要内容,如果未能解决你的问题,请参考以下文章

ABAP ALV LVC_T_SORT 合并单元格问题

◆◆0REUSE_ALV_GRID_DISPLAY_LVC-可编辑单元格

SAP ALV单元格中文第一个字符输入不进

SAP ALV单元格中文第一个字符输入不进

SAP ALV单元格中文第一个字符输入不进

SAP ALV单元格中文第一个字符输入不进