一个很有意思漂亮的ABAP程序-采购信息记录查询报表

*&---------------------------------------------------------------------*
*& Report  Z_XYX003
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  z_xyx003.
TYPE-POOLS:slis.
TABLES: lfa1,ekpo,eine,eina.

INCLUDE <list>.
DATA:i_fieldcat_alv TYPE slis_t_fieldcat_alv,"定义列标题（属性信息）
    i_layout TYPE slis_layout_alv,
    i_fieldcat TYPE slis_fieldcat_alv,"定义对象
    i_events TYPE slis_t_event,"alv事件
   w_events LIKE LINE OF i_events,
  i_list_comments TYPE slis_t_listheader,"alv表单标题区域设置
   w_list_comments LIKE LINE OF i_list_comments,
    w_repid LIKE sy-repid."当前程序


*　　定义内表字段
DATA:BEGIN OF hd_itab OCCURS 0,
      infnr LIKE eine-infnr,"采购信息记录
     ekorg LIKE eine-ekorg,"采购组织
    matnr LIKE eina-matnr,"物料编号
   lifnr LIKE eina-lifnr,"供应商
    erdat LIKE eine-erdat,"创建日期
    loekz LIKE eine-loekz,"删除标记
    urznr LIKE eina-urznr,"批准号
     color(4) TYPE c, "定义颜色
      aplfz LIKE eine-aplfz,"计划交货时间
     netpr LIKE eine-netpr,"净价
     peinh LIKE eine-peinh,"单位价格
     dwjj LIKE eine-netpr,"单位净价
     bprme LIKE eine-bprme,"订单价格单位
     maktx LIKE makt-maktx,"物料名称
     name1 LIKE lfa1-name1,"供应商名称
     iicon LIKE icon-name, "ICON 图标
     END OF hd_itab.

*　　选择屏幕
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE t1.
SELECT-OPTIONS:s_infnr FOR eine-infnr MEMORY ID inf."信息记录号码
PARAMETERS:pr_loekz TYPE c AS CHECKBOX DEFAULT ''."显示有删除标志的信息记录
SELECT-OPTIONS:s_ekorg FOR eine-ekorg MEMORY ID eko."采购组织
SELECT-OPTIONS:s_matnr FOR eina-matnr MEMORY ID mat."物料编号
SELECT-OPTIONS:s_lifnr FOR eina-lifnr MEMORY ID lif."供应商编号
SELECT-OPTIONS:s_erdat FOR eina-erdat MEMORY ID erd."创建日期
SELECT-OPTIONS:s_urznr FOR eina-urznr MEMORY ID urz."批准号
SELECTION-SCREEN END OF BLOCK block1.

*　　初始化事件
INITIALIZATION.
*  t1 = '采购查询'.

*　　屏幕开始事件
START-OF-SELECTION.
  PERFORM getdata.
  PERFORM events_build.
  PERFORM layout_build.
  PERFORM fieldcat_build.
  PERFORM alv_display_data.

*&--------------------------------------------------------------------*
*&      Form  getdata
*&--------------------------------------------------------------------*
FORM getdata.
  CLEAR hd_itab.
  CLEAR hd_itab[].
  IF pr_loekz = ''.
    SELECT * FROM eine INNER JOIN eina ON eine~infnr = eina~infnr INTO CORRESPONDING FIELDS OF hd_itab
       WHERE eine~infnr IN s_infnr AND eine~ekorg IN s_ekorg AND eina~matnr IN s_matnr AND eina~lifnr IN s_lifnr AND eina~loekz <> 'X'
      AND eine~erdat IN s_erdat AND eina~urznr IN s_urznr
     ORDER BY eine~infnr DESCENDING.
      SELECT SINGLE maktx FROM makt INTO CORRESPONDING FIELDS OF hd_itab WHERE matnr = hd_itab-matnr.
      SELECT SINGLE name1 FROM lfa1 INTO CORRESPONDING FIELDS OF hd_itab WHERE lifnr = hd_itab-lifnr.
      APPEND hd_itab.
      CLEAR hd_itab.
    ENDSELECT.
  ELSE.
    SELECT * FROM eine INNER JOIN eina ON eine~infnr = eina~infnr INTO CORRESPONDING FIELDS OF hd_itab
     WHERE eine~infnr IN s_infnr AND eine~ekorg IN s_ekorg AND eina~matnr IN s_matnr AND eina~lifnr IN s_lifnr AND eine~erdat IN s_erdat
      AND eina~urznr IN s_urznr
    ORDER BY eine~infnr DESCENDING.
      SELECT SINGLE maktx FROM makt INTO CORRESPONDING FIELDS OF hd_itab WHERE matnr = hd_itab-matnr.
      SELECT SINGLE name1 FROM lfa1 INTO CORRESPONDING FIELDS OF hd_itab WHERE lifnr = hd_itab-lifnr.
      APPEND hd_itab.
      CLEAR hd_itab.
    ENDSELECT.

  ENDIF.

  LOOP AT hd_itab.
    IF hd_itab-loekz = 'X'.
      hd_itab-color = 'C610'.
      hd_itab-iicon = icon_incomplete. "ICON圖標信息
    ELSE.
      hd_itab-iicon = icon_checked. "ICON圖標信息
    ENDIF.
    hd_itab-dwjj = hd_itab-netpr / hd_itab-peinh.  "净价/价格单位

    MODIFY hd_itab."更新
    CLEAR hd_itab."CLEAR HEADER LINE
  ENDLOOP.
