【IT168 技术文章】

    (1).Screen 设计

    TABLES: SSCRFIELDS.

    PARAMETERS: P_EBLEN LIKE VBRK-EBLEN DEFAULT ' '.

    PARAMETERS: P_CK1 AS CHECKBOX DEFAULT 'X'.

    PARAMETERS: P_CK2 AS CHECKBOX.

    PARAMETERS: P_RAD1 RADIOBUTTON GROUP SG1 DEFAULT 'X'.

    PARAMETERS: P_RAD2 RADIOBUTTON GROUP SG1 .

    SELECT-OPTIONS: S_EBLEN FOR VBRK-EBLEN NO-EXTENSTION. “无后边的箭头

    SELECT-OPTIONS: S_EBLEN FOR VBRK-EBLEN NO INTERVALS. ”无到后边的选项

    SELECTION-SCREEN SKIP 1. "产生空行

    SELECTION-SCREEN BEGIN OF LINE . "将元素排列到一行

    SELECTION-SCREEN END OF LINE.

    SELECTION-SCREEN ULINE. "画直线

    SELECTION-SCREEN COMMENT 10(20) TEXT-001."屏幕上输出文本

    SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-002.

    SELECTION-SCREEN END OF BLOCK BK1.

    SELECTION-SCREEN PUSHBUTTON 50(10) TEXT-003 USER-COMMAND BUT1. "产生按钮

    SELECTION-SCREEN FUNCTION KEY 1. "工具条按钮 最多为5个.

    PARAMETERS: <P> .... MEMORY ID <PID>. "从全局SAP内存(SPA/GPA参数)使用缺省值

    SET PARAMETERS ID 'HK' FIELD 'Test Parameters' "以'HK'为名称在全局SAP内存中存储值.

    PARAMETERS: P_TEST(16) TYPE C MEMORY ID HK. "使用缺省值

    GET PARAMETERS ID ' ' FIELD ' '.

    INITIALIZATION.

    SSCRFIELDS-FUNCTXT_01 = 'Button 1'.

    SSCRFIELDS-UCOMM = 'FC01'.

    (2).修改Screen

    NAME              “字段名称

    GROUP1            ”字段组1

    GROUP2            “字段组2

    GROUP3            ”字段组3

    GROUP4            “字段组4

    ACTIVE            ”可见并准备输入的字段

    REQUIRED          “强制输入的字段

    INPUT             ”字段准备输入

    OUTPUT            ”字段仅用来显示

    INTENSIFIED       ”高亮显示字段

    INVISIBLE         “字段不可见

    LENGTH            “设置字段长度

    DISPLAY_3D        “以3围框架显示字段

    VALUE_HELP        ”显示有值帮助的字段

    在PBO模块中对字段进行属性修改

    MODULE MODIFY_SCREEN OUTPUT.

    LOOP AT SCREEN.

    CHECK SCREEN-GROUP1 = 'MOD'.

    SCREEN-INPUT = 0.

    MODIFY SCREEN.

    ENDLOOP.

    ENDMODULE.