ALV报表——发送Excel报表邮件

ABAP发送报表邮件

运行效果：

代码：

*&---------------------------------------------------------------------*
*& Report ZPPRTEST
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZPPRTEST.
 
TABLES: AFKO.
 
DATA: BEGIN OF gt_data OCCURS ,
  aufnr LIKE afko-aufnr,
  plnbez LIKE afko-plnbez,
  gstrp LIKE afko-gstrp,
  gltrp LIKE afko-gltrp,
END OF gt_data.
 
DATA: BEGIN OF gt_stock OCCURS ,
  matnr LIKE marc-matnr,
  lgort LIKE mard-lgort,
  labst LIKE mard-labst,
END OF gt_stock.
 
DATA:g_string       TYPE string,
      g_string2       TYPE string,
      g_mail_address TYPE ad_smtpadr,
      g_def_sel_ord  TYPE c.
 
CONSTANTS: gc_tab  TYPE c VALUE cl_bcs_convert=>gc_tab,
           gc_crlf TYPE c VALUE cl_bcs_convert=>gc_crlf.
 
TYPE-POOLS : slis.
 
DATA: gs_layout  TYPE slis_layout_alv,
          gt_fieldcat TYPE slis_t_fieldcat_alv,
          wa_fieldcat TYPE slis_fieldcat_alv.
 
SELECTION-SCREEN BEGIN OF  BLOCK B1 WITH FRAME TITLE TEXT-B01.
  SELECT-OPTIONS: s_aufnr FOR afko-aufnr.
SELECTION-SCREEN END OF BLOCK B1.
 
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-B02.
PARAMETERS: c_m1 AS CHECKBOX,
            p_t1 TYPE so_obj_des.
SELECT-OPTIONS: s_m1 FOR g_mail_address NO INTERVALS.
SELECTION-SCREEN END OF BLOCK B2.
 
START-OF-SELECTION.
  PERFORM get_data.
  PERFORM display_data.
END-OF-SELECTION.
 
FORM get_data.
*-->工单
  SELECT afko~aufnr afko~plnbez afko~gstrp afko~gltrp
              INTO CORRESPONDING FIELDS OF TABLE gt_data
              FROM afko
              WHERE aufnr IN s_aufnr.
*-->库存
  SELECT afko~plnbez AS matnr mard~lgort mard~labst
              INTO CORRESPONDING FIELDS OF TABLE gt_stock
              FROM afko
              INNER JOIN mard ON afko~plnbez EQ mard~matnr
              WHERE aufnr IN s_aufnr
              AND mard~werks = ''.
ENDFORM.
 
FORM display_data.
  DATA: l_repid   TYPE sy-repid,
        l_inclname TYPE trdir-name,
        l_idx LIKE sy-tabix.
  CLEAR: gt_fieldcat[], wa_fieldcat.
 
  l_repid = l_inclname = sy-cprog.
 
  gs_layout-colwidth_optimize = 'X'.
 
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME         =  l_repid
      I_INTERNAL_TABNAME     = 'GT_DATA'
      I_INCLNAME             = l_inclname
    CHANGING
      CT_FIELDCAT            = gt_fieldcat
    EXCEPTIONS
      INCONSISTENT_INTERFACE =
      PROGRAM_ERROR          =
      OTHERS                 = .
 
  LOOP AT gt_fieldcat INTO wa_fieldcat.
    l_idx = sy-tabix.
 
    CASE wa_fieldcat-fieldname.
*      WHEN 'sortl'.
*        wa_fieldcat-seltext_s = wa_fieldcat-seltext_m =
*        wa_fieldcat-seltext_l = '供应商简称'.
*        wa_fieldcat-ddictxt = 's'.
    ENDCASE.
 
    CLEAR wa_fieldcat-key.
 
    MODIFY gt_fieldcat FROM wa_fieldcat INDEX l_idx.
  ENDLOOP.
  IF c_m1 = 'X'.
    PERFORM concatenate_data.
    PERFORM concatenate_data_stock.
    PERFORM send_mail TABLES s_m1
             USING p_t1 'zpprtest_list'.
  ENDIF.
  PERFORM alv_show.
ENDFORM.
 
FORM alv_show.
 
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = sy-repid
      IS_LAYOUT                 = gs_layout
      IT_FIELDCAT              = gt_fieldcat[]
*      I_CALLBACK_PF_STATUS_SET     = 'ALV_PF_STATUS'   " 触发事件调用子程序
*      I_CALLBACK_USER_COMMAND  = 'ALV_USER_COMMAND'   " 鼠标事件操作子程序
      I_SAVE                   = 'A'
    TABLES
      T_OUTTAB            =  GT_DATA
    EXCEPTIONS
      PROGRAM_ERROR            =
      OTHERS                   = .
 
ENDFORM.
 
FORM concatenate_data.
  DATA: l_line           TYPE string,
            l_gstrp(),
            l_gltrp().
  CLEAR g_string.
*-->Header Line
  CONCATENATE '工单'
                          '物料'
                          '基本开工日'
                          '基本完工日'
                          INTO g_string SEPARATED BY gc_tab.
*-->断行
  CONCATENATE g_string l_line gc_crlf INTO g_string.
