SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Как убрать кнопку Выполнить-F8 с селекционного экрана?



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP
View previous topic :: View next topic  
Author Message
firacat
Специалист
Специалист



Joined: 20 Apr 2011
Posts: 80
Location: Ukraine
PostPosted: Mon Sep 26, 2011 12:08 pm    Post subject: Как убрать кнопку Выполнить-F8 с селекционного экрана? Reply with quote
Добрый день такой вопрос!!
Я создаю программу отчет, с помощью селектион скрин, добавляю свою функциональные клавиши, то есть мне кнопка "Выполнить F8" не нужна на селекционном экране.
Вопрос: Подскажите плиз как ее можно убрать, чтоб не путать пользователя, заранее спасибо!!

2011-09-26_110823.jpg
 Description:
 Filesize:  6.68 KB
 Viewed:  15074 Time(s)

2011-09-26_110823.jpg
Back to top
View user's profile Send private message
vga
Мастер
Мастер


Age: 170
Joined: 04 Oct 2007
Posts: 1218
Location: Санкт-Петербург
PostPosted: Mon Sep 26, 2011 12:19 pm    Post subject: Reply with quote
Code:
INITIALIZATION.
  DATA itab TYPE TABLE OF sy-ucomm.

  APPEND: 'ONLI' TO itab.
  CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
       EXPORTING
            p_status  = sy-pfkey
       TABLES
            p_exclude = itab.

_________________
Молитва - это запрос разработчику на изменение кода программы.
Back to top
View user's profile Send private message Blog Visit poster's website
firacat
Специалист
Специалист



Joined: 20 Apr 2011
Posts: 80
Location: Ukraine
PostPosted: Mon Sep 26, 2011 12:34 pm    Post subject: Reply with quote
vga wrote:
Code:
INITIALIZATION.
  DATA itab TYPE TABLE OF sy-ucomm.

  APPEND: 'ONLI' TO itab.
  CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
       EXPORTING
            p_status  = sy-pfkey
       TABLES
            p_exclude = itab.


А можно по подробнее описать механизм?, просто вставкой кода не получилось :-/
Back to top
View user's profile Send private message
Удав
Гуру
Гуру


Age: 48
Joined: 25 Jan 2008
Posts: 580
Location: Москва
PostPosted: Mon Sep 26, 2011 12:44 pm    Post subject: Reply with quote
А в каком событии Вы устанавливаете свой PF-статус на экране выбора? Приведите код.
_________________
С уважением,
Удав.
Back to top
View user's profile Send private message
firacat
Специалист
Специалист



Joined: 20 Apr 2011
Posts: 80
Location: Ukraine
PostPosted: Mon Sep 26, 2011 12:47 pm    Post subject: Reply with quote
Удав wrote:
А в каком событии Вы устанавливаете свой PF-статус на экране выбора? Приведите код.

PF-Status я не использую кнопки создаю так: и соответственно присваиваю им код обработки, я новичок в Апабе, так что может что-то неправильно:

INCLUDE Z_MM_MOVE_PROIZVOD_TMC_DATA.

SELECTION-SCREEN BEGIN OF SCREEN 100.
SELECTION-SCREEN: FUNCTION KEY 1,
FUNCTION KEY 2.
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) TEXT-002.
PARAMETER P_TEMP RADIOBUTTON GROUP gr .
SELECTION-SCREEN COMMENT 40(36) TEXT-003.
PARAMETER P_SAVE RADIOBUTTON GROUP gr.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN ULINE.
PARAMETER P_KVART DEFAULT 1 AS LISTBOX VISIBLE LENGTH 4 OBLIGATORY.
PARAMETER P_YEAR LIKE MSEG-GJAHR OBLIGATORY DEFAULT '2011'.
PARAMETER PBUKRS LIKE MSEG-BUKRS OBLIGATORY DEFAULT '3000'.
SELECTION-SCREEN END OF BLOCK 1.
SELECTION-SCREEN END OF SCREEN 100 .

SELECTION-SCREEN BEGIN OF SCREEN 200.
SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN: FUNCTION KEY 3,
FUNCTION KEY 4.
PARAMETER P_FILE TYPE rlgrap-filename .
SELECTION-SCREEN END OF BLOCK 2.
SELECTION-SCREEN END OF SCREEN 200 .

INITIALIZATION.

functxt-icon_id = ICON_SYSTEM_ADMINISTRATOR.
functxt-icon_text = 'Администрирование программы'.
sscrfields-functxt_01 = functxt.

functxt-icon_text = 'Формирование отчета'.
functxt-icon_id = ICON_BIW_REPORT.
sscrfields-functxt_02 = functxt.

functxt-icon_id = ICON_XLS.
functxt-icon_text = 'Закачать данные с Excel'.
sscrfields-functxt_03 = functxt.

functxt-icon_text = 'Очистить базу'.
functxt-icon_id = ICON_DELETE.
sscrfields-functxt_04 = functxt.
G_REPID = SY-REPID.

CALL SCREEN 100.

AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'FC01'.
CALL SELECTION-SCREEN 200.
WHEN 'FC02'.
PERFORM CREATE_REPORT.
WHEN 'FC03'.
PERFORM UPLOAD_TO_DB.
WHEN 'FC04'.
PERFORM DELETE_DB.
WHEN OTHERS.
...
ENDCASE.
Back to top
View user's profile Send private message
Удав
Гуру
Гуру


Age: 48
Joined: 25 Jan 2008
Posts: 580
Location: Москва
PostPosted: Mon Sep 26, 2011 1:52 pm    Post subject: Reply with quote
1.Сначала создаете свой PF-статус(например, копированием статуса %_00 из программы RSSYSTDB в свою программу)
2.Изменяете свой статус (убираете кнопку "Выполнить", добавляете свои кнопки
3.Устанавливаете свой статус с помощью ФМ RS_SET_SELSCREEN_STATUS в событии AT SELECTION-SCREEN OUTPUT
См. отчет RKABCCD5 для примера.
_________________
С уважением,
Удав.
Back to top
View user's profile Send private message
firacat
Специалист
Специалист



Joined: 20 Apr 2011
Posts: 80
Location: Ukraine
PostPosted: Mon Sep 26, 2011 4:37 pm    Post subject: Reply with quote
Спасибо всем за ответы! Все получилось!!!

DATA GT_EXCLUDE TYPE TABLE OF RSEXFCODE WITH HEADER LINE.

INITIALIZATION.
GT_EXCLUDE-FCODE = 'ONLI'.
APPEND GT_EXCLUDE.

AT SELECTION-SCREEN OUTPUT.

CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
EXPORTING
P_STATUS = '%_00'
P_PROGRAM = 'RSSYSTDB'
TABLES
P_EXCLUDE = GT_EXCLUDE[].
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.