ENDFORM.                    "getdata

*&---------------------------------------------------------------------------*
*&    FORM LAYOUT BUILD
*&---------------------------------------------------------------------------*
FORM layout_build.
  i_layout-zebra = 'X'. "ALV表格按斑马线条纹显示
  "i_layout-NO_VLINE = 'X'. "ALV表格顯示時無堅向線
  i_layout-colwidth_optimize = 'X'. "将ALV字段宽度设置为最优化
*  　　i_layout-detail_initial_lines = 'X'.
*  　　i_layout-detail_titlebar = '详细内容'.
*  　　i_layout-box_fieldname  = 'LINE'.
  i_layout-info_fieldname = 'COLOR'. "設置顏色FIELD
  i_layout-no_colhead = ''.
  w_repid = sy-repid.
ENDFORM.                    "layout_build


*&---------------------------------------------------------------------------*
*&    FORM FIELDCAT BUILD
*&---------------------------------------------------------------------------*
FORM fieldcat_build.
  REFRESH i_fieldcat_alv.
  CLEAR i_fieldcat.
  DATA column TYPE i VALUE 1.

  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'INFNR'.
  i_fieldcat-seltext_s = '采购信息记录'.
  i_fieldcat-seltext_m = '采购信息记录'.
  i_fieldcat-seltext_l = '采购信息记录'.
  "i_fieldcat-reptext_ddic = '采购信息记录号'.
  i_fieldcat-lzero = 'X'. "字义字段前导以"0"的形式显示
  i_fieldcat-key = 'X'.
  i_fieldcat-hotspot = 'X'."设置字段是否有热点(热点字段显示有下划线)
  i_fieldcat-emphasize = 'C300'."设置字段颜色
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'LIFNR'.
  i_fieldcat-seltext_s = '供应商号码'.
  i_fieldcat-seltext_m = '供应商号码'.
  i_fieldcat-seltext_l = '供应商号码'.
  "i_fieldcat-reptext_ddic = '供应商号码'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  i_fieldcat-hotspot = 'X'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'NAME1'.
  i_fieldcat-seltext_s = '供应商名称'.
  i_fieldcat-seltext_m = '供应商名称'.
  i_fieldcat-seltext_l = '供应商名称'.
  "i_fieldcat-reptext_ddic = '供应商名称'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'MATNR'.
  i_fieldcat-seltext_s = '物料编号'.
  i_fieldcat-seltext_m = '物料编号'.
  i_fieldcat-seltext_l = '物料编号'.
  "i_fieldcat-reptext_ddic = '物料编号'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'MAKTX'.
  i_fieldcat-seltext_s = '物料名称'.
  i_fieldcat-seltext_m = '物料名称'.
  i_fieldcat-seltext_l = '物料名称'.
  "i_fieldcat-reptext_ddic = '物料名称'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'NETPR'.
  i_fieldcat-seltext_s = '净价'.
  i_fieldcat-seltext_m = '净价'.
  i_fieldcat-seltext_l = '净价'.
  "i_fieldcat-reptext_ddic = '净价'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'PEINH'.
  i_fieldcat-seltext_s = '价格单位'.
  i_fieldcat-seltext_m = '价格单位'.
  i_fieldcat-seltext_l = '价格单位'.
  "i_fieldcat-reptext_ddic = '价格单位'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'DWJJ'.
  i_fieldcat-seltext_s = '单位净价'.
  i_fieldcat-seltext_m = '单位净价'.
  i_fieldcat-seltext_l = '单位净价'.
  "i_fieldcat-reptext_ddic = '单位净价'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'BPRME'.
  i_fieldcat-seltext_s = '计量单位'.
  i_fieldcat-seltext_m = '计量单位'.
  i_fieldcat-seltext_l = '计量单位'.
  "i_fieldcat-reptext_ddic = '计量单位'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'EKORG'.
  i_fieldcat-seltext_s = '采购组织'.
  i_fieldcat-seltext_m = '采购组织'.
  i_fieldcat-seltext_l = '采购组织'.
  "i_fieldcat-reptext_ddic = '采购组织'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'APLFZ'.
  i_fieldcat-seltext_s = '计划交货时间'.
  i_fieldcat-seltext_m = '计划交货时间'.
  i_fieldcat-seltext_l = '计划交货时间'.
  "i_fieldcat-reptext_ddic = '计划交货时间'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  i_fieldcat-emphasize = 'C211'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'ERDAT'.
  i_fieldcat-seltext_s = '创建日期'.
  i_fieldcat-seltext_m = '创建日期'.
  i_fieldcat-seltext_l = '创建日期'.
  "i_fieldcat-reptext_ddic = '创建日期'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'LOEKZ'.
  i_fieldcat-seltext_s = '删除标志'.
  i_fieldcat-seltext_m = '删除标志'.
  i_fieldcat-seltext_l = '删除标志'.
  "i_fieldcat-reptext_ddic = '删除标志'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'URZNR'.
  i_fieldcat-seltext_s = '批准标记'.
  i_fieldcat-seltext_m = '批准标记'.
  i_fieldcat-seltext_l = '批准标记'.
  "i_fieldcat-reptext_ddic = '批准标记'.
  i_fieldcat-lzero = 'X'.
  i_fieldcat-key = 'X'.
  i_fieldcat-emphasize = 'C211'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

  column = column + 1.
  i_fieldcat-col_pos = column.
  i_fieldcat-fieldname = 'IICON'.
