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.