도움이 되셨으면 좋겠습니다.
소스 그냥 통채로 올립니다.
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 >>
댓글 5
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
168 | ICON ascii code [3] | sapjoy | 2007.10.05 | 5035 |
167 | ABAP TIP [4] | 둘리67 | 2007.10.03 | 5996 |
166 | 너무도 당연해서 가끔 잊곤하는 공기와 같은 존재 'F1' key [5] | 백혜정 | 2007.09.19 | 4079 |
165 | AT 구문에 대한 설명입니다. [6] | 김창훈 | 2007.08.16 | 5791 |
164 | 제가 모은 팁들입니다. [62] | 풍운사랑 | 2007.09.08 | 5597 |
163 | OK Code Values... 흠,,, [1] | 김창훈 | 2007.08.31 | 4696 |
162 | Image를 화면에 보여주는 방법 [1] | 정두영 | 2007.08.31 | 6254 |
161 | 테이블 update 프로그램 [4] | sapjoy | 2007.08.30 | 4808 |
160 | System field 정리한 내용이에요 [4] | 김창훈 | 2007.08.22 | 5539 |
» | 조회조건 동적으로 보이기 [5] | 신종철™ | 2007.08.21 | 4837 |
158 | 스페이스를 2자리로 먹을때 1자리로 먹게 바꾸기 [1] | 신종철™ | 2007.08.21 | 3998 |
157 | ABAP 문법 2nd [8] | 아일락 | 2007.08.20 | 3956 |
156 | ABAP 문법 1st [13] | 아일락 | 2007.08.20 | 4595 |
155 | 엑셀 65000 라인초과시 사용 유틸 [5] | GG | 2007.08.20 | 5336 |
154 | 플랜트로 회사코드와 기준통화 찾기 [8] | 김창훈 | 2007.08.17 | 5655 |
153 | 속도개선하기....INDEX를 이렇게도 쓰네용~~ [9] | 김창훈 | 2007.08.15 | 5426 |
152 | 텍스트반영시(자재명,저장위치명 기타등등) 속도개선 방법 [6] | 김창훈 | 2007.08.15 | 6051 |
151 | ALV 중간 집계 하기 [3] | 신종철 | 2007.08.10 | 4828 |
150 | 4.6에서 ALV 필드 변경 안될때 버퍼 지우는 방법 | 신종철 | 2007.08.10 | 4803 |
149 | ABAP System Fields | 홍성현 | 2007.08.10 | 3935 |