Abap/4制作报表（3）

来源：互联网发布：浙江每日互动网络编辑：程序博客网时间：2024/05/18 17:41

*&---------------------------------------------------------------------*
*& Report Z_CPT6_3                                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
*&              选择屏幕                           *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT Z_CPT6_3 .

DATA spfli_line TYPE spfli.
*简单的参数
*PARAMETERS:p_carr TYPE s_carr_id,
*           p_idate TYPE d,
*           p_itime TYPE t,
*           p_ii TYPE i.

*复杂选择标准
*SELECT-OPTIONS so_air FOR spfli_line-carrid.
*
*START-OF-SELECTION.
*    LOOP AT so_air.
*        WRITE: / 'SIGN:',so_air-sign,
*                 'OPTION:',so_air-option,
*                 'LOW:',so_air-low,
*                 'HIGH',so_air-high.
*    ENDLOOP.
*
*    SELECT * FROM spfli INTO spfli_line WHERE carrid IN so_air.
*        WRITE: / spfli_line-cityfrom,spfli_line-cityto.
*    ENDSELECT.

*格式化按钮
*PARAMETERS:r1 RADIOBUTTON GROUP rad1,
*           r2 RADIOBUTTON GROUP rad1 DEFAULT 'X',
*           r3 RADIOBUTTON GROUP rad1,
*           s1 RADIOBUTTON GROUP rad2,
*           s2 RADIOBUTTON GROUP rad2 DEFAULT 'X'.

*代默认值的SELECT-OPTIONS
*DATA wa_spfli TYPE spfli.
*SELECT-OPTIONS s_air FOR wa_spfli-carrid
* DEFAULT 'AA' TO 'LH'
* OPTION nb SIGN i.

*SELECTION-SCREEN BEGIN OF LINE.
**这行代码可能当前的服务器不支持
**    SELECTION-SCREEN COMMENT l(10) TEXT-001.
*    PARAMETERS:p1(3),p2(5),p3(1).
*SELECTION-SCREEN END OF LINE.
*
*SELECTION-SCREEN SKIP.
*
*SELECTION-SCREEN BEGIN OF BLOCK CHK1
*                 WITH FRAME TITLE TEXT-002.
*PARAMETERS:A AS CHECKBOX,B AS CHECKBOX DEFAULT 'X'.
*SELECTION-SCREEN END OF BLOCK CHK1.

*屏幕选择事件
PARAMETERS: p_carrid TYPE spfli-carrid,
            p_connid TYPE spfli-connid,
            p_cityfr LIKE spfli-cityfrom
                     DEFAULT 'Singapo' MODIF ID sc1,
            p_cityto LIKE spfli-cityto MODIF ID sc2.

AT SELECTION-SCREEN.
    IF p_carrid IS INITIAL.
        MESSAGE e888(abapdocu) WITH 'Please input some value!'.
    ENDIF.

AT SELECTION-SCREEN OUTPUT.
    LOOP AT SCREEN.
        IF screen-group1 = 'SC1'.
            screen-input = '0'.
            MODIFY SCREEN.
        ENDIF.
    ENDLOOP.