메뉴 건너뛰기

SAP 한국 커뮤니티

조회조건 동적으로 보이기

신종철™ 2007.08.21 03:38 조회 수 : 4837 추천:13

도움이 되셨으면 좋겠습니다.


소스 그냥 통채로 올립니다.


 


SELECTION-SCREEN BEGIN OF LINE. 
SELECTION-SCREEN COMMENT 5(18) text-009. 
PARAMETERS : p_rb1 RADIOBUTTON GROUP rbg USER-COMMAND ucom DEFAULT 'X'. 
SELECTION-SCREEN COMMENT 30(24) text-010. 
PARAMETERS : p_rb2 RADIOBUTTON GROUP rbg.
SELECTION-SCREEN END OF LINE.



AT SELECTION-SCREEN OUTPUT.
  PERFORM field_hide_by_radiobutton.



*&---------------------------------------------------------------------*
*&      Form  field_hide_by_radiobutton
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM field_hide_by_radiobutton .



  IF p_rb1 EQ 'X'.
    LOOP AT SCREEN.
      IF screen-name EQ '%C006012_1000' OR
         screen-name EQ '%_S_VDATU_%_APP_%-OPTI_PUSH' OR
         screen-name EQ 'S_VDATU-LOW' OR
         screen-name EQ '%_S_VDATU_%_APP_%-TO_TEXT' OR
         screen-name EQ 'S_VDATU-HIGH' OR
         screen-name EQ '%C007016_1000' OR
         screen-name EQ '%_S_GWLDT_%_APP_%-OPTI_PUSH' OR
         screen-name EQ 'S_GWLDT-LOW' OR
         screen-name EQ '%_S_GWLDT_%_APP_%-TO_TEXT' OR
         screen-name EQ 'S_GWLDT-HIGH' OR
         screen-name EQ '%C008020_1000' OR
         screen-name EQ '%_S_AUDAT_%_APP_%-OPTI_PUSH' OR
         screen-name EQ 'S_AUDAT-LOW' OR
         screen-name EQ '%_S_AUDAT_%_APP_%-TO_TEXT' OR
         screen-name EQ 'S_AUDAT-HIGH' OR
         screen-name EQ '%B002024_BLOCK_1000' OR
         screen-name EQ '%C003026_1000' OR
         screen-name EQ '%_S_SPART_%_APP_%-OPTI_PUSH' OR
         screen-name EQ 'S_SPART-LOW' OR
         screen-name EQ '%_S_SPART_%_APP_%-VALU_PUSH' OR
         screen-name EQ '%C004030_1000 ' OR
         screen-name EQ '%_S_VKBUR_%_APP_%-OPTI_PUSH' OR
         screen-name EQ 'S_VKBUR-LOW' OR
         screen-name EQ '%_S_VKBUR_%_APP_%-VALU_PUSH' OR
         screen-name EQ '%C005034_1000' OR
         screen-name EQ '%_S_VKGRP_%_APP_%-OPTI_PUSH' OR
         screen-name EQ 'S_VKGRP-LOW' OR
         screen-name EQ '%_S_VKGRP_%_APP_%-VALU_PUSH' OR
         screen-name EQ '%_17SNS0000652317_%_%_%_%_%_%_' OR
         screen-name EQ 'SSCRFIELDS-UCOMM'.



        screen-active = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ELSE.



    LOOP AT SCREEN.
      IF screen-name EQ '%_P_VBELN_%_APP_%-TEXT' OR
         screen-name EQ 'P_VBELN'.
        screen-active = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.



ENDFORM.                    "" field_hide_by_radiobutton"


 


<< 발췌는 역시나 http://www.storyroom.net >>