ABAP屏幕设计

转自 http://www.cnblogs.com/aBaoRong/archive/2012/06/05/2536591.html

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.