弹窗输入内容，返回内容不使用屏幕

最新推荐文章于 2025-05-23 00:03:15 发布

原创最新推荐文章于 2025-05-23 00:03:15 发布 · 934 阅读

0 ·

CC 4.0 BY-SA版权

ABAP 专栏收录该内容

55 篇文章

订阅专栏

本文介绍了一个使用ABAP编程语言实现的日期选择器示例。通过调用弹出窗口让用户选择日期，并将选定的日期返回给程序进行进一步处理。此示例展示了如何定义数据类型、使用条件判断及调用系统函数。

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

DATA : L_RETURNCODE TYPE C .
DATA : L_DATUM TYPE SY-DATUM .

PERFORM GET_CHANGE_DATE USING '01' L_DATUM L_RETURNCODE .
CHECK L_RETURNCODE NE 'A' .
WRITE L_DATUM.

*&---------------------------------------------------------------------*
*&      Form  GET_CHANGE_DATE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_IND         text
*      -->P_BUDAT       text
*      -->P_RETURNCODE  text
*----------------------------------------------------------------------*
FORM GET_CHANGE_DATE USING P_IND P_BUDAT P_RETURNCODE .
  DATA: LT_FIELDS LIKE TABLE OF SVAL WITH HEADER LINE .
  DATA: L_RETURNCODE TYPE C .
  DATA: L_DATUM TYPE SY-DATUM .

  CASE P_IND .
    WHEN '01' .
      LT_FIELDS-TABNAME = 'MKPF'.
      LT_FIELDS-FIELDNAME = 'BUDAT'.
      LT_FIELDS-FIELDTEXT = '日期'.
      LT_FIELDS-FIELD_OBL = 'X' . " Required field flag
      L_DATUM = SY-DATUM .
      LT_FIELDS-VALUE = L_DATUM .
      APPEND LT_FIELDS.

      CALL FUNCTION 'POPUP_GET_VALUES'
        EXPORTING
          POPUP_TITLE = '输入日期'
        IMPORTING
          RETURNCODE  = P_RETURNCODE
        TABLES
          FIELDS      = LT_FIELDS.

  ENDCASE .

  IF P_RETURNCODE = 'A'. " 取消..
    EXIT.
  ELSE.
    READ TABLE LT_FIELDS INDEX 1 .
    P_BUDAT = LT_FIELDS-VALUE .
  ENDIF .

ENDFORM. " GET_CHANGE_DATE