选择屏幕按钮

REPORT  ZTEST_20141201 .

TABLES :PRPS ,AUFK ,VBAK ,ZKP280T .
SELECTION-SCREEN  BEGIN  OF  BLOCK  001 .
PARAMETERS : P_WERKS  TYPE AUFK -WERKS  DEFAULT  3000 OBLIGATORY .
SELECT-OPTIONS : S_POSID  FOR PRPS -POSID ,  "製番（WBS要素）PLAF-PSPEL
                S_PSPEL  FOR AUFK -PSPEL  MATCHCODE OBJECT PRPM  .
PARAMETERS :P_RPRINT  TYPE  C  AS  CHECKBOX .
SELECTION-SCREEN  END  OF  BLOCK  001 .

SELECTION-SCREEN : PUSHBUTTON  2 ( 10 )  but1  USER-COMMAND CLI1 .
TABLES SSCRFIELDS .
SELECTION-SCREEN  FUNCTION  KEY  1 .

INITIALIZATION .
CONCATENATE icon_message_information  '按钮CLI1'  INTO but1 .


MOVE   '按钮FC01'  TO SSCRFIELDS -FUNCTXT_01 .

AT  SELECTION-SCREEN .
   IF SSCRFIELDS -ucomm  =  'FC01' .
       BREAK-POINT .
   ELSEIF SSCRFIELDS -ucomm  =  'CLI1' .
     BREAK-POINT .

  ENDIF.