*  　　i_fieldcat-SELTEXT_S = '图标'.
*  　　i_fieldcat-SELTEXT_M = 'ICON'.
  i_fieldcat-seltext_l = 'ICON'.
  i_fieldcat-hotspot = 'X'.
  i_fieldcat-icon = 'X'.
  "i_fieldcat-reptext_ddic = '批准标记'.
  "i_fieldcat-LZERO = 'X'.
  "i_fieldcat-KEY = 'X'.
  "i_fieldcat-Emphasize = 'C211'.
  APPEND i_fieldcat TO i_fieldcat_alv.
  CLEAR i_fieldcat.

ENDFORM.                    "fieldcat_build

*&---------------------------------------------------------------------------*
*&    FORM ALV DISPLAY DATA
*&---------------------------------------------------------------------------*
FORM alv_display_data.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = w_repid
      i_grid_title            = '采购信息记录汇总查询'
      is_layout               = i_layout
      it_fieldcat             = i_fieldcat_alv[]
      it_events               = i_events[]
                                    "I_SAVE  = 'A'
      i_callback_user_command = 'USER_COMMAND' "USER_COMMAND EVENT
    TABLES
      t_outtab                = hd_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.                    "alv_display_data

*&---------------------------------------------------------------------*
*&      Form  user_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->I_UCOMM    text
*      -->I_SELFIELD text
*----------------------------------------------------------------------*
FORM user_command USING i_ucomm TYPE sy-ucomm i_selfield TYPE slis_selfield.
  CASE i_ucomm.
    WHEN '&IC1'.  "对于热点链接，所对应的动作码为"&IC1"
      IF i_selfield-fieldname EQ 'INFNR'. "判断用户当前单击的是哪列
        PERFORM call_tran USING i_selfield. "调用自定义事务
      ENDIF.
  ENDCASE.
ENDFORM.                    "user_command



*&---------------------------------------------------------------------*
*&      Form  call_tran
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->I_SELFIELD text
*----------------------------------------------------------------------*
FORM call_tran USING i_selfield TYPE slis_selfield.
  "SET SCREEN 0.  "返回主屏幕
  READ TABLE hd_itab INDEX i_selfield-tabindex.  "i_selfield-tabindex 当击行索引，从内表中提取数据

  IF sy-subrc = 0.
    SET PARAMETER ID 'MAT' FIELD hd_itab-matnr. "MAT指参数ID
    SET PARAMETER ID 'LIF' FIELD hd_itab-lifnr.
    SET PARAMETER ID 'EKO' FIELD hd_itab-ekorg.
    SET PARAMETER ID 'INF' FIELD hd_itab-infnr.
    CALL TRANSACTION 'ME13'."AND SKIP FIRST SCREEN "调用其它事务 ME13是我们要调用的事务
  ENDIF.
