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