SELECTION-SCREEN BEGIN OF BLOCK lists WITH FRAME TITLE text-001.
if pa_mon = 'X'. 요청내역만 확장시
SELECT-OPTIONS: s_WERKS for marc-WERKS MODIF ID MD1,
s_MATNR for mara-MATNR MODIF ID MD1.
ELSEIF pa_mon1 = 'X'. 요청승인절체제외 자제확장시
PARAMETERS : P_WERKS1 LIKE marc-WERKS MODIF ID MD2 .
SELECT-OPTIONS : S_MATNR1 for mara-MATNR MODIF ID MD2.
ENDIF.
SELECTION-SCREEN END OF BLOCK lists.
SELECTION-SCREEN END OF BLOCK main.
AT SELECTION-SCREEN OUTPUT.
if pa_mon = 'X'.
loop at screen.
if screen-group1 = 'MD1'.
* SCREEN-INVISIBLE = 0.
screen-active = 1.
modify screen.
endif.
endloop.
else.
loop at screen.
if screen-group1 = 'MD1'.
* SCREEN-INVISIBLE = 0.
screen-active = 0.
modify screen.
endif.
endloop.
endif.
if pa_mon1 = 'X'.
loop at screen.
if screen-group1 = 'MD2'.
* SCREEN-INVISIBLE = 0.
screen-active = 1.
modify screen.
endif.
endloop.
else.
loop at screen.
if screen-group1 = 'MD2'.
* SCREEN-INVISIBLE = 0.
screen-active = 0.
modify screen.
endif.
endloop.
ENDIF.
LOOP AT SCREEN.
IF SCREEN-NAME CS ' P_WERKS1'.
CASE pa_mon1 .
WHEN SPACE. SCREEN-REQUIRED = '0'.
WHEN 'X'. SCREEN-REQUIRED = '2'.
ENDCASE.
ENDIF.
IF SCREEN-NAME CS 'S_MATNR1-LOW'.
CASE pa_mon1 .
WHEN SPACE. SCREEN-REQUIRED = '0'.
WHEN 'X'. SCREEN-REQUIRED = '2'.
ENDCASE.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
플랜트 부분만 필수표시가 되지 않는 이유는 몬지
알려주시면 감사하겠습니다.
