Здесь доделаем наш 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.
Комментарии