页面中Ridos Button & Chech Box等控件

*&---------------------------------------------------------------------*
*& Report ZGLNSQ02
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zglnsq02 MESSAGE-ID zg NO STANDARD PAGE HEADING.

TABLES : sscrfields.

SELECTION-SCREEN BEGIN OF BLOCK a_block WITH FRAME TITLE title1.
PARAMETERS : p_vbeln LIKE vbak-vbeln OBLIGATORY MEMORY ID aun.
SELECTION-SCREEN PUSHBUTTON /1(20) charly USER-COMMAND abcd.
SELECTION-SCREEN PUSHBUTTON /1(20) bravo USER-COMMAND disp.
SELECTION-SCREEN ULINE.
PARAMETERS : p_con RADIOBUTTON GROUP g1,
                p_can RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK a_block.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE title2.
PARAMETERS:
    p_primm   AS CHECKBOX,               " for Invoice list
    p_11      AS CHECKBOX MEMORY ID ck1, " for Packing list
    p_12      AS CHECKBOX MEMORY ID ck2. " for Invoice For Interest
SELECTION-SCREEN END OF BLOCK b2.

INITIALIZATION.
title1 = 'Moonsung Test'.
title2 = 'Check box List'.
MOVE 'Change History' TO charly.
MOVE 'Display Quotation' TO bravo.
SET PARAMETER ID 'CK1' FIELD p_11.
SET PARAMETER ID 'CK2' FIELD p_12.

START-OF-SELECTION.
IF p_con = 'X'.
    WRITE :/ 'You Select the Confirm'.
ENDIF.
IF p_can = 'X'.
    WRITE :/ 'You Select the Cancel'.
ENDIF.
IF p_primm = 'X'.
    WRITE :/ 'You Select the Invoice list'.
ENDIF.
IF p_11 = 'X'.
    WRITE :/ 'You Select the Packing list'.
ENDIF.
IF p_12 = 'X'.
    WRITE :/ 'You Select the Invoice For Interest'.
ENDIF.

AT SELECTION-SCREEN.
IF sscrfields-ucomm = 'ABCD'.
    MESSAGE w999 WITH 'You Select the Change History button !'.
ENDIF.

IF sscrfields-ucomm = 'DISP'.
    MESSAGE w999 WITH 'You Select the Display Quotation button !'.
ENDIF.