Truco 105. Envío de email con resultados de un ALV.

En nuestro truco de hoy inauguramos una sección donde propondremos típicos ejemplos prácticos de necesidad funcional y como solucionarlos, incluyendo en muchos casos elementos de programación Abap.

Empezaremos con un ejemplo clásico donde necesitamos que un report Z envie por email los resultados calculados y que en modo interactivo se muestran en un ALV. Por ejemplo, en una ejecución del programa en fondo queremos que se envíen los resultados a uno o varios usuarios. O incluso el mismo usuario que esta viendo los resultados de forma interactiva quiere enviar la información a otro usuario de la empresa o un contacto externo (cliente o proveedor).

Para nuestro ejemplo, partimos de un desarrollo Z que nos permite listar información de pedidos de compra.

En el informe añadiremos en los criterios de selección del programa añadiremos un campo para poder introducir los destinatarios de email donde queremos enviar los resultados del ALV ( Select-options: so_email for adr6-smtp_addr. )

Y un botón para que el usuario, cuando lo desee, pueda lanzar el envío del correo electrónico que contendrá como anexo una excel con la información.

Ahora, la parte más compleja. La programación necesaria para convertir la tabla interna que estamos utilizando en el ALV en una hoja excel, construir el correo electrónico y enviarlo a los destinatarios.

Básicamente, utilizamos los siguientes elementos de programación:

• Clase cl_salv_bs_tt_util: nos permite convertir una tabla interna a formato excel.
• Clase cl_bcs: para gestionar el envío del correo.
• Clase cl_document_bcs: para crear el correo, indicar asunto y texto, anexar excel, etc.

En mi programa, he creado un FORM que se ejecuta cuando el usuario pulsa el botón de enviar correo, que se llama lanza_envio_mail.

Desde allí se llama a send_email donde se hace todas las operaciones técnicas de convertir la tabla interna a un xls (form f_build_email_data ) y la construcción del correo electrónico.

FORM lanza_envio_email.
* miro si la tabla de emails esta vacia, intento meter el email del user
  DESCRIBE TABLE so_email LINES lv_num_emails.
  IF lv_num_emails = 0.
    SELECT SINGLE adr6~smtp_addr INTO so_email-low
         FROM usr21
           INNER JOIN adr6
              ON  usr21~addrnumber = adr6~addrnumber
             AND usr21~persnumber = adr6~persnumber
                 WHERE bname = sy-uname.
    IF sy-subrc EQ 0.
      lv_num_emails = lv_num_emails + 1.
      so_email-sign = ‘I’.
      so_email-option = ‘EQ’.
      APPEND so_email.
    ENDIF.
  ENDIF.
  IF lv_num_emails > 0.
* Construimos el catalogo para poder hacer la excel.
    CALL FUNCTION ‘LVC_FIELDCATALOG_MERGE’
      EXPORTING
        i_structure_name       = ‘ZME2L’
      CHANGING
        ct_fieldcat            = gt_fieldcat
      EXCEPTIONS
        inconsistent_interface = 1
        program_error          = 2
        OTHERS                 = 3.
    PERFORM modify_fieldcat.
* Constuimos el correo desde la tabla interna.
    PERFORM send_email.
  ENDIF.
ENDFORM.

*&———————————————————————*
*&      Form  SEND_EMAIL
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM send_email .
  DATA:
    lt_binary_content TYPE solix_tab,
    lv_size           TYPE so_obj_len,
    r_mail            TYPE ace_generic_range_t,
    st_mail           TYPE ace_generic_range,
    lv_count          TYPE char2,
    lv_var            TYPE char8.
  FIELD-SYMBOLS: <fs_mail> TYPE any.
  REFRESH: lt_binary_content.
  CLEAR: st_mail, lv_count, lv_var.