*-->Data
  LOOP AT gt_data.
    CLEAR: l_gstrp,l_gltrp.
 
    CONCATENATE gt_data-gstrp+() '/' gt_data-gstrp+()
                 '/' gt_data-gstrp+() INTO l_gstrp.
 
    CONCATENATE gt_data-gltrp+() '/' gt_data-gltrp+()
                 '/' gt_data-gltrp+() INTO l_gltrp.
 
    CONCATENATE gt_data-aufnr
                            gt_data-plnbez
                            l_gstrp
                            l_gltrp
                            INTO l_line SEPARATED BY gc_tab.
*-->断行
  CONCATENATE g_string l_line gc_crlf INTO g_string.
  ENDLOOP.
 
ENDFORM.
 
FORM concatenate_data_stock.
  DATA: l_line           TYPE string,
            l_labst().
  CLEAR g_string2.
  CONCATENATE '物料'
                         '仓库'
                         '库存'
                         INTO g_string2 SEPARATED BY gc_tab.
  CONCATENATE g_string2 l_line gc_crlf INTO g_string2.
  LOOP AT gt_stock.
    CLEAR: l_labst.
    WRITE gt_stock-labst TO l_labst. "数字要转换成字符
    CONCATENATE gt_stock-matnr
                           gt_stock-lgort
                           l_labst
                           INTO l_line SEPARATED BY gc_tab.
    CONCATENATE g_string2 l_line gc_crlf INTO g_string2.
  ENDLOOP.
ENDFORM.
 
FORM send_mail TABLES lt_mail_addr STRUCTURE s_m1
                USING in_subject in_filename.
    DATA send_request   TYPE REF TO cl_bcs.
  DATA document       TYPE REF TO cl_document_bcs.
  DATA recipient      TYPE REF TO if_recipient_bcs.
  DATA bcs_exception  TYPE REF TO cx_bcs.
 
  DATA main_text      TYPE bcsy_text.
  DATA: binary_content TYPE solix_tab,
            binary_content2 TYPE solix_tab.
  DATA: size  TYPE so_obj_len,
           size2   TYPE so_obj_len.
  DATA sent_to_all    TYPE os_boolean.
  DATA: l_filename     TYPE sood-objdes,
           l_filename2     TYPE sood-objdes.
 
  CONCATENATE in_filename '_' sy-datum INTO l_filename.
 
  CONCATENATE '库存' '_' sy-datum INTO l_filename2.
 
* --------------------------------------------------------------
* convert the text string into UTF-16LE binary data including
* byte-order-mark. Mircosoft Excel prefers these settings
* all this is done by new class cl_bcs_convert (see note 1151257)
 
* 工单
  TRY.
      cl_bcs_convert=>string_to_solix(
        EXPORTING
          iv_string   = g_string
          iv_codepage = ''  "suitable for MS Excel, leave empty
          iv_add_bom  = 'X'     "for other doc types
        IMPORTING
          et_solix  = binary_content
          ev_size   = size ).
    CATCH cx_bcs.
      MESSAGE e445(so).
  ENDTRY.
 
* 库存
  TRY.
      cl_bcs_convert=>string_to_solix(
        EXPORTING
          iv_string   = g_string2
          iv_codepage = ''  "suitable for MS Excel, leave empty
          iv_add_bom  = 'X'     "for other doc types
        IMPORTING
          et_solix  = binary_content2
          ev_size   = size2 ).
    CATCH cx_bcs.
      MESSAGE e445(so).
  ENDTRY.
 
  TRY.
 
*     -------- create persistent send request ------------------------
      send_request = cl_bcs=>create_persistent( ).
 
*     -------- create and set document with attachment ---------------
*     create document object from internal table with text
*      append 'Hello world!' to main_text.                   "#EC NOTEXT
      document = cl_document_bcs=>create_document(
        i_type    = 'RAW'
        i_text    = main_text
        i_subject = in_subject ).
 
*     add the spread sheet as attachment to document object
 
*     工单
      document->add_attachment(
        i_attachment_type    = 'xls'                        "#EC NOTEXT
        i_attachment_subject = l_filename
        i_attachment_size    = size
        i_att_content_hex    = binary_content ).
*     库存
      document->add_attachment(
        i_attachment_type    = 'xls'                        "#EC NOTEXT
        i_attachment_subject = l_filename2
        i_attachment_size    = size2
        i_att_content_hex    = binary_content2 ).
 
*     add document object to send request
      send_request->set_document( document ).
 
*     --------- add recipient (e-mail address) -----------------------
      LOOP AT lt_mail_addr.
*     create recipient object
        recipient =
        cl_cam_address_bcs=>create_internet_address( lt_mail_addr-low ).
*     add recipient object to send request
        send_request->add_recipient( recipient ).
      ENDLOOP.
 
*     ---------- send document ---------------------------------------
      sent_to_all = send_request->send( i_with_error_screen = 'X' ).
 
      COMMIT WORK.
 
      IF sent_to_all IS INITIAL.
        MESSAGE i500(sbcoms).
      ELSE.
        MESSAGE s022(so).
      ENDIF.
 
*   ------------ exception handling ----------------------------------
*   replace this rudimentary exception handling with your own one !!!
    CATCH cx_bcs INTO bcs_exception.
      MESSAGE i865(so) WITH bcs_exception->error_type.
  ENDTRY.
ENDFORM.

其他博主的好文——SAP压缩excel并发送mail案例