Autor Tema: generar txt con campos separados por '|'  (Leído 18898 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado marisol

  • Novato
  • *
  • Mensajes: 2
    • Ver Perfil
generar txt con campos separados por '|'
« en: 11 de Enero de 2013, 11:05:24 am »
Hola, estoy intentando generar un archivo txt que tenga los campos separados por barras verticales, pero no consigo separar los campos. Os dejo el código de mi programa por si alguien me puede ayudar.



REPORT  z_txt LINE-SIZE 1000 NO STANDARD PAGE HEADING.

TYPE-POOLS: truxs.

TABLES: dd02l.

*----------------------------------------------------------------------*
*    TABLAS INTERNAS                                                   *
*----------------------------------------------------------------------*

"Se crea una estructura y una work-area de la estructura alsmex_tabline
DATA: gt_excel TYPE TABLE OF alsmex_tabline WITH HEADER LINE,
      wa_excel TYPE alsmex_tabline.

"Se define una estructura types con los mismos nombres de campos que
"los campos del excel
TYPES: BEGIN OF ty_datos,
       tabla(20),
       campos(60),
       condicion(100),
END OF ty_datos.

"Se define una estructura para leer los campos y las condiciones
DATA: BEGIN OF gt_campos,
      campos(100) TYPE c,
END OF gt_campos.

DATA: BEGIN OF gt_condicion ,
      condicion(100) TYPE c,
END OF gt_condicion.

*----------------------------------------------------------------------*
*    VARIABLES                                                         *
*---------------------------------------------------------------------*

"Se define una tabla interna y una word-area del mismo tipo que la
"estructura types
DATA: it_datos TYPE TABLE OF ty_datos,
      wa_datos LIKE LINE OF  it_datos.

"Se define una variable para leer el nombre de la tabla
DATA: gd_tabla(100) TYPE c.

"Se define una tabla interna con la estructura de campos
DATA: ti_campos LIKE STANDARD TABLE OF gt_campos WITH HEADER LINE.

"Se define una condición con el mismo tipo que la estructura condicion
DATA: where_tab LIKE STANDARD TABLE OF gt_condicion.

"Se define una tabla interna para generar el archivo txt
DATA: i_tab LIKE STANDARD TABLE OF gt_campos WITH HEADER LINE.


*Declaración de la tabla con formato CSV
DATA: ti_campos2 TYPE truxs_t_text_data.



"Definición de variables
DATA:   v_id TYPE i,
        v_value(30),
        gc_o TYPE c VALUE 'O',
        gc_x TYPE c VALUE 'X',
        gv_result TYPE c,
        gv_existe TYPE c,
        gv_error TYPE c.

DATA:   generic_table_wa TYPE REF TO data,
        generic_line TYPE REF TO data,
        o_elem TYPE REF TO cl_abap_elemdescr,
        o_stru TYPE REF TO cl_abap_structdescr,
        nomcamp(80) TYPE c,
        intermitente TYPE c.

"Se define los field-symbols
FIELD-SYMBOLS: <table>   TYPE ANY TABLE,
               <wa>      TYPE ANY,
               <campo>   TYPE ANY,
               <comp_wa> TYPE abap_compdescr.


*----------------------------------------------------------------------
*    PANTALLA DE SELECCIÓN
*----------------------------------------------------------------------

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (28) tcoment1.
PARAMETERS: p_fich(200) TYPE c MODIF ID a DEFAULT 'C:\' OBLIGATORY.
SELECTION-SCREEN END   OF LINE.

*----------------------------------------------------------
INITIALIZATION.
  tcoment1 = 'Cargar el siguiente fichero:'.
*----------------------------------------------------------

*----------------------------------------------------------------------
*  Evento AT SELECTION-SCREEN
*----------------------------------------------------------------------
AT SELECTION-SCREEN.
* Cuando se pulsa el botón de ejecutar realiza validaciones de los
* campos obligatorios
  IF sy-ucomm = 'ONLI'.
    IF p_fich IS  INITIAL.
      MESSAGE e001(zc) WITH 'El fichero es un campo'
       'obligatorio'.
    ENDIF.
  ENDIF.

*----------------------------------------------------------------------
*  Evento AT SELECTION-SCREEN ON VALUE-REQUEST
*----------------------------------------------------------------------
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fich.
* Función que se encarga de la carga del excel de entrada.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = p_fich
      mask             = ',*.XLS.'
      mode             = gc_o
      title            = 'SUBIDA DE FICHERO'
    IMPORTING
      filename         = p_fich
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.
* Comprobamos que la carga del excel ha ido correctamente y si es así
* comprobamos que sea de tipo '.xls'
  IF sy-subrc = 0.
    IF p_fich NS '.XLS' OR
     p_fich NS '.xls'.
      MESSAGE i001(zc) WITH 'El archivo no es .XLS'.
      gv_error = gc_x.
    ENDIF.
  ENDIF.

*--------------------------------------------------------------

TOP-OF-PAGE.
* Muestra la cabecera con los nombres de los campos de la tabla
  FORMAT COLOR COL_HEADING.
  ULINE.
  WRITE: / sy-vline NO-GAP.

"Con este código la cabecera no está ajustada
*   Obtener campos de la tabla
  o_stru ?= cl_abap_typedescr=>describe_by_data( <wa> ).
  LOOP AT o_stru->components ASSIGNING <comp_wa>.
*   Buscar la longitud de salida de cada campo de la tabla
    CONCATENATE o_stru->absolute_name '-' <comp_wa>-name INTO nomcamp.
    o_elem ?= cl_abap_typedescr=>describe_by_name( nomcamp ).
*   Escribir cada campo con la longitud de salida correspondiente
    WRITE: AT (o_elem->output_length) <comp_wa>-name
                               QUICKINFO <comp_wa>-name NO-GAP,
              sy-vline NO-GAP.
  ENDLOOP
  ULINE.

*----------------------------------------------------------------------
*          PROCESO PRINCIPAL
*----------------------------------------------------------------------
START-OF-SELECTION.

* Comprueba de que no ha ocurrido ningún error en el evento anterior.
  CHECK gv_error IS INITIAL.
*
** Inicializa las tablas y variables generales.
  PERFORM inicializar.
  IF p_fich IS NOT INITIAL.
    PERFORM comprobar_si_existe.
  ENDIF.

  IF gv_existe = 'S'.
* Descarga el excel a una tabla interna.
    PERFORM fichero_a_tabla_interna.

* Se mapea la tabla interna para mas tarde tratar los datos.
    PERFORM mapear_tabla.
  ELSE.
    MESSAGE i001(zc) WITH 'El fichero o directorio no existe'.
  ENDIF.


  IF gd_tabla IS INITIAL.
    MESSAGE e010(ad) WITH 'Error en el archivo, verifique datos'.
  ELSE.

*   Crear la work area con referencia a la tabla para usar en el select
    CREATE DATA generic_table_wa TYPE TABLE OF (gd_tabla).
    ASSIGN generic_table_wa->* TO <table>.

    CREATE DATA generic_table_wa TYPE (gd_tabla).
    ASSIGN generic_table_wa->* TO <wa>.

    CLEAR intermitente.

    SELECT * INTO CORRESPONDING FIELDS OF TABLE <table>
  FROM (gd_tabla) WHERE (where_tab).


*         Control del color
    IF intermitente = space.
      FORMAT COLOR COL_BACKGROUND INTENSIFIED OFF.
      intermitente = 'X'.
    ELSE.
      FORMAT COLOR COL_NORMAL INTENSIFIED ON.
      CLEAR intermitente.
    ENDIF.
*   Mostrar el valor de todos los campos

    LOOP AT <table> INTO <wa>.

      WRITE: / sy-vline NO-GAP.
      LOOP AT ti_campos.
        ASSIGN COMPONENT ti_campos-campos OF STRUCTURE <wa> TO <campo>.
        IF sy-subrc <> 0.
          EXIT.
        ENDIF.
        WRITE: <campo>  NO-GAP, sy-vline NO-GAP.
      ENDLOOP.
      NEW-LINE.
    ENDLOOP.

    ULINE.
    FORMAT COLOR COL_TOTAL INTENSIFIED OFF.
    WRITE: / 'Total registros:', sy-dbcnt.

  ENDIF.

  PERFORM select_data.

CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'
    EXPORTING
       i_field_seperator = '|'
    TABLES
       i_tab_sap_data = ti_campos
    CHANGING
       i_tab_converted_data = ti_campos2
    EXCEPTIONS
       conversion_failed = 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.



  IF ti_campos[] IS NOT INITIAL.

    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename                = 'D:\marisol\TEXTO.TXT'
        filetype                = 'ASC'
        HEADER                  = '00'
        WRITE_LF                = 'X'
*        WRITE_FIELD_SEPARATOR   = '|'

      TABLES
        data_tab                = ti_campos2
      EXCEPTIONS
        file_open_error         = 1
        file_write_error        = 2
        invalid_filesize        = 3
        invalid_type            = 4
        no_batch                = 5
        unknown_error           = 6
        invalid_table_width     = 7
        gui_refuse_filetransfer = 8
        customer_error          = 9
        no_authority            = 10
        OTHERS                  = 11.

    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
  ELSE.
    MESSAGE 'No se encontraron datos' TYPE 'I'. STOP.


  ENDIF.


*&---------------------------------------------------------------------*
*&      Form  select_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM select_data.

REFRESH ti_campos.
    LOOP AT  <table> ASSIGNING <campo>.
      ti_campos = <campo>.
      APPEND ti_campos.
    ENDLOOP.


ENDFORM.                    "select_data


*---------------------------------------------------------------------
*
*     Form  INICIALIZAR
**----------------------------------------------------------------------

FORM inicializar .

  REFRESH: gt_excel.

  CLEAR:  gv_result, gv_existe, gt_excel, gv_error.

ENDFORM.                    " INICIALIZAR


*---------------------------------------------------------------------
*
*      Form  COMPROBAR_SI_EXISTE
*---------------------------------------------------------------------

FORM comprobar_si_existe .
  DATA lv_ruta_fichero TYPE string.
  MOVE p_fich TO lv_ruta_fichero.

* Método para ver si existe el fichero.
  gv_result = cl_gui_frontend_services=>file_exist( lv_ruta_fichero ).
* En caso de que exista el fichero.
  IF NOT gv_result IS INITIAL.
    gv_existe = 'S'.
  ENDIF.
ENDFORM.                    " COMPROBAR_SI_EXISTE
*---------------------------------------------------------------------
*
*    Form  FICHERO_A_TABLA_INTERNA
**----------------------------------------------------------------------

FORM fichero_a_tabla_interna .
  DATA: lv_fichero LIKE rlgrap-filename.
  MOVE p_fich TO lv_fichero.
* Función que mete un excel en una tabla interna.
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = lv_fichero
      i_begin_col             = 1
      i_begin_row             = 1
      i_end_col               = 6
      i_end_row               = 10000
    TABLES
      intern                  = gt_excel
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.

  IF sy-subrc <> 0.
    MESSAGE i001(zc) WITH 'Error en el archivo, verifique datos'.
  ENDIF.


ENDFORM.                    " FICHERO_A_TABLA_INTERNA


*---------------------------------------------------------------------
*      Form  MAPEAR_TABLA
*----------------------------------------------------------------------

FORM mapear_tabla .
* Se recorre la tabla interna para mapearla y crear una tabla interna
* que falicite su lectura y se pueda trabajar mejor con ella.
* ORDENAMOS DATOS EN TABLA FINAL.

  LOOP AT gt_excel.

    IF gt_excel-row = 2  AND gt_excel-col = 1.
      MOVE gt_excel-value TO  gd_tabla.
    ENDIF.

    IF gt_excel-row >= 2 AND gt_excel-col = 2.
      APPEND   gt_excel-value TO ti_campos.
    ENDIF.

    IF gt_excel-row >= 2 AND gt_excel-col = 3.
      APPEND   gt_excel-value TO where_tab.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " MAPEAR_TABLA


Desconectado Carlos

  • Usuario Sr.
  • ****
  • Mensajes: 177
    • Ver Perfil
Re:generar txt con campos separados por '|'
« Respuesta #1 en: 11 de Enero de 2013, 12:29:13 pm »
Hola Marisol,

Lo que veo es que tu tabla gt_campos esta declarada con un solo campo.


DATA: BEGIN OF gt_campos,
      campos(100) TYPE c,
END OF gt_campos.



Para que la función SAP_CONVERT_TO_TEX_FORMAT te reconozca los campos y pueda separarlos yo creo que tendría que declararse de esta otra manera. No digo que esta misma tabla la tengas que declarar así, pero igual es montarte otra tabla para luego pasarsela de esta manera a la función.


DATA: BEGIN OF gt_campos OCCURS 0.
  DATA: tabla(20),
        campos(60),
        condicion(100).
DATA: END OF gt_campos.




¿Nos cuentas que tal te fue?


Un saludo.


Desconectado marisol

  • Novato
  • *
  • Mensajes: 2
    • Ver Perfil
Re:generar txt con campos separados por '|'
« Respuesta #2 en: 14 de Enero de 2013, 11:12:50 am »
Hola, ya he conseguido solucionarlo. Aquí dejo el código por si a alguien le hace falta.

*Declaramos el Type pool para la tabla de salida
TYPE-POOLS: truxs.

TABLES: dd02l.
*----------------------------------------------------------------------*
*    TABLAS INTERNAS                                                   *
*----------------------------------------------------------------------*
DATA: gt_excel TYPE TABLE OF alsmex_tabline WITH HEADER LINE,
      wa_excel TYPE alsmex_tabline.

DATA: BEGIN OF iout OCCURS 0,
      rec(1000) TYPE c,
      END OF iout.

DATA:
BEGIN OF gt_campos OCCURS 0,
campos(1000) TYPE c,
END OF gt_campos.

DATA:
BEGIN OF gt_condicion ,
condicion(100) TYPE c,
END OF gt_condicion.

*----------------------------------------------------------------------*
*    VARIABLES                                                         *
*---------------------------------------------------------------------

DATA: gd_tabla(100) TYPE c.
DATA: fin_linea(100) TYPE c.

DATA: ti_campos LIKE STANDARD TABLE OF gt_campos WITH HEADER LINE.
DATA: ti_final LIKE STANDARD TABLE OF gt_campos.
DATA: wa_cabecera LIKE LINE OF gt_campos.
DATA: wa_campos LIKE LINE OF gt_campos.
DATA: ti_campos2 TYPE truxs_t_text_data.

DATA: i_tab LIKE STANDARD TABLE OF gt_campos WITH HEADER LINE.

DATA: where_tab LIKE STANDARD TABLE OF gt_condicion.


DATA:   v_id TYPE i,
        v_value(30),
        gc_o TYPE c VALUE 'O',
        gc_x TYPE c VALUE 'X',
        gv_result TYPE c,
        gv_existe TYPE c,
        gv_error TYPE c.

*Esta tabla la utilizamos para las condiciones del excel.
DATA: where_clause(60) TYPE c.

DATA:   generic_table_wa TYPE REF TO data,

        generic_line TYPE REF TO data, "esta es la tabla general
        o_elem TYPE REF TO cl_abap_elemdescr,
        o_stru TYPE REF TO cl_abap_structdescr,
        nomcamp(240) TYPE c,
        intermitente TYPE c.

FIELD-SYMBOLS:
               <table> TYPE ANY TABLE,
               <wa>      TYPE ANY,
               <campo>   TYPE ANY,
               <comp_wa> TYPE abap_compdescr.

*----------------------------------------------------------------------
*    PANTALLA DE SELECCIÓN
*---------------------------------------------------------------------

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (28) tcoment1.
PARAMETERS: p_fich(200) TYPE c MODIF ID a DEFAULT 'C:\' OBLIGATORY.
SELECTION-SCREEN END   OF LINE.

*----------------------------------------------------------
INITIALIZATION.
  tcoment1 = 'Carga el siguiente fichero:'.
*----------------------------------------------------------


*----------------------------------------------------------------------
*  Evento AT SELECTION-SCREEN
*----------------------------------------------------------------------
AT SELECTION-SCREEN.
* Cuando se pulsa el botón de ejecutar realiza validaciones de los
* campos obligatorios
  IF sy-ucomm = 'ONLI'.
    IF p_fich IS  INITIAL.
      MESSAGE e001(zc) WITH 'El fichero es un campo'
       'obligatorio'.
    ENDIF.
  ENDIF.

*----------------------------------------------------------------------
*  Evento AT SELECTION-SCREEN ON VALUE-REQUEST
*----------------------------------------------------------------------
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fich.
* Función que se encarga de la carga del excel de entrada.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = p_fich
      mask             = ',*.XLS,*.xls.'
      mode             = gc_o
      title            = 'SUBIDA DE FICHERO'
    IMPORTING
      filename         = p_fich
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.
* Comprobamos que la carga del excel ha ido correctamente y si es así
* comprobamos que sea de tipo '.xls'
  IF sy-subrc = 0.
    IF p_fich NS '.XLS' OR
     p_fich NS '.xls'.
      MESSAGE i001(zc) WITH 'El archivo no es .XLS'.
      gv_error = gc_x.
    ENDIF.
  ENDIF.

*--------------------------------------------------------------
TOP-OF-PAGE.

  fin_linea = 0.

  LOOP AT ti_campos.

*   Buscar la longitud de salida de cada campo de la tabla
    CONCATENATE gd_tabla  '-' ti_campos INTO nomcamp.
    o_elem ?= cl_abap_typedescr=>describe_by_name( nomcamp ).
*   Escribir cada campo con la longitud de salida correspondiente
    fin_linea = fin_linea + ( o_elem->output_length ) + 1.

  ENDLOOP.
data linea(500).
linea = fin_linea + 1.
   FORMAT COLOR COL_HEADING.
  ULINE at (linea).

  WRITE: / sy-vline NO-GAP.

  LOOP AT ti_campos.

*   Buscar la longitud de salida de cada campo de la tabla
    CONCATENATE gd_tabla  '-' ti_campos INTO nomcamp.
    o_elem ?= cl_abap_typedescr=>describe_by_name( nomcamp ).
*   Escribir cada campo con la longitud de salida correspondiente
    WRITE:
    AT (o_elem->output_length) ti_campos QUICKINFO ti_campos NO-GAP,
   sy-vline NO-GAP.

  ENDLOOP.

data: my_lisel(1000) type c  .
    clear my_lisel .


 WRITE: / sy-vline NO-GAP.
  ULINE at (fin_linea).
fin_linea = fin_linea + 1.

  FORMAT RESET.
*----------------------------------------------------------------------
*          PROCESO PRINCIPAL
*----------------------------------------------------------------------
START-OF-SELECTION.

*VERIFICAMOS QUE SE HAYA SELECCIONADO UN ARCHIVO DE EXCEL
*TAMBIÉN APLICA PARA EL FORMATO DE OFFICE 2007 .XLSX

* Comprueba de que no ha ocurrido ningún error en el evento anterior.
  CHECK gv_error IS INITIAL.
*
** Inicializa las tablas y variables generales.
  PERFORM inicializar.
  IF p_fich IS NOT INITIAL.
    PERFORM comprobar_si_existe.
  ENDIF.

  IF gv_existe = 'S'.
* Descarga el excel a una tabla interna.
    PERFORM fichero_a_tabla_interna.

* Se mapea la tabla interna para mas tarde tratar los datos.
    PERFORM mapear_tabla.
  ELSE.
    MESSAGE i001(zc) WITH 'El fichero o directorio no existe'.
  ENDIF.


  IF gd_tabla IS INITIAL.
    MESSAGE e010(ad) WITH 'Error en el archivo, verifique datos'.

  ELSE.
*SI TODO HA SALIDO BIEN, YA TENEMOS LOS DATOS EN NUESTRA TABLA INTERNA

*   Crear la work area con referencia a la tabla para usar en el select
    CREATE DATA generic_table_wa TYPE TABLE OF (gd_tabla).
    ASSIGN generic_table_wa->* TO <table>.

    CREATE DATA generic_table_wa TYPE (gd_tabla).
    ASSIGN generic_table_wa->* TO <wa>.

    CLEAR intermitente.

    SELECT * INTO CORRESPONDING FIELDS OF TABLE <table>
  FROM (gd_tabla) WHERE (where_tab).

*         Control del color
    IF intermitente = space.
      FORMAT COLOR COL_BACKGROUND INTENSIFIED OFF.
      intermitente = 'X'.
    ELSE.
      FORMAT COLOR COL_NORMAL INTENSIFIED ON.
      CLEAR intermitente.
    ENDIF.
*   Mostrar el valor de todos los campos

    LOOP AT <table> INTO <wa>.

      WRITE: / sy-vline NO-GAP.

      LOOP AT ti_campos.
        ASSIGN COMPONENT ti_campos-campos OF STRUCTURE <wa> TO <campo>.
        IF sy-subrc <> 0.
          EXIT.
        ENDIF.
        WRITE: <campo>  NO-GAP, sy-vline NO-GAP.

          data: campo(255) type c.

  move campo to wa_campos.
  append wa_campos to ti_final.
  clear campo.
      NEW-LINE.
    ENDLOOP.

 refresh ti_final.
read line 1 field value sy-lisel into my_lisel.
my_lisel = my_lisel(fin_linea).

append my_lisel to ti_final.
data ent type i.
ent = 1.
while my_lisel is not INITIAL.
  clear my_lisel.
  ent = ent + 1.
  read line ent field value sy-lisel into my_lisel.
  my_lisel = my_lisel(fin_linea).

  append my_lisel to ti_final.
  ENDWHILE.
  ent = ent + 1.
    read line 1 field value sy-lisel into my_lisel.
    my_lisel = my_lisel(fin_linea).

  append my_lisel to ti_final.

    ULINE at (fin_linea).
    FORMAT COLOR COL_TOTAL INTENSIFIED OFF.

    REFRESH ti_campos.

    LOOP AT  <table> ASSIGNING <campo>.

      ti_campos = <campo>.

      APPEND ti_campos.
    ENDLOOP.

*Hacemos la bajada del archivo utilizando la tabla
*que obtuvimos en el paso anterior.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename                = 'D:\prueba.txt'
      TABLES
        data_tab                = ti_final[]
      EXCEPTIONS
        file_write_error        = 1
        no_batch                = 2
        gui_refuse_filetransfer = 3
        invalid_type            = 4
        no_authority            = 5
        unknown_error           = 6.

  ENDIF.

*---------------------------------------------------------------------
*
*     Form  INICIALIZAR
**----------------------------------------------------------------------

FORM inicializar .

  REFRESH: gt_excel.

  CLEAR:  gv_result, gv_existe, gt_excel,

gv_error.

ENDFORM.                    " INICIALIZAR


*---------------------------------------------------------------------
*
*      Form  COMPROBAR_SI_EXISTE
*---------------------------------------------------------------------

FORM comprobar_si_existe .
  DATA lv_ruta_fichero TYPE string.
  MOVE p_fich TO lv_ruta_fichero.

* Método para ver si existe el fichero.
  gv_result = cl_gui_frontend_services=>file_exist( lv_ruta_fichero ).
* En caso de que exista el fichero.
  IF NOT gv_result IS INITIAL.
    gv_existe = 'S'.
  ENDIF.
ENDFORM.                    " COMPROBAR_SI_EXISTE
*---------------------------------------------------------------------
*
*    Form  FICHERO_A_TABLA_INTERNA
**--------------------------------------------------------------------

FORM fichero_a_tabla_interna .
  DATA: lv_fichero LIKE rlgrap-filename.
  MOVE p_fich TO lv_fichero.
* Función que mete un excel en una tabla interna.
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = lv_fichero
      i_begin_col             = 1
      i_begin_row             = 1
      i_end_col               = 6
      i_end_row               = 10000
    TABLES
      intern                  = gt_excel
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.

  IF sy-subrc <> 0.
    MESSAGE i001(zc) WITH 'Error en el archivo, verifique datos'.
  ENDIF.


ENDFORM.                    " FICHERO_A_TABLA_INTERNA


*---------------------------------------------------------------------
*      Form  MAPEAR_TABLA
*----------------------------------------------------------------------

FORM mapear_tabla .
* Se recorre la tabla interna para mapearla y crear una tabla interna
* que falicite su lectura y se pueda trabajar mejor con ella.
* ORDENAMOS DATOS EN TABLA FINAL.

  LOOP AT gt_excel.

    IF gt_excel-row = '0001'  AND gt_excel-col = '0003'.
      MOVE gt_excel-value TO  gd_tabla.
    ENDIF.

    IF gt_excel-row >= 3 AND gt_excel-col = 3.
      APPEND   gt_excel-value TO ti_campos.

    ENDIF.

    IF gt_excel-row >= 1 AND gt_excel-col = 6.
      APPEND   gt_excel-value TO where_tab.

    ENDIF.
  ENDLOOP
ENDFORM.                 

Desconectado lcruz

  • Novato
  • *
  • Mensajes: 4
    • Ver Perfil
    • Abap facil para mi
Re:generar txt con campos separados por '|'
« Respuesta #3 en: 08 de Mayo de 2013, 04:25:50 am »
Prueba con este ejemplo

http://abap.facilparami.com/2012/10/descargar-archivo-separado-por-comas-csv/

y en lugar de la coma (,) usar la '|'

Saludos,
Luis Cruz