Добавить кнопку на селекционный экран

swd

Добрый день
Хочу добавить кнопку на селекционный экран. Нашел вот такой пример (взято отсюда: http://www.alekseiseleznev.com/2010/08/blog-post.html):

Цитата:

Кнопка с иконкой в панели инструментов на селекционном экране
Что бы добавить кнопку с иконкой в панели инструментов селекционного экрана, можно сделать следующее:

1. Селекционный экран
SELECTION-SCREEN: FUNCTION KEY 1.

2. Глобальные объявления
TABLES: sscrfields.

2. INITIALIZATION - задаем иконку и подпись
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = 'ICON_PERSONAL_SETTINGS'
text = text-003
info = ' '
IMPORTING
RESULT = sscrfields-functxt_01
EXCEPTIONS
icon_not_found = 1
outputfield_too_short = 2
OTHERS = 3.

3. AT SELECTION-SCREEN - добавляем обработку нажатия
CASE sscrfields-ucomm.
WHEN 'FC01'.
CALL TRANSACTION 'Z_ABCD'.
ENDCASE.

Сделал. При создании кнопки появляется ошибка icon_not_found. Кнопка не появляется.
Что я делаю не так?

Dzed Maroz

Лучше бы соответствующий кусок своего кода выложили.

Bimit

скорее всего в таблице ICONT нет иконки ICON_PERSONAL_SETTINGS или в имени ошибка, смотри отладку в ФМ ICON_CREATE

З.Ы, у меня код работает

вот код

Code:

PARAMETER: p_1 TYPE char1.

*2. Глобальные объявления
TABLES: sscrfields.

*1. Селекционный экран
SELECTION-SCREEN: FUNCTION KEY 1.
SELECTION-SCREEN: FUNCTION KEY 2.
SELECTION-SCREEN: FUNCTION KEY 3.
SELECTION-SCREEN: FUNCTION KEY 4.
SELECTION-SCREEN: FUNCTION KEY 5.

INITIALIZATION. "- задаем иконку и подпись
  CALL FUNCTION 'ICON_CREATE'
    EXPORTING
      name                  = 'ICON_PRINT'
      text                  = text-003
      info                  = ' '
    IMPORTING
      result                = sscrfields-functxt_01
    EXCEPTIONS
      icon_not_found        = 1
      outputfield_too_short = 2
      OTHERS                = 3.


  CALL FUNCTION 'ICON_CREATE'
    EXPORTING
      name                  = 'ICON_CANCEL'
      text                  = text-003
      info                  = ' '
    IMPORTING
      result                = sscrfields-functxt_02
    EXCEPTIONS
      icon_not_found        = 1
      outputfield_too_short = 2
      OTHERS                = 3.

  CALL FUNCTION 'ICON_CREATE'
    EXPORTING
      name                  = 'ICON_SYSTEM_SAVE'
      text                  = text-003
      info                  = ' '
    IMPORTING
      result                = sscrfields-functxt_03
    EXCEPTIONS
      icon_not_found        = 1
      outputfield_too_short = 2
      OTHERS                = 3.

  CALL FUNCTION 'ICON_CREATE'
    EXPORTING
      name                  = 'ICON_EXECUTE_OBJECT'
      text                  = text-003
      info                  = ' '
    IMPORTING
      result                = sscrfields-functxt_04
    EXCEPTIONS
      icon_not_found        = 1
      outputfield_too_short = 2
      OTHERS                = 3.

  CALL FUNCTION 'ICON_CREATE'
    EXPORTING
      name                  = 'ICON_SELECT_DETAIL'
      text                  = text-003
      info                  = ' '
    IMPORTING
      result                = sscrfields-functxt_05
    EXCEPTIONS
      icon_not_found        = 1
      outputfield_too_short = 2
      OTHERS                = 3.


*3.

AT SELECTION-SCREEN. "- добавляем обработку нажатия
CASE sscrfields-ucomm.

  ENDCASE.

Cyrick

А версия САПы какая? Иконка-то такая есть в системе?

Правила форума

Добавить кнопку на селекционный экран

Кто сейчас на конференции