* Construye el objeto binario de la excel a partir de la tabla interna
  PERFORM f_build_email_data CHANGING lt_binary_content
                                       lv_size.
  DATA: v_rundate        LIKE sy-datum,
        v_runtime        LIKE sy-uzeit,
        timestamp(20),
        lcl_send_request TYPE REF TO cl_bcs,
        lcl_document     TYPE REF TO cl_document_bcs,
        lv_subject       TYPE so_obj_des,
        lt_main_text     TYPE soli_tab,
        lv_text          TYPE soli,
        lv_filename      TYPE sood-objdes,
        lv_mailto        TYPE adr6-smtp_addr,
        lcl_recipient    TYPE REF TO cl_cam_address_bcs,
        lv_sent_to_all   TYPE os_boolean.

*–Run Date and Run Time
  v_rundate = sy-datum.
  v_runtime = sy-uzeit.
*  CONCATENATE v_rundate v_runtime INTO timestamp.
  WRITE sy-datum TO timestamp MM/DD/YYYY.
  TRY.
* ——– create persistent send request ————————
      lcl_send_request = cl_bcs=>create_persistent( ).

* ——– create and set document with attachment —————

* ASUNTO CORREO
      CONCATENATE ‘Informe de pedidos’  ‘ Fecha:’ timestamp
      sy-cprog sy-sysid INTO lv_subject
      SEPARATED BY space.

* Texto de correo (cuerpo del mensaje)
      CONCATENATE ‘En el Excel anexo se detallan los pedidos pendientes’
      ‘en el sistema.’ INTO lv_text SEPARATED BY space.
      APPEND lv_text TO lt_main_text.
      APPEND text-001 TO lt_main_text.
      APPEND text-003 TO lt_main_text.
      lcl_document = cl_document_bcs=>create_document(
      i_type = ‘RAW’
      i_text = lt_main_text
      i_subject = lv_subject ).                             «#EC NOTEXT

* Añadimos la excel al mensaje, poniendo nombre al fichero
      CLEAR: lv_subject.
      CONCATENATE ‘Pedidos’_’ v_rundate
      v_runtime ‘_’ sy-sysid INTO lv_filename.
      CALL METHOD lcl_document->add_attachment
        EXPORTING
          i_attachment_type    = ‘xls’
          i_attachment_subject = lv_filename
          i_attachment_size    = lv_size   «im_size
          i_att_content_hex    = lt_binary_content. «im_tab ).

* add document object to send request
      lcl_send_request->set_document( lcl_document ).

* ——— add recipient (e-mail address) ———————–
* create recipient object

*      Añadimos los destinatarios al correo
      LOOP AT so_email.
        lv_mailto = so_email-low. «ls_recipient-low.
        lcl_recipient = cl_cam_address_bcs=>create_internet_address( lv_mailto ).

* add recipient object to send request
        lcl_send_request->add_recipient( lcl_recipient ).
*        CLEAR: ls_recipient.
      ENDLOOP.
* Send now
      lcl_send_request->set_send_immediately( ‘ ‘ ).
* Outbox
      lcl_send_request->send_request->set_link_to_outbox( ‘X’ ).
* ———- send document —————————————
      lv_sent_to_all = lcl_send_request->send( i_with_error_screen = ‘X’ ).

      COMMIT WORK.

      IF lv_sent_to_all IS INITIAL.
        MESSAGE i500(sbcoms) WITH lv_mailto.
      ELSE.
        MESSAGE s022(so).
      ENDIF.

* ———— exception handling ———————————-
* replace this rudimentary exception handling with your own one !!!
*    CATCH cx_bcs INTO lcl_bcs_exception.
*      MESSAGE i865(so) WITH lcl_bcs_exception->error_type.
  ENDTRY.
ENDFORM.

