ABAP-DIALOG参数

燚㵘䲜

已于 2023-01-31 16:31:00 修改

阅读量1.7k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： 13.ABAP-DIALOG 文章标签：对话框控制单元格对话框字段变灰对话框文本颜色对话框字段隐藏对话框必输图标

于 2019-01-15 14:49:59 首次发布

本文链接：https://blog.youkuaiyun.com/cly_apple/article/details/83582878

13.ABAP-DIALOG 专栏收录该内容

5 篇文章

订阅专栏

本文详细介绍了如何使用ABAP编程语言进行界面定制，包括控制字段输入状态、调整文本标签及编辑框的显示效果、设置字段是否必填以及调整字段显示顺序等操作。通过具体代码示例，展示了如何实现字段变灰、必填可选、隐藏字段和重新排列字段等功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

SCREEN（控制列字段）
INPUT 参数
0 变灰
1 可输

intensified参数（文本标签高亮变蓝色，编辑框高亮变红色）
0 普通
1 高亮

VALUE_HELP
0 不显示
1 显示

CXTAB_COLUMN-SCREEN（控制单元格）
INVISIBLE 参数
1 隐藏
0 显示

INDEX 参数
1，2，3 字段位置

REQUIRED 参数
0 空白
1 必输
2 可选

PROCESS BEFORE OUTPUT.
  MODULE MODULE_9100_INIT_DATA. 
  MODULE TC_01_CHANGE_TC_ATTR. 
  LOOP AT   GT_ITEM
       INTO GS_ITEM
       WITH CONTROL TC_01
       CURSOR TC_01-CURRENT_LINE.
    MODULE TC_01_GET_LINES.
    MODULE MODULE_9100_NO_INPUT_ITEM.
  ENDLOOP.

MODULE MODULE_9100_NO_INPUT_ITEM OUTPUT.
  PERFORM FRM_9100_NO_INPUT_ITEM.
ENDMODULE.

FORM FRM_9100_NO_INPUT_ITEM .
  " 字段变灰
  LOOP AT SCREEN.
    IF SCREEN-NAME = 'GS_ITEM-BZ1'.
      SCREEN-INPUT = 0.    
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.
 
  TYPE-POOLS: CXTAB.
  DATA L_WA_COL TYPE CXTAB_COLUMN.
  LOOP AT TC_01-COLS INTO L_WA_COL.
    " 必输可选
    IF L_WA_COL-SCREEN-GROUP1 = 'A01'
      L_WA_COL-SCREEN-REQUIRED = 2. 
    ENDIF.

    " 隐藏字段
    IF L_WA_COL-SCREEN-GROUP2 = 'D02' or L_WA_COL-SCREEN-NAME+8 = 'WRBTR_PF'.
      L_WA_COL-INVISIBLE = G_C_1.
    ENDIF.
 
    " 字段顺序
    IF L_WA_COL-SCREEN-NAME+8 = 'SIDX'.
    L_WA_COL-INDEX = 1.
    ENDIF.

    MODIFY TC_01-COLS FROM L_WA_COL.
  ENDLOOP.

ENDFORM.