Здесь доделаем наш GUI статус, который мы начали создавать в статье http://fibed.net/N/, т.е добавим несколько кнопок на стандартной панели и сделаем их активными. По окончании работы будет активна только кнопка Back. Остальные кнопки каждый может добавить по желанию, здесь же главное показать принцип как это делается. Зайдем в режим редактирования GUI-status через транзакцию SE80.

Развернем Function Keys.

Нажимаем кнопку изменить. Добавим в нашем статусе активную кнопку,  пишем слово BACK на кнопке.

Нажимаем на саму стрелку. Выскочило окно где можно задать атрибуты. Оставляем все как есть.

Сохраняем и активируем статус. Запустим на выполнение программу. Видим что в стандартном меню появилась активная кнопка. Но пока эта кнопка ничего выполнять не будет.

Сделаем активной эту кнопку.

Зайдем в режим редактирования экрана. Перейдем на вкладку Flow logic.

Раскоментируем строку MODULE USER_COMMAND_0100 и сохраним экран.

Двойной клик на MODULE USER_COMMAND_0100. Выскочило модальное окно, которое предлагает создать нам PAI модуль.

Нажимаем YES.

Выбираем как New Include в программе. Выскочило предупреждающее окно, нажимаем Enter.

Сохраняем в транспортный запрос.

Появился следующий редактор.

Набирем там следующдий код.

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE PROGRAM.
  ENDCASE.

ENDMODULE.

Сохраняем и активируем модуль, также активируем и главную программу. Запустив на выполнение и нажав кнопку BACK(F3) нас вернет в ABAP редактор текста главной программы, значит кнопка активна и работает. В навигаторе объектов и в тексте программы появились новые объекты.

Следующая статья - http://fibed.net/Q/  - работа с сообщениями - Message class.