|
Читайте также: |
.
b) Создайте модуль посредством навигации вперед: дважды щелкните по его имени; выберите Да для подтверждения параметров в диалоговом окне. В следующем диалоговом окне выберите Основная программа и добавьте следующий исходный текст (или удалите символы комментария около него):
SET PF-STATUS ’DYNPRO’.
c) Создайте статус посредством навигации вперед. (Дважды щелкните по имени статуса ’DYNPRO’.)
Выберите Да для подтверждения появившегося диалогового окна.
В следующем диалоговом окне введите краткий текст и выберите тип статуса Статус диалога.
2. Создайте ссылку на созданный ранее статус списка. Активируйте коды функций BACK и SAVE в текущем статусе.
a) Щелкните по пиктограмме ссылки (или нажмите клавишу F4) для перехода строке меню. Создайте ссылку на существующую строку меню посредством двойного щелчка.
b) Щелкните по пиктограмме ссылки (или нажмите клавишу F4) для перехода к функциональным клавишам. Создайте ссылку на существующие значения функциональных клавиш посредством двойного щелчка.
c) Активируйте функции SAVE и BACK, для чего установите курсор на код функции в меню или на присвоении функциональных клавиш и нажмите кнопку Активно <-> Неактивно.
d) Активируйте статус, экран и программу.
3. Дополнительно: GUI-заголовок для экрана
Определите и присвойте заголовок для экрана посредством навигации вперед.
a) В модуле STATUS_0100 добавьте оператор SET TITLEBAR
’DYNPRO’.
b) Создайте заголовок посредством навигации вперед и введите текст заголовка в диалоговом окне.
Продолжение на следующей странице
c) Активируйте программу и интерфейс.
Результат
Выдержка из исходного текста SAPBC400UDS_DYNPRO_4:
REPORT sapbc400uds_dynpro_4.
...
START-OF-SELECTION.
SET PF-STATUS ’LIST’.
SET TITLEBAR ’LIST’. "optional
SELECT carrid connid fldate bookid
FROM sbook
INTO CORRESPONDING FIELDS OF wa_sbook
WHERE agencynum = pa_anum.
...
AT LINE-SELECTION.
...
*&--------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT *
*&--------------------------------------------------------------*
* text *
*---------------------------------------------------------------* MODULE STATUS_0100 OUTPUT.
SET PF-STATUS ’DYNPRO’.
SET TITLEBAR ’DYNPRO’. "optional
ENDMODULE. " STATUS_0100 OUTPUT
*&--------------------------------------------------------------*
*& Module CLEAR_OK_CODE OUTPUT *
*&--------------------------------------------------------------*
*& text *
*---------------------------------------------------------------* MODULE clear_ok_code OUTPUT.
CLEAR ok_code.
ENDMODULE. " CLEAR_OK_CODE OUTPUT
*&--------------------------------------------------------------*
Продолжение на следующей странице
*& Module USER_COMMAND_0100 INPUT *
*&--------------------------------------------------------------*
*& text *
*&--------------------------------------------------------------* MODULE user_command_0100 INPUT.
CASE ok_code.
WHEN ’BACK’.
SET SCREEN 0. WHEN ’SAVE’.
MOVE-CORRESPONDING sdyn_book TO wa_sbook.
MESSAGE i060(bc400). SET SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
Логика выполнения для экрана 100:
PROCESS BEFORE OUTPUT.
Дата добавления: 2015-11-16; просмотров: 35 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| SET PF-STATUSи SET TITLEBAR | | | MODULE status_0100. |