SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-001. PARAMETERS P_WERKS LIKE TEST-WERKS MODIF ID G1. SELECTION-SCREEN END OF BLOCK BL1.
SELECTION-SCREEN BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-002. SELECT-OPTIONS : S_WERKS FOR TEST-WERKS MODIF ID G2, S_MATNR FOR TEST-MATNR MODIF ID G2, S_RDATE FOR TEST-RDATE MODIF ID G2. PARAMETERS : P_LOEKZ LIKE TEST-LOEKZ MODIF ID G2. SELECTION-SCREEN END OF BLOCK BL2.
CASE SY-TCODE. WHEN 'YTEST1'. LOOP AT SCREEN. IF SCREEN-GROUP1 = 'G1'. SCREEN-ACTIVE = '1'. ELSEIF SCREEN-GROUP1 = 'G2'. SCREEN-ACTIVE = '0'. ENDIF. modify SCREEN. ENDLOOP. WHEN 'YTEST2'. LOOP AT SCREEN. IF SCREEN-GROUP1 = 'G1'. SCREEN-ACTIVE = '0'. ELSEIF SCREEN-GROUP1 = 'G2'. SCREEN-ACTIVE = '1'. ENDIF. modify SCREEN. ENDLOOP. ENDCASE. |
소스 설명은.... 안해도 저거 긁어서 직접 해보시면 알듯 합니다 ^^;;;
혹시나 설명 필요하시면 글 남겨 주세요~