一个很有意思漂亮的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