Age: 38 Joined: 21 Jun 2010 Posts: 10 Location: Сургут
Posted: Wed Sep 22, 2010 1:06 pm Post subject: Экран выбора с RADIOBUTTON.
Добрый день!
Подскажите пожалуйста как поступить.
Есть селекционный экран на нем три raiоbutton-а. При выборе одной из первых двух отключается вожможность ввода в некоторое поле. Но это событие срабатывает только при нажатии на энтер. Можно ли сделать так что б при выборе какой-либо кнопки сразу происходило событие?
Age: 47 Joined: 14 Nov 2008 Posts: 300 Location: Russia
Posted: Wed Sep 22, 2010 3:43 pm Post subject: Re: Экран выбора с RADIOBUTTON.
ask wrote:
Добрый день!
Подскажите пожалуйста как поступить.
Есть селекционный экран на нем три raiоbutton-а. При выборе одной из первых двух отключается вожможность ввода в некоторое поле. Но это событие срабатывает только при нажатии на энтер. Можно ли сделать так что б при выборе какой-либо кнопки сразу происходило событие?
Вы часом не 1 из 2-х оставшихся radiobuttons той же группы скрываете? _________________ ABAP/4 You
У меня такая же проблема CHECKBOX
Только создан он был с помощью Fullscreen Editor. Обработка события наступает только после нажатия Enter.
При добавлении USER-COMMAND, CHECKBOX появляется на первом экране.
Подскажите пожалуйста, в чем проблема?
Age: 48 Joined: 25 Jan 2008 Posts: 580 Location: Москва
Posted: Mon Dec 13, 2010 11:37 am Post subject:
Вот этот код работает:
Code:
PARAMETERS: p_all AS CHECKBOX USER-COMMAND chk,
p_field TYPE bkpf-bukrs MODIF ID all.
DATA: ok_code TYPE sy-ucomm.
AT SELECTION-SCREEN OUTPUT.
PERFORM modify_screen.
START-OF-SELECTION.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS '0100'.
* SET TITLEBAR 'xxx'.
PERFORM modify_screen.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module EXIT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE exit INPUT.
LEAVE TO SCREEN 0.
ENDMODULE. " EXIT INPUT
*&---------------------------------------------------------------------*
*& Form modify_screen
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM modify_screen.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'ALL'.
IF p_all = 'X'.
screen-input = 0.
screen-active = 0.
ENDIF.
WHEN OTHERS.
CONTINUE.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
ENDFORM. "modify_screen
В редакторе экранов нужно преобразовать параметр p_all в независимую кнопку. При этом откроется поле КодФкц, в которое нужно ввести значение "CHK". Для параметра p_field и текста к нему на экране 0100 нужно указать в свойствах группу 1 - "ALL" _________________ С уважением,
Удав.
Спасибо большое, все получилось!!!
Но CHECKBOX появляется и на первом экране.
Первый экран я создал с помощью кода.
Code:
SELECTION-SCREEN BEGIN OF BLOCK mysel WITH FRAME TITLE text-001.
SELECT-OPTIONS pol_mvz FOR MVZ NO-EXTENSION
NO INTERVALS.
SELECT-OPTIONS pol_mol FOR MOL NO-EXTENSION
NO INTERVALS.
SELECT-OPTIONS BE_nom FOR BE NO-EXTENSION
NO INTERVALS.
SELECTION-SCREEN END OF BLOCK mysel.
Last edited by Valera on Fri Dec 17, 2010 10:43 am; edited 1 time in total
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.
Спасибо!