FORM f_build_email_data  CHANGING p_lt_binary_content
         TYPE STANDARD TABLE
                             p_size TYPE so_obj_len.
  DATA: e_xstring TYPE xstring.
  DATA: mt_fcat     TYPE lvc_t_fcat,
        ms_fcat     TYPE lvc_s_fcat,
        st_fieldcat TYPE slis_fieldcat_alv.
  DATA: mt_data       TYPE REF TO data.
  DATA: m_flavour TYPE string.
  DATA: m_version TYPE string.
  DATA: mo_result_data TYPE REF TO cl_salv_ex_result_data_table.
  DATA: mo_columns  TYPE REF TO cl_salv_columns_table.
  DATA: mo_aggreg   TYPE REF TO cl_salv_aggregations.
  DATA: mo_salv_table  TYPE REF TO cl_salv_table.
  DATA: m_file_type TYPE salv_bs_constant.
  DATA: out_length TYPE i.
  FIELD-SYMBOLS <tab> TYPE ANY TABLE.

  CLEAR: e_xstring, ms_fcat, st_fieldcat, m_flavour, m_version,
         mo_result_data, mo_columns, mo_aggreg, mo_salv_table,
         m_file_type, out_length, mt_data.
*  REFRESH: it_fieldcat[].

*-It_final here is the final itab same parameter you pass in
* your alv grid
  GET REFERENCE OF gt_eban INTO mt_data.

*-Move your field catalog to mt_fcat make sure to populate
*-ms_fcat-seltext, because it can be that in your field cat the headings

*-are in seltext_l or seltext_m or seltext_s
  LOOP AT gt_fieldcat INTO ms_fcat.  «st_fieldcat.
*    MOVE-CORRESPONDING st_fieldcat TO ms_fcat.
*    MOVE: st_fieldcat-seltext_l TO ms_fcat-seltext.
    APPEND ms_fcat TO mt_fcat.
    CLEAR: ms_fcat, st_fieldcat.
  ENDLOOP.

  IF cl_salv_bs_a_xml_base=>get_version( ) EQ if_salv_bs_xml=>version_25 OR
     cl_salv_bs_a_xml_base=>get_version( ) EQ if_salv_bs_xml=>version_26.

    mo_result_data = cl_salv_ex_util=>factory_result_data_table(
        r_data                      = mt_data
        t_fieldcatalog              = mt_fcat
    ).

    CASE cl_salv_bs_a_xml_base=>get_version( ).
      WHEN if_salv_bs_xml=>version_25.
        m_version = if_salv_bs_xml=>version_25.
      WHEN if_salv_bs_xml=>version_26.
        m_version = if_salv_bs_xml=>version_26.
    ENDCASE.

    m_file_type = if_salv_bs_xml=>c_type_xlsx.
    m_flavour = if_salv_bs_c_tt=>c_tt_xml_flavour_export.

    «transformation of data to excel
    CALL METHOD cl_salv_bs_tt_util=>if_salv_bs_tt_util~transform
      EXPORTING
        xml_type      = m_file_type
        xml_version   = m_version
        r_result_data = mo_result_data
        xml_flavour   = m_flavour
        gui_type      = if_salv_bs_xml=>c_gui_type_gui
      IMPORTING
        xml           = e_xstring.
  ENDIF.

  CALL FUNCTION ‘SCMS_XSTRING_TO_BINARY’
    EXPORTING
      buffer        = e_xstring
    IMPORTING
      output_length = out_length
    TABLES
      binary_tab    = p_lt_binary_content.

  MOVE: out_length TO p_size.

ENDFORM.                    » F_BUILD_EMAIL_DATA

El resultado el correo enviado podría ser algo parecido a esto, donde podemos personalizar en el código la información del asunto, texto del correo, nombre del fichero anexado, etc.

Con el fichero excel anexado con la información del ALV, todo construido con un desarrollo más o menos sencillo.

Espero que os sea de utilidad.

Bibliografia:

Gracias a Ralph Vincent Ferraren por su aporte en la Wiki del SCN de SAP:

https://wiki.scn.sap.com/wiki/display/ABAP/Send+an+Internal+Table+as+an+excel+attachment+via+email

Anuncio publicitario