ENDFORM.                    "call_tran
*&---------------------------------------------------------------------*
*&      Form  ALV_TOP_OF_PAGE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM alv_top_of_page. "ALV表头信息
  CLEAR:i_list_comments.
  w_list_comments-typ = 'H'.
  w_list_comments-key = ''.
  w_list_comments-info = '采购信息记录查询报表'.
  APPEND w_list_comments TO i_list_comments.
  CLEAR w_list_comments.

  DATA:date_temp(30) TYPE c.
  WRITE: sy-datum TO date_temp MM/DD/YYYY.
  CONCATENATE '日期:' date_temp INTO date_temp.
  CONCATENATE date_temp  '.   IT部' INTO date_temp.


  w_list_comments-typ = 'S'.
  w_list_comments-key = ''.
  w_list_comments-info = date_temp.
  APPEND w_list_comments TO i_list_comments.
  CLEAR w_list_comments.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'  "输出注释
  EXPORTING
    it_list_commentary = i_list_comments
    i_logo                   = 'ENJOYSAP_LOGO'.
*    I_END_OF_LIST_GRID       = 'X'.
*       　I_ALV_FORM               =.
ENDFORM.                    "ALV_TOP_OF_PAGE

*&---------------------------------------------------------------------*
*&      Form  ALV_END_OF_LIST
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM alv_end_of_list.
  CLEAR: i_list_comments.
*  　　w_list_comments-typ = 'S'.
*  　　w_list_comments-info = 'Create By IT DEPARTMENT'.
*  　　APPEND w_list_comments TO i_list_comments.
*  　　CLEAR w_list_comments.
*
*  　　CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
*    　　EXPORTING
*      　　IT_LIST_COMMENTARY       = i_list_comments
**      　　I_LOGO                   = 'ENJOYSAP_LOGO'
*      　　I_END_OF_LIST_GRID       = 'X'
**     　　I_ALV_FORM               =
*            .

  CLEAR:i_list_comments.
  w_list_comments-typ = 'S'.
  w_list_comments-info = '确认:________采购申请人:_____________'.
  APPEND w_list_comments TO i_list_comments.
  CLEAR w_list_comments.

  w_list_comments-typ = 'S'.
  w_list_comments-info = 'Create By Information Department'.
  APPEND w_list_comments TO i_list_comments.
  CLEAR w_list_comments.

  DATA:data_temp(30) TYPE c.
  CONCATENATE '打印者：' sy-uname INTO data_temp.
  w_list_comments-typ = 'S'.
  w_list_comments-info = data_temp.
  APPEND w_list_comments TO i_list_comments.
  CLEAR w_list_comments.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_list_comments
      i_logo             = 'ENJOYSAP_LOGO'
      i_end_of_list_grid = 'X'.
*     　　I_ALV_FORM        =

ENDFORM.                    "ALV_END_OF_LIST


*&---------------------------------------------------------------------*
*&      Form  events_build
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM events_build.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET' "输出一个内表类型是SLIS_T_EVENT，行项为SLIS_ALV_EVENT,包含两个字段，一个是事件名称，另一个是处理事件的FORM名称
   EXPORTING
    i_list_type           = 0
   IMPORTING
   et_events             = i_events
  EXCEPTIONS
    list_type_wrong       = 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.

  READ TABLE i_events WITH KEY name = 'TOP_OF_PAGE' INTO w_events.
  IF sy-subrc = 0.
    MOVE 'ALV_TOP_OF_PAGE' TO w_events-form.
    MODIFY i_events FROM w_events INDEX sy-tabix.
  ENDIF.

  READ TABLE i_events INTO w_events WITH KEY name = 'USER_COMMAND'.
  IF sy-subrc EQ 0.
    w_events-name = 'USER_COMMAND'.
    MODIFY i_events FROM w_events INDEX sy-tabix.
  ENDIF.

  READ TABLE i_events WITH KEY name = 'END_OF_LIST' INTO w_events.
  IF sy-subrc = 0.
    MOVE 'ALV_END_OF_LIST' TO w_events-form.
    MODIFY i_events FROM w_events INDEX sy-tabix.
  ENDIF.
ENDFORM.                    "events_build