matinal：SAP ABAP 中下拉列表的小技巧

最新推荐文章于 2024-04-16 10:57:26 发布

SAPmatinal

最新推荐文章于 2024-04-16 10:57:26 发布

阅读量157

点赞数

分类专栏： ABAP技术文章标签：信息可视化开发语言 microsoft excel 前端

本文链接：https://blog.csdn.net/SAPmatinal/article/details/132630093

版权

ABAP技术专栏收录该内容

1023 篇文章 131 订阅

订阅专栏

公众号：matinal

下拉列表是ABAP中常用的一个元素，其提供可一系列的可选值，让客户选择输入。但在某些场景下，在提供下拉列表的同时，也需要允许用户自由输入。

先看效果：
在这里插入图片描述

在下拉列表中，提供了一系列的可选值。但同时也提供了一个“Free Selection”。

用户选择“Free Selection”时，会出现一个新的输入框，允许客户直接输入。效果如下：

在这里插入图片描述

实现代码如下：


SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 1(28) gv_dest FOR FIELD p_dest.
  PARAMETERS p_dest TYPE char30 AS LISTBOX VISIBLE LENGTH 30 DEFAULT 'RFC1' USER-COMMAND rfc.
  SELECTION-SCREEN POSITION 65.
  PARAMETERS p_dest_x TYPE rfcdest MODIF ID rfc.
SELECTION-SCREEN END OF LINE.

*===================================================================
INITIALIZATION.
*===================================================================
  gv_dest = 'Destination'.

  DATA: it_val TYPE vrm_values.
  INSERT VALUE #( key = 'RFC1' text = 'Description 1' ) INTO TABLE it_val.
  INSERT VALUE #( key = 'RFC2' text = 'Description 2' ) INTO TABLE it_val.
  INSERT VALUE #( key = 'RFC3' text = 'Description 3' ) INTO TABLE it_val.
  INSERT VALUE #( key = ''     text = 'Free Selection' ) INTO TABLE it_val.

  CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = 'P_DEST' values = it_val.

*===================================================================
AT SELECTION-SCREEN OUTPUT.
*===================================================================
  PERFORM pbo.


*===================================================================
AT SELECTION-SCREEN.
*===================================================================
  PERFORM pai.

*===================================================================
START-OF-SELECTION.
*===================================================================
  IF p_dest IS INITIAL.
    p_dest = p_dest_x.
  ENDIF.

  WRITE 'Selected RFC Destination is: ' && p_dest.

FORM pbo.
  IF p_dest = p_dest_x AND p_dest_x IS NOT INITIAL.
    CLEAR p_dest.
  ENDIF.

  LOOP AT SCREEN.
    IF screen-group1 = 'RFC'.
      IF p_dest = space.
        screen-active = 1.
      ELSE.
        screen-active = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
ENDFORM.

FORM pai.

ENDFORM.