ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 弹出文本,SE61,DT,POPUP_DISPLAY_TEXT_USER_BUTTON

弹出文本,SE61,DT,POPUP_DISPLAY_TEXT_USER_BUTTON

原创 Linux操作系统 作者:hzq2010 时间:2011-05-07 14:54:13 0 删除 编辑

 

REPORT z_barry_pop_display_text  .

INCLUDE .

DATA: user_buttons LIKE smp_dyntxt OCCURS 0 WITH HEADER LINE,
      parameter    LIKE spar       OCCURS 0 WITH HEADER LINE,
      antwort      LIKE rsnewleng-fcode.

START-OF-SELECTION.
  CLEAR user_buttons.
  user_buttons-text      = '关闭'.
  user_buttons-icon_id   = icon_close.
  user_buttons-icon_text = '退出'.
  user_buttons-quickinfo = '结尾'.
  APPEND user_buttons.

  CALL FUNCTION 'POPUP_DISPLAY_TEXT_USER_BUTTON'
    EXPORTING
      language              = sy-langu
      popup_title           = '测试'
      start_column          = 5
      start_row             = 5
      text_object           = 'COM_ATTR_WZ_ATTR_TYPE' "SE61 DT对话文本
      display_ok_button     = ' '
      display_cancel_button = ' '
    IMPORTING
      answer                = antwort
    TABLES
      user_buttons          = user_buttons
      parameter             = parameter
    EXCEPTIONS
      error_in_text         = 1
      text_not_found        = 2
      OTHERS                = 3.

  ULINE.
  WRITE: / '点击按钮:', antwort.
  ULINE.

  parameter-param = 'V1'.
  parameter-value = text-010.
  APPEND parameter.
  parameter-param = 'V2'.
  parameter-value = text-020.
  APPEND parameter.

  CALL FUNCTION 'POPUP_DISPLAY_TEXT_USER_BUTTON'
    EXPORTING
      language       = sy-langu
      popup_title    = '使用参数测试'
      start_column   = 10
      start_row      = 10
      text_object    = 'SPO_EXAMPLE_2'
    IMPORTING
      answer         = antwort
    TABLES
      parameter      = parameter
    EXCEPTIONS
      error_in_text  = 1
      text_not_found = 2
      OTHERS         = 3.

  ULINE.
  WRITE: / '点击按钮:', antwort.
  ULINE.

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/23495244/viewspace-694708/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 弹出窗口的ALV
请登录后发表评论 登录
全部评论

注册时间:2010-03-11

  • 博文量
    196
  • 访问量
    168744