Динамически спрятать и показать блок на селекционный экран

AlexanderGamov

Вопрос по ABAP/4: Исходные данные: 1) Селекционный экран 2) Параметр (типа CHECKBOX) 3) Блок дополнительных параметров. Вопрос: Можно ли спрятать, по событию нажатия на checkbox, блок параметров (то есть, если checked - то блок дополнительных параметров появляется на селекционный экран, если not checked то прячем блок параметров). В идеале хотелось бы посмотреть на рабочий код.

RA

Что ж Вы вопрос по ABAP задаете в форуме по BI?

погуглите AT SELECTION-SCREEN OUTPUT :

Code:

selection-screen :begin of block test with frame title text-001. 
parameters:p_rad1 radiobutton group one user-command test, 
                 p_rad2 radiobutton group one. 
selection-screen:end of block test. 
selection-screen:begin of block test2 with frame title text-002. 
parameters:p_file(10) TYPE C MODIF ID TL, 
                 p_file1(10) TYPE C MODIF ID TT. 
selection-screen:end of block test2. 
    
AT SELECTION-SCREEN OUTPUT. 
  IF P_RAD1 = 'X'. 
      LOOP AT SCREEN. 
          CHECK SCREEN-GROUP1 = 'TT'. 
          SCREEN-INPUT = '0'. 
          MODIFY SCREEN. 
      ENDLOOP. 
  ENDIF. 

  IF P_RAD2 = 'X'. 
      LOOP AT SCREEN. 
         CHECK SCREEN-GROUP1 = 'TL'. 
         SCREEN-INPUT = '0'. 
         MODIFY SCREEN. 
      ENDLOOP. 
  ENDIF.

AlexanderGamov

Меня интересует можно ли динамически спрятать сам блок параметров, а не сделать недоступным для редактирования одного из полей. Но за ответ спасибо...

funtik

открытие скрытие по нажатию кнопки:

Code:

*-------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
*-------------------------------------------------------------------*
* если скрытые параметры заполнены, то параметры открываем.
  IF hp_BUKRS[] IS NOT INITIAL OR
     hp_GSBER[] IS NOT INITIAL OR
     hp_AUFEX[] IS NOT INITIAL .
    gd_hide_f = 'X'.
    CONCATENATE ICON_COLLAPSE 'Дополнительные параметры'
      INTO sscrfields-functxt_01.
  ENDIF.

  LOOP AT SCREEN.
*   динамические ограничения
    IF screen-NAME CP '*HP_*' AND gd_hide_f = 'X'.
      screen-INVISIBLE = '0'.
      screen-active = '1'.
      MODIFY SCREEN.
    ELSEIF screen-NAME CP '*HP_*' AND gd_hide_f = space.
      screen-INVISIBLE = '1'.
      screen-active = '0'.
      MODIFY SCREEN.    ENDIF.
  ENDLOOP.

ну и дополнительно к этому...

Code:

*&---------------------------------------------------------------------*
   AT SELECTION-SCREEN.
*&---------------------------------------------------------------------*
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      IF gd_hide_f IS INITIAL.
        gd_hide_f = 'X'.
        CONCATENATE ICON_COLLAPSE 'Дополнительные параметры'
          INTO sscrfields-functxt_01.

      ELSE.
        CLEAR: gd_hide_f,
              hp_BUKRS,hp_BUKRS[],
              hp_GSBER,hp_GSBER[],
              hp_AUFEX,hp_AUFEX[].
        CONCATENATE ICON_EXPAND 'Дополнительные параметры'
          INTO sscrfields-functxt_01.
      ENDIF.
 .....
  ENDCASE.

AlexanderGamov

Спасибо за ответы, проблема решена, если кому интересно мне нужно было именно вот это (P.S. Извиняюсь, за то что запостил тему не в соответствующем разделе, действительно содержимое не коим образом не относиться к модулю BI ). Итак код:

REPORT ZTESTETSET.

SELECTION-SCREEN BEGIN of BLOCK screen1 WITH FRAME TITLE title1.
PARAMETERS: Show RADIOBUTTON GROUP opt USER-COMMAND aaa DEFAULT 'X',
Hide RADIOBUTTON GROUP opt .
SELECTION-SCREEN END OF BLOCK screen1.

SELECTION-SCREEN BEGIN of BLOCK screen2 WITH FRAME TITLE title2.
PARAMETER CONNID like spfli-connid.
SELECTION-SCREEN END OF BLOCK screen2.

AT SELECTION-SCREEN OUTPUT.
PERFORM modify_screen.

START-OF-SELECTION.

FORM modify_screen .
LOOP AT SCREEN.
IF Show NE 'X'.
IF screen-name CS 'CONNID'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.

"Give the selection block a title.
INITIALIZATION.

title1 = 'Show/Hide Option'.

Динамически спрятать и показать блок на селекционный экран

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