第一张图

第二张图

代码:

 REPORT  zgntest1.

TABLES:likp.

SELECTION-SCREEN BEGIN OF BLOCK rdg1 WITH FRAME TITLE s1.
SELECT-OPTIONS: wadat FOR likp-wadat_ist OBLIGATORY DEFAULT sy-datum,  "单据日期
                vbeln FOR likp-vbeln MODIF ID gnn,  "单据编号
                ernam FOR likp-ernam.


PARAMETERS e1 AS CHECKBOX USER-COMMAND strt.
SELECTION-SCREEN END OF BLOCK rdg1.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.

    IF e1 EQ 'X' AND screen-group1 = 'GNN'.
      screen-invisible = 1.
      screen-active = 0.
      MODIFY SCREEN.

    ENDIF.

  ENDLOOP.

posted on 2011-12-31 13:56  风语/仝  阅读(4842)  评论(0编辑  收藏  举报