Текущее время: Вт, июл 22 2025, 03:37

Часовой пояс: UTC + 3 часа


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


ВНИМАНИЕ!

Вопросы по SAP Query и Quick View - сюда



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Не создается интерактивный список
СообщениеДобавлено: Чт, янв 31 2013, 19:32 
Ассистент
Ассистент

Зарегистрирован:
Вс, дек 09 2012, 16:41
Сообщения: 37
Добрый день!
Потихоньку осваиваю ABAP, для себя делая простенькие программы и экспериментируя на них.

Есть код:

CONSTANTS actvt_display TYPE activ_auth VALUE '03'.
PARAMETERS pa_con TYPE sbook-connid.

* workarea for SELECT
DATA wa_sbook TYPE sbook.

TABLES sdyn_book.

DATA ok_code LIKE sy-ucomm.

INITIALIZATION.

SET TITLEBAR 'LIST0'.


START-OF-SELECTION.

*SET PF-STATUS 'LIST'.
*SET TITLEBAR 'LIST'.



SELECT carrid connid fldate bookid
FROM sbook
INTO CORRESPONDING FIELDS OF wa_sbook
WHERE connid = pa_con.

* AUTHORITY-CHECK OBJECT 's_carrid'
* ID 'CARRID' FIELD wa_sbook-carrid
* ID 'ACTVT' FIELD actvt_display.


IF sy-subrc = 0.

WRITE: / wa_sbook-carrid COLOR COL_KEY,
wa_sbook-connid,
wa_sbook-fldate COLOR COL_KEY,
wa_sbook-bookid COLOR COL_KEY.
HIDE: wa_sbook-carrid,
wa_sbook-connid,
wa_sbook-fldate,
wa_sbook-bookid.

ENDIF.
ENDSELECT.


CLEAR wa_sbook.

AT LINE-SELECTION.

SELECT SINGLE * FROM sbook INTO wa_sbook
WHERE carrid = wa_sbook-carrid AND connid = wa_sbook-connid AND fldate = wa_sbook-fldate AND bookid = wa_sbook-bookid.

IF sy-subrc = 0.

MOVE-CORRESPONDING wa_sbook TO sdyn_book.
CALL SCREEN 100.

ENDIF.

module STATUS_0100 output.

SET PF-STATUS 'DYNPRO'.
SET TITLEBAR 'DYNPRO'.

endmodule.
*&---------------------------------------------------------------------*
*& 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.


Эта просто тренировочная программа, где пользователю предлагается выбрать для просмотра определенную инфу (поле параметерс), на экран типа лист выводятся какие-то данные (соответствующие полю параметерс), щелкнув по определенной строке списка мы переходим на диалоговый экран.

Так вот. При закомменченной строке определения статуса экрана ( выделено жирным курсивом), программа работает как надо. При назначении экрану соответствующего статуса при двойном клике по нужной строке программа не откликается ( не создает интерактивный список). Тип статуса: диалоговое окно. Я так понимаю, что дело в статусе экрана, но не могу разобраться: в чем именно? У кого какие идеи?

Спасибо!


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Не создается интерактивный список
СообщениеДобавлено: Пт, фев 01 2013, 23:39 
Младший специалист
Младший специалист
Аватара пользователя

Зарегистрирован:
Чт, окт 08 2009, 05:37
Сообщения: 70
Пол: Мужской
В GUI-статусе LIST создайте функциональный код PICK и присвойте его функциональной клавише F2.
см. справку к AT LINE-SELECTION


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC + 3 часа


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB