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

Radio Buttons, пример



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



Joined: 30 Nov 2007
Posts: 127
PostPosted: Fri Sep 19, 2008 5:13 pm    Post subject: Radio Buttons, пример Reply with quote
Нужно поставить на Dynpro 3-4 взаимосвязанные радиокнопки.
Подскажите, пож-та, пример, где можно посмотреть, как работать с радиокнопками на Dynpro, а то у меня они что-то не работают
Back to top
View user's profile Send private message
XXX_:)
Аналитик
Аналитик


Age: 40
Joined: 01 Feb 2008
Posts: 387
Location: Воронеж
PostPosted: Fri Sep 19, 2008 6:15 pm    Post subject: Reply with quote
Транзакция ABAPDOCU, из меню, например из se80, среда->примеры->ABAP-примеры или примеры управляющего элеманта.
Хелп F1.
Code:
PARAMETERS:

            r1 RADIOBUTTON GROUP rad2 ,

            r2 RADIOBUTTON GROUP rad2 ,

            r3 RADIOBUTTON GROUP rad2 .

START-OF-SELECTION.
if r1 = 'X'.

elseif r2 =  'X'.

elseif r3 = 'X'.

endif.

_________________
Hормальные люди делают вещи намного более безумные чем всё, что делают сумасшедшие (c) С.Лем
Back to top
View user's profile Send private message Blog
Alex80
Старший специалист
Старший специалист


Age: 43
Joined: 24 Jan 2008
Posts: 129
PostPosted: Sat Sep 20, 2008 11:11 am    Post subject: Re: Radio Buttons, пример Reply with quote
cbw07 wrote:
Нужно поставить на Dynpro 3-4 взаимосвязанные радиокнопки.
Подскажите, пож-та, пример, где можно посмотреть, как работать с радиокнопками на Dynpro, а то у меня они что-то не работают

Выделяете нужные radiobuttons курсором в блок, потом правой кнопкой кликаете и context menu выбираете "Группа зависимых кнопок" - "Определить".
Back to top
View user's profile Send private message
cbw07
Старший специалист
Старший специалист



Joined: 30 Nov 2007
Posts: 127
PostPosted: Mon Sep 22, 2008 10:42 am    Post subject: Reply with quote
Alex80, спасибо.
Именно это мне и нужно было
Back to top
View user's profile Send private message
cbw07
Старший специалист
Старший специалист



Joined: 30 Nov 2007
Posts: 127
PostPosted: Mon Sep 22, 2008 11:46 am    Post subject: Reply with quote
Еще 1 вопрос.
У меня в Dynpro_100 стоит текстовое поле dy0100-erdat с текущей датой.
В MODULE user_command_0100 я вызываю Dynpro_200 с радиокнопками.
Там в зависимости от выбранной кнопки присваиваю некой переменной my_date нужную дату, после чего по кнопке BTN_OK возвращаюсь в Dynpro_100 и присваиваю значение my_date текстовому полю dy0100-erdat на Dynpro_100.
Но вопрос в том, как мне обновить это значение в текстовом поле? Потому что оно показывается по-прежнему текущей датой, как и до вызова Dynpro_200.

Вот код:

Code:
DATA: my_date TYPE d.

DATA: BEGIN OF dy0100,
.......
               erdat     TYPE d,
.......
        END OF dy0100.

.......

MODULE user_command_0100 INPUT.
....
  CASE h-okcode.
    WHEN 'OPEN'.
      CALL SCREEN 200.
      MOVE my_date TO dy0100-erdat.
......
ENDMODULE.                 " USER_COMMAND_0100  INPUT


MODULE user_command_0200 INPUT.

  copy_ok_code = ok_code.
  CLEAR ok_code.

  CASE sy-ucomm.
...
     WHEN 'BTN_OK'.
      IF radio_2 = 'X'.
        MOVE '20070601' TO my_date.
      ELSEIF radio_1 = 'X'.
        MOVE '20070901' TO my_date.
       ELSE.
        MOVE '20071201' TO my_date.
       ENDIF.

      LEAVE TO SCREEN 100.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0200  INPUT
 
Back to top
View user's profile Send private message
John Doe
Модератор
Модератор


Age: 45
Joined: 05 Nov 2007
Posts: 725
Location: КраснАдар
PostPosted: Mon Sep 22, 2008 12:00 pm    Post subject: Reply with quote
Просто LEAVE SCREEN сделайте. А то когда LEAVE TO SCREEN 100 - Вы не в PAI вернетесь, а сразу в PBO.
Back to top
View user's profile Send private message Blog
cbw07
Старший специалист
Старший специалист



Joined: 30 Nov 2007
Posts: 127
PostPosted: Mon Sep 22, 2008 12:40 pm    Post subject: Reply with quote
я уже по-всякому пробовал, но значение поля не меняется

1. LEAVE TO SCREEN 100.

2. SET SCREEN 100.
LEAVE SCREEN.

3. LEAVE SCREEN.
(вообще не возвращаюсь к 100, остаюсь стоять на 200)
Back to top
View user's profile Send private message
cbw07
Старший специалист
Старший специалист



Joined: 30 Nov 2007
Posts: 127
PostPosted: Mon Sep 22, 2008 12:48 pm    Post subject: Reply with quote
SET SCREEN 0.
LEAVE SCREEN.

сработало
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.