Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7185397
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2008-07-22 16:28:52

 

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.

阅读(4615) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~