ABAP-DIALOG参数

原创已于 2023-01-31 16:31:00 修改 · 1.8k 阅读

7 ·

CC 4.0 BY-SA版权

文章标签：

#对话框控制单元格 #对话框字段变灰 #对话框文本颜色 #对话框字段隐藏 #对话框必输图标

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

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

5 篇文章

订阅专栏

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

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.