首页 > 代码库 > ABAP屏幕设计
ABAP屏幕设计
******************** 屏幕變動 ***************************************************************
AT SELECTION-SCREEN OUTPUT.
IF R1 = ‘X‘.
CLEAR: P_KDAUF[],
P_KDPOS[],
P_PROJN[],
P_DISPO2[],
P_DISPO3[],
P_LGORT2[],
P_LGORT3[].
LOOP AT SCREEN.
IF SCREEN-GROUP1 = ‘SC2‘ OR SCREEN-GROUP1 = ‘SC3‘.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSEIF R2 = ‘X‘.
CLEAR: P_AUFNR[],
P_PWERK[],
P_LGORT[],
P_PROJN[],
P_DISPO3[],
P_LGORT3[].
LOOP AT SCREEN.
IF SCREEN-GROUP1 = ‘SC1‘ OR SCREEN-GROUP1 = ‘SC3‘.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSE.
CLEAR: P_AUFNR[],
P_PWERK[],
P_LGORT[],
P_KDAUF[],
P_KDPOS[],
P_DISPO2[],
P_LGORT2[].
LOOP AT SCREEN.
IF SCREEN-GROUP1 = ‘SC1‘ OR SCREEN-GROUP1 = ‘SC2‘.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
ABAP屏幕设计