实战SAP：【总结】

 

【】UP TO N ROWS在SELECT中的使用，读取前N行，不继续读取数据

 

【】PACKAGE SIZE N ,一次读取N条，接着读取N条

 

【】内连接：

      SELECT SPFLI~CARRID SFLIGHT~FLDATE

          INTO ...

         FROM SPFLI INNER JOIN SFLIGHT

             ON SPFLI~CARRID = SFLIGHT~CARRID

           AND SPFLI~CONNID = SFLIGHT~CONNID UP TO 10 ROWS.

      ENDSELECT.

     

【】NEW-PAGE 输出无条件换页

 

【】NEW-PAGE LINE-COUNT 20 换页并定义新页面的长度

 

【】列表颜色的更改：

      FORMAT COLOR <n> [ON] [INTENSIFIED][ON|OFF]INVERSE [ON|OFF]

      COLOR参数：

      COL_BACKGROUND 取决于GUI

      COL_HEADINING

      COL_NORMAL

      COL_TOTAL

      COL_KEY

      COL_POSITIVE

      COL_NEGATIVE

      COL_GROUP

      INTENSIFIED参数：背景颜色参数

      INVERSE参数：是否影响前景颜色

      FRAMES [{ON|OFF}|{= flag}] 将| - 连接在一起

      例子：

      FORMAT COLOR COL_HEADING.
      WRITE : 'hello'.
      WRITE 'aa'.                                      "hello aa 背景色是蓝色

     

      FORMAT COLOR COL_HEADING INVERSE on.
      WRITE 'hello'.
      WRITE 'bb'.                                      "hello bb 背景不受影响

 

      DATA: input_field TYPE c LENGTH 100,
                line_num TYPE i.

      START-OF-SELECTION.
        WRITE 'Input text:'.
        SET BLANK LINES ON.
        FORMAT INPUT.
        WRITE / input_field.
        FORMAT INPUT OFF.
        WRITE / '>>> OK <<<' COLOR 5 HOTSPOT.

      AT LINE-SELECTION.
        IF sy-lisel = '>>> OK <<<'.
        line_num = sy-lilli - 1.
      READ LINE line_num FIELD VALUE input_field.
        WRITE:   'The input was:',
           /  input_field.
       ENDIF.

     

 

  

     FORMAT FRAMES ON.
   PERFORM frame.
   FORMAT FRAMES OFF. 
   FORM frame.
     SKIP.
     WRITE: / '----',
            / '|  |',
            / '----'.
   ENDFORM.                       "输出为一个封闭的长方形

【】制作工具按钮使用ABAP菜单编辑器，T-CODE: SE41

 

【】按钮设置语句： SET PF-STATUS 'STATUS1'.

 

【】窗口输出： WINDOW STARTING AT 10 10 ENDING AT 30 20.

                      WRITE:'窗口输出内容'.

 

【】列表输出复选框：

      DATA SEL(1) TYPE C. 

      WRITE : / SEL AS CHECKBOX.  

 

【】PARAMETERS {para[(len)]}|{para [LENGTH len]}
           [type_options]
           [screen_options]
           [value_options]
           [ldb_options]. 
       SCREEN_OPTIONS:

    { {[OBLIGATORY|NO-DISPLAY] [VISIBLE LENGTH vlen]}
    | {AS CHECKBOX [USER-COMMAND fcode]}
    | {RADIOBUTTON GROUP group [USER-COMMAND fcode]}
    | {AS LISTBOX VISIBLE LENGTH vlen [USER-COMMAND fcode]
                                      [OBLIGATORY]} }
    [MODIF ID modid] ... .

       OBLIGATORY: 必须输入项

       例子：

       PARAMETERS p_carrid TYPE spfli-carrid
                    AS LISTBOX VISIBLE LENGTH 20  "下拉列表
                    USER-COMMAND onli
                    DEFAULT 'LH'.                                "屏幕输出一个有默认值的list

      

        PARAMETERS show_all AS CHECKBOX USER-COMMAND flag.
        SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
           PARAMETERS: p4 TYPE c LENGTH 10 MODIF ID bl2,
                                 p5 TYPE c LENGTH 10 MODIF ID bl2,
                                 p6 TYPE c LENGTH 10 MODIF ID bl2. 
        SELECTION-SCREEN END OF BLOCK b2.

        AT SELECTION-SCREEN OUTPUT.
           LOOP                IF show_all <> 'X' AND
                    screen-group1 = 'BL2'.
                    screen-active = '0'.
                ENDIF.
                MODIFY SCREEN. 
           ENDLOOP.                                              " AT SCREEN.
选择了show_all，则显示b2 screen

 

     VALUE_OPTIONS:

       [DEFAULT val]   
    [LOWER CASE]   "大小写
    [MATCHCODE OBJECT search_help]
    [MEMORY ID pid]
    [VALUE CHECK] ... . 
     例子：

     PARAMETERS p_carrid TYPE s_carr_id
           MATCHCODE OBJECT demo_f4_de.  "为p_carrid字段加载search help

    

    LDB_OPTIONS:

      FOR {TABLE|NODE} node
    [HELP-REQUEST]
    [VALUE-REQUEST]
    [AS SEARCH PATTERN] ... .

【】SELECTION-SCREEN的单选、复选、按钮

      SELECTION-SCREEN BEGIN OF BLOCK B1.

         PARAMETERS A1 RADIOBUTTON GROUP RG1,

         PARAMETERS A2 RADIOBUTTON GROUP RG1,       "单选

 

         PUSHBUTTON 2(10) S1 USER-COMMAND C1,

         PUSHBUTTON 12(10) S2 USER-COMMAND C2,      "按钮

      SELECTION-SCREEN END OF BLOCK B1.

      AT SELECTION-SCREEN.

      CASE SSCRFIELDS-UCOMM. (TABLES SSCRFIELDS)

         WHEN 'C1'.

             DONE  = 'C1'.

         WHEN 'C2'.

             DONE  = 'C2'.

      ENDCASE.

 

【】在普通屏幕里调用子屏幕

      PBO:

      CALL SUBSCREEN A1 INCLUDINING SY-REPID '0100'.

      PAI:

      CALL SUBSCREEN A1.

 

【】字段检查

      FIELD <FID1> MODULE <MOD1>.                   "单个字段检查

      FIELD <FLD2> MODULE <MOD1>,<MOD2>.    "单个字段多检查

      CHAIN.                                                            "检查多字段

      FIELD <FLD1>,<FLD2>,<FLD2>.

      MODULE <MODL1>.

      MODULE <MODL2>.

      ENDCHAIN.

      FIELD <FLD1> MODULE <MDL1> ON INPUT.      "初始值检查

      FIELD <FLD1> MODULE <MDL1> ON REQUEST. "变更检查

      CHAIN.     

      FILED <FLD1>.

      MODULE <MOD1> ON CHAIN-INPUT.

      ENDCHAIN.                                                        "初始值检查

     

【】屏幕LIST

      TYPE-POOLS VRM.

      DATA: FNAME TYPE VRM_ID,

                VVA TYPE VRM_VALUES,

               LVVA LIKE LINE OF VVA.

     ...

     MODULE STATUS_0100 OUTPUT.

      FNAME = 'FLD1'.

      LVVA-KEY  = '1'.

      LVVA-KEY  = '广州'.

      APPEND LVVA TO VVA.

      CALL FUNCTION 'VRM_SET_VALUES'

       EXPORTING

            ID  =   FNAME

            VALUE = VVA.

      ENDMODULE.                                                  "为屏幕输入字段设置LIST并添加LIST内容