增加屏幕工具条的按钮

来源：互联网发布：淘宝几个好评是几分编辑：程序博客网时间：2024/05/17 07:39

TYPE-POOLS ICON.
TABLES SSCRFIELDS.
TABLES:spfli.
TYPE-POOLS: SLIS.
DATA L_FLAG.

DATA OK_CODE TYPE SY-UCOMM.
DATA UC_CODE TYPE SY-UCOMM.

DATA: LT_DYNPFIELDS LIKE TABLE OF DYNPREAD WITH HEADER LINE,
    LV_DYNAME LIKE SY-REPID,
    LV_DYNNR  LIKE SY-DYNNR.
DATA FUNCTXT TYPE SMP_DYNTXT.

DATA:lt_spfli TYPE TABLE OF spfli WITH HEADER LINE.

DATA:gt_fieldcat TYPE lvc_t_fcat,
      gs_layout TYPE lvc_s_layo.

SELECT-OPTIONS: S_car FOR spfli-carrid.
SELECTION-SCREEN: FUNCTION KEY 1.

INITIALIZATION.

  FUNCTXT-ICON_ID   = ICON_CREATE.
  FUNCTXT-QUICKINFO = '新增'.

  "functxt-icon_text = '新增'.
  SSCRFIELDS-FUNCTXT_01 = FUNCTXT.

AT SELECTION-SCREEN.
  CASE SSCRFIELDS-UCOMM.
    WHEN 'FC01'.
*      MESSAGE W000(ZSD000) WITH 'ERROR'.
      L_FLAG = 'C'.
      CALL SCREEN 200.
    when OTHERS.
  ENDCASE.

START-OF-SELECTION.

  PERFORM DISPLAY_DATA.

*&---------------------------------------------------------------------*
*&      Form  FILL_FIELD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_0091   text
*      -->P_0092   text
*----------------------------------------------------------------------*
FORM FILL_FIELD  USING    p_field p_text .
  DATA lw_fcat TYPE lvc_s_fcat.
  lw_fcat-fieldname = p_field.
  lw_fcat-coltext = p_text.

  APPEND lw_fcat TO gt_fieldcat.

ENDFORM.                    " FILL_FIELD
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0200  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0200 INPUT.
uc_code = ok_code .
  CLEAR ok_code.
  CASE  uc_code.

    WHEN 'BACK'.
      LEAVE PROGRAM.
      WHEN 'ZX'.
         PERFORM DISPLAY_DATA.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0200  INPUT
*&---------------------------------------------------------------------*
*&      Form  DISPLAY_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM DISPLAY_DATA .
  SELECT *
        FROM spfli
        INto  CORRESPONDING FIELDS OF TABLE lt_spfli
        WHERE carrid In s_car.

  PERFORM fill_field USING:
        'CARRID' '航班',
        'CONNID' '航线'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-REPID
      IT_FIELDCAT_LVC    = GT_FIELDCAT
    TABLES
      T_OUTTAB           = lt_spfli
    EXCEPTIONS
      PROGRAM_ERROR      = 1
      OTHERS             = 2.
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.

ENDFORM.                    " DISPLAY_DATA
*&---------------------------------------------------------------------*
*&      Module  STATUS_0200  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0200 OUTPUT.
  SET PF-STATUS 'STATUS_0200'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0200  OUTPUT
*&---------------------------------------------------------------------*
*&      Form  DISPLAY_DATA1
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM DISPLAY_DATA1 .
  WRITE:'successful'.

ENDFORM.                    " DISPLAY_DATA1

屏幕：PROCESS BEFORE OUTPUT.
MODULE STATUS_0200.
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0200.

0 0