大象怒怒的小脚


没有终了漂泊,于是成了树上的精灵.有梦想,却不会飞翔.用自己短短的羽翼,跳跃在迷离的枝头……

首页 新随笔 联系 订阅 管理


REPORT  ZJC20051108_01.
TABLES: T001.

PARAMETERS: G1 RADIOBUTTON GROUP GR1 DEFAULT 'X' USER-COMMAND ZUS1.
PARAMETERS: G2 RADIOBUTTON GROUP GR1.

SELECT-OPTIONS: S1 FOR T001-BUKRS MODIF ID M1.
SELECT-OPTIONS: S2 FOR T001-BUTXT MODIF ID M2.

AT SELECTION-SCREEN.
  IF SY-UCOMM = 'ZUS1'.
    IF G1 IS INITIAL.
      REFRESH S1.
    ELSE.
      REFRESH S2.
    ENDIF.
  ELSE.
    IF NOT G1 IS INITIAL.
      CHECK S1.
    ELSE.
      CHECK S2.
    ENDIF.
  ENDIF.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    CASE SCREEN-GROUP1.
      WHEN 'M1'.
        IF G1 IS INITIAL.
          SCREEN-ACTIVE = '0'. MODIFY SCREEN.
        ENDIF.
      WHEN 'M2'.
        IF G2 IS INITIAL.
          SCREEN-ACTIVE = '0'. MODIFY SCREEN.
        ENDIF.
    ENDCASE.
  ENDLOOP.
posted on 2005-11-08 12:22  大象怒怒  阅读(912)  评论(0编辑  收藏  举报