ALV报表开发的模板

 

ALV报表开发的模板

 

分类： SAP-ABAP 2010-04-06 15:15 441人阅读 评论(1) 收藏 举报

 

报表 build callback layout command user

 

1. 定义所使用的表

TABLES:MSEG,MKPF.

1. 声明类型池

TYPE-POOLS: SLIS.

1. 声明结构

DATA:BEGIN OF WA,
  MBLNR LIKE MSEG-MBLNR,
  BLART LIKE MKPF-BLART,
  BUDAT LIKE MKPF-BUDAT,
  MATNR LIKE MSEG-MATNR,
  END OF WA.

1. 声明内表

 DATA:ITAB LIKE WA OCCURS 0 WITH HEADER LINE.

1. ALV显示变量

  DATA:GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
       GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
       FIELDCATALOG LIKE GT_FIELDCAT,
       G_REPID LIKE SY-REPID.

1. 定义选择屏幕

SELECTION-SCREEN  BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
     PARAMETERS P_WERKS LIKE MSEG-WERKS OBLIGATORY DEFAULT '1000'.
     SELECT-OPTIONS:S_MBLNR FOR MSEG-MBLNR,
                    S_MATNR FOR MSEG-MATNR.
     SELECTION-SCREEN END OF BLOCK B1.

1. 执行主程度

     START-OF-SELECTION.

     PERFORM FRM_GET_DATA.
     PERFORM FRM_DIS_DATA.
     END-OF-SELECTION.

8．定义相关取数，显示数据的子程序

FORM FRM_DIS_DATA.

……

ENDFORM.

 

FORM FRM_DIS_DATA.

……

ENDFORM.

 

 

 

 

*---实际例子

*&---------------------------------------------------------------------*
*& REPORT  YTEST30
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZKEVEN_CUSTLIST.
TABLES:MSEG,MKPF.
*-----------------------------------声明类型池----------
TYPE-POOLS: SLIS.
*----------------------------数据显示内容------------------
"声明结构
DATA:BEGIN OF WA,
  MBLNR LIKE MSEG-MBLNR,
  BLART LIKE MKPF-BLART,
  BUDAT LIKE MKPF-BUDAT,
  MATNR LIKE MSEG-MATNR,
  END OF WA.

  "声明内表
DATA:ITAB LIKE WA OCCURS 0 WITH HEADER LINE.

*-------------------ALV显示变量----------------------
  DATA:GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
       GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
       FIELDCATALOG LIKE GT_FIELDCAT,
       G_REPID LIKE SY-REPID.

*-------------------选择屏幕----------------------
  SELECTION-SCREEN  BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
     PARAMETERS P_WERKS LIKE MSEG-WERKS OBLIGATORY DEFAULT '1000'.
     SELECT-OPTIONS:S_MBLNR FOR MSEG-MBLNR,
                    S_MATNR FOR MSEG-MATNR.
     SELECTION-SCREEN END OF BLOCK B1.

     START-OF-SELECTION.

     PERFORM FRM_GET_DATA.
     PERFORM FRM_DIS_DATA.
     END-OF-SELECTION.
*&---------------------------------------------------------------------*
*&      FORM  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM FRM_GET_DATA .
  SELECT MKPF~BLART
         MKPF~BUDAT
         MSEG~MBLNR
         MSEG~MATNR
    INTO CORRESPONDING FIELDS OF TABLE ITAB FROM MKPF INNER JOIN MSEG ON MKPF~MANDT = MSEG~MANDT
                                                                     AND MKPF~MBLNR = MSEG~MBLNR
                                                                      AND MKPF~MJAHR = MSEG~MJAHR
    WHERE MSEG~WERKS = P_WERKS
          AND MSEG~MBLNR IN S_MBLNR
          AND MSEG~MATNR IN S_MATNR.
ENDFORM.                    " FRM_GET_DATA
FORM FRM_DIS_DATA.
  PERFORM FRM_BUILD_FIELD.
  GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
  GS_LAYOUT-INFO_FIELDNAME = 'LINE_COL'.
  GS_LAYOUT-ZEBRA = 'X'.
  GS_LAYOUT-HEADER_TEXT = 'ALV TEST'.
  G_REPID = SY-REPID.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
  I_CALLBACK_PROGRAM                = G_REPID
  IS_LAYOUT                         = GS_LAYOUT
  IT_FIELDCAT                       = GT_FIELDCAT[]
  I_SAVE                            = 'A'
  I_CALLBACK_USER_COMMAND = 'FRM_UCOMM'  "实现双击事件
  TABLES
  T_OUTTAB                          = ITAB
  EXCEPTIONS
  PROGRAM_ERROR                     = 1
  OTHERS                            = 2
          .
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


  ENDFORM.


*----------------------------------------------------------------------*
***INCLUDE YTEST30_FRM_BUILD_FIELDF01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  frm_build_field
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_build_field .
FIELDCATALOG-FIELDNAME = 'MBLNR'.
FIELDCATALOG-SELTEXT_M = '物料凭证'.
FIELDCATALOG-COL_POS = 0.
FIELDCATALOG-KEY = ''.
APPEND FIELDCATALOG TO GT_FIELDCAT.
CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'BLART'.
FIELDCATALOG-SELTEXT_M = '物料凭证类型'.
FIELDCATALOG-COL_POS = 1.
FIELDCATALOG-KEY = ''.
APPEND FIELDCATALOG TO GT_FIELDCAT.
CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'BUDAT'.
FIELDCATALOG-SELTEXT_M = '过帐日期'.
FIELDCATALOG-COL_POS = 2.
FIELDCATALOG-KEY = ''.
APPEND FIELDCATALOG TO GT_FIELDCAT.
CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'MATNR'.
FIELDCATALOG-SELTEXT_M = '物料号'.
FIELDCATALOG-COL_POS = 3.
FIELDCATALOG-REF_TABNAME = 'MSEG'.
APPEND FIELDCATALOG TO GT_FIELDCAT.
CLEAR FIELDCATALOG.


ENDFORM.                    " frm_build_field

FORM FRM_UCOMM USING F_UCOMM  LIKE SY-UCOMM"双击
                     F_SELFIELD TYPE SLIS_SELFIELD."行数

  READ TABLE ITAB  INDEX F_SELFIELD-TABINDEX.
  IF F_UCOMM = '&IC1'."双击
    IF F_SELFIELD-FIELDNAME = 'MATNR'.
      SET PARAMETER ID 'MAT' FIELD F_SELFIELD-VALUE .
      set parameter id 'MM5' field ' '.
      set parameter id 'MXX' field 'K'.
      CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN."跳过第一个屏幕
    ENDIF.
  ENDIF.

ENDFORM.

 

转载于:https://www.cnblogs.com/shigs/articles/3408448.html