Etiquetas

20111212

ABAP: Descargar tabla en archivo CSV

Un sencillo ejemplo de descarga de tabla interna en formato CSV. En la Plantilla de Batch Input aparece un ejemplo para la búsqueda de archivo en el equipo (P_FILE).

*&---------------------------------------------------------------------*
*&      Form  DESCARGA_ARCHIVO
*&---------------------------------------------------------------------*
FORM descarga_archivo .
  DATA: t_csv TYPE truxs_t_text_data.

  CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'
    TABLES
      i_tab_sap_data       = t_salida2 "datos origen
    CHANGING
      i_tab_converted_data = t_csv
    EXCEPTIONS
      conversion_failed    = 1
      OTHERS               = 2.
  IF sy-subrc <> 0.
    MESSAGE 'Error CSV' TYPE 'E'.
  ENDIF.


  DATA archivo TYPE string.
  archivo = p_file.  "ruta archivo leído en selection-screen

  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename                = archivo
      write_field_separator   = ';'
    TABLES
      data_tab                = t_csv
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6.

ENDFORM.                    " DESCARGA_ARCHIVO

No hay comentarios:

Publicar un comentario